- (package-data-name package-data)
- ;; Note: As of 0.7.0, the only nicknames we use
- ;; for our implementation packages are hacks
- ;; not needed at cross-compile time (e.g. the
- ;; deprecated SB-C-CALL nickname for SB-ALIEN).
- ;; So support for nicknaming during xc is gone,
- ;; since any nicknames are hacked in during
- ;; cold init.
- :nicknames nil
- :use nil)))
- #-clisp ; As of "2.27 (released 2001-07-17) (built 3215971334)"
- ; CLISP didn't support DOCUMENTATION on PACKAGE values.
- (progn
- #!+sb-doc (setf (documentation package t)
- (package-data-doc package-data)))
- ;; Walk the tree of exported names, exporting each name.
- (labels ((recurse (tree)
- (etypecase tree
- ;; FIXME: The comments above say the structure is a tree,
- ;; but here we're sleazily treating it as though
- ;; dotted lists never occur. Replace this LIST case
- ;; with separate NULL and CONS cases to fix this.
- (list (mapc #'recurse tree))
- (string (export (intern tree package) package)))))
- (recurse (package-data-export package-data)))))
+ (package-data-name package-data)
+ ;; Note: As of 0.7.0, the only nicknames we use
+ ;; for our implementation packages are hacks
+ ;; not needed at cross-compile time (e.g. the
+ ;; deprecated SB-C-CALL nickname for SB-ALIEN).
+ ;; So support for nicknaming during xc is gone,
+ ;; since any nicknames are hacked in during
+ ;; cold init.
+ :nicknames nil
+ :use nil)))
+ (progn
+ #!+sb-doc (setf (documentation package t)
+ (package-data-doc package-data)))
+ ;; Walk the tree of exported names, exporting each name.
+ (labels ((recurse (tree)
+ (etypecase tree
+ ;; FIXME: The comments above say the structure is a tree,
+ ;; but here we're sleazily treating it as though
+ ;; dotted lists never occur. Replace this LIST case
+ ;; with separate NULL and CONS cases to fix this.
+ (list (mapc #'recurse tree))
+ (string (export (intern tree package) package)))))
+ (recurse (package-data-export package-data)))))