- (let ((name (symbol-name symbol)))
- (when (or (string= name "!" :end1 1 :end2 1)
- (and (>= (length name) 2)
- (string= name "*!" :end1 2 :end2 2)))
- (/show0 "uninterning cold-init-only symbol..")
- (/primitive-print name)
- ;; FIXME: Is this (FIRST (LAST *INFO-ENVIRONMENT*)) really
- ;; meant to be an idiom to use? Is there a more obvious
- ;; name for this? [e.g. (GLOBAL-ENVIRONMENT)?]
- (do-info ((first (last *info-environment*))
- :name entry :class class :type type)
- (when (eq entry symbol)
- (clear-info class type entry)))
- (unintern symbol package)
- (setf any-changes? t)))))
+ (let ((name (symbol-name symbol)))
+ (when (or (string= name "!" :end1 1 :end2 1)
+ (and (>= (length name) 2)
+ (string= name "*!" :end1 2 :end2 2)))
+ (/show0 "uninterning cold-init-only symbol..")
+ (/primitive-print name)
+ ;; FIXME: Is this (FIRST (LAST *INFO-ENVIRONMENT*)) really
+ ;; meant to be an idiom to use? Is there a more obvious
+ ;; name for this? [e.g. (GLOBAL-ENVIRONMENT)?]
+ (do-info ((first (last *info-environment*))
+ :name entry :class class :type type)
+ (when (eq entry symbol)
+ (clear-info class type entry)))
+ (unintern symbol package)
+ (setf any-changes? t)))))