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

Diff of /gcl/ansi-tests/count-if-not.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, Fri Jan 3 04:28:38 2003 UTC
# Line 408  Line 408 
408  (deftest count-if-not-string.17  (deftest count-if-not-string.17
409    (flet ((%zerop (c) (eql c #\0))    (flet ((%zerop (c) (eql c #\0))
410           (%onep (c) (eql c #\1)))           (%onep (c) (eql c #\1)))
411      (let ((a (make-array '(10) :initial-contents (coerce "0001110100" 'list)      (let ((a (make-array '(10) :initial-contents "0001110100"
412                           :fill-pointer 5                           :fill-pointer 5
413                           :element-type 'character)))                           :element-type 'character)))
414        (and (stringp a)        (and (stringp 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