picolisp

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

'conc' test case
Diffstat:
M
test/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)