Commit 9975cb59 authored by pfdietz's avatar pfdietz

Commented out some apparently improper tests.

parent 19f4d9cf
......@@ -19,22 +19,22 @@
(notnot-mv (simple-vector-p (make-array '(10))))
t)
(deftest simple-vector-p.3
(simple-vector-p (make-array '(5) :fill-pointer t))
nil)
;; (deftest simple-vector-p.3
;; (simple-vector-p (make-array '(5) :fill-pointer t))
;; nil)
(deftest simple-vector-p.4
(notnot-mv (simple-vector-p (vector 'a 'b 'c)))
t)
(deftest simple-vector-p.5
(simple-vector-p (make-array '(5) :adjustable t))
nil)
;;; (deftest simple-vector-p.5
;;; (simple-vector-p (make-array '(5) :adjustable t))
;;; nil)
(deftest simple-vector-p.6
(let ((a #(a b c d e g h)))
(simple-vector-p (make-array '(5) :displaced-to a)))
nil)
;;; (deftest simple-vector-p.6
;;; (let ((a #(a b c d e g h)))
;;; (simple-vector-p (make-array '(5) :displaced-to a)))
;;; nil)
(deftest simple-vector-p.7
(simple-vector-p #*001101)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment