Implement `make-scanner-stream' for `string-scanner'.
(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.