From 9e41cce7de76880e0e61905fb37100e3fade84e7 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 10:58:38 +0100
Subject: [PATCH] src/parser/scanner-impl.lisp: Make streams from string
 scanners.

Implement `make-scanner-stream' for `string-scanner'.
---
 src/parser/scanner-impl.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/parser/scanner-impl.lisp b/src/parser/scanner-impl.lisp
index 2abdff4..fd50333 100644
--- a/src/parser/scanner-impl.lisp
+++ b/src/parser/scanner-impl.lisp
@@ -92,6 +92,9 @@
   (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.
 
-- 
2.11.0