"Returns the pathname of the file that STREAM is open on.
If STREAM is open on a file, then return the pathname of that file.
"Returns the pathname of the file that STREAM is open on.
If STREAM is open on a file, then return the pathname of that file.
;; Provide some default methods. Most streams don't have a pathname.
;; File-based streams provide a pathname, but it's usually been merged with
;; Provide some default methods. Most streams don't have a pathname.
;; File-based streams provide a pathname, but it's usually been merged with
;; which isn't ideal. We'll hack around this in more useful classes later.
(:method ((stream stream)) nil)
(:method ((stream file-stream)) (pathname stream)))
;; which isn't ideal. We'll hack around this in more useful classes later.
(:method ((stream stream)) nil)
(:method ((stream file-stream)) (pathname stream)))