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