2
;;;; Author: Paul Dietz
3
;;;; Created: Mon Jan 13 16:32:44 2003
4
;;;; Contains: Tests of COMPILED-FUNCTION-P
8
(deftest compiled-function-p.1
10
(if (check-values (compiled-function-p obj))
11
(not (typep obj 'compiled-function))
12
(typep obj 'compiled-function)))
16
(deftest compiled-function-p.2
17
(compiled-function-p '(lambda (x y) (cons y x)))
20
(deftest compiled-function-p.3
21
(notnot-mv (compiled-function-p (compile nil '(lambda (y x) (cons x y)))))
24
(deftest compiled-function-p.order.1
27
(compiled-function-p (progn (incf i) '(lambda () nil)))
31
(deftest compiled-function-p.error.1
32
(signals-error (compiled-function-p) program-error)
35
(deftest compiled-function-p.error.2
36
(signals-error (compiled-function-p nil nil) program-error)