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

diff --git a/src/parser/streams-impl.lisp b/src/parser/streams-impl.lisp
index 33015a0..378f9a8 100644
--- a/src/parser/streams-impl.lisp
+++ b/src/parser/streams-impl.lisp
@@ -214,7 +214,7 @@ (export '(position-aware-stream
 	  position-aware-stream-line position-aware-stream-column))
 (defclass position-aware-stream (proxy-stream)
   ((file :initarg :file :initform nil
-	 :type pathname :accessor position-aware-stream-file)
+	 :type (or pathname null) :accessor position-aware-stream-file)
    (line :initarg :line :initform 1
 	 :type fixnum :accessor position-aware-stream-line)
    (column :initarg :column :initform 0