/[gcl]/gcl/ansi-tests/fill.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/fill.lsp

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

revision 1.7 by pfdietz, Sun Nov 3 11:46:46 2002 UTC revision 1.8 by pfdietz, Sun Nov 3 12:20:31 2002 UTC
# Line 298  Line 298 
298    
299  (deftest fill.string.9  (deftest fill.string.9
300    (let* ((s1 (make-array '(8) :element-type 'character    (let* ((s1 (make-array '(8) :element-type 'character
301                           :initial-element #\a                           :initial-element #\z
302                           :fill-pointer 4))                           :fill-pointer 4))
303           (s2 (fill s1 #\a)))           (s2 (fill s1 #\a)))
304      (and (eqt s1 s2)      (and (eqt s1 s2)
# Line 308  Line 308 
308    
309  (deftest fill.string.10  (deftest fill.string.10
310    (let* ((s1 (make-array '(8) :element-type 'base-char    (let* ((s1 (make-array '(8) :element-type 'base-char
311                           :initial-element #\a                           :initial-element #\z
312                           :fill-pointer 4))                           :fill-pointer 4))
313           (s2 (fill s1 #\a)))           (s2 (fill s1 #\a)))
314      (and (eqt s1 s2)      (and (eqt s1 s2)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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