Fix match? to return T/NIL.

fukamachi · Jul 31, 2015 · f0ecdad · f0ecdad
1 parent 243e9fc
commit f0ecdad
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/proc-parse.lisp b/src/proc-parse.lisp
@@ -307,10 +307,10 @@
                   `(let ((,start ,',p)
                          (,start-elem ,',elem))
                      (handler-case
-                         (match ,@vectors)
+                         (progn (match ,@vectors) t)
                        (match-failed ()
                          (setq ,',p ,start
-                               ,',elem ,start-elem))))))
+                               ,',elem ,start-elem) nil)))))
               (match-i (&rest vectors)
                 `(match-i-case
                   ,@(loop for vec in vectors