X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/aa14a4cddcb96b681d5c19a2ec8bad382f43b264..4b8e5c0347115ff30841f1d1e71afe59ecb6c82c:/src/parser/parser-impl.lisp

diff --git a/src/parser/parser-impl.lisp b/src/parser/parser-impl.lisp
index 0a7d667..352a725 100644
--- a/src/parser/parser-impl.lisp
+++ b/src/parser/parser-impl.lisp
@@ -129,12 +129,12 @@
 
 (export 'string-parser)
 (defclass string-parser (character-parser-context)
-  ((string :initarg :string :reader parser-string)
+  ((%string :initarg :string :reader parser-string)
    (index :initarg :index :initform 0 :reader parser-index)
-   (length :initform (gensym "LEN-") :reader parser-length)))
+   (%length :initform (gensym "LEN-") :reader parser-length)))
 
 (defmethod wrap-parser ((context string-parser) form)
-  (with-slots (string index length) context
+  (with-slots ((string %string) index (length %length)) context
     `(let* (,@(unless (symbolp string)
 		(let ((s string))
 		  (setf string (gensym "STRING-"))