X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/d2f1db725b33c0cc55b3eca0744c2a76adf315e9..66c609241dd2783c53e6bdbf2dc80c528feaeef7:/src/parser/streams-impl.lisp

diff --git a/src/parser/streams-impl.lisp b/src/parser/streams-impl.lisp
index f14bf31..b3bb424 100644
--- a/src/parser/streams-impl.lisp
+++ b/src/parser/streams-impl.lisp
@@ -224,8 +224,8 @@ (defmethod stream-pathname ((stream position-aware-stream))
    present back to a user.  Secondly, a name can be attached to a stream
    which doesn't actually have a file backing it."
 
-  (with-slots (file) stream
-    (or file (call-next-method))))
+  (or (position-aware-stream-file stream)
+      (call-next-method)))
 
 (defmethod file-location ((stream position-aware-stream))
   (multiple-value-bind (line column) (stream-line-and-column stream)