From 54e6d82b6e98065da3d66460cc51530cc7b0493d Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 18 Aug 2008 11:40:51 +0200 Subject: init.lisp: Restore the normal loading sequence. --- init.lisp | 80 +++++++++++++++++---------------------------------------------- 1 file changed, 21 insertions(+), 59 deletions(-) diff --git a/init.lisp b/init.lisp index 49bf747..71a4211 100644 --- a/init.lisp +++ b/init.lisp @@ -18,72 +18,34 @@ (in-package #:common-lisp) -;; 100 - -;; (ns-log 100) - -;; (%fset 'test (compile '(sys::%lambda args))) -;; (ns-log (test 'a 'b 'c)) -;; (%fset 'test2 (compile '(sys::%lambda args args))) -;; (ns-log (test2 1 2 3)) -;; (%fset 'test3 (compile '(sys::%lambda args (test args)))) -;; (ns-log (test3 1 2 3)) -;; (%fset 'test4 (compile '(sys::%lambda args (progn args args args)))) -;; (ns-log (test4 1 2 3)) -;; (%fset 'test5 (compile '(sys::%lambda args (let ((x args) -;; (y args)) -;; args x y)))) -;; (ns-log (test5 1 2 3)) -;; (%fset 'test6 (compile '(sys::%lambda args (let ((x 'value-x) -;; (y 'value-y)) -;; args x y)))) -;; (ns-log (test6 1 2 3)) -;; (%fset 'test7 (compile '(sys::%lambda args (let ((x nil)) (if x 'yes 'no))))) -;; (ns-log (test7 1 2 3)) -;; (%fset 'test8 (compile '(sys::%lambda args (let ((x 100)) (if x 'yes 'no))))) -;; (ns-log (test8 1 2 3)) -;; (%fset 'test9 (compile '(sys::%lambda args (if args 'some-args 'no-args)))) -;; (ns-log (test9)) -;; (ns-log (test9 1 2 3)) -;; (%fset 'test10 (compile '(sys::%lambda args (cons 1 2)))) -;; (ns-log (test10)) -;; (%fset 'test11 (compile '(sys::%lambda args -;; (let ((x 'outer)) -;; (let ((x 'inner)) -;; (ns-log x) -;; (setq x 'new-inner) -;; (ns-log x)) -;; (ns-log x))))) -;; (test11) - (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 "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