From: David Vázquez <davazp@gmail.com>
Date: Sat, 4 May 2013 00:58:31 +0000 (+0100)
Subject: Fix lambda funcall ((lambda (x) x) 20)
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b63f174465486ed900bf08c556de50c3fd2a331e;p=jscl.git

Fix lambda funcall ((lambda (x) x) 20)
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index aa2f821..4379565 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1668,7 +1668,7 @@
        (if (and b (eq (binding-type b) 'macro))
            (values (binding-value b) t)
            (values form nil))))
-    ((consp form)
+    ((and (consp form) (symbolp (car form)))
      (let ((macrofun (!macro-function (car form))))
        (if macrofun
            (values (apply macrofun (cdr form)) t)