/[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.4 by pfdietz, Sat Nov 2 03:55:07 2002 UTC revision 1.5 by pfdietz, Fri Jan 24 02:12:45 2003 UTC
# Line 78  Line 78 
78    t)    t)
79    
80  (deftest char<=.7  (deftest char<=.7
81    (or (char<= #\9 #\A) (char<= #\Z #\0) t)    (notnot-mv (or (char<= #\9 #\A) (char<= #\Z #\0)))
82    t)    t)
83        
84  (deftest char<=.8  (deftest char<=.8
85    (or (char<= #\9 #\a) (char<= #\z #\0) t)    (notnot-mv (or (char<= #\9 #\a) (char<= #\z #\0)))
86    t)    t)
87    
88  (deftest char<.1  (deftest char<.1
# Line 111  Line 111 
111    t)    t)
112    
113  (deftest char<.7  (deftest char<.7
114    (or (char< #\9 #\A) (char< #\Z #\0) t)    (notnot-mv (or (char< #\9 #\A) (char< #\Z #\0)))
115    t)    t)
116        
117  (deftest char<.8  (deftest char<.8
118    (or (char< #\9 #\a) (char< #\z #\0) t)    (notnot-mv (or (char< #\9 #\a) (char< #\z #\0)))
119    t)    t)
120        
121    
# Line 145  Line 145 
145    t)    t)
146    
147  (deftest char>=.7  (deftest char>=.7
148    (or (char>= #\A #\9) (char>= #\0 #\Z) t)    (notnot-mv (or (char>= #\A #\9) (char>= #\0 #\Z)))
149    t)    t)
150        
151  (deftest char>=.8  (deftest char>=.8
152    (or (char>= #\a #\9) (char>= #\0 #\z) t)    (notnot-mv (or (char>= #\a #\9) (char>= #\0 #\z)))
153    t)    t)
154    
155  (deftest char>.1  (deftest char>.1
# Line 178  Line 178 
178    t)    t)
179    
180  (deftest char>.7  (deftest char>.7
181    (or (char> #\A #\9) (char> #\0 #\Z) t)    (notnot-mv (or (char> #\A #\9) (char> #\0 #\Z)))
182    t)    t)
183        
184  (deftest char>.8  (deftest char>.8
185    (or (char> #\a #\9) (char> #\0 #\z) t)    (notnot-mv (or (char> #\a #\9) (char> #\0 #\z)))
186    t)    t)
187    
188  ;;; Case-insensitive comparisons  ;;; Case-insensitive comparisons
# Line 262  Line 262 
262    t)    t)
263    
264  (deftest char-not-greaterp.7  (deftest char-not-greaterp.7
265    (or (char-not-greaterp #\9 #\A) (char-not-greaterp #\Z #\0) t)    (notnot-mv (or (char-not-greaterp #\9 #\A) (char-not-greaterp #\Z #\0)))
266    t)    t)
267        
268  (deftest char-not-greaterp.8  (deftest char-not-greaterp.8
269    (or (char-not-greaterp #\9 #\a) (char-not-greaterp #\z #\0) t)    (notnot-mv (or (char-not-greaterp #\9 #\a) (char-not-greaterp #\z #\0)))
270    t)    t)
271    
272  (deftest char-lessp.1  (deftest char-lessp.1
# Line 295  Line 295 
295    t)    t)
296    
297  (deftest char-lessp.7  (deftest char-lessp.7
298    (or (char-lessp #\9 #\A) (char-lessp #\Z #\0) t)    (notnot-mv (or (char-lessp #\9 #\A) (char-lessp #\Z #\0)))
299    t)    t)
300        
301  (deftest char-lessp.8  (deftest char-lessp.8
302    (or (char-lessp #\9 #\a) (char-lessp #\z #\0) t)    (notnot-mv (or (char-lessp #\9 #\a) (char-lessp #\z #\0)))
303    t)    t)
304    
305  (deftest char-not-lessp.1  (deftest char-not-lessp.1
# Line 329  Line 329 
329    t)    t)
330    
331  (deftest char-not-lessp.7  (deftest char-not-lessp.7
332    (or (char-not-lessp #\A #\9) (char-not-lessp #\0 #\Z) t)    (notnot-mv (or (char-not-lessp #\A #\9) (char-not-lessp #\0 #\Z)))
333    t)    t)
334        
335  (deftest char-not-lessp.8  (deftest char-not-lessp.8
336    (or (char-not-lessp #\a #\9) (char-not-lessp #\0 #\z) t)    (notnot-mv (or (char-not-lessp #\a #\9) (char-not-lessp #\0 #\z)))
337    t)    t)
338    
339  (deftest char-greaterp.1  (deftest char-greaterp.1
# Line 363  Line 363 
363    t)    t)
364    
365  (deftest char-greaterp.7  (deftest char-greaterp.7
366    (or (char-greaterp #\A #\9) (char-greaterp #\0 #\Z) t)    (notnot-mv (or (char-greaterp #\A #\9) (char-greaterp #\0 #\Z)))
367    t)    t)
368        
369  (deftest char-greaterp.8  (deftest char-greaterp.8
370    (or (char-greaterp #\a #\9) (char-greaterp #\0 #\z) t)    (notnot-mv (or (char-greaterp #\a #\9) (char-greaterp #\0 #\z)))
371    t)    t)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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