/[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.3 by pfdietz, Thu Oct 24 03:21:50 2002 UTC revision 1.4 by pfdietz, Sat Nov 2 03:55:07 2002 UTC
# Line 11  Line 11 
11    (loop for f in '(char= char/= char< char> char<= char>=    (loop for f in '(char= char/= char< char> char<= char>=
12                     char-lessp char-greaterp char-equal                     char-lessp char-greaterp char-equal
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 (eval `(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     program-error program-error program-error program-error

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