Today's wip.

[sod] / src / module-output.lisp

diff --git a/src/module-output.lisp b/src/module-output.lisp
index b093b82c4138671523a906c34f4beabdac34138e..f04bdd6f7b1071114d1e1eb5a54e8e0b6d9b78cc 100644 (file)
--- 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"<unnamed>")))))
+                                  :file (stream-pathname stream)))))
     (hook-output module reason sequencer)
     (invoke-sequencer-items sequencer stream)))