Index: trunk/parse2.lisp
===================================================================
--- trunk/parse2.lisp	(revision trunk,6)
+++ trunk/parse2.lisp	(revision trunk,7)
@@ -1,2 +1,4 @@
+#|(copyright)|#
+
 (require '#:parse)
 
@@ -65,5 +67,6 @@
 		    t
 		    (substring ,input :start ,end)
-		    (list (substring ,input :end ,end)))))))))))
+		    (list (substring ,input :end ,end)))))))
+	,@body))))
 
 (defmacro with-user-parser ((name parser) &body body)