(sb!xc:defstruct (package-hashtable (:constructor %make-package-hashtable ())
(:copier nil))
;; The g-vector of symbols.
- ;; FIXME: could just be type SIMPLE-VECTOR, with REQUIRED-ARG
+ ;; FIXME: could just be type SIMPLE-VECTOR, with (MISSING-ARG) default
(table nil :type (or simple-vector null))
;; The i-vector of pname hash values.
- ;; FIXME: could just be type HASH-VECTOR, with REQUIRED-ARG
+ ;; FIXME: could just be type HASH-VECTOR, with (MISSING-ARG) default
(hash nil :type (or hash-vector null))
;; The total number of entries allowed before resizing.
;;
(inherited-symbol-p (gensym))
(BLOCK (gensym)))
`(let* ((,these-packages ,package-list)
- (,packages `,(mapcar #'(lambda (package)
- (if (packagep package)
- package
- (find-package package)))
+ (,packages `,(mapcar (lambda (package)
+ (if (packagep package)
+ package
+ (find-package package)))
(if (consp ,these-packages)
,these-packages
(list ,these-packages))))
(car ,',packages))))
(when ,symbols
(setf ,',vector (package-hashtable-table ,symbols))
- (setf ,',hash-vector (package-hashtable-hash ,symbols)))))
+ (setf ,',hash-vector
+ (package-hashtable-hash ,symbols)))))
(:external
`(let ((,symbols (package-external-symbols
(car ,',packages))))