58 |
:notes (:nil-vectors-are-strings) |
:notes (:nil-vectors-are-strings) |
59 |
(notnot-mv (simple-string-p (make-array '(37) :element-type nil))) |
(notnot-mv (simple-string-p (make-array '(37) :element-type nil))) |
60 |
t) |
t) |
61 |
|
|
62 |
|
(deftest simple-string-p.10 |
63 |
|
(let ((i 0)) |
64 |
|
(values |
65 |
|
(notnot (simple-string-p (progn (incf i) ""))) |
66 |
|
i)) |
67 |
|
t 1) |
68 |
|
|
69 |
|
;;; Error tests |
70 |
|
|
71 |
|
(deftest simple-string-p.error.1 |
72 |
|
(signals-error (simple-string-p) program-error) |
73 |
|
t) |
74 |
|
|
75 |
|
(deftest simple-string-p.error.2 |
76 |
|
(signals-error (simple-string-p "" nil) program-error) |
77 |
|
t) |