diff options
| -rw-r--r-- | init.lisp | 80 |
1 files changed, 21 insertions, 59 deletions
@@ -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) |