X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Finfo-functions.lisp;h=b9dfd7137a4d1932bd1bc4ff7f4a2cc623255fea;hb=1bcf4fb22a25e713a0ab898d78abb97abe94c225;hp=fa435c7ee3adacaa3bb2eb0716db6bc8d15f0046;hpb=29a9ccc860532b32c566aec095f570e999a9c52c;p=sbcl.git

diff --git a/src/compiler/info-functions.lisp b/src/compiler/info-functions.lisp
index fa435c7..b9dfd71 100644
--- a/src/compiler/info-functions.lisp
+++ b/src/compiler/info-functions.lisp
@@ -151,7 +151,7 @@
    else returns NIL. If ENV is unspecified or NIL, use the global
    environment only."
   (declare (symbol symbol))
-  (let* ((fenv (when env (sb!c::lexenv-functions env)))
+  (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))
@@ -194,7 +194,7 @@
    definition, or declared NOTINLINE, NIL is returned. Can be
    set with SETF."
   (let ((found (and env
-		    (cdr (assoc name (sb!c::lexenv-functions env)
+		    (cdr (assoc name (sb!c::lexenv-funs env)
 				:test #'equal)))))
     (unless (eq (cond ((sb!c::defined-fun-p found)
 		       (sb!c::defined-fun-inlinep found))