X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcompiler%2Ftarget-main.lisp;h=0b11bda3fc7c5cdfcc4daf5de01414ce0d98669f;hb=69e6aef5e6fb3bd682c7a2cbf774034d2ea58ee8;hp=791c2d473b8ed053e1f02ef8d59d676125f8de7d;hpb=c017b878e30a0bc9a175d3f5a1a4d3537804160c;p=sbcl.git

diff --git a/src/compiler/target-main.lisp b/src/compiler/target-main.lisp
index 791c2d4..0b11bda 100644
--- a/src/compiler/target-main.lisp
+++ b/src/compiler/target-main.lisp
@@ -151,7 +151,8 @@
           (t
            (values compiled-definition warnings-p failure-p)))))
 
-(defun compile (name &optional (definition (or (macro-function name)
+(defun compile (name &optional (definition (or (and (symbolp name)
+                                                    (macro-function name))
                                                (fdefinition name))))
   #!+sb-doc
   "Produce a compiled function from DEFINITION. If DEFINITION is a