/[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.143 by pfdietz, Mon Sep 13 13:57:48 2004 UTC revision 1.144 by pfdietz, Tue Sep 14 02:49:52 2004 UTC
# Line 1380  Line 1380 
1380           (apply #'%f14 0 0 0 nil)))))           (apply #'%f14 0 0 0 nil)))))
1381    0)    0)
1382    
1383    ;;; "The value NIL is not of type SB-C::IR2-LVAR." (sbcl 0.8.14.18)
1384    
1385    (deftest misc.107b
1386      (funcall
1387       (compile
1388        nil
1389        '(lambda (a b c)
1390           (declare (type (integer 7215 1030625885) a))
1391           (declare (type (integer -4361 -6) b))
1392           (declare (type (integer -3798210806 -898) c))
1393           (declare (ignorable a b c))
1394           (declare
1395            (optimize (speed 2)
1396                      (space 2)
1397                      (safety 2)
1398                      (debug 3)
1399                      (compilation-speed 1)))
1400           (block b4
1401             (let ((*s7* (cons c 0)))
1402               (declare (special *s7*))
1403               (return-from b4
1404                 (prog1 0
1405                   (the integer
1406                     (integer-length
1407                      (1+
1408                       (let ()
1409                         (gcd (cdr *s7*)
1410                              (case b
1411                                ((31 38 20 0 5 45) 2)
1412                                ((34 35 64 61 47) 39)
1413                                ((58) a)
1414                                (t 131788)))))))))))))
1415       734649164 -3343 -2306504518)
1416      0)
1417    
1418    (deftest misc.107c
1419      (funcall
1420       (compile
1421        nil
1422        '(lambda (c)
1423           (declare (optimize (speed 2) (space 1) (safety 1) (debug 3)
1424                              (compilation-speed 0)))
1425           (let* ((*s6*
1426                   (unwind-protect 0 (the integer (ash 2914825 (min 8 c))))))
1427             (declare (special *s6*))
1428             0)))
1429       -105)
1430      0)
1431    
1432    (deftest misc.107d
1433      (funcall
1434       (compile
1435        nil
1436        '(lambda (a)
1437           (declare (optimize (speed 1) (space 1) (safety 1) (debug 3)
1438                              (compilation-speed 1)))
1439           (catch 'ct4
1440             (logorc1
1441              (the integer
1442                (case (dotimes (iv2 2 2) (progn 203))
1443                  ((-51) -59598)
1444                  ((-31 -150) a)
1445                  (t b)))
1446              (throw 'ct4 0)))))
1447       10)
1448      0)
1449    
1450    (deftest misc.107e
1451      (funcall
1452       (compile
1453        nil
1454        '(lambda (a)
1455           (declare (optimize (speed 1) (space 0) (safety 1)
1456                              (debug 3) (compilation-speed 1)))
1457           (flet ((%f11 (&key (key1 (the integer (- a 245241933)))) 0))
1458             (%f11))))
1459       1)
1460      0)
1461    
1462  ;;; cmucl bug (Argument X is not a NUMBER: NIL)  ;;; cmucl bug (Argument X is not a NUMBER: NIL)
1463    
1464  (deftest misc.108  (deftest misc.108
# Line 7435  Broken at C::WT-C-INLINE-LOC. Line 7514  Broken at C::WT-C-INLINE-LOC.
7514     'x 'y)     'x 'y)
7515    x)    x)
7516    
7517    ;;; sbcl 0.8.14.18
7518    ;;; "The value #<SB-C::COMBINATION :FUN # :ARGS (# # #) {C44D1C1}>
7519    ;;;   is not of type SB-C::REF."
7520    
7521    
7522    (deftest misc.392
7523      (funcall
7524       (compile
7525        nil
7526        '(lambda (a b)
7527           (declare (notinline /=))
7528           (declare (optimize (speed 1) (space 2) (safety 1)
7529                              (debug 3) (compilation-speed 3)))
7530           (prog2 0 0 (loop for lv4 below 3 count (or b (/= b))))))
7531       1 2)
7532      0)

Legend:
Removed from v.1.143  
changed lines
  Added in v.1.144

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