- (format *error-output*
- "~%Type a string representing naming of a scratch disk file: ")
- (setq *file-name* (read))
- (if (not (stringp *file-name*)) (setq *file-name* nil))))
+ (format *error-output*
+ "~%Type a string representing naming of a scratch disk file: ")
+ (setq *file-name* (read))
+ (if (not (stringp *file-name*)) (setq *file-name* nil))))