X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmacros.lisp;h=941cef49e11bb4b249b1cd85cb71368faa56a8db;hb=91392754bf1d241cd6913c728268caf18eae1485;hp=197ffbed9235a0a3a50000cf40331716c37c1a37;hpb=b8fe7c0afeb9901091ce781ba351d0513f2ee86d;p=sbcl.git

diff --git a/src/compiler/macros.lisp b/src/compiler/macros.lisp
index 197ffbe..941cef4 100644
--- a/src/compiler/macros.lisp
+++ b/src/compiler/macros.lisp
@@ -666,7 +666,9 @@
 ;;; :TEST keyword may be used to determine the name equality
 ;;; predicate.
 (defmacro lexenv-find (name slot &key test)
-  (once-only ((n-res `(assoc ,name (,(symbolicate "LEXENV-" slot) *lexenv*)
+  (once-only ((n-res `(assoc ,name (,(let ((*package* (symbol-package 'lexenv-funs)))
+                                          (symbolicate "LEXENV-" slot))
+                                     *lexenv*)
 			     :test ,(or test '#'eq))))
     `(if ,n-res
 	 (values (cdr ,n-res) t)