init.lisp: Test only the compiler.

1 files changed, 24 insertions, 23 deletions

diff --git a/init.lisp b/init.lisp
index 6799826..73587d5 100644
--- a/init.lisp
+++ b/init.lisp
@@ -19,37 +19,38 @@
 (in-package #:common-lisp)
 
 (%fset 'test (compile '(sys::%lambda args)))
-(ns-log (test))
+(ns-log (test 'a 'b 'c))
 (%fset 'test (compile '(sys::%lambda args args)))
+(ns-log (test 1 2 3))
 
-(load "util.lisp")
-(load "defun-0.lisp")
-(load "list-functions.lisp")
-(load "destructuring-bind.lisp")
-(load "defun-1.lisp")
-(load "list-functions.lisp")
-(load "reader.lisp")
-(load "sharpsign.lisp")
-(load "control-flow.lisp")
-(load "types.lisp")
-(load "numbers.lisp")
-(load "list-functions-2.lisp")
-(load "ffi.lisp")
+;; (load "util.lisp")
+;; (load "defun-0.lisp")
+;; (load "list-functions.lisp")
+;; (load "destructuring-bind.lisp")
+;; (load "defun-1.lisp")
+;; (load "list-functions.lisp")
+;; (load "reader.lisp")
+;; (load "sharpsign.lisp")
+;; (load "control-flow.lisp")
+;; (load "types.lisp")
+;; (load "numbers.lisp")
+;; (load "list-functions-2.lisp")
+;; (load "ffi.lisp")
 
-(load "Sacla/share.lisp")
-(load "Sacla/do.lisp")
+;; (load "Sacla/share.lisp")
+;; (load "Sacla/do.lisp")
 
-(load "evaluation.lisp")
+;; (load "evaluation.lisp")
 
-(load "Sacla/share-2.lisp")
+;; (load "Sacla/share-2.lisp")
 
-(load "Sacla/data-and-control.lisp")
+;; (load "Sacla/data-and-control.lisp")
 
-(load "array.lisp")
-(load "Sacla/array.lisp")
+;; (load "array.lisp")
+;; (load "Sacla/array.lisp")
 
-(load "string.lisp")
-(load "package.lisp")
+;; (load "string.lisp")
+;; (load "package.lisp")
 
 (setq *system-initialised-p* t)