From 0e0074e2793c7c899c97ade8f40d44b6c922c487 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sat, 16 Aug 2008 15:29:12 +0200
Subject: init.lisp: Test only the compiler.

---
 init.lisp | 47 ++++++++++++++++++++++++-----------------------
 1 file changed, 24 insertions(+), 23 deletions(-)

(limited to 'init.lisp')

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)
 
-- 
cgit v1.2.3