From 6f77966927ab5de88a1ff6232529174119bc6be0 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 7 Sep 2005 11:32:11 +0000
Subject: [PATCH] Comment out simple-string-p.[47]

---
 ansi-tests/simple-string-p.lsp | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/ansi-tests/simple-string-p.lsp b/ansi-tests/simple-string-p.lsp
index b64255b8..b7fbca47 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)
-- 
GitLab