Merge branch 'master' of https://github.com/davazp/jscl

[jscl.git] / jscl.lisp

diff --git a/jscl.lisp b/jscl.lisp
index ef84f41..86a780e 100644 (file)
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -23,6 +23,7 @@
     ("print"     :target)
     ("read"      :both)
     ("compiler"  :both)
+    ("list"      :target)
     ("toplevel"  :target)))
 
 (defun source-pathname
@@ -64,7 +65,7 @@
 
 (defun bootstrap ()
   (setq *environment* (make-lexenv))
-  (setq *literal-symbols* nil)
+  (setq *literal-table* nil)
   (setq *variable-counter* 0
         *gensym-counter* 0
         *literal-counter* 0
@@ -80,3 +81,12 @@
                            (directory "tests/*.lisp")
                            (directory "tests-report.lisp"))) 
       (ls-compile-file input out))))
+
+
+;;; Run the tests in the host Lisp implementation. It is a quick way
+;;; to improve the level of trust of the tests.
+(defun run-tests-in-host ()
+  (dolist (input (append (directory "tests.lisp")
+                         (directory "tests/*.lisp")
+                         (directory "tests-report.lisp")))
+    (load input)))