17 |
(simple-string-p 0) |
(simple-string-p 0) |
18 |
nil) |
nil) |
19 |
|
|
20 |
(deftest simple-string-p.4 |
;;; (deftest simple-string-p.4 |
21 |
(simple-string-p (make-array 4 :element-type 'character |
;;; (simple-string-p (make-array 4 :element-type 'character |
22 |
:initial-contents '(#\a #\a #\a #\b) |
;;; :initial-contents '(#\a #\a #\a #\b) |
23 |
:fill-pointer t)) |
;;; :fill-pointer t)) |
24 |
nil) |
;;; nil) |
25 |
|
|
26 |
(deftest simple-string-p.5 |
(deftest simple-string-p.5 |
27 |
(notnot-mv |
(notnot-mv |
37 |
:initial-contents '(#\a #\a #\a #\b)))) |
:initial-contents '(#\a #\a #\a #\b)))) |
38 |
t) |
t) |
39 |
|
|
40 |
(deftest simple-string-p.7 |
;;; (deftest simple-string-p.7 |
41 |
(let* ((s (make-array 10 :element-type 'character |
;;; (let* ((s (make-array 10 :element-type 'character |
42 |
:initial-element #\a)) |
;;; :initial-element #\a)) |
43 |
(s2 (make-array 4 :element-type 'character |
;;; (s2 (make-array 4 :element-type 'character |
44 |
:displaced-to s |
;;; :displaced-to s |
45 |
:displaced-index-offset 2))) |
;;; :displaced-index-offset 2))) |
46 |
(simple-string-p s2)) |
;;; (simple-string-p s2)) |
47 |
nil) |
;;; nil) |
48 |
|
|
49 |
(deftest simple-string-p.8 |
(deftest simple-string-p.8 |
50 |
:notes (:nil-vectors-are-strings) |
:notes (:nil-vectors-are-strings) |