/[cmucl]/src/code/pathname.lisp
ViewVC logotype

Diff of /src/code/pathname.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.67 by rtoy, Wed Sep 1 02:37:55 2004 UTC revision 1.68 by rtoy, Tue Sep 7 15:13:51 2004 UTC
# Line 171  Line 171 
171  ;;; The potential conflict with search-lists requires isolating the printed  ;;; The potential conflict with search-lists requires isolating the printed
172  ;;; representation to use the i/o macro #.(logical-pathname <path-designator>).  ;;; representation to use the i/o macro #.(logical-pathname <path-designator>).
173  ;;;  ;;;
174    ;;; Is there really a potential conflict?  CMUCL does not allow
175    ;;; search-list hosts and logical pathname hosts have the same name.
176    ;;; Hence, if we use #P to print them out, we can always read them
177    ;;; back without confusion.  (rtoy)
178    ;;;
179  (defun %print-logical-pathname (pathname stream depth)  (defun %print-logical-pathname (pathname stream depth)
180    (declare (ignore depth))    (declare (ignore depth))
181    (let ((namestring (handler-case (namestring pathname)    (let ((namestring (handler-case (namestring pathname)
182                        (error nil))))                        (error nil))))
183      (cond (namestring      (cond (namestring
184             (if (or *print-escape* *print-readably*)             (if (or *print-escape* *print-readably*)
185                 (format stream "#.(logical-pathname ~S)" namestring)                 (format stream "#P~S" namestring)
186                 (format stream "~A" namestring)))                 (format stream "~A" namestring)))
187            (*print-readably*            (*print-readably*
188             (error "~S Cannot be printed readably." pathname))             (error "~S Cannot be printed readably." pathname))

Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68

  ViewVC Help
Powered by ViewVC 1.1.5