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