/[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.21 by pfdietz, Sun Oct 26 02:30:42 2003 UTC revision 1.22 by pfdietz, Sun Oct 26 11:55:49 2003 UTC
# Line 1351  Line 1351 
1351                     (block b7 (- b (ignore-errors (return-from b7 57876))))))                     (block b7 (- b (ignore-errors (return-from b7 57876))))))
1352     10)     10)
1353    57876)    57876)
1354    
1355    ;;; "The assertion (C::CONSTANT-CONTINUATION-P C::CONT) failed." (cmucl)
1356    (deftest misc.109
1357      (funcall (compile
1358                nil
1359                '(lambda ()
1360                   (load-time-value
1361                    (block b4
1362                      (* (return-from b4 -27)
1363                         (block b5
1364                           (return-from b4
1365                             (return-from b5
1366                               (ignore-errors (unwind-protect
1367                                                  (return-from b5 0))))))))))))
1368      -27)
1369    
1370    ;;; This bug was occuring a lot in sbcl, and now occurs in cmucl too
1371    (deftest misc.110
1372      (funcall
1373       (compile nil
1374                '(lambda (c)
1375                   (declare (type (integer -1441970837 -427) c))
1376                   (declare (optimize (speed 3)))
1377                   (declare (optimize (safety 1)))
1378                   (declare (optimize (debug 1)))
1379                   (block b7 (abs (min c (ignore-errors (return-from b7 c)))))))
1380       -500)
1381      -500)
1382    
1383    ;;; CLISP (2.31+) compiler bug
1384    
1385    (deftest misc.111
1386      (funcall
1387       (compile nil
1388                '(lambda (a c)
1389                   (if (or (ldb-test (byte 12 18) a)
1390                           (not (and t (not (if (not (and c t)) nil nil)))))
1391                       170 -110730)))
1392       3035465333 1919088834)
1393      170)

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

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