Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |