From 0e0074e2793c7c899c97ade8f40d44b6c922c487 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard 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(-) 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