42 |
(deftest endp.error.5 |
(deftest endp.error.5 |
43 |
(classify-error (endp nil nil)) |
(classify-error (endp nil nil)) |
44 |
program-error) |
program-error) |
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;;; null |
|
|
|
|
|
(deftest null-1 |
|
|
(null nil) |
|
|
t) |
|
|
|
|
|
(deftest null-2 |
|
|
(not (some #'null |
|
|
`(1 a 1.2 "a" #\w (a) ,*terminal-io* |
|
|
#'car (make-array '(10))))) |
|
|
t) |
|
|
|
|
|
(deftest null.error.1 |
|
|
(classify-error (null)) |
|
|
program-error) |
|
|
|
|
|
(deftest null.error.2 |
|
|
(classify-error (null nil nil)) |
|
|
program-error) |
|
|
|
|
|
(deftest not-1 |
|
|
(not nil) |
|
|
t) |
|
|
|
|
|
(deftest not-2 |
|
|
(not (some #'not |
|
|
`(1 a 1.2 "a" #\w (a) ,*terminal-io* |
|
|
#'car (make-array '(10))))) |
|
|
t) |
|
|
|
|
|
(deftest not.error.1 |
|
|
(classify-error (not)) |
|
|
program-error) |
|
|
|
|
|
(deftest not.error.2 |
|
|
(classify-error (not nil nil)) |
|
|
program-error) |
|
|
|
|
|
(deftest typep-nil-null |
|
|
(not (not (typep nil 'null))) |
|
|
t) |
|
|
|
|
|
(deftest typep-t-null |
|
|
(typep t 'null) |
|
|
nil) |
|