Index: trunk/parsing.lisp
===================================================================
--- trunk/parsing.lisp	(revision trunk,21)
+++ trunk/parsing.lisp	(revision trunk,27)
@@ -32,5 +32,5 @@
   `(defun ,name (input)
     (if-matches input ,rule (next match)
-     (values t next (list ',name ,(if filter `(,filter match) 'match))))))
+     (values t next (cons ',name ,(if filter `(,filter match) 'match))))))
 
 (defmacro defgrammar (() &body definitions)