summaryrefslogtreecommitdiff
path: root/init.lisp
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-16 15:29:12 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-18 11:41:27 +0200
commit0e0074e2793c7c899c97ade8f40d44b6c922c487 (patch)
tree3d4eeb071eca6aa4c79929d29168b51dcdf6365f /init.lisp
parentabd832ea8110988b15191c0ed79456737e86ce44 (diff)
init.lisp: Test only the compiler.
Diffstat (limited to 'init.lisp')
-rw-r--r--init.lisp47
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)