src/parser/scanner-impl.lisp: Add missing `scanner-unread' method.

For some reason, `string-scanner' didn't have this defined.

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index 0d41e6b3ad9f0d33afb3e36b09cf7654a7590940..ddf63e58a26a325e16527516801970df609bc4e8 100644 (file)
--- a/doc/SYMBOLS
+++ b/doc/SYMBOLS
@@ -2037,6 +2037,7 @@ scanner-token
   sod:sod-token-scanner
 scanner-unread
   charbuf-scanner t
   sod:sod-token-scanner
 scanner-unread
   charbuf-scanner t

+  string-scanner t

 cl:shared-initialize
   charbuf-scanner t [:after]
   simple-binary-operator t [:after]
 cl:shared-initialize
   charbuf-scanner t [:after]
   simple-binary-operator t [:after]

diff --git a/src/parser/scanner-impl.lisp b/src/parser/scanner-impl.lisp
index 00c41eb62bf2e53a4a147bacc7efd856ed0e1216..8bca29f43568577163f2bf596abf8acdc1d34a76 100644 (file)
--- a/src/parser/scanner-impl.lisp
+++ b/src/parser/scanner-impl.lisp
@@ -81,6 +81,9 @@ (defmethod scanner-current-char ((scanner string-scanner))
 (defmethod scanner-step ((scanner string-scanner))
   (incf (string-scanner-index scanner)))
 
 (defmethod scanner-step ((scanner string-scanner))
   (incf (string-scanner-index scanner)))
 

+(defmethod scanner-unread ((scanner string-scanner) char)
+  (decf (string-scanner-index scanner)))
+

 (defmethod scanner-capture-place ((scanner string-scanner))
   (string-scanner-index scanner))
 
 (defmethod scanner-capture-place ((scanner string-scanner))
   (string-scanner-index scanner))