| swissChili | 484295d | 2021-07-09 21:25:55 -0700 | [diff] [blame] | 1 | ; (load "../../lib/lisp/std/std.lisp") |
| 2 | |||||
| swissChili | 15f1cae | 2021-07-05 19:08:47 -0700 | [diff] [blame] | 3 | (defun with-optional (required (optional 3)) |
| 4 | (+ required optional)) | ||||
| 5 | |||||
| swissChili | 484295d | 2021-07-09 21:25:55 -0700 | [diff] [blame] | 6 | (defun takes-varargs (& rest) |
| 7 | (print rest)) | ||||
| 8 | |||||
| swissChili | 15f1cae | 2021-07-05 19:08:47 -0700 | [diff] [blame] | 9 | (defun main () |
| swissChili | 484295d | 2021-07-09 21:25:55 -0700 | [diff] [blame] | 10 | (print "hi") |
| 11 | (takes-varargs 1 2 3 4)) | ||||