/[gcl]/gcl/ansi-tests/char-compare.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/char-compare.lsp

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

revision 1.2 by pfdietz, Wed Oct 23 03:10:23 2002 UTC revision 1.3 by pfdietz, Thu Oct 24 03:21:50 2002 UTC
# Line 13  Line 13 
13                     char-not-lessp char-not-greaterp char-not-equal)                     char-not-lessp char-not-greaterp char-not-equal)
14          collect (classify-error (funcall f)))          collect (classify-error (funcall f)))
15    (program-error program-error program-error program-error    (program-error program-error program-error program-error
16     program-error program-error program-error program-error))     program-error program-error program-error program-error
17       program-error program-error program-error program-error
18       ))
19    
20  (deftest char=.1  (deftest char=.1
21    (is-ordered-by +code-chars+ #'(lambda (c1 c2) (not (char= c1 c2))))    (is-ordered-by +code-chars+ #'(lambda (c1 c2) (not (char= c1 c2))))

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

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