diff --git a/code/package.lisp b/code/package.lisp index 3f52aa668421ec55b89b6e3c523724ca4b04abd4..7bca0312e6b4596be8c4e1d5e5de75930b69082e 100644 --- a/code/package.lisp +++ b/code/package.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.72 2003/09/25 02:40:13 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.73 2004/10/19 15:23:19 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1412,8 +1412,11 @@ (loop (cerror "prompt for a symbol to shadowing-import." + 'simple-package-error + :package package + :format-control "Uninterning symbol ~S causes name conflict among these symbols:~%~S" - symbol cset) + :format-arguments (list symbol cset)) (write-string "Symbol to shadowing-import: " *query-io*) (let ((sym (read *query-io*))) (cond