Use simple-string, not simple-base-string. - Patch by Kan-Ru Chen <kanru@kanru.info>

diff --git a/meta-src.lisp b/meta-src.lisp
index fbfbb8c..96fdaea 100644 (file)
--- a/meta-src.lisp
+++ b/meta-src.lisp
@@ -180,7 +180,7 @@
           (index ,start)
           (end ,(or end `(length ,source-symbol))))
      (declare (fixnum index end)
-              (type simple-base-string ,source-symbol))
+              (type simple-string ,source-symbol))
      (macrolet ((match (x)
                   (compileit x
                              :meta-parser-type :string