5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
|
(deftest compiled-function-p.1 |
|
|
(some #'(lambda (obj) |
|
|
(if (compiled-function-p obj) |
|
|
(not (typep obj 'compiled-function)) |
|
|
(typep obj 'compiled-function))) |
|
|
*universe*) |
|
|
nil) |
|
|
|
|
|
(deftest compiled-function-p.2 |
|
|
(compiled-function-p '(lambda (x y) (cons y x))) |
|
|
nil) |
|
|
|
|
|
(deftest compiled-function-p.3 |
|
|
(not (compiled-function-p (compile nil '(lambda (y x) (cons x y))))) |
|
|
nil) |
|
|
|
|
8 |
(deftest compile.1 |
(deftest compile.1 |
9 |
(progn |
(progn |
10 |
(fmakunbound 'compile.1-fn) |
(fmakunbound 'compile.1-fn) |