diff options
| -rw-r--r-- | init.lisp | 12 |
1 files changed, 9 insertions, 3 deletions
@@ -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") |