diff options
| author | LLLL Colonq <llll@colonq> | 2026-03-27 17:23:26 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2026-03-27 17:23:26 -0400 |
| commit | 4b294e47144da00ae4b9568fed39569d187ce07e (patch) | |
| tree | 179222746330c25fa4f0dfdb03e0fc0a15ad7c9b /test.lisp | |
| parent | 3707dfaa64715c8fb1ba8a23f9762fef174538d8 (diff) | |
Fix doubles
Diffstat (limited to 'test.lisp')
| -rw-r--r-- | test.lisp | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/test.lisp b/test.lisp deleted file mode 100644 index ef13abb..0000000 --- a/test.lisp +++ /dev/null @@ -1,22 +0,0 @@ -(print! (list/map (lambda (x) (+ x 1)) (list 1 2 3 4 5))) -(print! (eval! '(cons 1 2))) -(defun! say-hi () - (princ! "hello computer")) -(say-hi) -(setq! counter 42) -(let ((counter 0)) - (print! counter) - (fset! 'count (lambda () (setq! counter (+ counter 1)))) - (fset! 'query (lambda () counter))) -(print! (count)) (print! (query)) -(print! (count)) (print! (query)) -(defun! bar (x & xs) - (print! x) - (print! xs)) -(bar 1 2 3 4 5) -(defun! baz (& kwargs) - (print! kwargs) - (let ((foo (plist/get :foo kwargs)) - (bar (plist/get :bar kwargs))) - bar)) -(print! (baz :foo 10 :bar 5 :baz 3)) |
