~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update automatically managed build utilities.
[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)
(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)
(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)
(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-"))
`(let* (,@(unless (symbolp string)
(let ((s string))
(setf string (gensym "STRING-"))