Update automatically managed build utilities.

[sod] / src / parser / scanner-impl.lisp

diff --git a/src/parser/scanner-impl.lisp b/src/parser/scanner-impl.lisp
index 2abdff4b42e384dd8b7d35e3d479074acf876cc8..4909be94af4226771ce6c445f9c7b49598941654 100644 (file)
--- a/src/parser/scanner-impl.lisp
+++ b/src/parser/scanner-impl.lisp
@@ -92,10 +92,13 @@ (defmethod scanner-interval
   (with-slots ((string %string) index) scanner
     (subseq string place-a (or place-b index))))
 
   (with-slots ((string %string) index) scanner
     (subseq string place-a (or place-b index))))
 

+(defmethod make-scanner-stream ((scanner string-scanner))
+  (make-instance 'character-scanner-stream :scanner scanner))
+

 ;;;--------------------------------------------------------------------------
 ;;; List scanner.
 
 ;;;--------------------------------------------------------------------------
 ;;; List scanner.
 

-(export 'list-scanner)
+(export '(list-scanner list-scanner-p make-list-scanner))

 (defstruct (list-scanner
             (:constructor make-list-scanner (list &aux (%list list))))
   "Simple token scanner for lists.
 (defstruct (list-scanner
             (:constructor make-list-scanner (list &aux (%list list))))
   "Simple token scanner for lists.