picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit b6ef7cd0a15e324ec3d771e1e9f6133444e1947d
parent e957710560d809d415089f636e02a9a4c7ea51fe
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun, 31 Mar 2013 17:50:41 +0200

'conc' test case
Diffstat:
Mtest/src/subr.l | 5++++-
1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/test/src/subr.l b/test/src/subr.l @@ -1,4 +1,4 @@ -# 17mar13abu +# 31mar13abu # (c) Software Lab. Alexander Burger ### c[ad]*r ### @@ -46,6 +46,9 @@ (test (1 2 3 a b c) (conc A B)) (test (1 2 3 a b c) A) ) +(test (1 2 3 4 5 6) + (conc (1 2 3) NIL (4 5 6)) ) + ### circ ### (let C (circ 'a 'b 'c)