297 |
(drop '(a b . c) 2)))) |
(drop '(a b . c) 2)))) |
298 |
|
|
299 |
;; |
;; |
300 |
|
;; length+ |
301 |
|
;; |
302 |
|
|
303 |
|
(with-test-prefix "length+" |
304 |
|
(pass-if-exception "too few args" exception:wrong-num-args |
305 |
|
(length+)) |
306 |
|
(pass-if-exception "too many args" exception:wrong-num-args |
307 |
|
(length+ 123 456)) |
308 |
|
(pass-if (= 0 (length+ '()))) |
309 |
|
(pass-if (= 1 (length+ '(x)))) |
310 |
|
(pass-if (= 2 (length+ '(x y)))) |
311 |
|
(pass-if (= 3 (length+ '(x y z)))) |
312 |
|
(pass-if (not (length+ (circular-list 1)))) |
313 |
|
(pass-if (not (length+ (circular-list 1 2)))) |
314 |
|
(pass-if (not (length+ (circular-list 1 2 3))))) |
315 |
|
|
316 |
|
;; |
317 |
;; take |
;; take |
318 |
;; |
;; |
319 |
|
|