diff options
| author | nea <nea@nea.moe> | 2023-08-21 19:41:29 +0200 |
|---|---|---|
| committer | nea <nea@nea.moe> | 2023-08-21 19:41:29 +0200 |
| commit | 39f1849edcaa9005814525cd13f76a5daaa15ae0 (patch) | |
| tree | 4d3a34f96f53443a92823079563a2c9bbdeba7e7 /test/res/scratch.lisp | |
| parent | ad9429d1cae70baf9b561090bb33ab2941d2a3a5 (diff) | |
| download | nealisp-39f1849edcaa9005814525cd13f76a5daaa15ae0.tar.gz nealisp-39f1849edcaa9005814525cd13f76a5daaa15ae0.tar.bz2 nealisp-39f1849edcaa9005814525cd13f76a5daaa15ae0.zip | |
Foreign objects
Diffstat (limited to 'test/res/scratch.lisp')
| -rw-r--r-- | test/res/scratch.lisp | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/test/res/scratch.lisp b/test/res/scratch.lisp index 3fc6ed7..95595b7 100644 --- a/test/res/scratch.lisp +++ b/test/res/scratch.lisp @@ -6,14 +6,21 @@ (debuglog "a" a) (debuglog "..." ...))) (testlog :test :work :whatever) -(def helloworld (pure "hello world")) +(def helloworld + (pure "hello world")) (debuglog helloworld (helloworld)) (debuglog "+" (+ 1.2 15)) (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"))) +(defun testsomething (c) + (debuglog + (if! c + (seq + (debuglog "left evaluated") + (return "truthy value")) + "falsey value"))) (testsomething true) (testsomething false) (noop) |