diff options
| author | nea <nea@nea.moe> | 2023-08-10 01:37:33 +0200 |
|---|---|---|
| committer | nea <nea@nea.moe> | 2023-08-10 01:37:33 +0200 |
| commit | 74371302593ee2ee365e697911c364246f460b63 (patch) | |
| tree | f4c8e5c4e7f31fbab219425795d967ed8b77e4d0 /test/res | |
| parent | 7ce91434a452dc68f39aa34b646e691635c55e07 (diff) | |
| download | nealisp-74371302593ee2ee365e697911c364246f460b63.tar.gz nealisp-74371302593ee2ee365e697911c364246f460b63.tar.bz2 nealisp-74371302593ee2ee365e697911c364246f460b63.zip | |
Add builtins
Diffstat (limited to 'test/res')
| -rw-r--r-- | test/res/test.lisp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/test/res/test.lisp b/test/res/test.lisp index edadffd..5f32bee 100644 --- a/test/res/test.lisp +++ b/test/res/test.lisp @@ -2,10 +2,6 @@ (defun myfun (var) (debuglog var)) (myfun :myfunworks) ((lambda (a) (debuglog a)) :atom) -(debuglog a) -(defun testsomething (c) (debuglog (if c "truthy value" "falsey value"))) -(testsomething true) -(testsomething false) (defun testlog (a ...) (seq (debuglog "a" a) (debuglog "..." ...))) @@ -16,3 +12,8 @@ (debuglog "-" (- 1 3)) (debuglog "*" (* 10 10)) (debuglog "/" (/ 1 3 2)) +(debuglog "============") +(defun testsomething (c) (debuglog (if! c (seq (debuglog "left evaluated") (return "truthy value")) "falsey value"))) +(testsomething true) +(testsomething false) +(noop) |