;; Provide some default methods. Most streams don't have a pathname.
;; File-based streams provide a pathname, but it's usually been merged with
- ;; *DEFAULT-PATHNAME-DEFAULTS* or some such, which has made it absolute,
+ ;; `*default-pathname-defaults*' or some such, which has made it absolute,
;; which isn't ideal. We'll hack around this in more useful classes later.
(:method ((stream stream)) nil)
(:method ((stream file-stream)) (pathname stream)))