Also use character instead of base-char.
authorFrancois-Rene Rideau <tunes@google.com>
Wed, 25 Jul 2012 22:53:05 +0000 (18:53 -0400)
committerFrancois-Rene Rideau <tunes@google.com>
Wed, 25 Jul 2012 22:53:05 +0000 (18:53 -0400)
meta-src.lisp

index 96fdaea..d9fe49a 100644 (file)
@@ -1,8 +1,9 @@
-;;;;                                                                           ;
+;;;;
 ;;;; (c) 2001 by Jochen Schmidt.
+;;;; (c) 2009-2012 by Francois-Rene Rideau
 ;;;;
 ;;;; File:            meta.lisp
-;;;; Revision:        1.0.0
+;;;; Revision:        1.0.0 - plus modifications by Francois-Rene Rideau
 ;;;; Description:     A simple parsing technique
 ;;;; Date:            01.07.2001
 ;;;; Authors:         Jochen Schmidt
@@ -71,7 +72,7 @@
   (let ((char-sym (gensym)))
     `(when (< index end)
        (let ((,char-sym (char ,source-symbol index)))
-         (declare (base-char ,char-sym))
+         (declare (type character ,char-sym))
          (when (typep ,char-sym ',x)
            (setq ,v ,char-sym) (incf index))))))
 
   `(let* ((,source-symbol ,string-buffer)
           (index ,start)
           (end ,(or end `(length ,source-symbol))))
-     (declare (fixnum index end)
+     (declare (type fixnum index end)
               (type simple-string ,source-symbol))
      (macrolet ((match (x)
                   (compileit x