/[gcl]/gcl/ansi-tests/simple-string-p.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/simple-string-p.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pfdietz, Sun Jun 26 14:52:06 2005 UTC revision 1.4 by pfdietz, Wed Sep 7 11:32:11 2005 UTC
# Line 17  Line 17 
17    (simple-string-p 0)    (simple-string-p 0)
18    nil)    nil)
19    
20  (deftest simple-string-p.4  ;;; (deftest simple-string-p.4
21    (simple-string-p (make-array 4 :element-type 'character  ;;;  (simple-string-p (make-array 4 :element-type 'character
22                                 :initial-contents '(#\a #\a #\a #\b)  ;;;                            :initial-contents '(#\a #\a #\a #\b)
23                                 :fill-pointer t))  ;;;                            :fill-pointer t))
24    nil)  ;;;  nil)
25    
26  (deftest simple-string-p.5  (deftest simple-string-p.5
27    (notnot-mv    (notnot-mv
# Line 37  Line 37 
37                       :initial-contents '(#\a #\a #\a #\b))))                       :initial-contents '(#\a #\a #\a #\b))))
38    t)    t)
39    
40  (deftest simple-string-p.7  ;;; (deftest simple-string-p.7
41    (let* ((s (make-array 10 :element-type 'character  ;;;  (let* ((s (make-array 10 :element-type 'character
42                          :initial-element #\a))  ;;;                     :initial-element #\a))
43           (s2 (make-array 4 :element-type 'character  ;;;      (s2 (make-array 4 :element-type 'character
44                           :displaced-to s  ;;;                      :displaced-to s
45                           :displaced-index-offset 2)))  ;;;                      :displaced-index-offset 2)))
46      (simple-string-p s2))  ;;;    (simple-string-p s2))
47    nil)  ;;;  nil)
48    
49  (deftest simple-string-p.8  (deftest simple-string-p.8
50    :notes (:nil-vectors-are-strings)    :notes (:nil-vectors-are-strings)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26