Optimize code generation by defining bind as function

1 files changed, 15 insertions, 15 deletions

diff --git a/base.lisp b/base.lisp
index bbfab80..61c47bc 100644
--- a/base.lisp
+++ b/base.lisp
@@ -13,18 +13,18 @@
     (declare (ignore lazy))
     (make-parsing :tree tree :left input)))
 
-(defmacro bind (parser f)
-  `(lambda (input &key lazy)
-     (let ((r (funcall ,parser input)))
-       (cond ((parsing-p r)
-              (if lazy
-                (lambda (ignored-input &key lazy)
-                  (declare (ignore ignored-input))
-                  (funcall (funcall ,f (parsing-tree r) input)
-                           (parsing-left r)
-                           :lazy lazy))
-                (funcall (funcall ,f (parsing-tree r) input)
-                         (parsing-left r))))
-             ((failure-p r)
-              r)
-             (t (error (format nil "Invalid return value: ~a" r)))))))
+(defun bind (parser f)
+  (lambda (input &key lazy)
+    (let ((r (funcall parser input)))
+      (cond ((parsing-p r)
+             (if lazy
+               (lambda (ignored-input &key lazy)
+                 (declare (ignore ignored-input))
+                 (funcall (funcall f (parsing-tree r) input)
+                          (parsing-left r)
+                          :lazy lazy))
+               (funcall (funcall f (parsing-tree r) input)
+                        (parsing-left r))))
+            ((failure-p r)
+             r)
+            (t (error (format nil "Invalid return value: ~a" r)))))))