Add a `clear-the-decks' function which will make the builtin module if
it's not been set up yet. Now we don't need to do this explicitly and
everything is better.
(bootstrap-classes module))
(setf *builtin-module* module)))
+(define-clear-the-decks builtin-module
+ (unless *builtin-module* (make-builtin-module)))
+
;;;----- That's all, folks --------------------------------------------------
(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."
- (unless *builtin-module* (make-builtin-module))
(clear-the-decks)
(setf *module-map* (make-hash-table :test #'equal))
(with-open-file (out *debugout-pathname*
;;;--------------------------------------------------------------------------
;;; Preparation for dumping.
-(make-builtin-module)
+(clear-the-decks)
(exercise)
;;;--------------------------------------------------------------------------