From 4b294e47144da00ae4b9568fed39569d187ce07e Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 27 Mar 2026 17:23:26 -0400 Subject: Fix doubles --- test/test.lisp | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 test/test.lisp (limited to 'test/test.lisp') diff --git a/test/test.lisp b/test/test.lisp new file mode 100644 index 0000000..ef13abb --- /dev/null +++ b/test/test.lisp @@ -0,0 +1,22 @@ +(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)) -- cgit v1.2.3