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(-) (limited to 'init.lisp') 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