OSCL/CLASH
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changed print-object on URLs to take advantage of *read-eval*, when

Browse Source 
available.
This commit is contained in:
Pierre R. Mai
2001-03-28 02:55:33 +00:00
parent 1301101ae6
commit 9eeeeda3c7
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/main/url.cl
View File

@ -236,8 +236,10 @@ part of the same scheme."))
(defmethod print-object ((obj url) stream) (defmethod print-object ((obj url) stream)
(cond (cond
((or *print-readably* *print-escape*) ((or *print-readably* *print-escape*)
(if *read-eval*
(format stream "#.(~S ~S)" 'parse-url-from-string (url-string obj))
(print-unreadable-object (obj stream :type t :identity nil) (print-unreadable-object (obj stream :type t :identity nil)
(format stream "~S" (url-string obj)))) (format stream "~S" (url-string obj)))))
(t (t
(write-string (url-string obj) stream)))) (write-string (url-string obj) stream))))