;;;----- Licensing notice ---------------------------------------------------
;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.
;;;
;;; SOD is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
(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.
-(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.