/[gcl]/gcl/ansi-tests/position-if.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/position-if.lsp

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

revision 1.4 by pfdietz, Mon Nov 25 13:03:33 2002 UTC revision 1.5 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 432  Line 432 
432  (deftest position-if-string.13  (deftest position-if-string.13
433    (flet ((%f (c) (eql c #\0))    (flet ((%f (c) (eql c #\0))
434           (%g (c) (eql c #\1)))           (%g (c) (eql c #\1)))
435      (let ((a (make-array '(10) :initial-contents      (let ((a (make-array '(10) :initial-contents "1111100000"
                          (coerce "1111100000" 'list)  
436                         :fill-pointer 5                         :fill-pointer 5
437                         :element-type 'character)))                         :element-type 'character)))
438      (values (position-if #'%f a)      (values (position-if #'%f a)

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

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