- (list* (make-info-environment :name "Working")
- (compact-info-environment (first *info-environment*)
- :name name)
- (rest *info-environment*)))
+ (list* (make-info-environment :name "Working")
+ (compact-info-environment (first *info-environment*)
+ :name name)
+ (rest *info-environment*)))