(defun test-module (path reason)
"Reset the translator's state, read a module from PATH and output it with
REASON, returning the result as a string."
- (clear-the-decks)
(setf *module-map* (make-hash-table :test #'equal))
(with-open-file (out *debugout-pathname*
:direction :output
That's the theory anyway. Call this function before you dump an image and
see what happens."
- (clear-the-decks)
(dolist (reason '(:h :c))
(with-output-to-string (bitbucket)
(output-module *builtin-module* reason bitbucket)))
(clear-the-decks))
+;;;--------------------------------------------------------------------------
+;;; Make sure things work after loading the system.
+
+(clear-the-decks)
+
;;;----- That's all, folks --------------------------------------------------