init.lisp: Restore the normal loading sequence.

1 files 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)