32 |
(not (special-operator-p s)) |
(not (special-operator-p s)) |
33 |
(not (macro-function s)) |
(not (macro-function s)) |
34 |
(symbol-function s)) |
(symbol-function s)) |
35 |
always (or (null f) |
unless (or (null f) |
36 |
(functionp f))) |
(functionp f)) |
37 |
t) |
collect x) |
38 |
|
nil) |
39 |
|
|
40 |
(deftest functionp.5 |
(deftest functionp.5 |
41 |
(functionp '(setf car)) |
(functionp '(setf car)) |
65 |
;;; In ANSI CL, symbols and cons can no longer be functions |
;;; In ANSI CL, symbols and cons can no longer be functions |
66 |
(deftest functionp.10 |
(deftest functionp.10 |
67 |
(loop for x in *universe* |
(loop for x in *universe* |
68 |
never |
when (and (or (numberp x) (characterp x) |
69 |
(and (or (numberp x) (characterp x) |
(symbolp x) (consp x) |
70 |
(symbolp x) (consp x) |
(typep x 'array)) |
71 |
(typep x 'array)) |
(functionp x)) |
72 |
(functionp x))) |
collect x) |
73 |
t) |
nil) |
74 |
|
|
75 |
(deftest functionp.11 |
(deftest functionp.11 |
76 |
(flet ((%f () nil)) (functionp '%f)) |
(flet ((%f () nil)) (functionp '%f)) |