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

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

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

revision 1.10 by pfdietz, Sat Jan 17 13:31:44 2004 UTC revision 1.11 by pfdietz, Thu Sep 23 13:28:54 2004 UTC
# Line 507  Line 507 
507       ))       ))
508    #\2 #\4 #\1 #\5)    #\2 #\4 #\1 #\5)
509    
510    (deftest find-if-string.20
511      (do-special-strings
512       (s "123a456" nil)
513       (assert (eql (find-if #'alpha-char-p s) #\a)))
514      nil)
515    
516  ;;; Keyword tests  ;;; Keyword tests
517    
518  (deftest find-if.allow-other-keys.1  (deftest find-if.allow-other-keys.1

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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