#!+sb-package-locks
(lock nil :type boolean)
#!+sb-package-locks
- (%implementation-packages nil :type list))
+ (%implementation-packages nil :type list)
+ ;; Definition source location
+ (source-location nil :type (or null sb!c:definition-source-location)))
\f
;;;; iteration macros
(or (find-package package)
(error 'simple-package-error
;; could be a character
- :name (string package)
+ :package (string package)
:format-control "~@<~S does not name a package ~:>"
:format-arguments (list package)))))
(if (consp ,these-packages)