1.0.46.11: faster slot-accesses in the presence of SLOT-VALUE-USING-CLASS &co

[sbcl.git] / src / code / package.lisp

diff --git a/src/code/package.lisp b/src/code/package.lisp
index 4a9f7ad..e3d5b84 100644 (file)
--- a/src/code/package.lisp
+++ b/src/code/package.lisp
@@ -370,7 +370,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)))