/[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.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 347  Line 347 
347    7)    7)
348    
349  (deftest count-string.4  (deftest count-string.4
350    (count #\1 "00101100011011000" :key #'(lambda (x) (if (eq x #\0) #\1 #\2)))    (count #\1 "00101100011011000" :key #'(lambda (x) (if (eql x #\0) #\1 #\2)))
351    10)    10)
352    
353  (deftest count-string.5  (deftest count-string.5

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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