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

diff --git a/src/compiler.lisp b/src/compiler.lisp
index aa2f821..4379565 100644 (file)
--- 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)