/[gcl]/gcl/ansi-tests/misc.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/misc.lsp

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

revision 1.25 by pfdietz, Tue Oct 28 01:50:36 2003 UTC revision 1.26 by pfdietz, Tue Oct 28 10:37:03 2003 UTC
# Line 1472  Line 1472 
1472                     373146181 115)))                     373146181 115)))
1473     0 0)     0 0)
1474    373146181)    373146181)
1475    
1476    (deftest misc.118
1477      (funcall
1478       (compile nil '(lambda (a)
1479                       (declare (type (integer 0 10000) a))
1480                       (if (or (or nil (not (or (not (or a nil)) t))) a) a 9376)))
1481       0)
1482      0)
1483    

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

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