15 |
(functionp nil) |
(functionp nil) |
16 |
nil) |
nil) |
17 |
|
|
18 |
|
;;; In ANSI CL, symbols can no longer be functions |
19 |
(deftest functionp.2 |
(deftest functionp.2 |
20 |
(functionp 'identity) |
(functionp 'identity) |
21 |
nil) |
nil) |
40 |
(functionp '(setf car)) |
(functionp '(setf car)) |
41 |
nil) |
nil) |
42 |
|
|
43 |
|
;;; In ANSI CL, lambda forms are no longer functions |
44 |
(deftest functionp.6 |
(deftest functionp.6 |
45 |
(functionp '(lambda (x) x)) |
(functionp '(lambda (x) x)) |
46 |
nil) |
nil) |
61 |
(not (functionp (compile nil '(lambda (x) x)))) |
(not (functionp (compile nil '(lambda (x) x)))) |
62 |
nil) |
nil) |
63 |
|
|
64 |
|
;;; In ANSI CL, symbols and cons can no longer be functions |
65 |
(deftest functionp.10 |
(deftest functionp.10 |
66 |
(loop for x in *universe* |
(loop for x in *universe* |
67 |
never |
never |
68 |
(and (or (numberp x) (characterp x) (symbolp x) (consp x) |
(and (or (numberp x) (characterp x) |
69 |
|
(symbolp x) (consp x) |
70 |
(typep x 'array)) |
(typep x 'array)) |
71 |
(functionp x))) |
(functionp x))) |
72 |
t) |
t) |