7 |
|
|
8 |
(deftest compiled-function-p.1 |
(deftest compiled-function-p.1 |
9 |
(some #'(lambda (obj) |
(some #'(lambda (obj) |
10 |
(if (compiled-function-p obj) |
(if (check-values (compiled-function-p obj)) |
11 |
(not (typep obj 'compiled-function)) |
(not (typep obj 'compiled-function)) |
12 |
(typep obj 'compiled-function))) |
(typep obj 'compiled-function))) |
13 |
*universe*) |
*universe*) |
18 |
nil) |
nil) |
19 |
|
|
20 |
(deftest compiled-function-p.3 |
(deftest compiled-function-p.3 |
21 |
(not (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 |
nil) |
t) |
23 |
|
|
24 |
(deftest compiled-function-p.error.1 |
(deftest compiled-function-p.error.1 |
25 |
(classify-error (compiled-function-p)) |
(classify-error (compiled-function-p)) |