diff --git a/code/sharpm.lisp b/code/sharpm.lisp index cd98ce6e7bf6a72efd00d16dfcadf201b5fe9be6..ef4c8684d5cd8944ce3a04e98ecc6100579fb578 100644 --- a/code/sharpm.lisp +++ b/code/sharpm.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/sharpm.lisp,v 1.14 1994/10/31 04:11:27 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sharpm.lisp,v 1.15 1998/02/11 10:03:08 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -378,7 +378,9 @@ (defun sharp-P (stream sub-char numarg) (ignore-numarg sub-char numarg) - (parse-namestring (read stream t nil t))) + (let ((namestring (read stream t nil t))) + (unless *read-suppress* + (parse-namestring namestring)))) (make-dispatch-macro-character #\# t) (set-dispatch-macro-character #\# #\\ #'sharp-backslash)