X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Finfo-functions.lisp;h=07ffdd600fe08c2b227ebc0c1fbaae53fb966bc2;hb=c41d75f1d2defd6234e644ef2b40440a5d1526c5;hp=81d35254e91995977ad559a0f15dab0d62dd54a8;hpb=41ed816c7915806abca6b09ecd2136458f27adcc;p=sbcl.git

diff --git a/src/compiler/info-functions.lisp b/src/compiler/info-functions.lisp
index 81d3525..07ffdd6 100644
--- a/src/compiler/info-functions.lisp
+++ b/src/compiler/info-functions.lisp
@@ -191,6 +191,7 @@
   #!+sb-doc
   "If NAME names a compiler-macro in ENV, return the expansion function, else
    return NIL. Can be set with SETF when ENV is NIL."
+  (declare (ignore env))
   (legal-fun-name-or-type-error name)
   ;; Note: CMU CL used to return NIL here when a NOTINLINE declaration
   ;; was in force. That's fairly logical, given the specified effect