commit | 484295de5bdc18ee5fb59ffebe2d89a647a5f225 | [log] [tgz] |
---|---|---|
author | swissChili <swisschili@fastmail.com> | Fri Jul 09 21:25:55 2021 -0700 |
committer | swissChili <swisschili@fastmail.com> | Fri Jul 09 21:25:55 2021 -0700 |
tree | b2ce5c06c6b4dbd260b8753c1cf9e54eeaecd1c1 | |
parent | 7e1393c8f962e222d61a84f4f78e30ce028dc45b [diff] [blame] |
Add reduce Broken
diff --git a/src/lisp/test-args.lisp b/src/lisp/test-args.lisp index 14364a8..75f6107 100644 --- a/src/lisp/test-args.lisp +++ b/src/lisp/test-args.lisp
@@ -1,7 +1,11 @@ +; (load "../../lib/lisp/std/std.lisp") + (defun with-optional (required (optional 3)) (+ required optional)) +(defun takes-varargs (& rest) + (print rest)) + (defun main () - (when t - (print (with-optional 2)) - (print (with-optional 2 4)))) + (print "hi") + (takes-varargs 1 2 3 4))