---
Test
---
Test recursion capabilities of various functions.

| script                | lisp interpreter fixture                                       |
| show  | evaluate text | (load "lisp/util/big-list.lisp")                               |
| show  | evaluate text | (load "lisp/util/list-builder.lisp")                           |
| check | evaluate text | big-list                                                       | =~/1\)$/  |
| check | evaluate text | (length big-list)                                              | 16384     |
| check | evaluate text | (length (apply 'list big-list))                                | 16384     |
| check | evaluate text | (apply '/ big-list)                                            | 1         |
| check | evaluate text | (apply '* big-list)                                            | 1         |
| check | evaluate text | (apply '+ big-list)                                            | 16384     |
| check | evaluate text | (apply '- big-list)                                            | -16382    |
| check | evaluate text | (apply '= big-list)                                            | T         |
| check | evaluate text | (apply '> (decreasing-list 0 10000))                           | T         |
| check | evaluate text | (apply '< (increasing-list 10000 10000))                       | T         |
| check | evaluate text | (apply 'and big-list)                                          | 1         |
| check | evaluate text | (apply 'or (list-of nil 10000))                                | NIL       |
| check | evaluate text | (eval `(defun big-defun ,(list-of 'x 10000) ,big-list))        | BIG-DEFUN |
| check | evaluate text | (eval `(define-special special ,(list-of 'x 10000) ,big-list)) | SPECIAL   |
| check | evaluate text | (eval `(defmacro big-macro ,(list-of 'x 10000) ,big-list))     | BIG-MACRO |