#!+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))
\f
;;;; iteration macros
(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)))