/[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.22 by pfdietz, Sun Oct 26 11:55:49 2003 UTC revision 1.23 by pfdietz, Mon Oct 27 00:20:11 2003 UTC
# Line 1338  Line 1338 
1338                 (floor                 (floor
1339                  (labels ((%f2 ()                  (labels ((%f2 ()
1340                                (block b6                                (block b6
1341                                  (ignore-errors (return-from b6 (if (= c 8) b 82674))))))                                  (ignore-errors (return-from b6
1342                                                     (if (= c 8) b 82674))))))
1343                    (%f2)))))                    (%f2)))))
1344     22992834060 -5833)     22992834060 -5833)
1345    82674 0)    82674 0)
# Line 1374  Line 1375 
1375              '(lambda (c)              '(lambda (c)
1376                 (declare (type (integer -1441970837 -427) c))                 (declare (type (integer -1441970837 -427) c))
1377                 (declare (optimize (speed 3)))                 (declare (optimize (speed 3)))
                (declare (optimize (safety 1)))  
                (declare (optimize (debug 1)))  
1378                 (block b7 (abs (min c (ignore-errors (return-from b7 c)))))))                 (block b7 (abs (min c (ignore-errors (return-from b7 c)))))))
1379     -500)     -500)
1380    -500)    -500)
# Line 1391  Line 1390 
1390                     170 -110730)))                     170 -110730)))
1391     3035465333 1919088834)     3035465333 1919088834)
1392    170)    170)
1393    
1394    ;;; sbcl (0.8.5.8) "The value NIL is not of type SB-C::IR2-LVAR."
1395    
1396    (deftest misc.112
1397      (funcall
1398       (compile nil '(lambda (a)
1399                       (declare (type (integer -944 -472) a))
1400                       (declare (optimize (speed 3)))
1401                       (round
1402                        (block b3
1403                          (return-from b3
1404                            (if (= 55957 a) -117 (ignore-errors
1405                                                   (return-from b3 a))))))))
1406       -589)
1407      -117 0)
1408    
1409    ;;; sbcl (0.8.5.8) "The value NIL is not of type SB-C::CTRAN"
1410    
1411    (deftest misc.113
1412      (funcall
1413       (compile nil '(lambda (b c)
1414                       (if (or (ldb-test (byte 8 10) b) t)
1415                           c
1416                         (min (if (<= -6467 c) c 6)
1417                              (flet ((%f3 (f3-1 f3-2)
1418                                          f3-1))
1419                                (multiple-value-call #'%f3 (values b 107)))))))
1420       -238 -23658556)
1421      -23658556)
1422    

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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