- (load-time-value (list* (find-package "COMMON-LISP")
- (find-package "KEYWORD")
- #+sb-xc-host (find-package "SB-XC")
- (remove-if-not
- (lambda (package)
- (= (mismatch "SB!"
- (package-name package))
- 3))
- (list-all-packages)))))
- #+sb-xc-host ; again, special case like in genesis and dump
+ (load-time-value
+ (list* (find-package "COMMON-LISP")
+ #+sb-xc-host (find-package "SB-XC")
+ (remove-if-not
+ (lambda (package)
+ (= (mismatch "SB!"
+ (package-name package))
+ 3))
+ (list-all-packages)))))
+ #+sb-xc-host ; again, special case like in genesis and dump