init.lisp: Disable simple tests.

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