/[gcl]/gcl/ansi-tests/char-schar.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/char-schar.lsp

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

revision 1.1 by pfdietz, Tue Oct 1 00:31:14 2002 UTC revision 1.2 by pfdietz, Wed Oct 2 03:45:30 2002 UTC
# Line 23  Line 23 
23    "Xbcd" "aXcd" "abXd" "abcX")    "Xbcd" "aXcd" "abXd" "abcX")
24    
25  (deftest char.3  (deftest char.3
26    (let ((s (make-array 6 :element-type 'chararacter    (let ((s (make-array 6 :element-type 'character
27                         :initial-contents '(#\a #\b #\c #\d #\e #\f))))                         :initial-contents '(#\a #\b #\c #\d #\e #\f))))
28      (setf (char s 3) #\X)      (setf (char s 3) #\X)
29      s)      s)
30    "abcXef")    "abcXef")
31    
32  (deftest char.4  (deftest char.4
33    (let ((s (make-array 6 :element-type 'chararacter    (let ((s (make-array 6 :element-type 'character
34                         :initial-contents '(#\a #\b #\c #\d #\e #\f)                         :initial-contents '(#\a #\b #\c #\d #\e #\f)
35                         :fill-pointer 4)))                         :fill-pointer 4)))
36      (setf (char s 3) #\X)      (setf (char s 3) #\X)
# Line 56  Line 56 
56    "aaaXa")    "aaaXa")
57    
58  (deftest char.8  (deftest char.8
59    (let ((s (make-array 6 :element-type 'chararacter    (let ((s (make-array 6 :element-type 'character
60                         :initial-contents '(#\a #\b #\c #\d #\e #\f)                         :initial-contents '(#\a #\b #\c #\d #\e #\f)
61                         :fill-pointer 4)))                         :fill-pointer 4)))
62      (setf (char s 5) #\X)      (setf (char s 5) #\X)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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