summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--init.lisp12
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")