X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/d2f1db725b33c0cc55b3eca0744c2a76adf315e9..fddbedf7b1b4b19add30eeb62281748cc77e6955:/src/parser/streams-impl.lisp?ds=sidebyside

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 @@
    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)