diff --git a/code/print.lisp b/code/print.lisp index 3e1080aa1a64689401f14d332a3d0d347c0df3f4..dbb02951225eb33fc73488a33c2088a3d8c3cf63 100644 --- a/code/print.lisp +++ b/code/print.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.20 1991/04/16 01:28:25 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.21 1991/07/18 13:51:31 ram Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.20 1991/04/16 01:28:25 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.21 1991/07/18 13:51:31 ram Exp $ ;;; ;;; CMU Common Lisp printer. ;;; @@ -307,24 +307,21 @@ ((null package) (when *print-gensym* (write-string "#:" stream))) (t - (let ((found (car (memq package (package-use-list *package*))))) - (multiple-value-bind (symbol externalp) - (find-external-symbol name package) - ;; If the symbol's home package is in our use list and is an external - ;; symbol there, then it needs no qualification. - (unless (and found externalp (eq symbol object)) - (multiple-value-bind (symbol accessible) - (find-symbol name *package*) - ;; If we can find the symbol by looking it up, it need not be - ;; qualified. This can happen if the symbol has been inherited - ;; from a package other than its home package. - (unless (and accessible (eq symbol object)) - (funcall *internal-symbol-output-function* - (package-name package) - stream) - (if externalp - (write-char #\: stream) - (write-string "::" stream))))))))) + (multiple-value-bind (symbol accessible) + (find-symbol name *package*) + ;; If we can find the symbol by looking it up, it need not be + ;; qualified. This can happen if the symbol has been inherited + ;; from a package other than its home package. + (unless (and accessible (eq symbol object)) + (funcall *internal-symbol-output-function* + (package-name package) + stream) + (multiple-value-bind (symbol externalp) + (find-external-symbol name package) + (declare (ignore symbol)) + (if externalp + (write-char #\: stream) + (write-string "::" stream))))))) (funcall *internal-symbol-output-function* name stream)))