init.lisp: Test PROGN and LET.

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