Major effort to plug slot-name leaks.

[sod] / src / parser / parser-impl.lisp

diff --git a/src/parser/parser-impl.lisp b/src/parser/parser-impl.lisp
index 0a7d667..352a725 100644 (file)
--- 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-"))