Commit 4934dafd authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Corrected use of namestring on stream.

parent 07eb2ccf
......@@ -2025,8 +2025,8 @@ VERBOSE: When true, writes some information in the *TRACE-OUTPUT*.
RETURN: A list of html elements.
SEE ALSO: HTML-TAG, HTML-ATTRIBUTES, HTML-ATTRIBUTE, HTML-CONTENTS.
"
(let ((name (in (typep stream 'file-stream)
(namestring stream)
(print (list stream (type-of stream))) (terpri) (finish-output)
(let ((name (or (ignore-errors (namestring stream))
(princ-to-string stream)))
synthetic walked encased)
(when verbose
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment