X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpackage.lisp;h=e3d5b84ea194873cbf546f925a901b605e130e91;hb=ee5629ee974ee8ce7a1cb245a99e94f8943ffd90;hp=dd9ca3ea777d384b94c92b1e6f319303340f1355;hpb=08d05510b51708853ca998154d8096b21d85edab;p=sbcl.git

diff --git a/src/code/package.lisp b/src/code/package.lisp
index dd9ca3e..e3d5b84 100644
--- a/src/code/package.lisp
+++ b/src/code/package.lisp
@@ -369,3 +369,8 @@ of :INHERITED :EXTERNAL :INTERNAL."
                                                         (t (,',init-macro :inherited)
                                                            (setf ,',counter nil)))))))))))))
                 ,@body))))))))
+
+(defmacro-mundanely with-package-graph ((&key) &body forms)
+  `(flet ((thunk () ,@forms))
+     (declare (dynamic-extent #'thunk))
+     (call-with-package-graph #'thunk)))