(let ((sym (read *query-io*)))
(cond
((not (symbolp sym))
- (format *query-io* "~S is not a symbol."))
+ (format *query-io* "~S is not a symbol." sym))
((not (member sym cset))
- (format *query-io* "~S is not one of the conflicting symbols."))
+ (format *query-io* "~S is not one of the conflicting symbols." sym))
(t
(shadowing-import sym package)
(return-from unintern t)))))))
(when cset
(cerror
"Unintern the conflicting symbols in the ~2*~A package."
- "Use'ing package ~A results in name conflicts for these symbols:~%~S"
+ "Using package ~A results in name conflicts for these symbols:~%~
+ ~S"
(package-%name pkg) cset (package-%name package))
(dolist (s cset) (moby-unintern s package))))