24 |
nil) |
nil) |
25 |
|
|
26 |
(deftest endp-symbol-error |
(deftest endp-symbol-error |
27 |
(catch-type-error (endp 'a)) |
(catch-type-error (endp 'a)) |
28 |
type-error) |
type-error) |
29 |
|
|
30 |
(deftest endp-fixnum-error |
(deftest endp-fixnum-error |
31 |
(catch-type-error (endp 1)) |
(catch-type-error (endp 1)) |
32 |
type-error) |
type-error) |
33 |
|
|
34 |
(deftest endp-float-error |
(deftest endp-float-error |
35 |
(catch-type-error (endp 0.9212d4)) |
(catch-type-error (endp 0.9212d4)) |
36 |
type-error) |
type-error) |
37 |
|
|
38 |
|
(deftest endp.error.4 |
39 |
|
(classify-error (endp)) |
40 |
|
program-error) |
41 |
|
|
42 |
|
(deftest endp.error.5 |
43 |
|
(classify-error (endp nil nil)) |
44 |
|
program-error) |
45 |
|
|
46 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
47 |
;;; null |
;;; null |
48 |
|
|
56 |
#'car (make-array '(10))))) |
#'car (make-array '(10))))) |
57 |
t) |
t) |
58 |
|
|
59 |
|
(deftest null.error.1 |
60 |
|
(classify-error (null)) |
61 |
|
program-error) |
62 |
|
|
63 |
|
(deftest null.error.2 |
64 |
|
(classify-error (null nil nil)) |
65 |
|
program-error) |
66 |
|
|
67 |
(deftest not-1 |
(deftest not-1 |
68 |
(not nil) |
(not nil) |
69 |
t) |
t) |
74 |
#'car (make-array '(10))))) |
#'car (make-array '(10))))) |
75 |
t) |
t) |
76 |
|
|
77 |
|
(deftest not.error.1 |
78 |
|
(classify-error (not)) |
79 |
|
program-error) |
80 |
|
|
81 |
|
(deftest not.error.2 |
82 |
|
(classify-error (not nil nil)) |
83 |
|
program-error) |
84 |
|
|
85 |
(deftest typep-nil-null |
(deftest typep-nil-null |
86 |
(not (not (typep nil 'null))) |
(not (not (typep nil 'null))) |
87 |
t) |
t) |