X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Finfo-functions.lisp;h=b63a4a58ec9c187ba0f5cd1c0ae911af94713fe5;hb=3a2c2a2217f77e0d1a44a581c83e0311ebc2594a;hp=7568f1274813a8d1da576783f2165d0e7429f47c;hpb=dfe6138af5c38d92568b6dac48e852c01be0ec8e;p=sbcl.git

diff --git a/src/compiler/info-functions.lisp b/src/compiler/info-functions.lisp
index 7568f12..b63a4a5 100644
--- a/src/compiler/info-functions.lisp
+++ b/src/compiler/info-functions.lisp
@@ -154,7 +154,7 @@
   (let* ((fenv (when env (sb!c::lexenv-funs env)))
 	 (local-def (cdr (assoc symbol fenv))))
     (cond (local-def
-	   (if (and (consp local-def) (eq (car local-def) 'MACRO))
+	   (if (and (consp local-def) (eq (car local-def) 'macro))
 	       (cdr local-def)
 	       nil))
 	  ((eq (info :function :kind symbol) :macro)