X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/8293b90a8f027ed9b7e4ebb566f67e5c783864c9..76618d28a01b4b65b530ac032372f2b22ad08d5d:/src/debug.lisp

diff --git a/src/debug.lisp b/src/debug.lisp
index e281397..af5f104 100644
--- a/src/debug.lisp
+++ b/src/debug.lisp
@@ -25,6 +25,9 @@
 
 (cl:in-package #:sod)
 
+(export '*debugout-pathname*)
+(defvar *debugout-pathname* #p"debugout.c")
+
 (export 'test-module)
 (defun test-module (path reason)
   "Reset the translator's state, read a module from PATH and output it with
@@ -32,7 +35,10 @@
   (unless *builtin-module* (make-builtin-module))
   (clear-the-decks)
   (setf *module-map* (make-hash-table :test #'equal))
-  (with-output-to-string (out)
+  (with-open-file (out *debugout-pathname*
+		   :direction :output
+		   :if-exists :supersede
+		   :if-does-not-exist :create)
     (output-module (read-module path) reason out)))
 
 ;;;----- That's all, folks --------------------------------------------------