Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
6f779669
Commit
6f779669
authored
Sep 07, 2005
by
pfdietz
Browse files
Comment out simple-string-p.[47]
parent
da27662a
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/simple-string-p.lsp
View file @
6f779669
...
...
@@ -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)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment