From abd832ea8110988b15191c0ed79456737e86ce44 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Fri, 15 Aug 2008 23:24:58 +0200 Subject: init.lisp: Add basic compiler tests. --- init.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/init.lisp b/init.lisp index 71a4211..6799826 100644 --- a/init.lisp +++ b/init.lisp @@ -18,6 +18,10 @@ (in-package #:common-lisp) +(%fset 'test (compile '(sys::%lambda args))) +(ns-log (test)) +(%fset 'test (compile '(sys::%lambda args args))) + (load "util.lisp") (load "defun-0.lisp") (load "list-functions.lisp") -- cgit v1.2.3 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 From f6ef23a5f5367ac2bf8ff8d946e6554fbd77febc Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sat, 16 Aug 2008 18:40:33 +0200 Subject: init.lisp: Add a function call test. --- init.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/init.lisp b/init.lisp index 73587d5..0891c5e 100644 --- a/init.lisp +++ b/init.lisp @@ -22,6 +22,8 @@ (ns-log (test 'a 'b 'c)) (%fset 'test (compile '(sys::%lambda args args))) (ns-log (test 1 2 3)) +(%fset 'test2 (compile '(sys::%lambda args (test args)))) +(ns-log (test2 1 2 3)) ;; (load "util.lisp") ;; (load "defun-0.lisp") -- cgit v1.2.3 From 895d77b4c03ec8553dbe29fa487b2024ec466ab6 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 17 Aug 2008 12:01:29 +0200 Subject: init.lisp: Test PROGN and LET. --- init.lisp | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/init.lisp b/init.lisp index 0891c5e..b5454e6 100644 --- a/init.lisp +++ b/init.lisp @@ -20,10 +20,16 @@ (%fset 'test (compile '(sys::%lambda args))) (ns-log (test 'a 'b 'c)) -(%fset 'test (compile '(sys::%lambda args args))) -(ns-log (test 1 2 3)) -(%fset 'test2 (compile '(sys::%lambda args (test args)))) +(%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)) ;; (load "util.lisp") ;; (load "defun-0.lisp") -- cgit v1.2.3 From 04eec3a4532b7426c1cdee08b95f3ae658d07ae5 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 17 Aug 2008 12:13:03 +0200 Subject: init.lisp: Test QUOTE. --- init.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/init.lisp b/init.lisp index b5454e6..70a5aea 100644 --- a/init.lisp +++ b/init.lisp @@ -30,6 +30,10 @@ (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)) ;; (load "util.lisp") ;; (load "defun-0.lisp") -- cgit v1.2.3 From 173e0143fe9930772e405d611f58f72f6f49a7f4 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 17 Aug 2008 13:09:29 +0200 Subject: init.lisp: Test IF. --- init.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/init.lisp b/init.lisp index 70a5aea..b7b9d99 100644 --- a/init.lisp +++ b/init.lisp @@ -34,6 +34,13 @@ (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)) ;; (load "util.lisp") ;; (load "defun-0.lisp") -- cgit v1.2.3 From f3e77debaacf3e967c046d77169c529790ff1fc9 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 17 Aug 2008 15:19:29 +0200 Subject: init.lisp: Test the CONS intrinsic. --- init.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/init.lisp b/init.lisp index b7b9d99..90a4911 100644 --- a/init.lisp +++ b/init.lisp @@ -41,6 +41,8 @@ (%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)) ;; (load "util.lisp") ;; (load "defun-0.lisp") -- cgit v1.2.3 From 32a1c8b32efe22d957539b94c0dd69d202e34754 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 17 Aug 2008 22:04:39 +0200 Subject: init.lisp: Test SETQ. --- init.lisp | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/init.lisp b/init.lisp index 90a4911..8114103 100644 --- a/init.lisp +++ b/init.lisp @@ -43,6 +43,14 @@ (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") -- cgit v1.2.3 From 16183c31907ea7cac323f13f90482f3c27b5e7a0 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 18 Aug 2008 01:00:41 +0200 Subject: init.lisp: Test simple top-level forms and load util.lisp. --- init.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/init.lisp b/init.lisp index 8114103..bf53455 100644 --- a/init.lisp +++ b/init.lisp @@ -18,6 +18,10 @@ (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))) @@ -52,7 +56,7 @@ (ns-log x))))) (test11) -;; (load "util.lisp") +(load "util.lisp") ;; (load "defun-0.lisp") ;; (load "list-functions.lisp") ;; (load "destructuring-bind.lisp") -- cgit v1.2.3 From 920c7a6e0bde3f88a6f120d3a11021fbb60807a4 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 18 Aug 2008 11:39:51 +0200 Subject: init.lisp: Disable simple tests. --- init.lisp | 70 +++++++++++++++++++++++++++++++-------------------------------- 1 file changed, 35 insertions(+), 35 deletions(-) diff --git a/init.lisp b/init.lisp index bf53455..49bf747 100644 --- a/init.lisp +++ b/init.lisp @@ -18,43 +18,43 @@ (in-package #:common-lisp) -100 +;; 100 -(ns-log 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) +;; (%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") -- cgit v1.2.3 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