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