19 |
(notnot-mv (simple-vector-p (make-array '(10)))) |
(notnot-mv (simple-vector-p (make-array '(10)))) |
20 |
t) |
t) |
21 |
|
|
22 |
(deftest simple-vector-p.3 |
;; (deftest simple-vector-p.3 |
23 |
(simple-vector-p (make-array '(5) :fill-pointer t)) |
;; (simple-vector-p (make-array '(5) :fill-pointer t)) |
24 |
nil) |
;; nil) |
25 |
|
|
26 |
(deftest simple-vector-p.4 |
(deftest simple-vector-p.4 |
27 |
(notnot-mv (simple-vector-p (vector 'a 'b 'c))) |
(notnot-mv (simple-vector-p (vector 'a 'b 'c))) |
28 |
t) |
t) |
29 |
|
|
30 |
(deftest simple-vector-p.5 |
;;; (deftest simple-vector-p.5 |
31 |
(simple-vector-p (make-array '(5) :adjustable t)) |
;;; (simple-vector-p (make-array '(5) :adjustable t)) |
32 |
nil) |
;;; nil) |
33 |
|
|
34 |
(deftest simple-vector-p.6 |
;;; (deftest simple-vector-p.6 |
35 |
(let ((a #(a b c d e g h))) |
;;; (let ((a #(a b c d e g h))) |
36 |
(simple-vector-p (make-array '(5) :displaced-to a))) |
;;; (simple-vector-p (make-array '(5) :displaced-to a))) |
37 |
nil) |
;;; nil) |
38 |
|
|
39 |
(deftest simple-vector-p.7 |
(deftest simple-vector-p.7 |
40 |
(simple-vector-p #*001101) |
(simple-vector-p #*001101) |