From f0ecdadbe0c8464012fc9cf5fe70efb8ca957a5b Mon Sep 17 00:00:00 2001
From: Eitaro Fukamachi <e.arrows@gmail.com>
Date: Sat, 1 Aug 2015 01:17:10 +0900
Subject: [PATCH] Fix match? to return T/NIL.

---
 src/proc-parse.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/proc-parse.lisp b/src/proc-parse.lisp
index 0a40fef..de3a637 100644
--- 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