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

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

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

revision 1.3 by pfdietz, Mon Nov 4 04:31:48 2002 UTC revision 1.4 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 460  Line 460 
460    5)    5)
461    
462  (deftest count-string.17  (deftest count-string.17
463    (count #\a (make-array 10 :initial-contents (coerce "abaaacaaaa" 'list)    (count #\a (make-array 10 :initial-contents "abaaacaaaa"
464                           :fill-pointer 7                           :fill-pointer 7
465                           :element-type 'character))                           :element-type 'character))
466    5)    5)
467    
468  (deftest count-string.18  (deftest count-string.18
469    (count #\a (make-array 10 :initial-contents (coerce "abaaacaaaa" 'list)    (count #\a (make-array 10 :initial-contents "abaaacaaaa"
470                           :fill-pointer 7                           :fill-pointer 7
471                           :element-type 'character)                           :element-type 'character)
472           :start 1)           :start 1)
473    4)    4)
474    
475  (deftest count-string.19  (deftest count-string.19
476    (count #\a (make-array 10 :initial-contents (coerce "abaaacaaaa" 'list)    (count #\a (make-array 10 :initial-contents "abaaacaaaa"
477                           :fill-pointer 7                           :fill-pointer 7
478                           :element-type 'character)                           :element-type 'character)
479           :end nil)           :end nil)
480    5)    5)
481    
482  (deftest count-string.20  (deftest count-string.20
483    (count #\a (make-array 10 :initial-contents (coerce "abaaacaaaa" 'list)    (count #\a (make-array 10 :initial-contents "abaaacaaaa"
484                           :fill-pointer 7                           :fill-pointer 7
485                           :element-type 'character)                           :element-type 'character)
486           :start 2 :end 5)           :start 2 :end 5)

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