25 |
nil) |
nil) |
26 |
|
|
27 |
(deftest constantp.2 |
(deftest constantp.2 |
28 |
(notnot (constantp t)) |
(notnot-mv (constantp t)) |
29 |
t) |
t) |
30 |
|
|
31 |
(deftest constantp.3 |
(deftest constantp.3 |
32 |
(notnot (constantp nil)) |
(notnot-mv (constantp nil)) |
33 |
t) |
t) |
34 |
|
|
35 |
(deftest constantp.4 |
(deftest constantp.4 |
36 |
(notnot (constantp :foo)) |
(notnot-mv (constantp :foo)) |
37 |
t) |
t) |
38 |
|
|
39 |
(deftest constantp.5 |
(deftest constantp.5 |
43 |
(defconstant constantp-test-symbol 1) |
(defconstant constantp-test-symbol 1) |
44 |
|
|
45 |
(defmacro constantp-macro (form &environment env) |
(defmacro constantp-macro (form &environment env) |
46 |
(notnot (constantp form env))) |
(notnot-mv (constantp form env))) |
47 |
|
|
48 |
(deftest constantp.6 |
(deftest constantp.6 |
49 |
(constantp-macro constantp-test-symbol) |
(constantp-macro constantp-test-symbol) |
54 |
nil) |
nil) |
55 |
|
|
56 |
(deftest constantp.8 |
(deftest constantp.8 |
57 |
(notnot (constantp 1 nil)) |
(notnot-mv (constantp 1 nil)) |
58 |
t) |
t) |
59 |
|
|
60 |
(deftest constantp.9 |
(deftest constantp.9 |
61 |
(notnot (constantp ''(((foo))))) |
(notnot-mv (constantp ''(((foo))))) |
62 |
t) |
t) |
63 |
|
|
64 |
(deftest constantp.10 |
(deftest constantp.10 |
65 |
(notnot (constantp 'pi)) |
(notnot-mv (constantp 'pi)) |
66 |
t) |
t) |
67 |
|
|
68 |
|
|