/[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.3 by pfdietz, Tue Nov 5 13:51:27 2002 UTC revision 1.4 by pfdietz, Mon Nov 25 13:03:33 2002 UTC
# Line 433  Line 433 
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
436                           (coerce "1111100000" 'list())                           (coerce "1111100000" 'list)
437                         :fill-pointer 5                         :fill-pointer 5
438                         :element-type 'character)))                         :element-type 'character)))
439      (values (position-if #'%f a)      (values (position-if #'%f a)

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