21 |
(notnot-mv (compiled-function-p (compile nil '(lambda (y x) (cons x y))))) |
(notnot-mv (compiled-function-p (compile nil '(lambda (y x) (cons x y))))) |
22 |
t) |
t) |
23 |
|
|
24 |
|
(deftest compiled-function-p.order.1 |
25 |
|
(let ((i 0)) |
26 |
|
(values |
27 |
|
(compiled-function-p (progn (incf i) '(lambda () nil))) |
28 |
|
i)) |
29 |
|
nil 1) |
30 |
|
|
31 |
(deftest compiled-function-p.error.1 |
(deftest compiled-function-p.error.1 |
32 |
(classify-error (compiled-function-p)) |
(classify-error (compiled-function-p)) |
33 |
program-error) |
program-error) |