Skip to content
Browse files

While comparing input through a string, the string will be returned on

success, instead of returning the last character of the string.
  • Loading branch information...
1 parent c3300dd commit 2d9b2b73ee5961655ac2fe1a85316e152df4669a Volkan YAZICI committed Jul 28, 2007
Showing with 8 additions and 1 deletion.
  1. +8 −1 meta-sexp.lisp
9 meta-sexp.lisp
@@ -166,7 +166,14 @@
(elt (parser-context-data ,ctx)
(parser-context-cursor ,ctx))))))))
((characterp form) `(match-atom ,ctx ,form))
- ((stringp form) (compile-expr `(:checkpoint (:and ,@(coerce form 'list)))))
+ ((stringp form)
+ (compile-expr
+ `(:checkpoint
+ (and
+ ,@(mapcar
+ #'(lambda (form) `(match-atom ,ctx ,form))
+ (coerce form 'list))
+ ,form))))
(t (compile-expr form nil)))
((and (consp form) (eql 'meta (car form)))

0 comments on commit 2d9b2b7

Please sign in to comment.
Something went wrong with that request. Please try again.