6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(deftest constantly.1 |
(deftest constantly.1 |
9 |
(let ((fn (cl::constantly 10)) |
(let ((fn (cl:constantly 10)) |
10 |
(x nil)) |
(x nil)) |
11 |
(loop for i from 0 to (min 256 (1- call-arguments-limit)) |
(loop for i from 0 to (min 256 (1- call-arguments-limit)) |
12 |
always (prog1 (eql (apply fn x) 10) |
always (prog1 (eql (apply fn x) 10) |
13 |
(push 'a x)))) |
(push 'a x)))) |
14 |
t) |
t) |
15 |
|
|
16 |
|
(deftest constantly.2 |
17 |
|
(classify-error (cl:constantly)) |
18 |
|
program-error) |
19 |
|
|
20 |
|
(deftest constantly.3 |
21 |
|
(classify-error (cl:constantly 1 1)) |
22 |
|
program-error) |