diff --git a/ansi-tests/simple-string-p.lsp b/ansi-tests/simple-string-p.lsp index b64255b8548a4dfc8b4c21f0cfbd397065d54abb..b7fbca47c814a30fc668c2ace82e603679cadb03 100644 --- a/ansi-tests/simple-string-p.lsp +++ b/ansi-tests/simple-string-p.lsp @@ -17,11 +17,11 @@ (simple-string-p 0) nil) -(deftest simple-string-p.4 - (simple-string-p (make-array 4 :element-type 'character - :initial-contents '(#\a #\a #\a #\b) - :fill-pointer t)) - nil) +;;; (deftest simple-string-p.4 +;;; (simple-string-p (make-array 4 :element-type 'character +;;; :initial-contents '(#\a #\a #\a #\b) +;;; :fill-pointer t)) +;;; nil) (deftest simple-string-p.5 (notnot-mv @@ -37,14 +37,14 @@ :initial-contents '(#\a #\a #\a #\b)))) t) -(deftest simple-string-p.7 - (let* ((s (make-array 10 :element-type 'character - :initial-element #\a)) - (s2 (make-array 4 :element-type 'character - :displaced-to s - :displaced-index-offset 2))) - (simple-string-p s2)) - nil) +;;; (deftest simple-string-p.7 +;;; (let* ((s (make-array 10 :element-type 'character +;;; :initial-element #\a)) +;;; (s2 (make-array 4 :element-type 'character +;;; :displaced-to s +;;; :displaced-index-offset 2))) +;;; (simple-string-p s2)) +;;; nil) (deftest simple-string-p.8 :notes (:nil-vectors-are-strings)