X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/048d0b2d143b6a491ac73eed6ab972e97774391c..1d8cc67a3f4ded443f5efc673a616883cbae9c50:/src/module-output.lisp diff --git a/src/module-output.lisp b/src/module-output.lisp index b093b82..f04bdd6 100644 --- a/src/module-output.lisp +++ b/src/module-output.lisp @@ -78,8 +78,7 @@ (defun output-module (module reason stream) stream (make-instance 'position-aware-output-stream :stream stream - :file (or (stream-pathname stream) - #p""))))) + :file (stream-pathname stream))))) (hook-output module reason sequencer) (invoke-sequencer-items sequencer stream)))