From b63f174465486ed900bf08c556de50c3fd2a331e Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 4 May 2013 01:58:31 +0100 Subject: [PATCH] Fix lambda funcall ((lambda (x) x) 20) --- src/compiler.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4