X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/e0808c472145fc81e52898bc9ac289e10c4f4f41..e43bd9558b80d9d92db3f39b5f77a2fa184fb467:/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 @@
 	  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