src/debug.lisp: Write output to a well-known file.

This way, Emacs can display it properly fontified in a buffer, and
refresh when it gets changed, rather than having an enormous dump of
text in the middle of a REPL session.

diff --git a/src/debug.lisp b/src/debug.lisp
index e281397049c3546af88a5b0e2d9511ba1658e0d0..af5f104653e0da1328039812f3020be874f54b05 100644 (file)
--- a/src/debug.lisp
+++ b/src/debug.lisp
@@ -25,6 +25,9 @@
 
 (cl:in-package #:sod)
 
 
 (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
 (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 @@ (defun test-module (path reason)
   (unless *builtin-module* (make-builtin-module))
   (clear-the-decks)
   (setf *module-map* (make-hash-table :test #'equal))
   (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 --------------------------------------------------
     (output-module (read-module path) reason out)))
 
 ;;;----- That's all, folks --------------------------------------------------