X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpackage.lisp;h=9e9dd3e9053b969ba531b3f05ab07c10b03d7b26;hb=54752bdd733ae3127d6dca2cc9a16413bf0126f3;hp=4a9f7ad22c46a68de1c1bd7d6901da5dc7dcccaf;hpb=3b0286241ce0ef2eec2e66c01f7a49c7c9f3a461;p=sbcl.git

diff --git a/src/code/package.lisp b/src/code/package.lisp
index 4a9f7ad..9e9dd3e 100644
--- a/src/code/package.lisp
+++ b/src/code/package.lisp
@@ -106,7 +106,10 @@
   #!+sb-package-locks
   (%implementation-packages nil :type list)
   ;; Definition source location
-  (source-location nil :type (or null sb!c:definition-source-location)))
+  (source-location nil :type (or null sb!c:definition-source-location))
+  ;; Local package nicknames.
+  (%local-nicknames nil :type list)
+  (%locally-nicknamed-by nil :type list))
 
 ;;;; iteration macros
 
@@ -370,7 +373,7 @@ of :INHERITED :EXTERNAL :INTERNAL."
                                                            (setf ,',counter nil)))))))))))))
                 ,@body))))))))
 
-(defmacro-mundanely with-packages ((&key) &body forms)
+(defmacro-mundanely with-package-graph ((&key) &body forms)
   `(flet ((thunk () ,@forms))
      (declare (dynamic-extent #'thunk))
-     (call-with-packages #'thunk)))
+     (call-with-package-graph #'thunk)))