1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Mon Jan 13 16:32:44 2003
;;;; Contains: Tests of COMPILED-FUNCTION-P
(in-package :cl-test)
(deftest compiled-function-p.1
(check-type-predicate #'compiled-function-p 'compiled-function)
nil)
(deftest compiled-function-p.2
(compiled-function-p '(lambda (x y) (cons y x)))
nil)
(deftest compiled-function-p.3
(notnot-mv (compiled-function-p (compile nil '(lambda (y x) (cons x y)))))
t)
(deftest compiled-function-p.order.1
(let ((i 0))
(values
(compiled-function-p (progn (incf i) '(lambda () nil)))
i))
nil 1)
(deftest compiled-function-p.error.1
(signals-error (compiled-function-p) program-error)
t)
(deftest compiled-function-p.error.2
(signals-error (compiled-function-p nil nil) program-error)
t)
|
