Skip to content
Snippets Groups Projects
Commit f8b2b0b5 authored by toy's avatar toy
Browse files

Test for type file-stream instead of stream because a stream may not

have a file-name associated with it, but file-streams do.

(Noted by Christophe Rhodes.)
parent b7171465
No related branches found
No related tags found
No related merge requests found
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.55 2002/02/19 15:51:11 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.56 2002/08/12 20:56:10 toy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -421,7 +421,7 @@ ...@@ -421,7 +421,7 @@
(etypecase ,var (etypecase ,var
(pathname ,var) (pathname ,var)
(string (parse-namestring ,var)) (string (parse-namestring ,var))
(stream (file-name ,var)))))) (file-stream (file-name ,var))))))
,@body)) ,@body))
;;; WITH-HOST -- Internal ;;; WITH-HOST -- Internal
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment