/[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.24 by pfdietz, Mon Oct 27 02:36:43 2003 UTC revision 1.25 by pfdietz, Tue Oct 28 01:50:36 2003 UTC
# Line 1404  Line 1404 
1404                          (if (= 55957 a) -117 (ignore-errors                          (if (= 55957 a) -117 (ignore-errors
1405                                                 (return-from b3 a))))))))                                                 (return-from b3 a))))))))
1406     -589)     -589)
1407    -117 0)    -589 0)
1408    
1409  ;;; sbcl (0.8.5.8) "The value NIL is not of type SB-C::CTRAN"  ;;; sbcl (0.8.5.8) "The value NIL is not of type SB-C::CTRAN"
1410    
# Line 1425  Line 1425 
1425  (deftest misc.114  (deftest misc.114
1426    (funcall    (funcall
1427     (compile nil     (compile nil
1428              '(lambda (a b c)              '(lambda (a b)
1429                 (unwind-protect                 (unwind-protect
1430                     (block b2                     (block b2
1431                       (flet ((%f1 nil b))                       (flet ((%f1 nil b))
1432                         (logior (if a (if (ldb-test (byte 23 1) 253966182) (return-from b2 a) -103275090) 62410)                         (logior (if a
1433                                       (if (ldb-test (byte 23 1) 253966182)
1434                                           (return-from b2 a)
1435                                         -103275090)
1436                                     62410)
1437                                 (if (not (not (if (not nil) t (ldb-test (byte 2 27) 253671809))))                                 (if (not (not (if (not nil) t (ldb-test (byte 2 27) 253671809))))
1438                                     (return-from b2 -22)                                     (return-from b2 -22)
1439                                   (%f1)                                   (%f1))))))))
1440                                   )))))))     777595384624 -1510893868)
    777595384624 -1510893868 -41632818690)  
1441    777595384624)    777595384624)
1442    
1443    ;;; clisp (1 Oct 2003 cvs HEAD) "Compiler bug!! Occurred in OPTIMIZE-LABEL."
1444    
1445    (deftest misc.115
1446      (funcall
1447       (compile nil
1448                '(lambda (a b c)
1449                   (declare (type (integer 0 1000) a b c))
1450                   (if (and (if b (not (and (not (or a t)) nil)) nil)
1451                            (logbitp 6 c))
1452                       c b)))
1453       0 100 600)
1454      100)
1455    
1456    (deftest misc.116
1457      (funcall
1458       (compile nil
1459                '(lambda (a c)
1460                   (declare (type (integer 0 1000) a c))
1461                   (if (if (and (not (and (not (or a t)) nil)) t) c nil)
1462                       91 -1725615)))
1463       0 0)
1464      91)
1465    
1466    (deftest misc.117
1467      (funcall
1468       (compile nil
1469                '(lambda (a c)
1470                   (declare (type (integer 0 1000) a c))
1471                   (if (or c (not (or nil (not (and (not (or a t)) nil)))))
1472                       373146181 115)))
1473       0 0)
1474      373146181)

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

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