src/{builtin,final,frontent}.lisp: `clear-the-decks' makes builtin module.

[sod] / src / builtin.lisp

diff --git a/src/builtin.lisp b/src/builtin.lisp
index 696bcf6..5aad5f5 100644 (file)
--- a/src/builtin.lisp
+++ b/src/builtin.lisp
@@ -332,4 +332,7 @@ static const SodClass *const ~A__cpl[] = {
       (bootstrap-classes module))
     (setf *builtin-module* module)))
 
+(define-clear-the-decks builtin-module
+  (unless *builtin-module* (make-builtin-module)))
+
 ;;;----- That's all, folks --------------------------------------------------