Changeset 9860 for trunk/tests


Ignore:
Timestamp:
Jul 1, 2008, 4:44:11 PM (11 years ago)
Author:
gz
Message:

don't show compiler warnings in tests that compile for funcall/apply (the warnings are still signalled and hence programmatically detectible in tests that care)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/misc.lsp

    r8991 r9860  
    1313(declaim (special *s1* *s2* *s3* *s4* *s5* *s6* *s7* *s8*))
    1414
     15(defun call-compiled (lambda &rest args)
     16  (declare (dynamic-extent args))
     17  (apply-compiled lambda args))
     18
     19(defun apply-compiled (lambda args)
     20  (apply
     21   (let ((*error-output* (make-broadcast-stream))) ;; hide warning output
     22     (compile nil lambda))
     23   args))
     24
     25
    1526(deftest misc.1
    16   (funcall
    17    (compile nil '(lambda (b)
    18                    (declare (type (integer 8 22337) b))
    19                    (+ b 2607688420)))
     27  (call-compiled
     28   '(lambda (b)
     29     (declare (type (integer 8 22337) b))
     30     (+ b 2607688420))
    2031   100)
    2132  2607688520)
    2233
    2334(deftest misc.2
    24   (funcall (compile nil
    25                     '(lambda (b) (integer-length (dpb b (byte 4 28) -1005))))
    26            12800263)
     35  (call-compiled
     36   '(lambda (b) (integer-length (dpb b (byte 4 28) -1005)))
     37   12800263)
    2738  32)
    2839
    2940(deftest misc.3
    30   (funcall
    31    (compile
    32     nil
     41  (call-compiled
    3342    '(lambda (a b)
    3443       (declare (optimize (speed 3) (debug 1)))
     
    3645              (let ((v2 (block b5 (return-from b5 (if t b -4)))))
    3746                a)))
    38          -65667836)))
     47         -65667836))
    3948   1 2)
    4049  -65667836)
    4150
    4251(deftest misc.4
    43   (funcall
    44    (compile
    45     nil
     52  (call-compiled
    4653    '(lambda (a b c)
    4754           (declare (type (integer -629491 -333) a)
     
    5057                    (optimize (speed 3) (safety 1) (debug 1)))
    5158           (let ((v6 (block b7 (return-from b7 (if (eql b 0) 1358159 a)))))
    52                 b)))
     59                b))
    5360   -1000 -17 6143)
    5461  -17)
    5562
    5663(deftest misc.5
    57   (funcall
    58    (compile nil
     64  (call-compiled
    5965            '(lambda () (* 390 (- (signum (logeqv -8005440 -2310))
    60                                   -10604863)))))
     66                                  -10604863))))
    6167  4135896180)
    6268
    6369(deftest misc.6
    64   (funcall
    65    (compile nil
     70  (call-compiled
    6671            '(lambda (a c)
    6772                     (declare (optimize (speed 3) (debug 1)))
     
    6974                           (let ((v7 (flet ((%f18 () (%f14))) a)))
    7075                                (let ((v5 (%f14)))
    71                                      0)))))
     76                                     0))))
    7277   10 20)
    7378  0)
    7479
    7580(deftest misc.7
    76   (funcall (compile nil
     81  (call-compiled
    7782                    '(lambda (c) (declare (optimize (speed 3) (debug 1)))
    7883                       (flet ((%f18 () -36))
    7984                         (flet ((%f13 ()
    8085                                      (let () (block b8 (return-from b8 c)))))
    81                            (%f18)))))
     86                           (%f18))))
    8287           10)
    8388  -36)
    8489
    8590(deftest misc.8
    86   (funcall
    87    (compile
    88     nil
     91  (call-compiled
    8992    '(lambda (a b)
    9093       (declare (optimize (speed 3) (debug 1)))
     
    9396            (block b7
    9497                   (flet ((%f5 () (return-from b7 b)))
    95                          (%f5))))))
     98                         (%f5)))))
    9699   10 20)
    97100  20)
    98101
    99102(deftest misc.9
    100   (funcall
    101    (compile
    102     nil
     103  (call-compiled
    103104    '(lambda ()
    104105             (declare (optimize (speed 3) (debug 1)))
     
    111112                                                        1160)
    112113                                                    (return-from b1 22923)))))))
    113                           1)))))
     114                          1))))
    114115  1)
    115116
    116117(deftest misc.10
    117   (funcall
    118    (compile
    119     nil
     118  (call-compiled
    120119    '(lambda (c)
    121120             (declare (optimize (speed 3) (debug 1))
     
    129128                                                       (let ((v6 (%f3))) 4650813)
    130129                                                       782))))
    131                                     -4362540))))))
     130                                    -4362540)))))
    132131   -10000)
    133132  782)
    134133
    135134(deftest misc.11
    136   (funcall
    137    (compile
    138     nil
     135  (call-compiled
    139136    '(lambda (a b c)
    140137             (declare (optimize (speed 3) (debug 1)))
     
    147144                                              c)))
    148145                                  (flet ((%f3 () (let () (return-from b2 b))))
    149                                         a)))))))
     146                                        a))))))
    150147   1 2 3)
    151148  120789657)
    152149
    153150(deftest misc.12
    154   (funcall
    155    (compile
    156     nil
     151  (call-compiled
    157152    '(lambda (c)
    158153             (declare (optimize (speed 3) (safety 1) (debug 1))
     
    162157                                3358)))
    163158                   (flet ((%f14 () c))
    164                          (if (%f14) -1 (%f14))))))
     159                         (if (%f14) -1 (%f14)))))
    165160   -100)
    166161  -1)
    167162
    168163(deftest misc.13
    169   (funcall
    170    (compile
    171     nil
     164  (call-compiled
    172165    '(lambda (b c)
    173166             (declare (optimize (speed 3) (safety 1) (debug 1))
     
    185178                           (if (= 1364001 (%f9))
    186179                               (logeqv (block b5 -2713) -247)
    187                                -19))))))
     180                               -19)))))
    188181   0 0)
    189182  -2)
    190183
    191184(deftest misc.14
    192   (funcall
    193    (compile
    194     nil
     185  (call-compiled
    195186    '(lambda (c)
    196187             (declare (notinline logandc1))
     
    200191                                    (if 1
    201192                                        450967818
    202                                         (let ((v1 (%f17))) -17)))))))
     193                                        (let ((v1 (%f17))) -17))))))
    203194   10)
    204195  10)
    205196
    206197(deftest misc.15
    207   (funcall
    208    (compile
    209     nil
     198  (call-compiled
    210199    '(lambda (a b)
    211200             (declare (optimize (speed 3) (safety 1) (debug 1)))
     
    215204                                       (min 17593 (block b1 (return-from b1 b)))))
    216205                                (block b7 (if (%f6) (return-from b7 28182012)
    217                                               (return-from b5 0))))))))
     206                                              (return-from b5 0)))))))
    218207   3 5)
    219208  28182012)
    220209
    221210(deftest misc.16
    222   (funcall
    223    (compile
    224     nil
     211  (call-compiled
    225212    '(lambda (a c)
    226213             (flet ((%f14 ()
     
    231218                          (flet ((%f18 () a))
    232219                                (logandc1 (return-from b1 -2781)
    233                                           (if (%f14) 58647578 -396746)))))))
     220                                          (if (%f14) 58647578 -396746))))))
    234221   1 2)
    235222  -2781)
    236223
    237224(deftest misc.17
    238   (funcall
    239    (compile
    240     nil
     225  (call-compiled
    241226    '(lambda (a b c)
    242227             (declare (optimize (speed 3) (safety 1) (debug 1))
     
    248233                   (if (if (> -71810514 a) 102077 465393)
    249234                       (block b3 (if (%f18) (return-from b3 c) c))
    250                        (%f18)))))
     235                       (%f18))))
    251236   0 10 1000)
    252237  1000)
    253238
    254239(deftest misc.18
    255   (funcall
    256    (compile
    257     nil
     240  (call-compiled
    258241    '(lambda (a b c)
    259242             (declare (optimize (speed 3) (safety 1) (debug 1))
     
    263246                      )
    264247             (flet ((%f15 () (if (logbitp 5 a) a c)))
    265                    (min (if (%f15) b -39) (if (> 0 -14756) b (%f15))))))
     248                   (min (if (%f15) b -39) (if (> 0 -14756) b (%f15)))))
    266249   8 -1000 -10000)
    267250  -1000)
    268251
    269252(deftest misc.19
    270   (funcall
    271    (compile
    272     nil
     253  (call-compiled
    273254    '(lambda (a b c)
    274255             (declare (type (integer 54 3862515) a) (type (integer -961325 1539) b)
     
    279260              (flet ((%f1 () (return-from %f1 a)))
    280261                    (labels ((%f3 () (%f1)))
    281                             -428)))))
     262                            -428))))
    282263   100 0 200)
    283264  427)
    284265
    285266(deftest misc.20
    286   (funcall
    287    (compile
    288     nil
     267  (call-compiled
    289268    '(lambda (a b c)
    290269             (declare (type (integer -1 31880308) a)
     
    296275                     (if (eql (let ((v9 (%f6))) -50072824) c)
    297276                      28146341
    298                       (if (< 119937 21304962) 21304962 (%f6))))))
     277                      (if (< 119937 21304962) 21304962 (%f6)))))
    299278   0 0 -1)
    300279  21304962)
    301280
    302281(deftest misc.21
    303   (funcall
    304    (compile
    305     nil
     282  (call-compiled
    306283    '(lambda (a b c)
    307284             (declare (type (integer 398 3955) a) (type (integer 233 464963) b)
     
    316293                    (flet ((%f9 ()
    317294                                (if (%f1) 24181 7)))
    318                           56048)))))
     295                          56048))))
    319296   400 300 0)
    320297  -3547152)
    321298
    322299(deftest misc.22
    323   (funcall
    324    (compile
    325     nil
     300  (call-compiled
    326301    '(lambda (a b c)
    327302             (declare (type (integer -126378 -103) a)
     
    337312                                           (max -73100
    338313                                                (if b (return-from b6 4935) (%f13)))))))
    339                              (%f13)))))
     314                             (%f13))))
    340315   -200 0 1000)
    341316  1000)
    342317
    343318(deftest misc.23
    344   (funcall
    345    (compile
    346     nil
     319  (call-compiled
    347320    '(lambda (a b c)
    348321             (declare (type (integer 1 18911480) a)
     
    358331                                    (return-from b7 -2)
    359332                                    246137101))
    360                              (min (%f10) (return-from b7 -76114)))))))
     333                             (min (%f10) (return-from b7 -76114))))))
    361334   1 0 -2000000)
    362335  -2)
    363336
    364337(deftest misc.24
    365   (funcall
    366    (compile
    367     nil
     338  (call-compiled
    368339    '(lambda (a b c)
    369340             (declare (type (integer -1477249397 -10697252) a)
     
    378349                                 (flet ((%f10 ()
    379350                                              (min a (return-from b3 -1))))
    380                                        16776220)))))))
     351                                       16776220))))))
    381352   -11000000 0 0)
    382353  -11000000)
    383354
    384355(deftest misc.25
    385   (funcall
    386    (compile
    387     nil
     356  (call-compiled
    388357    '(lambda (a b c)
    389358             (declare (type (integer -944 111244) a)
     
    396365                             (if (if (logbitp 10 1029643) t 355)
    397366                                 (if (equal (%f17) b) c a)
    398                                  (if (= 1325844 (%f16)) -50285 (1- (%f17))))))))
     367                                 (if (= 1325844 (%f16)) -50285 (1- (%f17)))))))
    399368   0 200000 -200)
    400369  0)
    401370
    402371(deftest misc.26
    403   (funcall
    404    (compile
    405     nil
     372  (call-compiled
    406373    '(lambda (c)
    407374             (declare (optimize speed))
     
    411378                        (flet ((%f10 () (return-from b5 -785143)))
    412379                              (let ((v3 (%f10)))
    413                                    (%f10)))))))
     380                                   (%f10))))))
    414381   0)
    415382  -785143)
    416383
    417384(deftest misc.27
    418   (funcall
    419    (compile
    420     nil
     385  (call-compiled
    421386    '(lambda (a b c)
    422387             (declare (optimize (speed 3) (debug 1)))
     
    426391                                                       (return-from %f15 -1740))))
    427392                                     (labels ((%f8 () (%f15)))
    428                                              a))))))
     393                                             a)))))
    429394   5 2 3)
    430395  1)
    431396
    432397(deftest misc.28
    433   (funcall
    434    (compile
    435     nil
     398  (call-compiled
    436399    '(lambda (a b c)
    437400          (declare
     
    442405      (logandc1 (if (eql b (%f18)) 0 a)
    443406                (if (ldb-test (byte 30 30) 1) (%f18) 1)
    444                 ))))
     407                )))
    445408   0 2000 -300)
    446409  1)
    447410
    448411(deftest misc.29
    449   (funcall
    450    (compile
    451     nil
     412  (call-compiled
    452413    '(lambda (a b c)
    453414             (declare (type (integer 661607 10451683348) a)
     
    464425                                   (let ((v5 b))
    465426                                     146099574)))))))
    466                  (if (%f16) c c)))))
     427                 (if (%f16) c c))))
    467428   1000000 -2 6000000)
    468429  6000000)
    469430
    470431(deftest misc.30
    471   (funcall
    472    (compile
    473     nil
     432  (call-compiled
    474433    '(lambda (c)
    475434             (declare (type (integer -253 -1) c)
    476435                      (optimize (speed 3) (safety 1) (debug 1)))
    477436             (flet ((%f8 () c))
    478                    (if (= (%f8) 481) (%f8) 1779465))))
     437                   (if (= (%f8) 481) (%f8) 1779465)))
    479438   -100)
    480439  1779465)
    481440
    482441(deftest misc.31
    483   (funcall
    484    (compile nil
    485             '(lambda () (let ((v9 (labels ((%f13 () nil)) nil)))
     442  (call-compiled '(lambda () (let ((v9 (labels ((%f13 () nil)) nil)))
    486443                             (let ((v3 (logandc2 97 3)))
    487                                   (* v3 (- 37391897 (logand v3 -66))))))))
     444                                  (* v3 (- 37391897 (logand v3 -66)))))))
    488445  3589619040)
    489446
    490447(deftest misc.32
    491   (funcall
    492    (compile
    493     nil
     448  (call-compiled
    494449    '(lambda (a d)
    495450             (declare (type (integer -8507 26755) a)
     
    500455              (logxor -1
    501456                      (min -7580
    502                            (max (logand a 31365125) d))))))
     457                           (max (logand a 31365125) d)))))
    503458   1 1)
    504459  1)
    505460
    506461(deftest misc.33
    507   (funcall
    508    (compile
    509     nil
     462  (call-compiled
    510463    '(lambda (a b c d)
    511464             (declare (type (integer 240 100434465) a)
     
    519472                   (if (> b c) (logandc2 c d) (if (> d 224002) 0 d))
    520473                   (signum (logior c b)))
    521                (logior a -1)))))
     474               (logior a -1))))
    522475   256 0 0 0)
    523476  55546856)
    524477
    525478(deftest misc.34
    526   (funcall
    527    (compile nil
     479  (call-compiled
    528480            `(lambda (b c)
    529481                     (declare (type (integer -23228343 2) b)
     
    533485                           (deposit-field b (byte 25 27) -30424886))
    534486                        (dpb b (byte 23 29) c)
    535                         )))
     487                        ))
    536488   0 0)
    537489  0)
    538490
    539491(deftest misc.35
    540   (funcall
    541    (compile
    542     nil
     492  (call-compiled
    543493    '(lambda (c)
    544494             (declare (type (integer -5945502333 12668542) c)
     
    548498                          (deposit-field 311
    549499                                         (byte 14 28)
    550                                          (min (max 521326 c) -51)))))))
     500                                         (min (max 521326 c) -51))))))
    551501   12668542)
    552502  26479)
    553503
    554504(deftest misc.36
    555   (funcall
    556    (compile nil
     505  (call-compiled
    557506            '(lambda ()
    558507               (declare (notinline + logand)
     
    564513                             (let ((v7 (%f1)))
    565514                                  (+ 359749 35728422))))
    566                 -24076))))
     515                -24076)))
    567516  -24284)
    568517
    569518(deftest misc.37
    570   (funcall
    571    (compile
    572     nil
     519  (call-compiled
    573520    '(lambda (b)
    574521       (declare (notinline -) (optimize (speed 0)))
     
    576523                 (flet ((%f4 ()
    577524                             (return-from b4 b)))
    578                        (%f4))))))
     525                       (%f4)))))
    579526   10)
    580527  -10)
    581528
    582529(deftest misc.38
    583   (funcall
    584    (compile
    585     nil
     530  (call-compiled
    586531    '(lambda (x) (declare (type (integer 0 100) x)
    587532                          (optimize (speed 3) (safety 1)))
    588        (logandc1 x x)))
     533       (logandc1 x x))
    589534   79)
    590535  0)
    591536
    592537(deftest misc.39
    593   (funcall
    594    (compile
    595     nil
     538  (call-compiled
    596539    '(lambda (x) (declare (type (integer 0 100) x)
    597540                          (optimize (speed 3) (safety 1)))
    598        (logandc2 x x)))
     541       (logandc2 x x))
    599542   79)
    600543  0)
    601544
    602545(deftest misc.40
    603   (funcall
    604    (compile
    605     nil
     546  (call-compiled
    606547    '(lambda (x) (declare (type (integer 0 100) x)
    607548                          (optimize (speed 3) (safety 1)))
    608        (logorc1 x x)))
     549       (logorc1 x x))
    609550   79)
    610551  -1)
    611552
    612553(deftest misc.41
    613   (funcall
    614    (compile
    615     nil
     554  (call-compiled
    616555    '(lambda (x) (declare (type (integer 0 100) x)
    617556                          (optimize (speed 3) (safety 1)))
    618        (logorc2 x x)))
     557       (logorc2 x x))
    619558   79)
    620559  -1)
    621560
    622561(deftest misc.42
    623   (funcall
    624    (compile
    625     nil
     562  (call-compiled
    626563    '(lambda (x)
    627564       (declare (type (integer -100 100) x))
    628        (ldb (byte 1 32) x)))
     565       (ldb (byte 1 32) x))
    629566   -1)
    630567  1)
    631568
    632569(deftest misc.43
    633   (funcall (compile nil
     570  (call-compiled
    634571        '(lambda () (flet ((%f2 () 288213285))
    635                       (+ (%f2) (* 13 (%f2)))))))
     572                      (+ (%f2) (* 13 (%f2))))))
    636573  4034985990)
    637574 
    638575
    639576(deftest misc.44
    640   (funcall
    641    (compile
    642     nil
     577  (call-compiled
    643578    '(lambda (a)
    644579             (declare (type (integer -917858 964754309) a)
    645580                      (optimize (speed 3)))
    646              (* 25 (min (max a 171625820) 171626138))))
     581             (* 25 (min (max a 171625820) 171626138)))
    647582   861929141)
    648583  4290653450)
    649584
    650585(deftest misc.45
    651   (funcall
    652    (compile
    653     nil
     586  (call-compiled
    654587    '(lambda (b)
    655588             (declare (type (integer 21 9673) b)
    656589                      (optimize (speed 3)))
    657              (* (integer-length -198435631) (+ b 137206182))))
     590             (* (integer-length -198435631) (+ b 137206182)))
    658591   6027)
    659592  3841941852)
    660593
    661594(deftest misc.46
    662   (funcall
    663    (compile
    664     nil
     595  (call-compiled
    665596    '(lambda (b c)
    666597             (declare (type (integer 0 1) b) (optimize (speed 3)))
     
    668599                   (if (not (or (= -67399 b) b))
    669600                       (deposit-field (%f2) (byte 11 8) -3)
    670                        c))))
     601                       c)))
    671602   0 0)
    672603  0)
    673604
    674605(deftest misc.47
    675   (funcall
    676    (compile
    677     nil
     606  (call-compiled
    678607    '(lambda (a)
    679608             (declare (type (integer -4005718822 -50081775) a)
    680609                      (optimize (speed 3) (safety 1) (debug 1)))
    681              (lognor (ash a (min 0 a)) a)))
     610             (lognor (ash a (min 0 a)) a))
    682611   -2878148992)
    683612  0)
    684613
    685614(deftest misc.48
    686   (funcall
    687    (compile
    688     nil
    689     '(lambda (a) (declare (notinline ash min)) (lognor (ash a (min 0 a)) a)))
     615  (call-compiled
     616    '(lambda (a) (declare (notinline ash min)) (lognor (ash a (min 0 a)) a))
    690617   -2878148992)
    691618  0)
     
    695622        (arg 25337234))
    696623    (values
    697      (funcall (compile nil `(lambda (c) ,body)) arg)
    698      (funcall (compile nil `(lambda (c) (declare (notinline truncate))
    699                               ,body)) arg)))
     624     (call-compiled `(lambda (c) ,body) arg)
     625     (call-compiled `(lambda (c) (declare (notinline truncate))
     626                              ,body) arg)))
    700627  -13099001
    701628  -13099001)
    702629
    703630(deftest misc.50
    704   (funcall (compile nil `(lambda (c)
     631  (call-compiled `(lambda (c)
    705632                           (declare (optimize (speed 3))
    706633                                    (type (integer 23062188 149459656) c))
    707                            (mod c (min -2 0))))
     634                           (mod c (min -2 0)))
    708635           95019853)
    709636  -1)
    710637
    711638(deftest misc.51
    712   (funcall (compile nil `(lambda (b)
     639  (call-compiled  `(lambda (b)
    713640                           (declare (optimize (speed 3))
    714641                                    (type (integer 2 152044363) b))
    715                             (rem b (min -16 0))))
     642                            (rem b (min -16 0)))
    716643           108251912)
    717644  8)
    718645 
    719646(deftest misc.53
    720   (funcall
    721    (compile nil '(lambda ()
     647  (call-compiled '(lambda ()
    722648                   (let (x)
    723649                     (block nil
     
    725651                         (%f 1 2)
    726652                         (%f (return 14) 2)))
    727                      x))))
     653                     x)))
    728654  2)
    729655
    730656(deftest misc.54
    731   (funcall
    732    (compile nil '(lambda (a c)
     657  (call-compiled '(lambda (a c)
    733658                   (declare (type (integer 8 117873977) a)
    734659                            (type (integer -131828754 234037511) c)
     
    736661                   (* (mod (signum a) (max 50 -358301))
    737662                      (* -2320445737132
    738                          (* (* a (deposit-field a (byte 32 19) a)) c)))))
     663                         (* (* a (deposit-field a (byte 32 19) a)) c))))
    739664   11386 165297671)
    740665  -49725654774521915007942373712)
    741666
    742667(deftest misc.55
    743   (funcall
    744    (compile nil '(lambda (a b c)
     668  (call-compiled '(lambda (a b c)
    745669                   (declare (type (integer -5498929 389890) a)
    746670                            (type (integer -5029571274946 48793670) b)
     
    753677                         (mod c (min -49 (if t (return-from b2 1582) b))))
    754678                       (labels ((%f14 () (mod a (max 76 8))))
    755                          b)))))
     679                         b))))
    756680   -1893077 -2965238893954 30902744890)
    757681  2965238894454)
    758682
    759683(deftest misc.56
    760   (funcall
    761    (compile nil '(lambda (a c)
     684  (call-compiled '(lambda (a c)
    762685                   (declare (type (integer -8691408487404 -9) a)
    763686                            (type (integer 266003133 2112105962) c)
    764687                            (optimize (speed 3) (safety 1) (debug 1)))
    765                    (truncate (max (round a) c) (* (* a a) a))))
     688                   (truncate (max (round a) c) (* (* a a) a)))
    766689   -10 266003133)
    767690  -266003
     
    769692
    770693(deftest misc.57
    771   (funcall
    772    (compile nil '(lambda (a b c)
     694  (call-compiled '(lambda (a b c)
    773695                         (declare (type (integer -1907 58388940297) a)
    774696                                  (type (integer -646968358 294016) b)
     
    776698                                  (optimize (speed 3) (safety 1) (debug 1)))
    777699                         (let ((v6 (abs (min a (signum c)))))
    778                               (if (ceiling v6 (max 77 v6)) b 2))))
     700                              (if (ceiling v6 (max 77 v6)) b 2)))
    779701   50005747335 -363030456 17382819)
    780702  -363030456)
    781703
    782704(deftest misc.58
    783   (funcall
    784    (compile nil '(lambda (a)
     705  (call-compiled '(lambda (a)
    785706                   (declare (type (integer -23 66141285) a)
    786707                            (optimize (speed 3)))
    787                    (logorc2 (setq a 35191330) (* a 107))))
     708                   (logorc2 (setq a 35191330) (* a 107)))
    788709   4099241)
    789710  -3764388885)
    790711
    791712(deftest misc.59
    792   (funcall
    793    (compile nil '(lambda (a b c)
     713  (call-compiled '(lambda (a b c)
    794714                   (declare (type (integer -3966039360 -879349) a)
    795715                            (type (integer -62642199164 -8993827395) b)
     
    797717                            (optimize (speed 3) (safety 1) (debug 1)))
    798718                   (floor (* (ceiling c) c)
    799                           (max 78 (* b (* a (* a b)))))))
     719                          (max 78 (* b (* a (* a b))))))
    800720   -1000000 -10000000000 0)
    801721  0 0)
    802722
    803723(deftest misc.60
    804   (funcall
    805     (compile nil
     724  (call-compiled
    806725             '(lambda ()
    807726                (let ((v5 46660))
    808                   (setq v5 (signum (rem v5 (max 53 v5))))))))
     727                  (setq v5 (signum (rem v5 (max 53 v5)))))))
    809728  0)
    810729
     
    822741
    823742(deftest misc.62
    824   (funcall (compile nil '(lambda (a)
     743  (call-compiled '(lambda (a)
    825744                (if (and (if a t nil) nil)
    826745                    a
    827                   (min (block b5 -1) a))))
     746                  (min (block b5 -1) a)))
    828747           100)
    829748  -1)
     
    838757         (form2 `(lambda (b c) ,form))
    839758         (vals '(-696742851945 686256271)))
    840     (eqlt (apply (compile nil form1) vals)
    841           (apply (compile nil form2) vals)))
     759    (eqlt (apply-compiled form1 vals)
     760          (apply-compiled form2 vals)))
    842761  t)
    843762
     
    854773         (vals '(11292))
    855774         )
    856     (eqlt (apply (compile nil form1) vals)
    857           (apply (compile nil form2) vals)))
     775    (eqlt (apply-compiled form1 vals)
     776          (apply-compiled form2 vals)))
    858777  t)
    859778
     
    866785                  (logandc2 c (if (< b (setq b -25647585550)) b 0))))
    867786        (vals '(-297090677547 -20121092)))
    868     (eqlt (apply (compile nil form1) vals)
    869           (apply (compile nil form2) vals)))
     787    (eqlt (apply-compiled form1 vals)
     788          (apply-compiled form2 vals)))
    870789  t)
    871790
     
    880799         (form2 `(lambda (a b) ,form))
    881800         (vals '(-2095414787 -256985442)))
    882     (eqlt (apply (compile nil form1) vals)
    883           (apply (compile nil form2) vals)))
     801    (eqlt (apply-compiled form1 vals)
     802          (apply-compiled form2 vals)))
    884803  t)
    885804
    886805;;; sbcl/cmucl bug (on sparc)
    887806(deftest misc.67
    888   (funcall
    889     (compile nil '(lambda (x)
     807  (call-compiled '(lambda (x)
    890808                    (declare (type (integer 10604862 10604862) x)
    891809                             (optimize speed))
    892                     (* x 390)))
     810                    (* x 390))
    893811    10604862)
    894812  4135896180)
     
    896814;;; cmucl bug (cvs, 10/10/2003)
    897815(deftest misc.68
    898   (funcall
    899    (compile nil
     816  (call-compiled
    900817            '(lambda (b)
    901818               (flet ((%f8 () (rem b (identity (return-from %f8 0)))))
    902                  (lognor (%f8) 0))))
     819                 (lognor (%f8) 0)))
    903820   0)
    904821  -1)
    905822
    906823(deftest misc.69
    907   (funcall
    908    (compile nil
     824  (call-compiled
    909825            '(lambda (b)
    910826               (flet ((%f11 () (logorc2 (block b1 (let () (return-from b1 b)))
    911827                                        -1984)))
    912                  b)))
     828                 b))
    913829   0)
    914830  0)
    915831
    916832(deftest misc.70
    917   (funcall
    918    (compile nil '(lambda (c)
     833  (call-compiled '(lambda (c)
    919834                   (declare (type (integer 46156191457 126998564334) c))
    920                    (truncate c (min -16 186196583))))
     835                   (truncate c (min -16 186196583)))
    921836   87723029763)
    922837  -5482689360
     
    924839
    925840(deftest misc.71
    926   (funcall
    927    (compile nil
     841  (call-compiled
    928842            '(lambda ()
    929843               (block b8
     
    933847                    (block b5
    934848                      (labels ((%f10 () (min -52 (return-from b5 10))))
    935                         20))))))))
     849                        20)))))))
    936850  30)
    937851
    938852(deftest misc.72
    939   (funcall
    940    (compile nil '(lambda ()
     853  (call-compiled '(lambda ()
    941854                   (flet ((%f13 () (rem 1 (min 0 (return-from %f13 17)))))
    942                      (%f13)))))
     855                     (%f13))))
    943856  17)
    944857
    945858(deftest misc.73
    946   (funcall
    947    (compile nil '(lambda (c)
     859  (call-compiled '(lambda (c)
    948860                   (declare (type (integer 46156191457 126998564334) c))
    949                    (rem c (min -1 0))))
     861                   (rem c (min -1 0)))
    950862   87723029763)
    951863  0)
    952864
    953865(deftest misc.74
    954   (funcall (compile nil '(lambda ()
     866  (call-compiled '(lambda ()
    955867                           (declare (optimize (safety 3) (speed 0) (debug 0)))
    956                            (ash 6916244 (min 42 -185236061640)))))
     868                           (ash 6916244 (min 42 -185236061640))))
    957869  0)
    958870
     
    961873
    962874(deftest misc.75
    963   (funcall (compile nil '(lambda () (flet ((%f12 () (unwind-protect 1))) 0))))
     875  (call-compiled '(lambda () (flet ((%f12 () (unwind-protect 1))) 0)))
    964876  0)
    965877
     
    967879;;; cmucl (2003-10-12), "NIL is not of type C::REF"
    968880(deftest misc.76
    969   (funcall
    970    (compile nil
     881  (call-compiled
    971882            '(lambda (a c)
    972883                (if nil (unwind-protect (max 521739 (unwind-protect c)))
    973                   (logandc2 3942 a))))
     884                  (logandc2 3942 a)))
    974885   0 0)
    975886  3942)
     
    977888;;; gcl (2003-10-11)  Miscomputation of (mod 0 -53) in compiled code
    978889(deftest misc.77
    979   (funcall (compile nil '(lambda () (mod 0 -53))))
     890  (call-compiled '(lambda () (mod 0 -53)))
    980891  0)
    981892
     
    983894;;; cmucl (2003-10-12)  "NIL is not of type C::BYTE-LAMBDA-INFO"
    984895(deftest misc.78
    985   (funcall
    986    (compile nil '(lambda ()
     896  (call-compiled '(lambda ()
    987897                   (declare (optimize (speed 0) (debug 0)))
    988898                   (let ((v4
     
    990900                            ((-11113 -106126) (unwind-protect 8473))
    991901                            (t 43916))))
    992                      -12))))
     902                     -12)))
    993903  -12)
    994904
     
    996906;;; In cmucl (2003-10-12)  "NIL is not of type C::ENVIRONMENT"
    997907(deftest misc.79
    998   (funcall
    999    (compile nil '(lambda ()
     908  (call-compiled '(lambda ()
    1000909                   (let ((v4
    1001910                          (case 227
    1002911                            ((-11113 -106126) (unwind-protect 8473))
    1003912                            (t 43916))))
    1004                      -12))))
     913                     -12)))
    1005914  -12)
    1006915
    1007916(deftest misc.79a
    1008   (funcall
    1009    (compile
    1010     nil
     917  (call-compiled
    1011918    '(lambda (a b)
    1012919       (declare (type (integer 72504 351460) a))
     
    1016923       (if (or (or (/= b 0) (logbitp 0 0)) (logbitp 0 a))
    1017924           0
    1018          (funcall (constantly 0) b 0 (catch 'ct4 b)))))
     925         (funcall (constantly 0) b 0 (catch 'ct4 b))))
    1019926   132318 12238)
    1020927  0)
     
    1023930;;; cmucl (2003-10-12) "Invalid number of arguments: 2"
    1024931(deftest misc.80
    1025   (funcall
    1026    (compile nil
     932  (call-compiled
    1027933            '(lambda (b c)
    1028934               (declare (notinline > logior imagpart))
     
    1033939                                 (logeqv (logior -122516 (if (> -1 0) (return-from b3 c) b))
    1034940                                         (return-from %f16 32186310))))))
    1035                  (lognor (%f16) b))))
     941                 (lognor (%f16) b)))
    1036942   -123886 -1656)
    1037943  57385)
     
    1039945;;; cmucl (2003-10-12) "NIL is not of type C::REF"
    1040946(deftest misc.81
    1041   (funcall
    1042    (compile nil '(lambda (b)
     947  (call-compiled '(lambda (b)
    1043948                   (block b7
    1044949                     (let ((v3 (return-from b7 b)))
    1045                        (unwind-protect b)))))
     950                       (unwind-protect b))))
    1046951   17)
    1047952  17)
     
    1049954;;; cmucl (2003-10-12) "The assertion C::SUCC failed"
    1050955(deftest misc.82
    1051   (funcall
    1052    (compile nil '(lambda (c)
     956  (call-compiled '(lambda (c)
    1053957                   (labels ((%f15 ()
    1054958                                  (* (unwind-protect c)
    1055959                                     (max -5726369
    1056960                                          (return-from %f15 3099206)))))
    1057                      c)))
     961                     c))
    1058962   0)
    1059963  0)
     
    1061965;;; cmucl (2003-10-13) "The assertion (NOT (C::BLOCK-DELETE-P BLOCK)) failed."
    1062966(deftest misc.83
    1063   (funcall
    1064    (compile nil '(lambda (a c)
     967  (call-compiled '(lambda (a c)
    1065968                   (flet ((%f8 () (min c (min a (return-from %f8 c)))))
    1066                      c)))
     969                     c))
    1067970   0 -10)
    1068971  -10)
    1069972
    1070973(deftest misc.84
    1071   (funcall
    1072    (compile nil '(lambda (a b)
     974  (call-compiled '(lambda (a b)
    1073975                   (flet ((%f18 ()
    1074976                                (let ()
     
    1076978                                    (if (ldb-test (byte 20 23) b) a
    1077979                                      (return-from %f18 431))))))
    1078                      -674)))
     980                     -674))
    1079981   0 0)
    1080982  -674)
    1081983
    1082984(deftest misc.85
    1083   (funcall
    1084    (compile nil
     985  (call-compiled
    1085986            '(lambda (c)
    1086987               (labels ((%f14 ()
     
    1088989                                (logandc1 (min -32 (return-from %f14 -69793))
    1089990                                          c))))
    1090                      156)))
     991                     156))
    1091992   0)
    1092993  156)
     
    1094995;;; Two tests showing bug(s) in clisp (2.31)
    1095996(deftest misc.86
    1096   (funcall (compile nil '(lambda (b)
     997  (call-compiled '(lambda (b)
    1097998                           (flet ((%f10 nil :bad))
    1098999                             (let ((v7 (let ((v2 (%f10))) b)))
    1099                                (unwind-protect b)))))
     1000                               (unwind-protect b))))
    11001001           :good)
    11011002  :good)
    11021003
    11031004(deftest misc.87
    1104   (apply (compile nil '(lambda (a b c)
     1005  (apply-compiled '(lambda (a b c)
    11051006                         (let ((v9 a))
    11061007                           (let ((v2 (setq v9 c)))
    1107                              (unwind-protect c)))))
     1008                             (unwind-protect c))))
    11081009         '(x y z))
    11091010  z)
     
    11261027;;; Here, the function were the problem occurs is -
    11271028(deftest misc.89
    1128   (funcall
    1129    (compile nil
     1029  (call-compiled
    11301030            '(lambda (c)
    11311031               (declare (type (integer 0 130304) c))
    11321032               (- (rem -26 (max 25 (load-time-value 505849129)))
    1133                   (* -15718867961526428520296254978781964 c))))
     1033                  (* -15718867961526428520296254978781964 c)))
    11341034   0)
    11351035  -26)
     
    11371037;;; Here, it is MAX
    11381038(deftest misc.89a
    1139   (funcall
    1140    (compile
    1141     nil
     1039  (call-compiled
    11421040    '(lambda (a b c d)
    11431041       (declare (type (integer -265115792172 -206231862770) a))
     
    11491047        (optimize (safety 1) (space 1) (compilation-speed 2)
    11501048                  (debug 0) (speed 2)))
    1151        (- (signum (catch 'ct6 0)) (numerator (* -1303 d -20527703 d c)))))
     1049       (- (signum (catch 'ct6 0)) (numerator (* -1303 d -20527703 d c))))
    11521050   -261283766805 41605749408 5110 1269102278886)
    11531051  -220139978315039892599545286437019126040)
     
    11551053;;; Here, it is MOD
    11561054(deftest misc.89b
    1157   (funcall
    1158    (compile
    1159     nil
     1055  (call-compiled
    11601056    '(lambda (a b c d)
    11611057       (declare (type (integer -481454219025 239286093202) a))
     
    11661062       (declare (optimize (speed 2) (compilation-speed 1) (space 1)
    11671063                          (safety 3) (debug 2)))
    1168        (floor (load-time-value 0) (min -18 (* a c b -12626)))))
     1064       (floor (load-time-value 0) (min -18 (* a c b -12626))))
    11691065   -78545446876 -460518205737 -38885914099 1598305189)
    11701066  0 0)
     
    11811077                 ,form))
    11821078         (fn2 `(lambda (b c) ,form)))
    1183     (let ((v1 (funcall (compile nil fn1) -76071 0))
    1184           (v2 (funcall (compile nil fn2) -76071 0))
     1079    (let ((v1 (call-compiled fn1 -76071 0))
     1080          (v2 (call-compiled fn2 -76071 0))
    11851081          (v3 (funcall (eval `(function ,fn2)) -76071 0)))
    11861082      (if (= v1 v2 v3) :good
     
    11931089                (ash -10 (min 8 -481))))
    11941090        (fn2 '(lambda () (ash -10 (min 8 -481)))))
    1195     (let ((v1 (funcall (compile nil fn1)))
    1196           (v2 (funcall (compile nil fn2)))
     1091    (let ((v1 (call-compiled fn1))
     1092          (v2 (call-compiled fn2))
    11971093          (v3 (funcall (eval `(function ,fn2)))))
    11981094      (if (= v1 v2 v3)
     
    12101106         (fn2 `(lambda (b c) ,form))
    12111107         (vals '(26291532469 -21)))
    1212     (let ((v1 (apply (compile nil fn1) vals))
    1213           (v2 (apply (compile nil fn2) vals))
     1108    (let ((v1 (apply-compiled fn1 vals))
     1109          (v2 (apply-compiled fn2 vals))
    12141110          (v3 (apply (eval `(function ,fn2)) vals)))
    12151111      (if (= v1 v2 v3)
     
    12281124         (fn2 `(lambda (a b c) ,form))
    12291125         (vals '(-123 -1 2590941967601)))
    1230     (eqlt (apply (compile nil fn1) vals)
    1231           (apply (compile nil fn2) vals)))
     1126    (eqlt (apply-compiled fn1 vals)
     1127          (apply-compiled fn2 vals)))
    12321128  t)
    12331129
    12341130(deftest misc.94
    1235   (not (funcall
    1236         (compile nil '(lambda ()
     1131  (not (call-compiled '(lambda ()
    12371132                        (declare (optimize (speed 3) (safety 1) (debug 1)))
    12381133                        (<= 268435280
    12391134                            (load-time-value
    1240                              39763134374436777607194165739302560271120000))))))
     1135                             39763134374436777607194165739302560271120000)))))
    12411136  nil)
    12421137
     
    12511146         (fn2 `(lambda (a b c) ,form))
    12521147         (vals '(601739317 10891850 17452477960)))
    1253     (let ((v1 (apply (compile nil fn1) vals))
    1254           (v2 (apply (compile nil fn2) vals)))
     1148    (let ((v1 (apply-compiled fn1 vals))
     1149          (v2 (apply-compiled fn2 vals)))
    12551150      (if (eql v1 v2)
    12561151          :good
     
    12681163         (fn2 `(lambda (b c) ,form))
    12691164         (vals '(90244278480 -338)))
    1270     (let ((v1 (apply (compile nil fn1) vals))
    1271           (v2 (apply (compile nil fn2) vals)))
     1165    (let ((v1 (apply-compiled fn1 vals))
     1166          (v2 (apply-compiled fn2 vals)))
    12721167      (if (eql v1 v2)
    12731168          :good
     
    12851180         (fn2 `(lambda (b c) ,form))
    12861181         (vals '(321769 1073671227)))
    1287     (let ((v1 (apply (compile nil fn1) vals))
    1288           (v2 (apply (compile nil fn2) vals)))
     1182    (let ((v1 (apply-compiled fn1 vals))
     1183          (v2 (apply-compiled fn2 vals)))
    12891184      (if (eql v1 v2)
    12901185          :good
     
    12951190
    12961191(deftest misc.98
    1297   (funcall (compile nil '(lambda (x)
     1192  (call-compiled '(lambda (x)
    12981193                           (declare (type (integer -1000000 1000000) x))
    1299                            (logand x x 0)))
     1194                           (logand x x 0))
    13001195           12345)
    13011196  0)
    13021197
    13031198(deftest misc.99
    1304   (funcall
    1305    (compile nil '(lambda (a)
     1199  (call-compiled '(lambda (a)
    13061200                   (declare (type (integer 4303063 101130078) a))
    1307                    (mask-field (byte 18 2) (ash a 77))))
     1201                   (mask-field (byte 18 2) (ash a 77)))
    13081202   57132532)
    13091203  0)
    13101204
    13111205(deftest misc.100
    1312   (funcall (compile nil '(lambda (c)
     1206  (call-compiled '(lambda (c)
    13131207                           (declare (type (integer -3924 1001809828) c))
    13141208                           (declare (optimize (speed 3)))
    13151209                           (min 47 (if (ldb-test (byte 2 14) c)
    13161210                                       -570344431
    1317                                      (ignore-errors -732893970)))))
     1211                                     (ignore-errors -732893970))))
    13181212           705347625)
    13191213  -570344431)
    13201214
    13211215(deftest misc.101
    1322   (funcall
    1323    (compile nil '(lambda (a c)
     1216  (call-compiled '(lambda (a c)
    13241217                   (declare (type (integer 185501219873 303014665162) a))
    13251218                   (declare (type (integer -160758 255724) c))
     
    13311224                     (max (ignore-errors a)
    13321225                          (let ((v6 (- v8 (restart-case 980))))
    1333                             (min v8 v6))))))
     1226                            (min v8 v6)))))
    13341227   259448422916 173715)
    13351228  259448422916)
    13361229
    13371230(deftest misc.102
    1338   (funcall
    1339    (compile nil '(lambda (b)
     1231  (call-compiled '(lambda (b)
    13401232                   (declare (type (integer -1598566306 2941) b))
    13411233                   (declare (optimize (speed 3)))
    1342                    (max -148949 (ignore-errors b))))
     1234                   (max -148949 (ignore-errors b)))
    13431235   0)
    13441236  0)
    13451237
    13461238(deftest misc.103
    1347   (funcall
    1348    (compile nil '(lambda (a b)
     1239  (call-compiled '(lambda (a b)
    13491240                   (min -80
    13501241                        (abs
     
    13551246                                      (return-from b6
    13561247                                        (load-time-value -6876935))))
    1357                             (if (logbitp 1 a) b (setq a -1522022182249))))))))
     1248                            (if (logbitp 1 a) b (setq a -1522022182249)))))))
    13581249   -1802767029877 -12374959963)
    13591250  -80)
    13601251
    13611252(deftest misc.104
    1362   (funcall
    1363    (compile nil '(lambda (a) (declare (type (integer 55400028 60748067) a))
    1364                    (lognand 1505 (ash a (let () 40)))))
     1253  (call-compiled '(lambda (a) (declare (type (integer 55400028 60748067) a))
     1254                   (lognand 1505 (ash a (let () 40))))
    13651255   58194485)
    13661256  -1)
    13671257
    13681258(deftest misc.105
    1369   (funcall
    1370    (compile nil '(lambda (b c)
     1259  (call-compiled '(lambda (b c)
    13711260                   (declare (type (integer -4 -3) c))
    13721261                   (block b7
     
    13771266                                   99345)))
    13781267                       (let ((v2 (%f1 -2464 (%f1 -1146 c c) -2)))
    1379                          b)))))
     1268                         b))))
    13801269   2950453607 -4)
    13811270  -815145134)
     
    13951284 ;;; "The value NIL is not of type SB-C::IR2-LVAR." (sbcl 0.8.4.40)
    13961285(deftest misc.107
    1397   (funcall
    1398    (compile nil
     1286  (call-compiled
    13991287            '(lambda (b c)
    14001288               (declare (type (integer -29742055786 23602182204) b))
     
    14061294                                (ignore-errors (return-from b6
    14071295                                                 (if (= c 8) b 82674))))))
    1408                   (%f2)))))
     1296                  (%f2))))
    14091297   22992834060 -5833)
    14101298  82674 0)
     
    14121300;;; "The value NIL is not of type SB-C::IR2-LVAR." (sbcl 0.8.10.15)
    14131301(deftest misc.107a
    1414   (funcall
    1415    (compile
    1416     nil
     1302  (call-compiled
    14171303    '(lambda ()
    14181304       (declare
     
    14241310                (f14-4 0))
    14251311               (dotimes (iv2 0 0) (progn f14-2))))
    1426          (apply #'%f14 0 0 0 nil)))))
     1312         (apply #'%f14 0 0 0 nil))))
    14271313  0)
    14281314
     
    14301316
    14311317(deftest misc.107b
    1432   (funcall
    1433    (compile
    1434     nil
     1318  (call-compiled
    14351319    '(lambda (a b c)
    14361320       (declare (type (integer 7215 1030625885) a))
     
    14581342                            ((34 35 64 61 47) 39)
    14591343                            ((58) a)
    1460                             (t 131788)))))))))))))
     1344                            (t 131788))))))))))))
    14611345   734649164 -3343 -2306504518)
    14621346  0)
    14631347
    14641348(deftest misc.107c
    1465   (funcall
    1466    (compile
    1467     nil
     1349  (call-compiled
    14681350    '(lambda (c)
    14691351       (declare (optimize (speed 2) (space 1) (safety 1) (debug 3)
     
    14721354               (unwind-protect 0 (the integer (ash 2914825 (min 8 c))))))
    14731355         (declare (special *s6*))
    1474          0)))
     1356         0))
    14751357   -105)
    14761358  0)
    14771359
    14781360(deftest misc.107d
    1479   (funcall
    1480    (compile
    1481     nil
     1361  (call-compiled
    14821362    '(lambda (a b)
    14831363       (declare (optimize (speed 1) (space 1) (safety 1) (debug 3)
     
    14901370              ((-31 -150) a)
    14911371              (t b)))
    1492           (throw 'ct4 0)))))
     1372          (throw 'ct4 0))))
    14931373   10 20)
    14941374  0)
    14951375
    14961376(deftest misc.107e
    1497   (funcall
    1498    (compile
    1499     nil
     1377  (call-compiled
    15001378    '(lambda (a)
    15011379       (declare (optimize (speed 1) (space 0) (safety 1)
    15021380                          (debug 3) (compilation-speed 1)))
    15031381       (flet ((%f11 (&key (key1 (the integer (- a 245241933)))) 0))
    1504          (%f11))))
     1382         (%f11)))
    15051383   1)
    15061384  0)
     
    15091387
    15101388(deftest misc.108
    1511   (funcall
    1512    (compile nil '(lambda (b)
    1513                    (block b7 (- b (ignore-errors (return-from b7 57876))))))
     1389  (call-compiled '(lambda (b)
     1390                   (block b7 (- b (ignore-errors (return-from b7 57876)))))
    15141391   10)
    15151392  57876)
     
    15171394;;; "The assertion (C::CONSTANT-CONTINUATION-P C::CONT) failed." (cmucl)
    15181395(deftest misc.109
    1519   (funcall (compile
    1520             nil
     1396  (call-compiled
    15211397            '(lambda ()
    15221398               (load-time-value
     
    15271403                         (return-from b5
    15281404                           (ignore-errors (unwind-protect
    1529                                               (return-from b5 0))))))))))))
     1405                                              (return-from b5 0)))))))))))
    15301406  -27)
    15311407
     
    15331409;;; NIL fell through ETYPECASE expression.  Wanted one of (C:FIXUP X86::EA C:TN).
    15341410(deftest misc.110
    1535   (funcall
    1536    (compile nil
     1411  (call-compiled
    15371412            '(lambda (c)
    15381413               (declare (type (integer -1441970837 -427) c))
    15391414               (declare (optimize (speed 3)))
    1540                (block b7 (abs (min c (ignore-errors (return-from b7 c)))))))
     1415               (block b7 (abs (min c (ignore-errors (return-from b7 c))))))
    15411416   -500)
    15421417  -500)
     
    15471422
    15481423(deftest misc.110a
    1549   (funcall
    1550    (compile
    1551     nil
     1424  (call-compiled
    15521425    '(lambda (a b c d e f)
    15531426       (declare (type (integer -1294746569 1640996137) a))
     
    15771450                            0))))
    15781451             0
    1579            0))))
     1452           0)))
    15801453   391833530 36648101240 -32785211 91893 -4124561581760 1358)
    15811454  0)
     
    15841457
    15851458(deftest misc.111
    1586   (funcall
    1587    (compile nil
     1459  (call-compiled
    15881460            '(lambda (a c)
    15891461               (if (or (ldb-test (byte 12 18) a)
    15901462                       (not (and t (not (if (not (and c t)) nil nil)))))
    1591                    170 -110730)))
     1463                   170 -110730))
    15921464   3035465333 1919088834)
    15931465  170)
     
    15961468
    15971469(deftest misc.112
    1598   (funcall
    1599    (compile nil '(lambda (a)
     1470  (call-compiled '(lambda (a)
    16001471                   (declare (type (integer -944 -472) a))
    16011472                   (declare (optimize (speed 3)))
     
    16041475                      (return-from b3
    16051476                        (if (= 55957 a) -117 (ignore-errors
    1606                                                (return-from b3 a))))))))
     1477                                               (return-from b3 a)))))))
    16071478   -589)
    16081479  -589 0)
     
    16111482
    16121483(deftest misc.113
    1613   (funcall
    1614    (compile nil '(lambda (b c)
     1484  (call-compiled '(lambda (b c)
    16151485                   (if (or (ldb-test (byte 8 10) b) t)
    16161486                       c
     
    16181488                          (flet ((%f3 (f3-1 f3-2)
    16191489                                      f3-1))
    1620                             (multiple-value-call #'%f3 (values b 107)))))))
     1490                            (multiple-value-call #'%f3 (values b 107))))))
    16211491   -238 -23658556)
    16221492  -23658556)
     
    16251495
    16261496(deftest misc.114
    1627   (funcall
    1628    (compile nil
     1497  (call-compiled
    16291498            '(lambda (a b)
    16301499               (unwind-protect
     
    16381507                               (if (not (not (if (not nil) t (ldb-test (byte 2 27) 253671809))))
    16391508                                   (return-from b2 -22)
    1640                                  (%f1))))))))
     1509                                 (%f1)))))))
    16411510   777595384624 -1510893868)
    16421511  777595384624)
     
    16451514
    16461515(deftest misc.115
    1647   (funcall
    1648    (compile nil
     1516  (call-compiled
    16491517            '(lambda (a b c)
    16501518               (declare (type (integer 0 1000) a b c))
    16511519               (if (and (if b (not (and (not (or a t)) nil)) nil)
    16521520                        (logbitp 6 c))
    1653                    c b)))
     1521                   c b))
    16541522   0 100 600)
    16551523  600)
    16561524
    16571525(deftest misc.116
    1658   (funcall
    1659    (compile nil
     1526  (call-compiled
    16601527            '(lambda (a c)
    16611528               (declare (type (integer 0 1000) a c))
    16621529               (if (if (and (not (and (not (or a t)) nil)) t) c nil)
    1663                    91 -1725615)))
     1530                   91 -1725615))
    16641531   0 0)
    16651532  91)
    16661533
    16671534(deftest misc.117
    1668   (funcall
    1669    (compile nil
     1535  (call-compiled
    16701536            '(lambda (a c)
    16711537               (declare (type (integer 0 1000) a c))
    16721538               (if (or c (not (or nil (not (and (not (or a t)) nil)))))
    1673                    373146181 115)))
     1539                   373146181 115))
    16741540   0 0)
    16751541  373146181)
    16761542
    16771543(deftest misc.118
    1678   (funcall
    1679    (compile nil '(lambda (a)
     1544  (call-compiled '(lambda (a)
    16801545                   (declare (type (integer 0 10000) a))
    1681                    (if (or (or nil (not (or (not (or a nil)) t))) a) a 9376)))
     1546                   (if (or (or nil (not (or (not (or a nil)) t))) a) a 9376))
    16821547   0)
    16831548  0)
    16841549
    16851550(deftest misc.119
    1686   (funcall
    1687    (compile
    1688     nil
     1551  (call-compiled
    16891552    '(lambda ()
    16901553       (if (and (if (1+ 0) nil (not (and (not (and (<= 3) nil)) nil)))
    16911554                (if (= -31) -20 -2371))
    1692            1493 39720))))
     1555           1493 39720)))
    16931556  39720)
    16941557
    16951558(deftest misc.120
    1696   (funcall
    1697    (compile
    1698     nil
     1559  (call-compiled
    16991560    '(lambda (c)
    17001561       (declare (type (integer 377036 4184626) c))
    17011562       (if (or (and t (not (and (not (and c nil)) nil))) nil)
    1702            3470653 c)))
     1563           3470653 c))
    17031564   1000000)
    17041565  3470653)
    17051566
    17061567(deftest misc.121
    1707   (funcall
    1708    (compile
    1709     nil
     1568  (call-compiled
    17101569    '(lambda (a b c)
    1711        (if (and (and -92220 (not (and (not (or c nil)) nil))) a) b b)))
     1570       (if (and (and -92220 (not (and (not (or c nil)) nil))) a) b b))
    17121571   2000000 150000 -1)
    17131572  150000)
     
    17151574;;; CAR: #:G243 is not a LIST
    17161575(deftest misc.122
    1717   (funcall
    1718    (compile
    1719     nil
     1576  (call-compiled
    17201577    '(lambda (a b c)
    17211578       (declare (type (integer 2872749 5754655) a))
     
    17311588                                (return-from b3 -3114)
    17321589                              (ignore-errors 7)
    1733                               ))))))
     1590                              )))))
    17341591   3000000 30000000 600000)
    17351592  15978)
     
    17511608                        (multiple-value-call #'%f7 (values b 2))))))
    17521609         (vals '(1439719153))
    1753          (v1 (apply (compile nil fn1) vals))
    1754          (v2 (apply (compile nil fn2) vals)))
     1610         (v1 (apply-compiled fn1 vals))
     1611         (v2 (apply-compiled fn2 vals)))
    17551612    (if (eql v1 v2) :good (list v1 v2)))
    17561613  :good)
     
    17711628                        (funcall #'%f7 b 2)))))
    17721629         (vals '(1439719153))
    1773          (v1 (apply (compile nil fn1) vals))
    1774          (v2 (apply (compile nil fn2) vals)))
     1630         (v1 (apply-compiled fn1 vals))
     1631         (v2 (apply-compiled fn2 vals)))
    17751632    (if (eql v1 v2) :good (list v1 v2)))
    17761633  :good)
     
    17921649                        (%f7 b 2)))))
    17931650         (vals '(1439719153))
    1794          (v1 (apply (compile nil fn1) vals))
    1795          (v2 (apply (compile nil fn2) vals)))
     1651         (v1 (apply-compiled fn1 vals))
     1652         (v2 (apply-compiled fn2 vals)))
    17961653    (if (eql v1 v2) :good (list v1 v2)))
    17971654  :good)
     
    18011658
    18021659(deftest misc.126
    1803   (funcall
    1804    (compile
    1805     nil
     1660  (call-compiled
    18061661    '(lambda ()
    18071662       (declare (special *should-always-be-true*))
     
    18141669                             (f10-3 (cl:handler-case 10)))
    18151670                      -15))
    1816          (%f10 -144)))))
     1671         (%f10 -144))))
    18171672  -15)
    18181673
    18191674(deftest misc.127
    1820   (funcall
    1821    (compile
    1822     nil
     1675  (call-compiled
    18231676    '(lambda (a c)
    18241677       (flet ((%f10 (f10-1 f10-2) 10))
     
    18311684                  (f4-2 (setq a 0)))
    18321685                 2))
    1833            (%f4 -5)))))
     1686           (%f4 -5))))
    18341687   0 0)
    18351688  2)
     
    18681721               (multiple-value-call #'%f10 (values -178858 a)))))
    18691722         (vals '(-13649921 -1813684177409))
    1870          (v1 (apply (compile nil fn1) vals))
    1871          (v2 (apply (compile nil fn2) vals)))
     1723         (v1 (apply-compiled fn1 vals))
     1724         (v2 (apply-compiled fn2 vals)))
    18721725    (if (eql v1 v2) :good (list v1 v2)))
    18731726  :good)
     
    18941747                       b b)))))))
    18951748         (vals '(-823894140303 -3))
    1896          (v1 (apply (compile nil fn1) vals))
    1897          (v2 (apply (compile nil fn2) vals)))
     1749         (v1 (apply-compiled fn1 vals))
     1750         (v2 (apply-compiled fn2 vals)))
    18981751    (if (eql v1 v2) :good (list v1 v2)))
    18991752  :good)
     
    19051758
    19061759(deftest misc.132
    1907   (funcall
    1908    (compile nil
     1760  (call-compiled
    19091761            '(lambda (b c)
    19101762               (declare (type (integer -3358662 7782429) b))
     
    19251777                          (f9-3 -2840573))
    19261778                         f9-1))
    1927                  (%f9 -193644 b 1368))))
     1779                 (%f9 -193644 b 1368)))
    19281780   10 20)
    19291781  -193644)
    19301782
    19311783(deftest misc.132a
    1932   (funcall
    1933    (compile
    1934     nil
     1784  (call-compiled
    19351785    '(lambda ()
    19361786       (declare (optimize (speed 2) (space 0) (safety 0) (debug 2) (compilation-speed 0)))
    19371787       (labels ((%f1 () 0))
    1938          (if t 0 (dotimes (iv1 5 (if (%f1) 0 0)) (catch 'ct1 0)))))))
     1788         (if t 0 (dotimes (iv1 5 (if (%f1) 0 0)) (catch 'ct1 0))))))
    19391789  0)
    19401790
    19411791;;; cmucl (22 Oct 2003)  Default for optional parameter is improperly chosen
    19421792(deftest misc.133
    1943   (funcall
    1944    (compile nil
     1793  (call-compiled
    19451794            '(lambda (a b c)
    19461795               (declare (notinline values))
    19471796               (declare (optimize (speed 0) (debug 0)))
    19481797               (flet ((%f15 (&optional (f15-5 c)) f15-5))
    1949                  (multiple-value-call #'%f15 (values -2688612)))))
     1798                 (multiple-value-call #'%f15 (values -2688612))))
    19501799   1 2 3)
    19511800  -2688612)
     
    19571806
    19581807(deftest misc.134
    1959   (funcall
    1960    (compile nil
     1808  (call-compiled
    19611809            '(lambda (b)
    19621810               (labels ((%f5 (f5-1 f5-2 f5-3 &optional (f5-4 0)
     
    19651813                                                 (return-from %f13 b))) b)))
    19661814                             900654472))
    1967                  183301)))
     1815                 183301))
    19681816   13775799184)
    19691817  183301)
    19701818
    19711819(deftest misc.135
    1972   (funcall
    1973    (compile nil
     1820  (call-compiled
    19741821            '(lambda (a b)
    19751822               (labels ((%f4 (&optional (f4-1 (labels ((%f17 nil a)) b)))
    19761823                             -14806404))
    1977                  190134)))
     1824                 190134))
    19781825   1783745644 268410629)
    19791826  190134)
    19801827
    19811828(deftest misc.136
    1982   (funcall
    1983    (compile nil
     1829  (call-compiled
    19841830            '(lambda (c)
    19851831               (flet ((%f17 (&optional
    19861832                             (f17-1 (flet ((%f9 nil c)) 73574919)))
    19871833                            643))
    1988                  1039017546)))
     1834                 1039017546))
    19891835   0)
    19901836  1039017546)
     
    19931839
    19941840(deftest misc.137
    1995   (funcall
    1996    (compile nil
     1841  (call-compiled
    19971842            '(lambda ()
    19981843               (declare (optimize (speed 3)))
     
    20021847                                            (if nil -1 -127228378))))
    20031848                            10))
    2004                  20))))
     1849                 20)))
    20051850  20)
    20061851
    20071852(deftest misc.138
    2008   (funcall
    2009    (compile nil
     1853  (call-compiled
    20101854            '(lambda (c)
    20111855               (declare (type (integer 2996 39280) c))
     
    20161860                                        2176))
    20171861                            3))
    2018                    c c)))
     1862                   c c))
    20191863   3000)
    20201864  3000)
     
    20341878                       (%f1 774 3616592)) c)))
    20351879         (vals '(-3))
    2036          (v1 (apply (compile nil fn1) vals))
    2037          (v2 (apply (compile nil fn2) vals)))
     1880         (v1 (apply-compiled fn1 vals))
     1881         (v2 (apply-compiled fn2 vals)))
    20381882    (if (eql v1 v2) :good (list v1 v2)))
    20391883  :good)
    20401884
    20411885(deftest misc.140
    2042   (funcall
    2043    (compile nil
     1886  (call-compiled
    20441887            '(lambda (a)
    20451888               (ldb (byte 24 20)
    20461889                    (labels ((%f12 (&optional (f12-1 149) (f12-2 -3894159)) 34068))
    2047                       (let* ((v4 (%f12))) a)))))
     1890                      (let* ((v4 (%f12))) a))))
    20481891   -1)
    20491892  16777215)
     
    20541897
    20551898(deftest misc.141
    2056   (funcall
    2057    (compile nil
     1899  (call-compiled
    20581900            '(lambda () (labels ((%f11 (&optional (f11-3 (restart-case 0))) f11-3))
    2059                           (%f11 1)))))
     1901                          (%f11 1))))
    20601902  1)
    20611903
    20621904(deftest misc.142
    2063   (funcall
    2064    (compile nil
     1905  (call-compiled
    20651906            '(lambda ()
    20661907               (labels ((%f15 (&optional (f15-3 (block b1 (+ 1 (return-from b1 -10)))))
    20671908                              f15-3))
    2068                  (%f15)))))
     1909                 (%f15))))
    20691910  -10)
    20701911
     
    20841925
    20851926(deftest misc.144
    2086   (funcall
    2087    (compile nil
     1927  (call-compiled
    20881928            '(lambda (a b c)
    20891929               (declare (type (integer 9739325 14941321) c))
     
    20921932                 (if (= -76482 c)
    20931933                     (if (>= c 10986082) (%f7 a b (%f7 -8088 c -147106 2)) -10502)
    2094                    (%f7 509252 b b)))))
     1934                   (%f7 509252 b b))))
    20951935   -200 17 10000000)
    20961936  17)
    20971937
    20981938(deftest misc.145
    2099   (funcall
    2100    (compile nil
     1939  (call-compiled
    21011940            '(lambda (a b c)
    21021941               (declare (optimize (safety 3)))
    21031942               (block b5
    21041943                 (return-from b5
    2105                    (logior (if (or c t) b (load-time-value -61)) (return-from b5 -3))))))
     1944                   (logior (if (or c t) b (load-time-value -61)) (return-from b5 -3)))))
    21061945   1 2 3)
    21071946  -3)
     
    21091948;;; cmucl: order of evaluation error
    21101949(deftest misc.146
    2111   (funcall
    2112    (compile nil
     1950  (call-compiled
    21131951            '(lambda (b)
    21141952               (declare (optimize (speed 3)))
     
    21161954                                       (f14-2 (setq b 995196571)))
    21171955                            f14-1))
    2118                  (%f14 b (block b3 (%f14 -64))))))
     1956                 (%f14 b (block b3 (%f14 -64)))))
    21191957   10)
    21201958  10)
     
    21321970;;; Argument X is not a NUMBER: NIL.
    21331971(deftest misc.149
    2134   (funcall
    2135    (compile nil '(lambda (b)
    2136                    (block b1 (- (logand 0 -34 1026491) (ignore-errors (return-from b1 b))))))
     1972  (call-compiled '(lambda (b)
     1973                   (block b1 (- (logand 0 -34 1026491) (ignore-errors (return-from b1 b)))))
    21371974   0)
    21381975  0)
    21391976
    21401977(deftest misc.149a
    2141   (funcall
    2142    (compile nil '(lambda (a) (block b1 (- a (ignore-errors (return-from b1 1))))))
     1978  (call-compiled '(lambda (a) (block b1 (- a (ignore-errors (return-from b1 1)))))
    21431979   0)
    21441980  1)
     
    21461982;;; cmucl (11 2003 image)  "NIL is not of type C::CONTINUATION"
    21471983(deftest misc.150
    2148   (funcall
    2149    (compile
    2150     nil
     1984  (call-compiled
    21511985    '(lambda (a b c)
    21521986       (flet ((%f17
     
    21571991                   (%f13 b (%f13 190)))))
    21581992               -157596))
    2159          (labels ((%f6 () (%f17))) c))))
     1993         (labels ((%f6 () (%f17))) c)))
    21601994   10 20 30000)
    21611995  30000)
    21621996
    21631997(deftest misc.150a
    2164   (funcall
    2165    (compile
    2166     nil
     1998  (call-compiled
    21671999    '(lambda ()
    21682000       (declare (optimize (speed 3) (space 2) (safety 3)
    21692001                          (debug 3) (compilation-speed 2)))
    2170        (catch 'ct6 (apply (constantly 0) (list))))))
     2002       (catch 'ct6 (apply (constantly 0) (list)))))
    21712003  0)
    21722004
    21732005(deftest misc.150b
    2174   (funcall
    2175    (compile
    2176     nil
     2006  (call-compiled
    21772007    '(lambda (a)
    21782008       (declare (type integer a))
    21792009       (declare (optimize (speed 3) (space 0) (safety 3) (debug 2)
    21802010                          (compilation-speed 3)))
    2181        (if (= a 0) 0 (truncate a))))
     2011       (if (= a 0) 0 (truncate a)))
    21822012   0)
    21832013  0)
    21842014
    21852015(deftest misc.150c
    2186   (funcall
    2187    (compile
    2188     nil
     2016  (call-compiled
    21892017    '(lambda (a b)
    21902018       (declare (optimize (speed 1) (space 3) (safety 2) (debug 3) (compilation-speed 3)))
     
    21982026           (labels ((%f13 (f13-1)
    21992027                          (%f15 b 0 0 0)))
    2200              0)))))
     2028             0))))
    22012029   1 2)
    22022030  0)
    22032031
    22042032(deftest misc.150d
    2205   (funcall
    2206    (compile
    2207     nil
     2033  (call-compiled
    22082034    '(lambda (a b)
    22092035       (declare (type (integer 4146834609223 16403344221223) a))
    22102036       (declare (type (integer -35470308180 3523580009) b))
    22112037       (declare (optimize (speed 1) (space 3) (safety 3) (debug 0) (compilation-speed 0)))
    2212        (catch 'ct1 (logand b a 0))))
     2038       (catch 'ct1 (logand b a 0)))
    22132039   4146834609223 10)
    22142040  0)
     
    22162042;;; cmucl (11 2003 x86 linux)  "NIL is not of type C::ENVIRONMENT"
    22172043(deftest misc.151
    2218   (funcall
    2219    (compile
    2220     nil
     2044  (call-compiled
    22212045    '(lambda (b c)
    22222046       (declare (type (integer -249 97) b))
     
    22262050                   c
    22272051                 (logand (if (/= b c) b 34945725) (unwind-protect -12443701)))))
    2228          5520737)))
     2052         5520737))
    22292053   -24 5657943)
    22302054  5520737)
    22312055
    22322056(deftest misc.151a
    2233   (funcall
    2234    (compile
    2235     nil
     2057  (call-compiled
    22362058    '(lambda ()
    22372059       (declare
    22382060        (optimize (speed 3) (space 3) (safety 1) (debug 1) (compilation-speed 0)))
    2239        (case 0 ((-12 -9 -12 -2 -5 -2 15) (catch 'ct7 (throw 'ct7 0))) (t 0)))))
     2061       (case 0 ((-12 -9 -12 -2 -5 -2 15) (catch 'ct7 (throw 'ct7 0))) (t 0))))
    22402062  0) 
    22412063
     
    22442066
    22452067(deftest misc.152
    2246   (funcall
    2247    (compile nil
     2068  (call-compiled
    22482069            '(lambda (a)
    22492070               (block b5
     
    22602081                                   (byte 18 13)
    22612082                                   (labels ((%f4 () 27322826))
    2262                                      (%f6 -2 -108626545 (%f4))))))))))))
     2083                                     (%f6 -2 -108626545 (%f4)))))))))))
    22632084   -6)
    22642085  87246015)
    22652086
    22662087(deftest misc.153
    2267   (funcall
    2268    (compile nil
     2088  (call-compiled
    22692089            '(lambda (a)
    22702090               (if (logbitp 3
     
    22802100                              (t -50)))
    22812101                   -20343
    2282                  a)))
     2102                 a))
    22832103   0)
    22842104  -20343)
     
    22882108
    22892109(deftest misc.154
    2290   (funcall
    2291    (compile nil
     2110  (call-compiled
    22922111            '(lambda (b)
    22932112               (labels ((%f8 nil -39011))
    22942113                 (flet ((%f4 (f4-1 f4-2 &optional (f4-3 (%f8)) (f4-4 b))
    22952114                             (%f8)))
    2296                    (%f4 -260093 -75538 -501684 (let ((v9 (%f8))) -3))))))
     2115                   (%f4 -260093 -75538 -501684 (let ((v9 (%f8))) -3)))))
    22972116   0)
    22982117  -39011)
     
    23012120
    23022121(deftest misc.155
    2303   (funcall
    2304    (compile nil
     2122  (call-compiled
    23052123            '(lambda (a b c)
    23062124               (labels ((%f6 (f6-1 f6-2) c))
    2307                  (multiple-value-call #'%f6 (values a c)))))
     2125                 (multiple-value-call #'%f6 (values a c))))
    23082126   0 10 20)
    23092127  20)
     
    23122130
    23132131(deftest misc.156
    2314   (funcall
    2315    (compile nil
     2132  (call-compiled
    23162133            '(lambda ()
    2317                (let ((v6 (ldb (byte 30 1) 1473))) (let ((v8 v6)) 2395)))))
     2134               (let ((v6 (ldb (byte 30 1) 1473))) (let ((v8 v6)) 2395))))
    23182135  2395)
    23192136
     
    23212138   
    23222139(deftest misc.157
    2323   (funcall
    2324    (compile nil
     2140  (call-compiled
    23252141            ' (lambda (c)
    23262142                (labels ((%f11 nil 1))
    23272143                  (flet ((%f9 (f9-1 f9-2)
    23282144                              (case 17466182 ((-12) (%f11)) (t c))))
    2329                     (%f9 -9913 c)))))
     2145                    (%f9 -9913 c))))
    23302146   17)
    23312147  17)
     
    23342150
    23352151(deftest misc.158
    2336   (funcall
    2337    (compile nil
     2152  (call-compiled
    23382153            '(lambda (a b c)
    23392154               (declare (type (integer 79828 2625480458) a))
     
    23462161                           (logior (logandc2 c v5)
    23472162                                   (common-lisp:handler-case
    2348                                     (ash a (min 36 22477)))))))))
     2163                                    (ash a (min 36 22477))))))))
    23492164   100000 0 0)
    23502165  0)
     
    23532168
    23542169(deftest misc.159
    2355   (funcall
    2356    (compile nil
     2170  (call-compiled
    23572171            '(lambda ()
    23582172               (let ((v8 70696))
     
    23622176                                   309257))
    23632177                         (multiple-value-call #'%f9 (values v2 v2))))
    2364                    100)))))
     2178                   100))))
    23652179  100)
    23662180
     
    23682182
    23692183(deftest misc.159a
    2370   (funcall
    2371    (compile
    2372     nil
     2184  (call-compiled
    23732185    '(lambda (a b)
    23742186       (declare (type (integer -105680 2104974) a))
     
    23912203                         f6-1))
    23922204               (multiple-value-call #'%f6
    2393                                     (values a (%f10 -37243) -47691))))))))
     2205                                    (values a (%f10 -37243) -47691)))))))
    23942206   100 -1200)
    23952207  -1)
     
    23992211
    24002212(deftest misc.160
    2401   (funcall
    2402    (compile nil
     2213  (call-compiled
    24032214            '(lambda (c)
    24042215               (declare (notinline + funcall))
    24052216               (+ (labels ((%f1 () -14)) (funcall #'%f1))
    2406                   (flet ((%f2 () (floor c))) (funcall #'%f2)))))
     2217                  (flet ((%f2 () (floor c))) (funcall #'%f2))))
    24072218   0)
    24082219  -14)
     
    24122223
    24132224(deftest misc.161
    2414   (funcall
    2415    (compile nil
     2225  (call-compiled
    24162226            '(lambda (a b c)
    24172227               (flet ((%f17 (f17-1 f17-2 f17-3)
     
    24252235                     (let* ((v6 (%f17 102136 3096194 a)))
    24262236                       b)
    2427                    c))))
     2237                   c)))
    24282238   -511 -2269809964 250738)
    24292239  250738)
    24302240
    24312241(deftest misc.161a
    2432   (funcall
    2433    (compile nil
     2242  (call-compiled
    24342243            '(lambda (a)
    24352244               (declare (optimize (speed 3) (space 2) (safety 3) (debug 0) (compilation-speed 0)))
    2436                (progn (abs 0) (- a) 0)))
     2245               (progn (abs 0) (- a) 0))
    24372246   1)
    24382247  0)
     
    24472256                               (return-from %f17 (if f17-4 f17-1 49572640))))
    24482257                  (funcall #'%f17 15128425 a)))))
    2449     (funcall (compile nil fn) 1 3))
     2258    (call-compiled fn 1 3))
    24502259  15128425)
    24512260
     
    24542263
    24552264(deftest misc.163
    2456   (funcall
    2457    (compile nil
     2265  (call-compiled
    24582266            '(lambda (b)
    24592267               (declare (type (integer -15716 3947) b))
     
    24612269                 ((-7 -6 -6) :good)
    24622270                 ((-5 -6) :bad)
    2463                  )))
     2271                 ))
    24642272
    24652273   -6)
     
    24702278
    24712279(deftest misc.164
    2472   (funcall
    2473    (compile
    2474     nil
     2280  (call-compiled
    24752281    '(lambda (a)
    24762282     (labels ((%f6 (f6-1 f6-2)
     
    24822288                    )))
    24832289       (funcall #'%f6 10 20)
    2484        )))
     2290       ))
    24852291   0)
    24862292  2829254)
     
    24902296;;; The value NIL is not of type SB-C::NODE.
    24912297(deftest misc.165
    2492   (funcall
    2493    (compile
    2494     nil
     2298  (call-compiled
    24952299    '(lambda (a b c)
    24962300       (block b3
     
    25072311                        (f15-5 a) (f15-6 -40))
    25082312                 (return-from b3 -16)))
    2509            (multiple-value-call #'%f15 (values -519354 a 121 c -1905))))))
     2313           (multiple-value-call #'%f15 (values -519354 a 121 c -1905)))))
    25102314   0 0 -5)
    25112315  -16)
     
    25182322
    25192323(deftest misc.166
    2520   (funcall
    2521    (compile
    2522     nil
     2324  (call-compiled
    25232325    '(lambda (a b c)
    25242326       (labels ((%f4
     
    25342336                           (values -479909 19843799 f4-5 -463858)))))
    25352337                       b)))
    2536          c)))
     2338         c))
    25372339   0 0 -223721124)
    25382340  -223721124)
    25392341
    25402342(deftest misc.167
    2541   (funcall
    2542    (compile
    2543     nil
     2343  (call-compiled
    25442344    '(lambda (a b c)
    25452345       (flet ((%f5 (f5-1 f5-2)
     
    25782378                             (%f17 43873 -138030706 -1372492)))))
    25792379                 (return-from %f12 -15216677)))
    2580            (%f12 (%f5 b 2329383) a)))))
     2380           (%f12 (%f5 b 2329383) a))))
    25812381   1 2 3)
    25822382  -15216677)
    25832383
    25842384(deftest misc.168
    2585   (funcall
    2586    (compile
    2587     nil
     2385  (call-compiled
    25882386    '(lambda (a b c)
    25892387       (block b3
     
    26062404                                  &optional (f10-3 a) (f10-4 (%f11 -3931 170)))
    26072405                           -1704759))
    2608                    c))))))
     2406                   c)))))
    26092407   1 2 3)
    26102408  3)
    26112409
    26122410(deftest misc.169
    2613   (funcall
    2614    (compile
    2615     nil
     2411  (call-compiled
    26162412    '(lambda (a b c)
    26172413       (if t -21705
     
    26262422                             (return-from b4 f2-1)))
    26272423                     (return-from b4
    2628                        (if b (%f2 c -320813) (%f2 b a a))))))))))
     2424                       (if b (%f2 c -320813) (%f2 b a a)))))))))
    26292425   1 2 3)
    26302426  -21705)
     
    26342430
    26352431(deftest misc.170
    2636   (funcall
    2637    (compile
    2638     nil
     2432  (call-compiled
    26392433    '(lambda (b)
    26402434       (flet ((%f14 (f14-1 f14-2)
     
    26502444                      1)))
    26512445         (let ((v6 (%f14 (logcount b) -386283)))
    2652            56211))))
     2446           56211)))
    26532447   17)
    26542448  56211)
    26552449
    26562450(deftest misc.170a
    2657   (funcall
    2658    (compile
    2659     nil
     2451  (call-compiled
    26602452    '(lambda (a b)
    26612453       (declare (type (integer -281 30570) a))
     
    26862478                             0)
    26872479                         0)))
    2688            (case (%f3 a a 0) (t 0))))))
     2480           (case (%f3 a a 0) (t 0)))))
    26892481   22087 -1787181)
    26902482  0)
     
    26932485
    26942486(deftest misc.171
    2695   (funcall
    2696    (compile
    2697     nil
     2487  (call-compiled
    26982488    '(lambda (b)
    26992489       (block b6
     
    27072497                (multiple-value-call #'%f11 (values -5945959 1654846427 -22))
    27082498                (return-from b2 b)
    2709                 (return-from b2 31258361))))))))
     2499                (return-from b2 31258361)))))))
    27102500   10)
    27112501  1)
     
    27152505
    27162506(deftest misc.172
    2717   (funcall
    2718    (compile
    2719     nil
     2507  (call-compiled
    27202508    '(lambda (a b c)
    27212509       (declare (notinline list apply))
     
    27452533                                        f12-1))))
    27462534                        (%f2 b -36582571))))
    2747          (apply #'%f12 (list 774 -4413)))))
     2535         (apply #'%f12 (list 774 -4413))))
    27482536   0 1 2)
    27492537  774)
     
    27532541
    27542542(deftest misc.173
    2755   (funcall
    2756    (compile
    2757     nil
     2543  (call-compiled
    27582544    '(lambda (a b c)
    27592545       (declare (notinline values))
     
    27852571                   (%f11 c b -25644))
    27862572               54)
    2787            -32326608))))
     2573           -32326608)))
    27882574   1 2 3)
    27892575  -32326608)
     
    27932579
    27942580(deftest misc.174
    2795   (funcall
    2796    (compile
    2797     nil
     2581  (call-compiled
    27982582    '(lambda (a b c)
    27992583         (declare (type (integer 10292971433 14459537906) b))
     
    28122596                 (t 3)))
    28132597          19
    2814           c)))
     2598          c))
    28152599   0 11000000000 0)
    28162600  0)
    28172601
    28182602(deftest misc.174a
    2819   (funcall
    2820    (compile
    2821     nil
     2603  (call-compiled
    28222604    '(lambda (a b)
    28232605       (declare (type (integer 23 365478242977) a))
     
    28322614                (multiple-value-call #'%f7 (values -135629 a -410168200))))
    28332615             (t a))
    2834          15173)))
     2616         15173))
    28352617   30 0)
    28362618  15173)
    28372619
    28382620(deftest misc.174b
    2839   (funcall
    2840    (compile
    2841     nil
     2621  (call-compiled
    28422622    '(lambda (a b)
    28432623       (declare (type (integer -8688 2170) a))
     
    28642644              t))
    28652645           (setq a -4803)
    2866          (rem a (max 47 b)))))
     2646         (rem a (max 47 b))))
    28672647   0 0)
    28682648  0)
     
    28722652
    28732653(deftest misc.175
    2874   (funcall
    2875    (compile
    2876     nil
     2654  (call-compiled
    28772655    '(lambda (a b c)
    28782656       (declare (notinline list apply values signum funcall))
     
    29112689           (flet ((%f14 (f14-1)
    29122690                        (apply #'%f7 -252 -56169265 -7322946 (list))))
    2913              (%f14 a))))))
     2691             (%f14 a)))))
    29142692   -70313091 577425217 28052774417)
    29152693  -70313091)
    29162694
    29172695(deftest misc.175a
    2918   (funcall
    2919    (compile
    2920     nil
     2696  (call-compiled
    29212697    '(lambda (a b)
    29222698         (declare (notinline values list apply logior))
     
    29352711                           b))
    29362712                (multiple-value-call #'%f17 (values 31 b a b))))
    2937              392)))
     2713             392))
    29382714   0 0)
    29392715  392)
    29402716
    29412717(deftest misc.175b
    2942   (funcall
    2943    (compile
    2944     nil
     2718  (call-compiled
    29452719    '(lambda (a b)
    29462720       (declare (type (integer -1185422977 2286472818) a))
     
    29652739                              (ignore-errors 237138926))))))
    29662740                       f7-2))
    2967                  (apply #'%f7 (list 761316125 b))))))
     2741                 (apply #'%f7 (list 761316125 b)))))
    29682742   1792769319 -60202244870)
    29692743  5)
     
    29742748
    29752749(deftest misc.176
    2976   (funcall
    2977    (compile
    2978     nil
     2750  (call-compiled
    29792751    '(lambda (a b c)
    29802752       (declare (type (integer 162180298 184143783) a))
     
    30152787                                      (t b)))))))
    30162788                     1503938))
    3017              (multiple-value-call #'%f4 (values -1 a 1853966)))))))
     2789             (multiple-value-call #'%f4 (values -1 a 1853966))))))
    30182790   173549795 725346738048 993243799)
    30192791  993243799)
     
    30492821                 (declare (optimize (debug 0)))
    30502822                 ,form))
    3051          (compiled-fn1 (compile nil fn1))
    3052          (compiled-fn2 (compile nil fn2))
    3053          (results1 (multiple-value-list (apply compiled-fn1 vals)))
    3054          (results2 (multiple-value-list (apply compiled-fn2 vals))))
     2823         (results1 (multiple-value-list (apply-compiled fn1 vals)))
     2824         (results2 (multiple-value-list (apply-compiled fn2 vals))))
    30552825    (if (equal results1 results2)
    30562826        :good
     
    30622832
    30632833(deftest misc.178
    3064   (funcall
    3065    (compile
    3066     nil
     2834  (call-compiled
    30672835    '(lambda (a b c)
    30682836         (declare (ignorable a b c))
     
    30982866           (flet ((%f18 (f18-1 f18-2 &optional (f18-3 66) (f18-4 b))
    30992867                    -6939342))
    3100              (%f18 1274880 (%f18 b a 46746370 -1))))))
     2868             (%f18 1274880 (%f18 b a 46746370 -1)))))
    31012869   0 0 0)
    31022870  -6939342)
     
    31062874
    31072875(deftest misc.179
    3108   (funcall
    3109    (compile
    3110     nil
     2876  (call-compiled
    31112877    '(lambda (a b)
    31122878       (declare (type (integer 1135 16722) a))
     
    31222888               ((41771 -113272 -48004 -39699 50691 -13222)
    31232889                (multiple-value-call #'%f17 (values -1963404294 -105)))
    3124                (t -7026139)))))))
     2890               (t -7026139))))))
    31252891   2000 -10000)
    31262892  -64796)
    31272893
    31282894(deftest misc.180
    3129   (funcall
    3130    (compile
    3131     nil
     2895  (call-compiled
    31322896    '(lambda (a b)
    31332897       (declare (type (integer 41 484) a))
     
    31472911                                                    a))
    31482912                                             (abs (ceiling v4)))))))
    3149          -6001)))
     2913         -6001))
    31502914   50 0)
    31512915  -6001)
     
    31552919
    31562920(deftest misc.181
    3157   (funcall
    3158    (compile
    3159     nil
     2921  (call-compiled
    31602922    '(lambda (a b)
    31612923         (declare (type (integer -74233251043 -16478648860) a))
     
    31972959                            (labels ((%f1 () (%f18 (%f18 -794761))))
    31982960                              (return-from %f14 b))))))))
    3199            (if (%f14) b 887481))))
     2961           (if (%f14) b 887481)))
    32002962   -51967629256 809047)
    32012963  809047)
    32022964
    32032965(deftest misc.181a
    3204   (funcall
    3205    (compile
    3206     nil
     2966  (call-compiled
    32072967    '(lambda (a b)
    32082968       (declare (type (integer -982285129 -90) a))
     
    32413001                         (%f17 -240978 2923208 22 (%f5 1542 68917407 a) b)))
    32423002              -2018
    3243               -1))))))
     3003              -1)))))
    32443004   -100 1)
    32453005  1)
     
    32733033                 ,form))
    32743034         (vals '(7395 1602862793 -2384))
    3275          (cfn1 (compile nil fn1))
    3276          (cfn2 (compile nil fn2))
    3277          (result1 (multiple-value-list (apply cfn1 vals)))
    3278          (result2 (multiple-value-list (apply cfn2 vals))))
     3035         (result1 (multiple-value-list (apply-compiled fn1 vals)))
     3036         (result2 (multiple-value-list (apply-compiled fn2 vals))))
    32793037    (if (equal result1 result2)
    32803038        :good
     
    32873045
    32883046(deftest misc.183
    3289   (funcall
    3290    (compile
    3291     nil
     3047  (call-compiled
    32923048    '(lambda (a b c)
    32933049       (declare (type (integer -368154 377964) a))
     
    33003056       (block b7
    33013057         (flet ((%f3 (f3-1 f3-2 f3-3) 0))
    3302            (apply #'%f3 0 (catch 'foo (return-from b7 (%f3 0 b c))) c nil)))))
     3058           (apply #'%f3 0 (catch 'foo (return-from b7 (%f3 0 b c))) c nil))))
    33033059   0 6000 -9000000)
    33043060  0)
     
    33123068
    33133069(deftest misc.184
    3314   (funcall
    3315    (compile
    3316     nil
     3070  (call-compiled
    33173071    '(lambda (a b c)
    33183072       (declare (type (integer 867934833 3293695878) a))
     
    33333087                             f8-3))
    33343088                   0))))
    3335          0)))
     3089         0))
    33363090   3040851270 1664281 -1340106197)
    33373091  0)
     
    33423096
    33433097(deftest misc.185
    3344   (funcall
    3345    (compile
    3346     nil
     3098  (call-compiled
    33473099    '(lambda (a b c)
    33483100       (declare (type (integer 5 155656586618) a))
     
    33653117                               nil))))
    33663118               0))
    3367          (%f3 (%f3 (%f3 b 0 0 0) a 0) a b b b c))))
     3119         (%f3 (%f3 (%f3 b 0 0 0) a 0) a b b b c)))
    33683120   5 0 7)
    33693121  0)
    33703122
    33713123(deftest misc.185a
    3372   (funcall
    3373    (compile
    3374     nil
     3124  (call-compiled
    33753125    '(lambda (a b c)
    33763126       (declare (type (integer -1304066 1995764) a))
     
    33863136                (catch 'ct1 0)
    33873137                (catch 'ct2 (throw 'ct2 c))
    3388                 nil))))
     3138                nil)))
    33893139   0 0 0)
    33903140  0)
     
    34063156                          (optimize (safety 3) (speed 0) (debug 0)))
    34073157                 ,form))
    3408          (cf1 (compile nil fn1))
    3409          (cf2 (compile nil fn2))
    3410          (result1 (multiple-value-list (funcall cf1 2 18886)))
    3411          (result2 (multiple-value-list (funcall cf2 2 18886))))
     3158         (result1 (multiple-value-list (call-compiled fn1 2 18886)))
     3159         (result2 (multiple-value-list (call-compiled fn2 2 18886))))
    34123160    (if (equal result1 result2)
    34133161        :good
     
    34403188
    34413189(deftest misc.188
    3442   (funcall
    3443    (compile
    3444     nil
     3190  (call-compiled
    34453191    '(lambda (a b c)
    34463192          (declare (notinline floor min funcall))
     
    34493195                 (min -37
    34503196                      (labels ((%f6 (f6-1 f6-2 f6-3) b))
    3451                         (funcall #'%f6 b b b))))))
     3197                        (funcall #'%f6 b b b)))))
    34523198   7187592 -3970792748407 -14760)
    34533199  1 0)
     
    34553201;;; Wrong number of arguments passed to an anonymous function
    34563202(deftest misc.189
    3457   (funcall
    3458    (compile
    3459     nil
     3203  (call-compiled
    34603204    '(lambda (a b c)
    34613205       (declare (optimize (speed 3) (safety 1) (debug 1)))
    34623206       (let* ((v7 (labels ((%f13 (f13-1 f13-2 f13-3) 0))
    34633207                    (multiple-value-call #'%f13 (values a a a)))))
    3464          (flet ((%f10 nil v7)) (%f10)))))
     3208         (flet ((%f10 nil v7)) (%f10))))
    34653209   1733 3000 1314076)
    34663210  0)
     
    34883232                ,form))
    34893233         (vals '(538754530150 -199250645748 105109641)))
    3490     (apply (compile nil fn) vals))
     3234    (apply-compiled fn vals))
    34913235  -284)
    34923236
     
    34953239
    34963240(deftest misc.191
    3497   (funcall
    3498    (compile
    3499     nil
     3241  (call-compiled
    35003242    '(lambda (a b c)
    35013243          (declare (optimize (speed 3) (safety 1)))
     
    35043246                         (labels ((%f9 (f9-1 f9-2 f9-3) (%f1)))
    35053247                           (apply #'%f9 (%f9 a b 0) a 0 nil))))
    3506               (apply #'%f12 0 nil)))))
     3248              (apply #'%f12 0 nil))))
    35073249   0 0 0)
    35083250  0)
     
    35123254
    35133255(deftest misc.192
    3514   (funcall
    3515    (compile
    3516     nil
     3256  (call-compiled
    35173257    '(lambda (a b)
    35183258       (declare (optimize (speed 3)))
     
    35203260       (declare (optimize (debug 1)))
    35213261       (flet ((%f8 (f8-1 f8-2 f8-3) f8-2))
    3522          (catch 'ct6 (%f8 0 b (catch 'ct6 (throw 'ct6 a)))))))
     3262         (catch 'ct6 (%f8 0 b (catch 'ct6 (throw 'ct6 a))))))
    35233263   1 2)
    35243264  2)
     
    35433283                 ,form))
    35443284         (vals '(7792101 -1615 6070931814551))
    3545          (result1 (multiple-value-list (apply (compile nil fn1) vals)))
    3546          (result2 (multiple-value-list (apply (compile nil fn2) vals))))
     3285         (result1 (multiple-value-list (apply-compiled fn1 vals)))
     3286         (result2 (multiple-value-list (apply-compiled fn2 vals))))
    35473287    (if (equal result1 result2)
    35483288        :good
     
    35543294
    35553295(deftest misc.194
    3556   (funcall
    3557    (compile
    3558     nil
     3296  (call-compiled
    35593297    '(lambda (a b c)
    35603298       (declare (notinline funcall))
     
    35653303                      (f14-5 (unwind-protect c)))
    35663304               0))
    3567          (funcall #'%f14 0 0))))
     3305         (funcall #'%f14 0 0)))
    35683306   1 2 3)
    35693307  0)
     
    35713309;;; incorrect value (in cmucl)
    35723310(deftest misc.195
    3573   (funcall
    3574    (compile
    3575     nil
     3311  (call-compiled
    35763312    '(lambda (a b)
    35773313       (declare (type (integer -5906488825 254936878485) a))
     
    35823318         (labels ((%f6 (f6-1 &optional (f6-2 0) (f6-3 0) (f6-4 0))
    35833319                       0))
    3584            (multiple-value-call #'%f6 (values 0))))))
     3320           (multiple-value-call #'%f6 (values 0)))))
    35853321   100 -100000)
    35863322  0)
     
    35883324;;; NIL is not of type C::ENVIRONMENT
    35893325(deftest misc.196
    3590   (funcall
    3591    (compile
    3592     nil
     3326  (call-compiled
    35933327    '(lambda (a b)
    35943328       (declare (type (integer 1 46794484349) a))
     
    36003334         (labels ((%f9 (f9-1 f9-2 f9-3)
    36013335                       0))
    3602            (%f9 (catch 'ct6 a) (catch 'ct4 0) 0)))))
     3336           (%f9 (catch 'ct6 a) (catch 'ct4 0) 0))))
    36033337   1 -200)
    36043338  0)
     
    36063340;;; The assertion (EQ (C::TN-ENVIRONMENT C:TN) C::TN-ENV) failed.
    36073341(deftest misc.197
    3608   (funcall
    3609    (compile
    3610     nil
     3342  (call-compiled
    36113343    '(lambda (a b)
    36123344       (declare (notinline logcount))
     
    36143346       (labels ((%f5 (&optional (f5-1 b) (f5-2 0) (f5-3 (catch (quote ct2) 0)))
    36153347                     (prog1 (logcount (block b1 f5-1)))))
    3616          (if (%f5 0 0 0) (%f5 a) 0))))
     3348         (if (%f5 0 0 0) (%f5 a) 0)))
    36173349   1 2)
    36183350  1)
     
    36283360                 (declare (optimize (speed 3) (safety 1)))
    36293361                 ,form)))
    3630     (funcall (compile nil fn1) 3512352656))
     3362    (call-compiled fn1 3512352656))
    36313363  29119897960)
    36323364
     
    36393371                                (throw 'ct1 0)))
    36403372                       b))))
    3641     (funcall (compile nil fn) 4108962100))
     3373    (call-compiled fn 4108962100))
    36423374  11159349376)
    36433375
     
    36463378
    36473379(deftest misc.200
    3648   (funcall
    3649    (compile nil '(lambda ()
     3380  (call-compiled '(lambda ()
    36503381                   (declare (optimize (speed 1) (space 0) (safety 3) (debug 3) (compilation-speed 1)))
    36513382                   (ceiling
    36523383                    (ceiling
    3653                      (flet ((%f16 () 0)) (%f16)))))))
     3384                     (flet ((%f16 () 0)) (%f16))))))
    36543385  0 0)
    36553386
     
    36593390(deftest misc.201
    36603391  ;; form to be evaluated
    3661   (funcall
    3662    (compile
    3663     nil
     3392  (call-compiled
    36643393    '(lambda (a b)
    36653394       (declare (optimize (speed 1) (space 0) (safety 0) (debug 2)
    36663395                          (compilation-speed 1)))
    36673396       (flet ((%f10 (f10-1) (return-from %f10 a)))
    3668          (multiple-value-call #'%f10 (values b)))))
     3397         (multiple-value-call #'%f10 (values b))))
    36693398   10 -100)
    36703399  ;; expected return value
     
    36733402;;; Does not terminate?
    36743403(deftest misc.202
    3675   (funcall
    3676    (compile
    3677     nil
     3404  (call-compiled
    36783405    '(lambda (a b c)
    36793406             (declare (type (integer -363953100 5324773015552) a))
     
    36853412             (flet ((%f1 (f1-1 f1-2)
    36863413                         (labels ((%f1 (f1-1 f1-2) 0)) (%f1 a f1-2))))
    3687                    (%f1 0 c))))
     3414                   (%f1 0 c)))
    36883415   10 20 -20000)
    36893416  0)
     
    36913418;;; #<illegal pointer bfffe90c>
    36923419(deftest misc.203
    3693   (funcall
    3694    (compile
    3695     nil
     3420  (call-compiled
    36963421    '(lambda (a)
    36973422       (declare (optimize (speed 3) (space 1) (safety 2) (debug 0)
     
    36993424       (labels ((%f18 (f18-1 f18-2 &optional (f18-3 a) (f18-4 a))
    37003425                      f18-2))
    3701          (multiple-value-call #'%f18 (values a 0)))))
     3426         (multiple-value-call #'%f18 (values a 0))))
    37023427   100)
    37033428  0)
     
    37053430;;; `env0' undeclared (first use in this function)
    37063431(deftest misc.204
    3707   (funcall
    3708    (compile
    3709     nil
     3432  (call-compiled
    37103433    '(lambda (a b)
    37113434          (declare (type (integer -4801373 -50300) a))
     
    37193442                                        (apply #'%f12 (%f9) nil))))
    37203443                          (%f12 0)))
    3721               (%f3 b 0 a)))))
     3444              (%f3 b 0 a))))
    37223445   -2224841 -54)
    37233446  0)
     
    37253448;;; #<compiled-function 08405fd8> is not of type INTEGER.
    37263449(deftest misc.205
    3727   (funcall
    3728    (compile
    3729     nil
     3450  (call-compiled
    37303451    '(lambda (a b)
    37313452       (declare (optimize (speed 3) (space 1) (safety 1) (debug 0)
     
    37363457                  (flet ((%f13 (f13-1 f13-2) b))
    37373458                    (apply #'%f13 0 0 nil))
    3738                   nil)))))
     3459                  nil))))
    37393460   100 200)
    37403461  0)
     
    37553476;;; #<compiled-closure 08405fd8> is not of type INTEGER
    37563477(deftest misc.207
    3757   (funcall
    3758    (compile
    3759     nil
     3478  (call-compiled
    37603479    '(lambda (a)
    37613480       (declare (optimize (speed 3) (space 2) (safety 0) (debug 1)
     
    37633482       (labels ((%f3 (f3-1) a))
    37643483         (labels ((%f10 (f10-1 f10-2) a))
    3765            (apply #'%f10 0 (logior (%f3 0)) nil)))))
     3484           (apply #'%f10 0 (logior (%f3 0)) nil))))
    37663485   -10000)
    37673486  -10000)
     
    37693488;;; `env0' undeclared (first use in this function)
    37703489(deftest misc.208
    3771   (funcall
    3772    (compile
    3773     nil
     3490  (call-compiled
    37743491    '(lambda (b)
    37753492       (declare (optimize (speed 3) (space 2) (safety 3) (debug 3)
     
    37773494       (flet ((%f6 (f6-1 f6-2 f6-3) f6-3))
    37783495         (labels ((%f8 (f8-1) (let* ((v1 (%f6 0 0 0))) 0)))
    3779            (apply #'%f6 b b (%f8 b) nil)))))
     3496           (apply #'%f6 b b (%f8 b) nil))))
    37803497   10)
    37813498  0)
     
    37833500;;; Wrong value computed
    37843501(deftest misc.209
    3785   (funcall
    3786    (compile
    3787     nil
     3502  (call-compiled
    37883503    '(lambda (b)
    37893504       (declare (optimize (speed 3) (space 2) (safety 3) (debug 3)
    37903505                          (compilation-speed 3)))
    3791        (max (catch 'ct4 (throw 'ct4 (setq b 0))) b)))
     3506       (max (catch 'ct4 (throw 'ct4 (setq b 0))) b))
    37923507   6353)
    37933508  0)
     
    37953510;;; Wrong value computed
    37963511(deftest misc.210
    3797   (funcall
    3798    (compile
    3799     nil
     3512  (call-compiled
    38003513    '(lambda (c)
    38013514       (declare (type (integer 3 65500689) c))
     
    38033516                          (compilation-speed 2)))
    38043517       (catch 'ct6
    3805          (let ((v10 (truncate (integer-length (throw 'ct6 0))))) c))))
     3518         (let ((v10 (truncate (integer-length (throw 'ct6 0))))) c)))
    38063519   100)
    38073520  0)
    38083521
    38093522(deftest misc.210a
    3810   (funcall
    3811    (compile
    3812     nil
     3523  (call-compiled
    38133524    '(lambda (a)
    38143525       (declare (type (integer -55982525 -1) a))
     
    38203531             (if (<= 0) (%f11 v6 0 0)
    38213532               (multiple-value-call #'%f11
    3822                                     (values 0 0 (%f11 0 0 (apply #'%f12 0 nil))))))))))
     3533                                    (values 0 0 (%f11 0 0 (apply #'%f12 0 nil)))))))))
    38233534   -100)
    38243535  -100)
     
    38263537;;; Segmentation violation
    38273538(deftest misc.211
    3828   (funcall
    3829    (compile
    3830     nil
     3539  (call-compiled
    38313540    '(lambda (a b c)
    38323541       (declare (type (integer -1439706333184 1191686946816) a))
     
    38423551          (max 38
    38433552               (labels ((%f8 (f8-1 &optional (f8-2 (+ c a))) 0))
    3844                  (apply #'%f8 a nil)))))))
     3553                 (apply #'%f8 a nil))))))
    38453554   -979021452526 138874383 21099308459)
    38463555  -25763722434
     
    38573566;;; segmentation violation
    38583567(deftest misc.213
    3859   (funcall
    3860    (compile
    3861     nil
     3568  (call-compiled
    38623569    '(lambda (a b)
    38633570       (declare (type (integer -2 -1) b))
     
    38663573       (max (labels ((%f15 (f15-1) b)) (if (< 0 (%f15 a)) 0 0))
    38673574            (labels ((%f11 (f11-1 f11-2 f11-3) b))
    3868               (apply #'%f11 0 0 0 nil)))))
     3575              (apply #'%f11 0 0 0 nil))))
    38693576   0 -2)
    38703577  0)
    38713578
    38723579(deftest misc.213a
    3873   (funcall
    3874    (compile
    3875     nil
     3580  (call-compiled
    38763581    '(lambda (a)
    38773582       (declare (optimize (speed 3) (space 3) (safety 0) (debug 1)
     
    38793584       (max (labels ((%f7 (f7-1) a)) (%f7 0))
    38803585            (flet ((%f12 (f12-1 f12-2) (if a f12-2 0)))
    3881               (apply #'%f12 0 a nil)))))
     3586              (apply #'%f12 0 a nil))))
    38823587   123)
    38833588  123)
     
    38853590;;; Wrong value
    38863591(deftest misc.214
    3887   (funcall
    3888    (compile
    3889     nil
     3592  (call-compiled
    38903593    '(lambda (a)
    38913594       (declare (optimize (speed 3) (space 1) (safety 2) (debug 0)
    38923595                          (compilation-speed 2)))
    3893        (flet ((%f8 nil (setq a 0))) (max a (%f8)))))
     3596       (flet ((%f8 nil (setq a 0))) (max a (%f8))))
    38943597   100)
    38953598  100)
     
    38973600;;; Wrong value
    38983601(deftest misc.215
    3899   (funcall
    3900    (compile
    3901     nil
     3602  (call-compiled
    39023603    '(lambda ()
    39033604       (declare (optimize (speed 3) (space 3) (safety 3) (debug 0)
    39043605                          (compilation-speed 2)))
    3905        (ldb (byte 26 6) -1252))))
     3606       (ldb (byte 26 6) -1252)))
    39063607  67108844)
    39073608
    39083609(deftest misc.215a
    3909   (funcall
    3910    (compile nil '(lambda ()
     3610  (call-compiled '(lambda ()
    39113611                   (declare (optimize (speed 3) (space 2) (safety 2) (debug 1)
    39123612                                      (compilation-speed 2)))
    3913                    (ldb (byte 30 0) -407020740))))
     3613                   (ldb (byte 30 0) -407020740)))
    39143614  666721084)
    39153615
     
    39293629;;; Infinite loop
    39303630(deftest misc.219
    3931   (funcall
    3932    (compile
    3933     nil
     3631  (call-compiled
    39343632    '(lambda ()
    39353633       (labels ((%f (a b)
    39363634                    (labels ((%f (c d) 0))
    39373635                      (%f 1 2))))
    3938          (%f 3 4)))))
     3636         (%f 3 4))))
    39393637  0)
    39403638
    39413639;;; #\^E is not of type NUMBER.
    39423640(deftest misc.220
    3943   (funcall
    3944    (compile
    3945     nil
     3641  (call-compiled
    39463642    '(lambda (a b)
    39473643       (declare (type (integer -3218770816 9386121) a))
     
    39563652                           (%f11 0 0 0)))
    39573653                      a)
    3958                 nil))))
     3654                nil)))
    39593655   -468614602 3)
    39603656  -468614602)
     
    39773673
    39783674(deftest misc.224
    3979   (funcall
    3980    (compile
    3981     nil
     3675  (call-compiled
    39823676    '(lambda (a b c)
    39833677       (declare (optimize (speed 2) (space 3) (safety 0)
     
    39893683                                    a)))
    39903684                    (flet ((%f17 (f17-1 f17-2) f14-1)) (%f17 0 f14-3))))
    3991          (%f14 (%f14 0 a) 0 b a))))
     3685         (%f14 (%f14 0 a) 0 b a)))
    39923686   248000 5409415 227923)
    39933687  0)
     
    39953689;;; Wrong values
    39963690(deftest misc.225
    3997   (funcall (compile nil '(lambda () (values (values 'a 'b)))))
     3691  (call-compiled '(lambda () (values (values 'a 'b))))
    39983692  a)
    39993693
     
    40013695;;; SYMBOL-VALUE: 1 is not a SYMBOL
    40023696(deftest misc.226
    4003   (funcall
    4004    (compile nil
     3697  (call-compiled
    40053698            '(lambda (a)
    40063699               (flet ((%f (&optional (x (setq a 1))
    40073700                                     (y (setq a 2)))
    40083701                           0))
    4009                  (%f 0 0))))
     3702                 (%f 0 0)))
    40103703   0)
    40113704  0)
    40123705
    40133706(deftest misc.227
    4014   (funcall
    4015    (compile
    4016     nil
     3707  (call-compiled
    40173708    '(lambda (b)
    40183709       (flet ((%f (&optional x (y (setq b 1))) x))
    4019          (%f 0))))
     3710         (%f 0)))
    40203711   0)
    40213712  0)
     
    40243715;;; No from-creg to move to...
    40253716(deftest misc.228
    4026   (funcall
    4027    (compile
    4028     nil
     3717  (call-compiled
    40293718    '(lambda (a b c)
    40303719       (declare (optimize (speed 1) (space 2) (safety 0) (debug 2)
     
    40373726            (let ((v3 (catch 'ct2 (throw 'ct2 0))))
    40383727              (labels ((%f14 (f14-1 f14-2) 0)) (%f14 b c))))
    4039            (t 0)))))
     3728           (t 0))))
    40403729   -3847091255 -13482 -7577750)
    40413730  0)
    40423731
    40433732(deftest misc.228a
    4044   (funcall
    4045    (compile
    4046     nil
     3733  (call-compiled
    40473734    '(lambda (a b c)
    40483735       (declare (type (integer -249606 2) a))
     
    40593746                          (throw 'ct4 c)
    40603747                        (loop for lv2 below 2 count (logbitp 0 c))))
    4061                      (t a))))))
     3748                     (t a)))))
    40623749   0 200 -1)
    40633750  0)
    40643751
    40653752(deftest misc.228b
    4066   (funcall
    4067    (compile
    4068     nil
     3753  (call-compiled
    40693754    '(lambda (c)
    40703755       (declare (type (integer -1 412413109) c))
     
    40753760                    (catch 'ct2 (throw 'ct2 0)))
    40763761                 (complex c 0)
    4077                  ))))
     3762                 )))
    40783763   62151)
    40793764  62151)
     
    40813766;;; Error: `T' is not of the expected type `INTEGER'
    40823767(deftest misc.229
    4083   (funcall
    4084    (compile
    4085     nil
     3768  (call-compiled
    40863769    '(lambda nil
    40873770       (declare (optimize (speed 2) (space 1) (safety 1) (debug 2)
     
    40913774           (catch 'ct5
    40923775             (%f15
    4093               (gcd (catch 'ct5 (let* ((v5 (throw 'ct5 0))) 0)) v4))))))))
     3776              (gcd (catch 'ct5 (let* ((v5 (throw 'ct5 0))) 0)) v4)))))))
    40943777  0)
    40953778
     
    40983781
    40993782(deftest misc.230
    4100   (funcall
    4101    (compile
    4102     nil
     3783  (call-compiled
    41033784    '(lambda (a)
    41043785       (declare (type (integer -6527559920 -247050) a))
     
    41083789                                 (f10-2 (setq a -4456327156)))
    41093790                      0))
    4110          (logxor a (%f10 a)))))
     3791         (logxor a (%f10 a))))
    41113792   -3444248334)
    41123793  -3444248334)
     
    41163797
    41173798(deftest misc.231
    4118   (funcall
    4119    (compile
    4120     nil
     3799  (call-compiled
    41213800    '(lambda (b)
    41223801       (declare (type (integer -5209401 3339878) b))
     
    41263805                   f3-1))
    41273806         (apply #'%f3 0 (logxor (catch 'ct2 b)
    4128                                 (catch 'ct5 (throw 'ct5 0))) nil))))
     3807                                (catch 'ct5 (throw 'ct5 0))) nil)))
    41293808   -2179757)
    41303809  0)
     
    41323811;;; Invalid number of arguments: 1
    41333812(deftest misc.232
    4134   (funcall
    4135    (compile
    4136     nil
     3813  (call-compiled
    41373814    '(lambda (a b)
    41383815       (declare (type (integer 197447754 495807327) a))
     
    41483825         (flet ((%f16 (f16-1 f16-2 f16-3)
    41493826                      0))
    4150            (apply #'%f16 a 0 (%f8) nil)))))
     3827           (apply #'%f16 a 0 (%f8) nil))))
    41513828   348270365 28780966)
    41523829  0)
     
    41543831;;;  The assertion (EQ C::CHECK :SIMPLE) failed.
    41553832(deftest misc.233
    4156   (funcall
    4157    (compile
    4158     nil
     3833  (call-compiled
    41593834    '(lambda (a b)
    41603835       (declare (type (integer -2333758327203 -321096206070) a))
     
    41863861                              (%f2 b a f18-1 69968 4 -217193265)
    41873862                            (catch 'ct1 129548688)))))))
    4188          (max (apply #'%f18 (list 0))))))
     3863         (max (apply #'%f18 (list 0)))))
    41893864   -2067244683733 143879071206)
    41903865  129548688)
     
    41923867;;;  NIL is not of type C::TAIL-SET
    41933868(deftest misc.234
    4194   (funcall
    4195    (compile
    4196     nil
     3869  (call-compiled
    41973870    '(lambda (b) ;; (a b)
    41983871       (declare (type (integer -13583709 -3876310) b))
     
    42073880                            0))
    42083881                      (%f2 b f14-2))))
    4209          (%f14 0 0 (%f14 0 0 0)))))
     3882         (%f14 0 0 (%f14 0 0 0))))
    42103883   ;; -155589
    42113884   -5694124)
     
    42153888;;; Wrong value
    42163889(deftest misc.235
    4217   (funcall
    4218    (compile
    4219     nil
     3890  (call-compiled
    42203891    '(lambda (b)
    42213892         (declare (notinline not))
    42223893         (declare (optimize (speed 1) (space 0) (safety 0)
    42233894                            (debug 2) (compilation-speed 3)))
    4224          (multiple-value-prog1 0 (catch 'ct2 (if (not nil) (throw 'ct2 b) 0)))))
     3895         (multiple-value-prog1 0 (catch 'ct2 (if (not nil) (throw 'ct2 b) 0))))
    42253896   :wrong)
    42263897  0)
    42273898
    42283899(deftest misc.236
    4229   (funcall
    4230    (compile
    4231     nil
     3900  (call-compiled
    42323901    '(lambda (a b)
    42333902       (declare (optimize (speed 1) (space 0) (safety 3)
     
    42383907           (multiple-value-prog1 (catch 'ct7 a)
    42393908                                 0
    4240                                  (multiple-value-call #'%f18 (values 0 (%f8 b))))))))
     3909                                 (multiple-value-call #'%f18 (values 0 (%f8 b)))))))
    42413910   :good :bad)
    42423911  :good)
    42433912
    42443913(deftest misc.237
    4245   (funcall
    4246    (compile
    4247     nil
     3914  (call-compiled
    42483915    '(lambda ()
    42493916       (declare (optimize (speed 2) (space 2) (safety 3)
     
    42513918       (multiple-value-prog1 0
    42523919                             (catch 'ct7 (logandc1 (block b7 0)
    4253                                                    (throw 'ct7 -908543)))))))
     3920                                                   (throw 'ct7 -908543))))))
    42543921  0)
    42553922
     
    42583925;;;  NIL is not of type C::CONTINUATION
    42593926(deftest misc.238
    4260   (funcall
    4261    (compile
    4262     nil
     3927  (call-compiled
    42633928    '(lambda (a)
    42643929       (declare (type (integer -77145797 -1) a))
    42653930       (declare (optimize (speed 1) (space 1) (safety 3) (debug 3) (compilation-speed 1)))
    42663931       (flet ((%f5 (f5-1) a))
    4267          (%f5 (unwind-protect 0 (logand (- (catch 'ct5 0))))))))
     3932         (%f5 (unwind-protect 0 (logand (- (catch 'ct5 0)))))))
    42683933   -100)
    42693934  -100)
    42703935
    42713936(deftest misc.238a
    4272   (funcall
    4273    (compile
    4274     nil
     3937  (call-compiled
    42753938    '(lambda ()
    42763939       (declare (optimize (speed 3) (space 2) (safety 3)
    42773940                          (debug 0) (compilation-speed 0)))
    42783941       (min (load-time-value 0))
    4279        0)))
     3942       0))
    42803943  0)
    42813944
    42823945;;; (in C::MAYBE-LET-CONVERT)
    42833946(deftest misc.239
    4284   (funcall
    4285    (compile
    4286     nil
     3947  (call-compiled
    42873948    '(lambda (a)
    42883949       (declare (type (integer -2315418108387 111852261677) a))
     
    42953956                      (flet ((%f15 (f15-1 &optional (f15-2 (%f4)) (f15-3 0)) f15-3))
    42963957                        0)))
    4297            0))))
     3958           0)))
    42983959   100)
    42993960  0)
    43003961
    43013962(deftest misc.239a
    4302   (funcall
    4303    (compile nil '(lambda () (declare (optimize speed safety))
    4304                    (LET ((x (PROG1 0 (ROUND 18916)))) (catch 'ct4 0)))))
     3963  (call-compiled '(lambda () (declare (optimize speed safety))
     3964                   (LET ((x (PROG1 0 (ROUND 18916)))) (catch 'ct4 0))))
    43053965  0)
    43063966
    43073967(deftest misc.240
    4308   (funcall
    4309    (compile
    4310     nil
     3968  (call-compiled
    43113969    '(lambda (b)
    43123970       (declare (type (integer 4 7) b))
     
    43173975           (let ((*s1* b))
    43183976             (declare (special *s1*))
    4319              (+ 0 *s1*)))))))
     3977             (+ 0 *s1*))))))
    43203978   5)
    43213979  0)
     
    43243982;;; *** - Compiler bug!! Occurred in ASSEMBLE-LAP at ILLEGAL INSTRUCTION.
    43253983(deftest misc.241
    4326   (funcall
    4327    (compile
    4328     nil
     3984  (call-compiled
    43293985    '(lambda ()
    43303986       (declare (optimize (speed 3) (space 3) (safety 0) (debug 0) (compilation-speed 2)))
    4331        (labels ((%f17 (f17-1 f17-2) (multiple-value-prog1 0 0 0 (return-from %f17 0)))) (%f17 0 0)))))
     3987       (labels ((%f17 (f17-1 f17-2) (multiple-value-prog1 0 0 0 (return-from %f17 0)))) (%f17 0 0))))
    43323988  0)
    43333989
    43343990(deftest misc.242
    4335   (funcall (compile nil '(lambda (a) (block b6 (multiple-value-prog1 a (return-from b6 0))))) :wrong)
     3991  (call-compiled '(lambda (a) (block b6 (multiple-value-prog1 a (return-from b6 0)))) :wrong)
    43363992  0)
    43373993
    43383994(deftest misc.243
    4339   (funcall (compile nil '(lambda () (block b3 (return-from b3 (multiple-value-prog1 0 (return-from b3 0)))))))
     3995  (call-compiled '(lambda () (block b3 (return-from b3 (multiple-value-prog1 0 (return-from b3 0))))))
    43403996  0)
    43413997
    43423998;;; lispworks 4.3 (personal edition)
    43433999(deftest misc.244
    4344   (funcall
    4345    (compile
    4346     nil
     4000  (call-compiled
    43474001    '(lambda (b)
    43484002       (declare (optimize (speed 3) (space 1) (safety 2) (debug 3) (compilation-speed 2)))
    4349        (catch 'ct8 (labels ((%f4 (&optional (f4-1 0) (f4-2 (throw 'ct8 0))) f4-1)) (%f4 b)))))
     4003       (catch 'ct8 (labels ((%f4 (&optional (f4-1 0) (f4-2 (throw 'ct8 0))) f4-1)) (%f4 b))))
    43504004   :wrong)
    43514005  0)
    43524006
    43534007(deftest misc.245
    4354   (funcall
    4355    (compile
    4356     nil
     4008  (call-compiled
    43574009    '(lambda (a)
    43584010       (declare (optimize (speed 2) (space 0) (safety 0) (debug 2) (compilation-speed 1)))
    4359        (catch 'ct2 (labels ((%f11 (&optional (f11-1 (throw 'ct2 0))) a)) (apply #'%f11 0 nil)))))
     4011       (catch 'ct2 (labels ((%f11 (&optional (f11-1 (throw 'ct2 0))) a)) (apply #'%f11 0 nil))))
    43604012   20)
    43614013  20)
     
    43744026
    43754027(deftest misc.248
    4376   (funcall (compile nil '(lambda () (dotimes (i 0 0) 0))))
     4028  (call-compiled '(lambda () (dotimes (i 0 0) 0)))
    43774029  0)
    43784030
     
    43834035
    43844036(deftest misc.249
    4385   (funcall
    4386    (compile
    4387     nil
     4037  (call-compiled
    43884038    '(lambda (a b)
    43894039         (declare (notinline <=))
     
    43944044                           (ignore-errors 0)))
    43954045               (dotimes (iv4 5 a) (%f9 0 0 b)))
    4396            0)))
     4046           0))
    43974047   1 2)
    43984048  0)
     
    44004050;;; cmucl 11/2003
    44014051(deftest misc.250
    4402   (funcall
    4403    (compile
    4404     nil
     4052  (call-compiled
    44054053    '(lambda (a)
    44064054       (declare (type (integer -12 14) a))
     
    44164064                        v6)))))
    44174065                 0))
    4418            (%f11 0 0)))))
     4066           (%f11 0 0))))
    44194067   5)
    44204068  0)
     
    44304078
    44314079(deftest misc.251
    4432   (funcall
    4433    (compile
    4434     nil
     4080  (call-compiled
    44354081    '(lambda (a b)
    44364082       (declare (type (integer -186585769 -7483) a))
     
    44454091                (if (/= b a)
    44464092                    b
    4447                   (deposit-field (%f3 0 b 0) (byte 0 0) (%f3 0 0 (%f13 0 0)))))))))
     4093                  (deposit-field (%f3 0 b 0) (byte 0 0) (%f3 0 0 (%f13 0 0))))))))
    44484094   -10000 0)
    44494095  0)
     
    44514097;;; 8061593093 is not of type (INTEGER -2147483648 4294967295)
    44524098(deftest misc.252
    4453   (funcall
    4454    (compile
    4455     nil
     4099  (call-compiled
    44564100    '(lambda (b)
    44574101       (declare (type (integer -43443 9126488423) b))
    44584102       (declare (optimize (speed 3) (space 1) (safety 1) (debug 3) (compilation-speed 0)))
    4459        (logand (setq b 8061593093) (min b 0))))
     4103       (logand (setq b 8061593093) (min b 0)))
    44604104   0)
    44614105  0)
    44624106
    44634107(deftest misc.252a
    4464   (funcall
    4465    (compile
    4466     nil
     4108  (call-compiled
    44674109    '(lambda (a b)
    44684110       (declare (type (integer -30189 -6047) a))
     
    44764118                 (truncate b)))
    44774119           a
    4478          0)))
     4120         0))
    44794121   -12618 16130777867)
    44804122  -12618)
     
    44884130
    44894131(deftest misc.253
    4490   (funcall
    4491    (compile
    4492     nil
     4132  (call-compiled
    44934133    '(lambda ()
    44944134       (declare (optimize (speed 2) (space 2) (safety 3) (debug 3) (compilation-speed 2)))
    44954135       (flet ((%f17 (f17-1) 0))
    4496          (%f17 (logandc1 0 (catch 'ct2 0)))))))
     4136         (%f17 (logandc1 0 (catch 'ct2 0))))))
    44974137  0)
    44984138
    44994139(deftest misc.253a
    4500   (funcall
    4501    (compile
    4502     nil
     4140  (call-compiled
    45034141    '(lambda (c)
    45044142       (declare (optimize (speed 1) (space 1) (safety 3) (debug 2)
     
    45134151            1)
    45144152           (tagbody)
    4515            c))))
     4153           c)))
    45164154   -34661)
    45174155  -34661)
     
    45194157;;; Wrong return value
    45204158(deftest misc.254
    4521   (funcall
    4522    (compile
    4523     nil
     4159  (call-compiled
    45244160    '(lambda (a)
    45254161       (declare (type (integer -5241 -1159) a))
     
    45284164            (let ((*misc.254* (setq a -4929)))  ;; special variable
    45294165              (declare (special *misc.254*))
    4530               0))))
     4166              0)))
    45314167   -3000)
    45324168  3000)
    45334169
    45344170(deftest misc.255
    4535   (funcall
    4536    (compile
    4537     nil
     4171  (call-compiled
    45384172    '(lambda (b)
    45394173       (declare (type (integer -3474321 15089206) b))
     
    45424176          (block b3
    45434177            (setq b 9367613)
    4544             0))))
     4178            0)))
    45454179   10)
    45464180  10)
     
    45504184
    45514185(deftest misc.256
    4552   (funcall
    4553    (compile
    4554     nil
     4186  (call-compiled
    45554187    '(lambda ()
    45564188       (declare (optimize (speed 3) (space 0) (safety 3) (debug 0) (compilation-speed 0)))
    45574189       (tagbody (flet ((%f6 () (go 18))) (%f6))
    4558                 18))))
     4190                18)))
    45594191  nil)
    45604192
     
    45634195
    45644196(deftest misc.257
    4565   (funcall
    4566    (compile
    4567     nil
     4197  (call-compiled
    45684198    '(lambda ()
    45694199       (declare (optimize (speed 1) (space 2) (safety 3) (debug 3) (compilation-speed 1)))
     
    45734203                              (%f9 0 0 0))))
    45744204                  (%f1 0))
    4575                 tag2))))
     4205                tag2)))
    45764206  nil)
    45774207
     
    45804210
    45814211(deftest misc.258
    4582   (funcall
    4583    (compile
    4584     nil
     4212  (call-compiled
    45854213    '(lambda ()
    45864214       (declare (optimize (speed 1) (space 2) (safety 1) (debug 1)
     
    45894217         (declare (special *s4*))
    45904218         (progv '(*s4*) (list :wrong1) (setq *s4* :wrong2))
    4591          *s4*))))
     4219         *s4*)))
    45924220  :right)
    45934221
     
    45964224
    45974225(deftest misc.259
    4598   (funcall
    4599    (compile
    4600     nil
     4226  (call-compiled
    46014227    '(lambda (a)
    46024228         (declare (type (integer 177547470 226026978) a))
    46034229         (declare (optimize (speed 3) (space 0) (safety 0) (debug 0)
    46044230                            (compilation-speed 1)))
    4605          (logand a (* a 438810))))
     4231         (logand a (* a 438810)))
    46064232   215067723)
    46074233  13739018)
    46084234
    46094235(deftest misc.260
    4610   (funcall
    4611    (compile
    4612     nil
     4236  (call-compiled
    46134237    '(lambda (a)
    46144238         (declare (type (integer 43369342 45325981) a))
    46154239         (declare (optimize (speed 2) (space 0) (safety 2)
    46164240                            (debug 0) (compilation-speed 3)))
    4617          (logand 0 (* 5459177 a))))
     4241         (logand 0 (* 5459177 a)))
    46184242   44219966)
    46194243  0)
    46204244
    46214245(deftest misc.261
    4622   (funcall
    4623    (compile
    4624     nil
     4246  (call-compiled
    46254247    '(lambda (b)
    46264248         (declare (type (integer 379442022 806547932) b))
    46274249         (declare (optimize (speed 2) (space 0) (safety 0)
    46284250                            (debug 3) (compilation-speed 2)))
    4629          (logand b (* 227 b))))
     4251         (logand b (* 227 b)))
    46304252   551173513)
    46314253  545263625)
    46324254
    46334255(deftest misc.262
    4634   (funcall
    4635    (compile
    4636     nil
     4256  (call-compiled
    46374257    '(lambda (a)
    46384258       (declare (type (integer 515644 54674673) a))
    46394259       (declare (optimize (speed 3) (space 2) (safety 3)
    46404260                          (debug 0) (compilation-speed 1)))
    4641        (mask-field (byte 0 0) (* 613783109 a))))
     4261       (mask-field (byte 0 0) (* 613783109 a)))
    46424262   28831407)
    46434263  0)
    46444264
    46454265(deftest misc.263
    4646   (funcall
    4647    (compile
    4648     nil
     4266  (call-compiled
    46494267    '(lambda (a)
    46504268       (declare (type (integer 862944 60462138) a))
    46514269       (declare (optimize (speed 3) (space 3) (safety 0)
    46524270                          (debug 1) (compilation-speed 1)))
    4653        (logandc2 0 (* a 18094747))))
     4271       (logandc2 0 (* a 18094747)))
    46544272   36157847)
    46554273  0)
    46564274
    46574275(deftest misc.264
    4658   (funcall
    4659    (compile
    4660     nil
     4276  (call-compiled
    46614277    '(lambda (a)
    46624278       (declare (type (integer 896520522 1249309734) a))
    46634279       (declare (optimize (speed 3) (space 3) (safety 1)
    46644280                          (debug 1) (compilation-speed 2)))
    4665        (lognand 0 (* a 1381212086))))
     4281       (lognand 0 (* a 1381212086)))
    46664282   1202966173)
    46674283  -1)
     
    46724288
    46734289(deftest misc.265
    4674   (funcall
    4675    (compile
    4676     nil
     4290  (call-compiled
    46774291    '(lambda (a)
    46784292       (declare (type (integer -19621 11895) a))
    46794293       (declare (optimize (speed 3) (space 2) (safety 3)
    46804294                          (debug 3) (compilation-speed 3)))
    4681        (* 0 a 103754)))
     4295       (* 0 a 103754))
    46824296   1)
    46834297  0)
     
    46884302
    46894303(deftest misc.266
    4690   (funcall
    4691    (compile
    4692     nil
     4304  (call-compiled
    46934305    '(lambda ()
    46944306       (tagbody
    46954307        (flet ((%f (x) :bad)) (multiple-value-call #'%f (go done)))
    4696         done))))
     4308        done)))
    46974309  nil)
    46984310
    46994311(deftest misc.266a
    4700   (funcall
    4701    (compile
    4702     nil
     4312  (call-compiled
    47034313    '(lambda (b)
    47044314       (declare (type (integer -14356828946432 -24266) b))
    47054315       (declare (optimize (speed 3) (space 1) (safety 1) (debug 3)
    47064316                          (compilation-speed 2)))
    4707        (progn (tagbody (unwind-protect 0 (go 3)) 3) b)))
     4317       (progn (tagbody (unwind-protect 0 (go 3)) 3) b))
    47084318   -30000)
    47094319  -30000)
     
    47114321;;; Broken at C::C2VAR.
    47124322(deftest misc.266b
    4713   (funcall
    4714    (compile
    4715     nil
     4323  (call-compiled
    47164324    '(lambda (b)
    47174325       (declare (optimize (speed 2) (space 3) (safety 2) (debug 0)
    47184326                          (compilation-speed 0)))
    4719        (unwind-protect 0 (catch 'ct7 (prog1 b 0)))))
     4327       (unwind-protect 0 (catch 'ct7 (prog1 b 0))))
    47204328   1)
    47214329  0)
     
    47344342
    47354343(deftest misc.268
    4736   (funcall
    4737    (compile
    4738     nil
     4344  (call-compiled
    47394345    '(lambda ()
    47404346       (declare (optimize (speed 1) (space 1) (safety 3) (debug 2)
    47414347                          (compilation-speed 2)))
    47424348       (catch 'ct7
    4743          (rationalize (let ((v9 (1+ (throw 'ct7 0)))) 48955))))))
     4349         (rationalize (let ((v9 (1+ (throw 'ct7 0)))) 48955)))))
    47444350  0)
    47454351
    47464352(deftest misc.269
    4747   (funcall
    4748    (compile
    4749     nil
     4353  (call-compiled
    47504354    '(lambda (a)
    47514355       (declare (type (integer -1 20) a))
    47524356       (declare (optimize (speed 3) (space 1) (safety 2) (debug 2)
    47534357                          (compilation-speed 3)))
    4754        (if (if a (logbitp 34 a) nil) 0 -230678)))
     4358       (if (if a (logbitp 34 a) nil) 0 -230678))
    47554359   14)
    47564360  -230678)
     
    47694373
    47704374(deftest misc.272
    4771   (funcall
    4772    (compile
    4773     nil
     4375  (call-compiled
    47744376    '(lambda ()
    47754377       (declare (optimize (speed 3) (space 1) (safety 0) (debug 3)
    47764378                          (compilation-speed 2)))
    47774379       (flet ((%f17 (f17-1) 1))
    4778          (multiple-value-call #'%f17 (values (floor 0)))))))
     4380         (multiple-value-call #'%f17 (values (floor 0))))))
    47794381  1)
    47804382
     
    47844386
    47854387(deftest misc.273
    4786   (funcall
    4787    (compile
    4788     nil
     4388  (call-compiled
    47894389    '(lambda (d)
    47904390       (declare (optimize (speed 3) (space 0) (safety 3)
     
    47984398                         (return-from b7
    47994399                           (progv '(*s6*) (list 31) d))
    4800                          )))))))
     4400                         ))))))
    48014401   65)
    48024402  13)
     
    48064406
    48074407(deftest misc.274
    4808   (funcall
    4809    (compile
    4810     nil
     4408  (call-compiled
    48114409    '(lambda ()
    48124410       (declare
     
    48224420        (catch 'ct1
    48234421          (catch 'ct4
    4824             (complex (throw 'ct4 (dotimes (iv4 0 0) (throw 'ct1 0))) 0)))))))
     4422            (complex (throw 'ct4 (dotimes (iv4 0 0) (throw 'ct1 0))) 0))))))
    48254423  0)
    48264424
    48274425(deftest misc.274a
    4828   (funcall
    4829    (compile
    4830     nil
     4426  (call-compiled
    48314427    '(lambda ()
    48324428         (declare (optimize (speed 3) (space 1) (safety 3)
     
    48364432                  0
    48374433                  (catch 'ct2 (throw 'ct2 (rem 0 (max 46 0))))
    4838                   nil)))))
     4434                  nil))))
    48394435  0)
    48404436
     
    48434439
    48444440(deftest misc.275
    4845   (funcall
    4846    (compile
    4847     nil
     4441  (call-compiled
    48484442    '(lambda (b)
    48494443       (declare (notinline funcall min coerce))
     
    48614455                        0))
    48624456                     'integer)))
    4863          (funcall #'%f12 0))))
     4457         (funcall #'%f12 0)))
    48644458   -33)
    48654459  0)
    48664460
    48674461(deftest misc.275a
    4868   (funcall
    4869    (compile
    4870     nil
     4462  (call-compiled
    48714463    '(lambda ()
    48724464       (declare (optimize (speed 2) (space 0) (safety 2)
     
    48764468          (logcount
    48774469           (if t 0 (multiple-value-prog1 (identity 0) (return-from b4 0))))
    4878           'integer)))))
     4470          'integer))))
    48794471  0)
    48804472
     
    48834475
    48844476(deftest misc.276
    4885   (funcall
    4886    (compile
    4887     nil
     4477  (call-compiled
    48884478    `(lambda (b)
    48894479       (declare (optimize (speed 2) (space 0) (safety 0)
     
    48954485                   (unwind-protect b (labels ((%f6 ())) (%f6))
    48964486                                   ))))
    4897          (%f2))))
     4487         (%f2)))
    48984488   :good)
    48994489  :good)
     
    49034493;;; Error: In - of (1 NIL) arguments should be of type NUMBER
    49044494(deftest misc.277
    4905   (funcall
    4906    (compile
    4907     nil
     4495  (call-compiled
    49084496    '(lambda ()
    49094497       (declare (optimize (speed 3) (space 1) (safety 0)
     
    49124500                                  (tagbody (labels ((%f6 () (go tag1))) (%f6)) tag1)))
    49134501                      0))
    4914          (%f15)))))
     4502         (%f15))))
    49154503  0)
    49164504
    49174505;;; incorrect return value
    49184506(deftest misc.278
    4919   (funcall
    4920    (compile
    4921     nil
     4507  (call-compiled
    49224508    '(lambda ()
    49234509       (declare (optimize (speed 1) (space 0) (safety 2) (debug 3)
    49244510                          (compilation-speed 0)))
    49254511       (catch 'ct5 (flet ((%f2 (&optional (f2-4 (throw 'ct5 0))) 1))
    4926                      (%f2 (%f2 0)))))))
     4512                     (%f2 (%f2 0))))))
    49274513  1)
    49284514
    49294515;;; incorrect return value
    49304516(deftest misc.279
    4931   (funcall
    4932    (compile
    4933     nil
     4517  (call-compiled
    49344518    '(lambda ()
    49354519       (declare (optimize (speed 1) (space 1) (safety 3) (debug 0) (compilation-speed 3)))
     
    49374521                    (if (< 0 (dotimes (iv2 1 -501162)))
    49384522                        0 -14)))
    4939          (%f10)))))
     4523         (%f10))))
    49404524  -14)
    49414525
    49424526;;; incorrect return value (may be same bug as misc.278)
    49434527(deftest misc.280
    4944   (funcall
    4945    (compile
    4946     nil
     4528  (call-compiled
    49474529    '(lambda (a)
    49484530       (declare (optimize (speed 1) (space 3) (safety 1) (debug 3) (compilation-speed 2)))
     
    49554537                                   ))))
    49564538           (%f12)
    4957            a))))
     4539           a)))
    49584540   :good)
    49594541  :good)
     
    49614543;;; incorrect return value
    49624544(deftest misc.281
    4963   (funcall
    4964    (compile
    4965     nil
     4545  (call-compiled
    49664546    '(lambda (c)
    49674547       (declare (optimize (speed 3) (space 3) (safety 3) (debug 2) (compilation-speed 3)))
    4968        (ldb (byte 24 0) c)))
     4548       (ldb (byte 24 0) c))
    49694549   -227016367797)
    49704550  12919115)
     
    49724552;;; gcl: Error in COMPILER::CMP-ANON [or a callee]: The function COMPILER::LDB1 is undefined.
    49734553(deftest misc.282
    4974   (funcall (compile nil '(lambda () (declare (optimize safety))
    4975                            (ldb (byte 13 13) 43710))))
     4554  (call-compiled '(lambda () (declare (optimize safety))
     4555                           (ldb (byte 13 13) 43710)))
    49764556  5)
    49774557
     
    49794559;;; Error in COMPILER::CMP-ANON [or a callee]: T is not of type INTEGER.
    49804560(deftest misc.283
    4981   (funcall
    4982    (compile
    4983     nil
     4561  (call-compiled
    49844562    '(lambda (b d)
    49854563       (declare (optimize (speed 2) (space 2) (safety 1) (compilation-speed 3)))
     
    49914569                     0 b
    49924570                     (rational d))
    4993              0)))
     4571             0))
    49944572   2 4)
    49954573  1)
     
    49984576;;; (possibly the same bug as misc.283)
    49994577(deftest misc.284
    5000   (funcall
    5001    (compile
    5002     nil
     4578  (call-compiled
    50034579    '(lambda (c)
    50044580       (declare (optimize (speed 1) (space 1) (safety 2) (debug 3)
     
    50104586          tag2)
    50114587         (funcall (constantly 0)
    5012                   (apply (constantly 0) (signum c) nil)))))
     4588                  (apply (constantly 0) (signum c) nil))))
    50134589   3)
    50144590  0)
     
    50174593;;; Incorrect constant propagation
    50184594(deftest misc.285
    5019   (funcall
    5020    (compile
    5021     nil
     4595  (call-compiled
    50224596    '(lambda (a)
    50234597       (declare (optimize (speed 2) (space 0) (safety 0) (debug 2)
    50244598                          (compilation-speed 3)))
    5025        (block b7 (let* ((v1 (* (return-from b7 0) a))) -4359852))))
     4599       (block b7 (let* ((v1 (* (return-from b7 0) a))) -4359852)))
    50264600   1)
    50274601  0)
     
    50344608;;; Error in COMPILER::CMP-ANON [or a callee]: The function NIL is undefined.
    50354609(deftest misc.287
    5036   (funcall
    5037    (compile
    5038     nil
     4610  (call-compiled
    50394611    '(lambda (e)
    50404612       (declare (optimize (speed 1) (space 3) (safety 3) (debug 3)
     
    50464618                  (let* ((v4 (unwind-protect (go 0)))) 0)
    50474619                  0)
    5048                  (logand (handler-bind () 0)))))))
     4620                 (logand (handler-bind () 0))))))
    50494621   10)
    50504622  0)
     
    50694641
    50704642(deftest misc.288
    5071   (funcall
    5072    (compile
    5073     nil
     4643  (call-compiled
    50744644    '(lambda ()
    50754645       (declare (optimize (speed 1) (space 2) (safety 3) (debug 3)
    50764646                          (compilation-speed 2)))
    50774647       (let ((v2 (integer-length (expt 0 0))))
    5078          (dotimes (iv4 0 0) (logand v2))))))
     4648         (dotimes (iv4 0 0) (logand v2)))))
    50794649  0)
    50804650
     
    50834653
    50844654(deftest misc.289
    5085   (funcall
    5086    (compile
    5087     nil
     4655  (call-compiled
    50884656    '(lambda (b)
    50894657       (declare (optimize (speed 3) (space 1) (safety 1) (debug 2)
    50904658                          (compilation-speed 2)))
    50914659       (multiple-value-prog1 (apply (constantly 0) b 0 0 nil)
    5092                              (catch 'ct8 (throw 'ct8 -2)))))
     4660                             (catch 'ct8 (throw 'ct8 -2))))
    50934661   1)
    50944662  0)
     
    50984666
    50994667(deftest misc.290
    5100   (funcall
    5101    (compile
    5102     nil
     4668  (call-compiled
    51034669    '(lambda ()
    51044670       (declare
    51054671        (optimize (speed 3) (space 3) (safety 1)
    51064672                  (debug 2) (compilation-speed 0)))
    5107        (apply (constantly 0) (catch 'ct2 0) 0 (catch 'ct2 0) nil))))
     4673       (apply (constantly 0) (catch 'ct2 0) 0 (catch 'ct2 0) nil)))
    51084674  0)
    51094675
    51104676(deftest misc.290a
    5111   (funcall
    5112    (compile
    5113     nil
     4677  (call-compiled
    51144678    '(lambda ()
    51154679       (declare (optimize (speed 2) (space 1) (safety 0)
     
    51204684                 0)
    51214685               0)
    5122               (expt (apply (constantly 0) 0 0 (catch 'ct6 0) nil) 0)))))
     4686              (expt (apply (constantly 0) 0 0 (catch 'ct6 0) nil) 0))))
    51234687  -2)
    51244688
     
    51424706
    51434707(deftest misc.292
    5144   (funcall
    5145    (compile
    5146     nil
     4708  (call-compiled
    51474709    '(lambda (a b c)
    51484710       (declare
     
    51604722         (flet ((%f14 (f14-1 &optional (f14-2 b) (f14-3 0) (f14-4 0))
    51614723                      (%f15 0 0 b)))
    5162            (%f14 0 c)))))
     4724           (%f14 0 c))))
    51634725   1 2 3)
    51644726  0)
    51654727
    51664728(deftest misc.292a
    5167   (funcall
    5168    (compile
    5169     nil
     4729  (call-compiled
    51704730    '(lambda (a b)
    51714731       (declare (optimize (speed 2) (space 0) (safety 3) (debug 1)
     
    51854745                       nil))
    51864746              0
    5187               nil)))
     4747              nil))
    51884748   1 2)
    51894749  0)
     
    51924752
    51934753(deftest misc.293
    5194   (funcall
    5195    (compile
    5196     nil
     4754  (call-compiled
    51974755    '(lambda (a)
    51984756       (declare (optimize (speed 2) (space 1) (safety 3) (debug 3)
     
    52034761                (let ((*s4* (%f9 0)))
    52044762                  0))))
    5205          0)))
     4763         0))
    52064764   1)
    52074765  0)
    52084766
    52094767(deftest misc.293a
    5210   (funcall
    5211    (compile
    5212     nil
     4768  (call-compiled
    52134769    '(lambda (a b c)
    52144770       (declare (optimize (speed 2) (space 3) (safety 1)
     
    52204776            (return-from b6
    52214777              (catch 'ct2
    5222                 (complex (cl::handler-bind nil -254932942) 0))))))))
     4778                (complex (cl::handler-bind nil -254932942) 0)))))))
    52234779   1 2 3)
    52244780  -254932942)
    52254781
    52264782(deftest misc.293b
    5227   (funcall
    5228    (compile
    5229     nil
     4783  (call-compiled
    52304784    '(lambda ()
    52314785       (declare (notinline complex))
     
    52334787                          (debug 3) (compilation-speed 3)))
    52344788       (flet ((%f () (multiple-value-prog1 0 (return-from %f 0))))
    5235          (complex (%f) 0)))))
     4789         (complex (%f) 0))))
    52364790  0)
    52374791
    52384792(deftest misc.293c
    5239   (funcall
    5240    (compile
    5241     nil
     4793  (call-compiled
    52424794    '(lambda (a b)
    52434795           (declare (type (integer -6556 -33) a))
     
    52564808               (catch 'ct7 (return-from b4 (catch 'ct6 (if a 0 b))))
    52574809               0
    5258                0))))
     4810               0)))
    52594811   -237 -1365751422718)
    52604812  0)
    52614813
    52624814(deftest misc.293d
    5263   (funcall
    5264    (compile
    5265     nil
     4815  (call-compiled
    52664816    '(lambda ()
    52674817       (declare (optimize (debug 3) (safety 0) (space 2)
     
    52714821               0
    52724822               (catch 'ct8
    5273                  (return-from b4 (catch 'ct2 (progn (tagbody) 0)))))))))
     4823                 (return-from b4 (catch 'ct2 (progn (tagbody) 0))))))))
    52744824  0)
    52754825   
     
    52784828
    52794829(deftest misc.294
    5280   (funcall
    5281    (compile
    5282     nil
     4830  (call-compiled
    52834831    '(lambda (a b c)
    52844832       (declare (notinline /=))
     
    52914839                                    0 (throw 'ct1 a) c)))))
    52924840             (let ((*s3* (%f1 a a 0)))
    5293                0)))))
     4841               0))))
    52944842   1 2 3)
    52954843  0)
    52964844
    52974845(deftest misc.294a
    5298   (funcall
    5299    (compile
    5300     nil
     4846  (call-compiled
    53014847    '(lambda (a b c)
    53024848       (declare (notinline expt))
     
    53074853          (catch 'ct2
    53084854            (throw 'ct2 (if a 0 (multiple-value-prog1 0 (throw 'ct2 c) 0))))
    5309           0))))
     4855          0)))
    53104856   1 2 3)
    53114857  1)
     
    53144860
    53154861(deftest misc.295
    5316   (funcall
    5317    (compile
    5318     nil
     4862  (call-compiled
    53194863    '(lambda (a b c)
    53204864       (declare (type (integer -2858 1050811) a))
     
    53794923                     (progv nil nil (prog1 b 22 c a)))))))))
    53804924        (catch 'ct1 (throw 'ct1 0))
    5381         0)))
     4925        0))
    53824926   794801 211700 -1246335)
    53834927  7)
     
    53864930
    53874931(deftest misc.296
    5388   (funcall
    5389    (compile
    5390     nil
     4932  (call-compiled
    53914933    '(lambda (a b c d e f g h)
    53924934          (declare (type (integer -2016726144 234357120) a))
     
    54274969                                 0)))
    54284970                  (%f14 0 0))
    5429                 0)))
     4971                0))
    54304972   -28594854 -3859203606860 -40757449218 894599577 -4163 11621230
    54314973   29558853 -92216802)
     
    54344976
    54354977(deftest misc.297
    5436   (funcall
    5437    (compile
    5438     nil
     4978  (call-compiled
    54394979    '(lambda (a b c d e f g h)
    54404980          (declare (type (integer -4354712743936 666241234) a))
     
    54635003                                      (apply #'%f6 0 nil))))
    54645004                        0))
    5465             (%f7 0 d 0 f d))))
     5005            (%f7 0 d 0 f d)))
    54665006    -4319330882538 -3195059121 -2799927 -1466395 10630639 -224479
    54675007    -502579707077 -985908422)
     
    54695009
    54705010(deftest misc.298
    5471   (funcall
    5472    (compile
    5473     nil
     5011  (call-compiled
    54745012    '(lambda (a b c d e f g h)
    54755013          (declare (type (integer 1296736620544 1680954654720) a))
     
    54895027              0
    54905028              (numerator (funcall (constantly 0) (logorc2 0 0) 0)))
    5491             0)))
     5029            0))
    54925030   1451922002679 -2 285 1067997670626 1115209 -37445463114
    54935031         36530345360 -80501559891)
     
    54955033
    54965034(deftest misc.299
    5497   (funcall
    5498    (compile
    5499     nil
     5035  (call-compiled
    55005036    '(lambda (a b c d e f g h)
    55015037          (declare (type (integer -1814 3348) a))
     
    55355071                                        h)))))))
    55365072                    0))
    5537                 0))))
     5073                0)))
    55385074   1555 -22062210 85224215 -161218251003 78463284 730073
    55395075   33930166854 37839245921)
     
    55415077
    55425078(deftest misc.300
    5543   (funcall
    5544    (compile
    5545     nil
     5079  (call-compiled
    55465080    '(lambda (a b c d e f g h)
    55475081          (declare (type (integer -29429 -3320) a))
     
    55765110                                    (byte 0 0) 0))
    55775111                             0)))
    5578               (%f12 0 (%f17 0) 0)))))
     5112              (%f12 0 (%f17 0) 0))))
    55795113   -6416 -274982013 2946309248013 1724720 -228 5782683458 21484
    55805114   -1681168611256)
     
    55835117
    55845118(deftest misc.301
    5585   (funcall
    5586    (compile
    5587     nil
     5119  (call-compiled
    55885120    '(lambda (a b c d e f g h)
    55895121          (declare (type (integer -1814 3348) a))
     
    56235155                                        h)))))))
    56245156                    0))
    5625                 0))))
     5157                0)))
    56265158   1555 -22062210 85224215 -161218251003 78463284 730073
    56275159   33930166854 37839245921)
     
    56295161
    56305162(deftest misc.302
    5631   (funcall
    5632    (compile
    5633     nil
     5163  (call-compiled
    56345164    '(lambda (a b c d e f g h)
    56355165          (declare (type (integer -206837809920 -126404559104) a))
     
    56525182                                         (apply #'%f1 0 0 (list))))))
    56535183                       0))
    5654             (%f12 0 e))))
     5184            (%f12 0 e)))
    56555185   -195379170409 -30212852077 -1 -2082141 -1686846623470 360505
    56565186   -324299330279 37218064)
     
    56585188
    56595189(deftest misc.303
    5660   (funcall
    5661    (compile
    5662     nil
     5190  (call-compiled
    56635191    '(lambda (a b c d e f g h)
    56645192          (declare (type (integer -55724018 0) a))
     
    56865214                      0)
    56875215                    0))
    5688               0))))
     5216              0)))
    56895217   -23410726 -4342503 20297113275 80145634 -17664 937086103773 -1
    56905218   2923877584757)
     
    56925220
    56935221(deftest misc.304
    5694   (funcall
    5695    (compile
    5696     nil
     5222  (call-compiled
    56975223    '(lambda (a b c d e f g h)
    56985224          (declare (type (integer -11679 1672) a))
     
    57155241                         tag2)
    57165242                       0)
    5717                      h (cl::handler-case 0))))))
     5243                     h (cl::handler-case 0)))))
    57185244   -7209 -223767 -42093806027 -9 132172281069 138363461574
    57195245   -3751010 0)
     
    57215247
    57225248(deftest misc.305
    5723   (funcall
    5724    (compile
    5725     nil
     5249  (call-compiled
    57265250    '(lambda (a b c d e f g h)
    57275251          (declare (type (integer -438 247) a))
     
    57505274                                  c)
    57515275                                'integer))))
    5752             (if (%f5 d 0 e 0 0) h 0))))
     5276            (if (%f5 d 0 e 0 0) h 0)))
    57535277   -58 -22237190 2055343 -8144832891 1213 19038103159 -1009345
    57545278   929619162)
     
    57565280
    57575281(deftest misc.306
    5758   (funcall
    5759    (compile
    5760     nil
     5282  (call-compiled
    57615283    '(lambda (a b c d e f g h)
    57625284          (declare (type (integer 261 234565) a))
     
    57775299                        (multiple-value-bind (*s4*)
    57785300                            (logxor 0 (expt -2 1))
    5779                           (truncate 0)))))))
     5301                          (truncate 0))))))
    57805302   130724 -736795298357 -1221747467 326 -9775240900 -94105708
    57815303   -2273680158 -1156846)
     
    57835305
    57845306(deftest misc.307
    5785   (funcall
    5786    (compile
    5787     nil
     5307  (call-compiled
    57885308    '(lambda (a b c d e f g h)
    57895309          (declare (type (integer -2903632 1282236) a))
     
    58095329                      (logand (cl::handler-bind ()
    58105330                                (logand -15 -2 32578787 10349 e
    5811                                         -24781944 -8)))))))))
     5331                                        -24781944 -8))))))))
    58125332   60336 1625 124302 -33193 -8095855 4995857 0 4572381)
    58135333  0)
    58145334
    58155335(deftest misc.308
    5816   (funcall
    5817    (compile
    5818     nil
     5336  (call-compiled
    58195337    '(lambda (a b c d e f g h)
    58205338          (declare (type (integer -2806612475904 8750665416704) a))
     
    58335351                          0
    58345352                          (return-from %f7 (mask-field (byte 0 0) 0)))))
    5835             (unwind-protect (%f7 0)))))
     5353            (unwind-protect (%f7 0))))
    58365354   1951007924893 10 -49879990 614214833752 -1808568999586 1282634
    58375355   99 -2783010573143)
     
    58395357
    58405358(deftest misc.309
    5841   (funcall
    5842    (compile
    5843     nil
     5359  (call-compiled
    58445360    '(lambda (a b c d e f g h)
    58455361          (declare (type (integer -521338 12) a))
     
    58645380                               (let ((*s8* 0)) (round 0))))))
    58655381              0
    5866               0))))
     5382              0)))
    58675383   -275760 -565946697213 9650536069 -37585973 1536165173011
    58685384   -12895970021 -102192 -534)
     
    58715387
    58725388(deftest misc.310
    5873   (funcall
    5874    (compile
    5875     nil
     5389  (call-compiled
    58765390    '(lambda (a b c d e f g h)
    58775391          (declare (type (integer -2016726144 234357120) a))
     
    59125426                                 0)))
    59135427                  (%f14 0 0))
    5914                 0)))
     5428                0))
    59155429   -28594854 -3859203606860 -40757449218 894599577 -4163 11621230
    59165430   29558853 -92216802)
     
    59185432
    59195433(deftest misc.311
    5920   (funcall
    5921    (compile
    5922     nil
     5434  (call-compiled
    59235435    '(lambda (a b c d e f g h)
    59245436          (declare (type (integer -1203392327680 -3017953) a))
     
    59595471                              (f2-5 0) (f2-6 0))
    59605472                        0))
    5961             (%f2 0 0 f))))
     5473            (%f2 0 0 f)))
    59625474   -738307241633 -25016 -846570136 2181696281793 -983259 24 36
    59635475   -185316211)
     
    59665478
    59675479(deftest misc.312
    5968   (funcall
    5969    (compile
    5970     nil
     5480  (call-compiled
    59715481    '(lambda (a b c d e f g h)
    59725482          (declare (type (integer -18334222 14354736) a))
     
    59925502                                0))
    59935503                          0)))
    5994             0)))
     5504            0))
    59955505   7112398 3547401482305 -12827294644277 23312291 -444957551
    59965506   -5443955020 -1 4998457143)
     
    59985508
    59995509(deftest misc.313
    6000   (funcall
    6001    (compile
    6002     nil
     5510  (call-compiled
    60035511    '(lambda (a b c d e f g h)
    60045512          (declare (type (integer 55474 401001) a))
     
    60415549                                (f6-5 0))
    60425550                          0))
    6043               (apply #'%f6 0 0 h nil)))))
     5551              (apply #'%f6 0 0 h nil))))
    60445552   93287 3146418586486 -51786 0 -63479145888 1935918 -10058 -2033798238)
    60455553  0)
    60465554
    60475555(deftest misc.314
    6048   (funcall
    6049    (compile
    6050     nil
     5556  (call-compiled
    60515557    '(lambda (a b c d e f g h)
    60525558          (declare (type (integer -176150296 698) a))
     
    60705576                            (funcall #'%f13 0 a (%f11))))))
    60715577                0))
    6072             0)))
     5578            0))
    60735579   -90583503 -61289371485 -1 175888 -3 3257970 -3264725617  -6816839328)
    60745580  0)
     
    60815587
    60825588(deftest misc.316
    6083   (funcall
    6084    (compile
    6085     nil
     5589  (call-compiled
    60865590    '(lambda (a c)
    60875591       (declare (optimize (speed 2) (space 3) (safety 2) (debug 2)
     
    60945598                                   c)
    60955599                         tag4)
    6096                 c))))
     5600                c)))
    60975601   1 2)
    60985602  0)
     
    61025606;;; wrong value returned
    61035607(deftest misc.317
    6104   (funcall
    6105    (compile
    6106     nil
     5608  (call-compiled
    61075609    '(lambda ()
    61085610       (declare (optimize (speed 1) (space 1) (safety 3) (debug 0)
     
    61105612       (catch 'ct4
    61115613         (elt '(40760)
    6112               (min 0 (max 0 (let* ((v3 (* (throw 'ct4 0) 0))) 0))))))))
     5614              (min 0 (max 0 (let* ((v3 (* (throw 'ct4 0) 0))) 0)))))))
    61135615  0)
    61145616
    61155617;;; seg fault
    61165618(deftest misc.318
    6117   (funcall
    6118    (compile
    6119     nil
     5619  (call-compiled
    61205620    '(lambda (a b c)
    61215621       (declare (type (integer -2050548150 4917) a))
     
    61385638                   0)
    61395639             a)
    6140          0)))
     5640         0))
    61415641   10 1 99335934976)
    61425642  10)
     
    61445644;;; seg fault
    61455645(deftest misc.319
    6146   (funcall
    6147    (compile
    6148     nil
     5646  (call-compiled
    61495647    '(lambda (a b c)
    61505648       (declare (type (integer -626615938 3649977016320) a))
     
    61595657                                  (apply #'%f10 (%f10 0 a 0) 0 c nil)))
    61605658                        (complex (%f4 0 0) 0))))
    6161            0 0)))
     5659           0 0))
    61625660   2378435476701 1646880 246794654)
    61635661  0)
     
    61675665
    61685666(deftest misc.320
    6169   (funcall
    6170    (compile
    6171     nil
     5667  (call-compiled
    61725668    '(lambda ()
    61735669       (declare (optimize (speed 3) (space 0) (safety 2)
     
    61765672         (elt '(102)
    61775673              (flet ((%f12 () (rem 0 -43)))
    6178                 (multiple-value-call #'%f12 (values))))))))
     5674                (multiple-value-call #'%f12 (values)))))))
    61795675  102)
    61805676
    61815677(deftest misc.320a
    6182   (funcall
    6183    (compile
    6184     nil
     5678  (call-compiled
    61855679    '(lambda (b)
    61865680       (declare (optimize (speed 3) (space 0) (safety 2)
     
    61925686                             0)
    61935687                       (rem 0 -71))
    6194                  )))
     5688                 ))
    61955689   2)
    61965690  0)
    61975691
    61985692(deftest misc.320b
    6199   (funcall
    6200    (compile
    6201     nil
     5693  (call-compiled
    62025694    '(lambda (a b c)
    62035695       (declare (type (integer -690191 -454473) a))
     
    62155707                 (max 0
    62165708                      (reduce #'(lambda (lmv6 lmv5) (mod 0 (min -86 0)))
    6217                               (list 0 0)))))))
     5709                              (list 0 0))))))
    62185710   -512398 -156405 1140919327630)
    62195711  3327764) 
     
    62235715
    62245716(deftest misc.321
    6225   (funcall
    6226    (compile
    6227     nil
     5717  (call-compiled
    62285718    '(lambda (p)
    62295719       (declare (optimize (speed 1) (space 3) (safety 2) (debug 1)
     
    62315721       (catch 'ct2
    62325722         (let* ((v3 (- (if p (throw 'ct2 :good) 0))))
    6233            :bad))))
     5723           :bad)))
    62345724   t)
    62355725  :good)
     
    62375727;;; segfault
    62385728(deftest misc.322
    6239   (funcall
    6240    (compile
    6241     nil
     5729  (call-compiled
    62425730    '(lambda (a)
    62435731       (declare (optimize (speed 2) (space 2) (safety 0) (debug 3)
    62445732                          (compilation-speed 2)))
    62455733       (logorc2 (labels ((%f14 (f14-1) a)) (%f14 0))
    6246                 (reduce #'(lambda (lmv1 lmv2) a) (list 0 0)))))
     5734                (reduce #'(lambda (lmv1 lmv2) a) (list 0 0))))
    62475735   3151096069)
    62485736  -1)
     
    62595747                           (vector (reduce #'logand (vector 0 0) . ,tail) 0)
    62605748                           . ,tail)))))
    6261     (funcall (compile nil form)))
     5749    (call-compiled form))
    62625750  0)
    62635751
     
    62655753
    62665754(deftest misc.324
    6267   (funcall
    6268    (compile
    6269     nil
     5755  (call-compiled
    62705756    '(lambda (a)
    62715757       (declare (optimize (speed 2) (space 2) (safety 3) (debug 2)
     
    62735759       (labels ((%f6 (f6-1) (multiple-value-setq (a) 0)))
    62745760         (reduce #'(lambda (lmv4 lmv3) a)
    6275                  (list (%f6 0) 2)))))
     5761                 (list (%f6 0) 2))))
    62765762   1)
    62775763  0)
     
    62815767
    62825768(deftest misc.325
    6283   (funcall
    6284    (compile
    6285     nil
     5769  (call-compiled
    62865770    '(lambda (a b)
    62875771       (declare (type (integer -1659358 3099614928896) a))
     
    62925776       (reduce #'(lambda (lmv5 lmv6)
    62935777                   (multiple-value-setq (a) 2443855591508))
    6294                (vector b a 0 0) :from-end t)))
     5778               (vector b a 0 0) :from-end t))
    62955779   1 2)
    62965780  2443855591508)
     
    62985782;;; wrong value
    62995783(deftest misc.326
    6300   (funcall
    6301    (compile
    6302     nil
     5784  (call-compiled
    63035785    '(lambda (b)
    63045786       (declare (type (integer 155 7955) b))
    63055787       (declare (optimize (speed 3) (space 3) (safety 3) (debug 1)
    63065788                          (compilation-speed 0)))
    6307        (flet ((%f13 (f13-1) (shiftf b 3019))) (+ b (%f13 0)))))
     5789       (flet ((%f13 (f13-1) (shiftf b 3019))) (+ b (%f13 0))))
    63085790   200)
    63095791  400)
     
    63135795
    63145796(deftest misc.327
    6315   (funcall
    6316    (compile
    6317     nil
     5797  (call-compiled
    63185798    '(lambda (a b)
    63195799       (declare (type (integer -67668056 -55) a))
     
    63355815                                        :start 1
    63365816                                        :from-end t)))))))
    6337      (%f15 0))))
     5817     (%f15 0)))
    63385818   -38276611 -11001852)
    63395819  1073730663)
     
    63415821;;; wrong return value: T
    63425822(deftest misc.327a
    6343   (funcall
    6344    (compile
    6345     nil
     5823  (call-compiled
    63465824    '(lambda (a b c d e)
    63475825       (declare (notinline max vector reduce))
     
    63535831               
    63545832               :end 2
    6355                :from-end t)))
     5833               :from-end t))
    63565834   68664683637 328245 881497115 -303855 311427)
    63575835  0)
     
    63625840
    63635841(deftest misc.328
    6364   (funcall
    6365    (compile
    6366     nil
     5842  (call-compiled
    63675843    '(lambda (a b)
    63685844       (declare (type (integer -11368047588 14412128900) a))
     
    63715847       (declare (optimize (speed 3) (space 1) (safety 3) (debug 0)
    63725848                          (compilation-speed 0)))
    6373        (if (logbitp 0 (if (or t nil) (setf a -2616861879) 0)) 0 0)))
     5849       (if (logbitp 0 (if (or t nil) (setf a -2616861879) 0)) 0 0))
    63745850   -4836700955 -1)
    63755851  0)
     
    63775853;;; Incorrect value
    63785854(deftest misc.329
    6379   (funcall
    6380    (compile
    6381     nil
     5855  (call-compiled
    63825856    '(lambda (a b)
    63835857       (declare (type (integer -725661427 405092) a))
     
    63885862       (let ((*s2* (case b ((53651 62711 29537 25305 62250) 0) (t 0))))
    63895863         (declare (special *s2*))
    6390          (setq a -688292831))))
     5864         (setq a -688292831)))
    63915865   -406606203 84436335326)
    63925866  -688292831)
    63935867
    63945868(deftest misc.330
    6395   (funcall
    6396    (compile
    6397     nil
     5869  (call-compiled
    63985870    '(lambda (a b)
    63995871       (declare (type (integer -12816761394938 -8706928710678) a))
     
    64025874       (declare (optimize (speed 3) (space 0) (safety 0) (debug 3)
    64035875                          (compilation-speed 2)))
    6404        (lcm (block b8 (signum (return-from b8 a))))))
     5876       (lcm (block b8 (signum (return-from b8 a)))))
    64055877   -12715609319989 -582329850697)
    64065878  12715609319989)
    64075879
    64085880(deftest misc.331
    6409   (funcall
    6410    (compile
    6411     nil
     5881  (call-compiled
    64125882    '(lambda (a b)
    64135883       (declare (type (integer -777352478 239900) a))
     
    64165886       (declare (optimize (speed 3) (space 0) (safety 0) (debug 2)
    64175887                          (compilation-speed 3)))
    6418        (if (if (>= 0) t t) (setq b -25319949896) b)))
     5888       (if (if (>= 0) t t) (setq b -25319949896) b))
    64195889   0 -10000)
    64205890  -25319949896)
     
    64235893;;;   The value 0 is not of type org.armedbear.lisp.Symbol@80f563d8.
    64245894(deftest misc.332
    6425   (funcall
    6426    (compile
    6427     nil
     5895  (call-compiled
    64285896    '(lambda (a b)
    64295897       (declare (notinline max logorc1 numerator rem))
     
    64335901                            tag5)
    64345902                   0)
    6435             (max 93 0))))
     5903            (max 93 0)))
    64365904   -801 17641908)
    64375905  0)
     
    64415909
    64425910(deftest misc.333
    6443   (funcall
    6444    (compile
    6445     nil
     5911  (call-compiled
    64465912    '(lambda ()
    64475913       (declare (notinline logxor))
     
    64505916       (logxor (progn (tagbody (let* ((*s4* (progn (go 1) 0))) 0)
    64515917                               1)
    6452                       0)))))
     5918                      0))))
    64535919  0)
    64545920
     
    64565922;;;  Wrong number of arguments for EXPT.
    64575923(deftest misc.334
    6458   (funcall
    6459    (compile
    6460     nil
     5924  (call-compiled
    64615925    '(lambda (a b c)
    64625926       (declare (type (integer 1892675246514 8763564964618) a))
     
    64665930       (declare (optimize (speed 3) (space 2) (safety 0) (debug 2)
    64675931                          (compilation-speed 1)))
    6468        (+ (block b6 (expt (return-from b6 b) 0)))))
     5932       (+ (block b6 (expt (return-from b6 b) 0))))
    64695933   3966745735633 -1123 2030094113)
    64705934  -1123)
     
    64875951;;; Incorrect return value
    64885952(deftest misc.337
    6489   (funcall
    6490    (compile
    6491     nil
     5953  (call-compiled
    64925954    '(lambda ()
    64935955       (declare (optimize (speed 2) (space 2) (safety 2) (debug 0)
    64945956                          (compilation-speed 0)))
    64955957       (imagpart (block b8
    6496                    (logior (block b7 (return-from b8 225480400))))))))
     5958                   (logior (block b7 (return-from b8 225480400)))))))
    64975959  0)
    64985960
     
    65015963  (let #+armedbear ((jvm::*catch-errors* nil))
    65025964       nil
    6503        (funcall
    6504         (compile
    6505          nil
     5965       (call-compiled
    65065966         '(lambda (c)
    6507             (conjugate (block b8 (max (if c (return-from b8 0) 0))))))
     5967            (conjugate (block b8 (max (if c (return-from b8 0) 0)))))
    65085968        10))
    65095969  0)
     
    65145974   #+armedbear ((jvm::*catch-errors* nil))
    65155975   nil
    6516    (funcall
    6517     (compile
    6518      nil
     5976   (call-compiled
    65195977     '(lambda ()
    65205978        (declare (optimize (speed 1) (space 3) (safety 3) (debug 0)
     
    65265984                  :start  0
    65275985                  :from-end t
    6528                   ))))))
     5986                  )))))
    65295987  0)
    65305988
    65315989;;;   The value INTEGER is not of type sequence.
    65325990(deftest misc.340
    6533   (funcall
    6534    (compile
    6535     nil
     5991  (call-compiled
    65365992    '(lambda (a b c)
    65375993       (declare (type (integer -4379340 -1962) a))
     
    65476003                                            tag3)
    65486004                                   0))
    6549                'integer)))
     6005               'integer))
    65506006   -1625211 3052955 -2091182035681)
    65516007  0)
     
    65566012   #+armedbear ((jvm::*catch-errors* nil))
    65576013   nil
    6558    (funcall
    6559     (compile
    6560      nil
     6014   (call-compiled
    65616015     '(lambda (c)
    65626016        (declare (optimize (speed 2) (space 1) (safety 1) (debug 2)
     
    65656019                  (logeqv (case 0
    65666020                            ((45293 29462 60403) (return-from b6 0))
    6567                             (t c)))))))
     6021                            (t c))))))
    65686022    10))
    65696023  10)
     
    65746028   #+armedbear ((jvm::*catch-errors* nil))
    65756029   nil
    6576    (funcall
    6577     (compile
    6578      nil
     6030   (call-compiled
    65796031     '(lambda (a)
    65806032        (declare (optimize (speed 1) (space 0) (safety 2) (debug 1)
     
    65826034        (progn (tagbody (imagpart (dotimes (iv3 0 a) (go 4)))
    65836035                        4)
    6584                0)))
     6036               0))
    65856037    1))
    65866038  0)
     
    65916043   #+armedbear ((jvm::*catch-errors* nil))
    65926044   nil
    6593    (funcall
    6594     (compile
    6595      nil
     6045   (call-compiled
    65966046     '(lambda ()
    65976047        (declare (optimize (speed 2) (space 3) (safety 2) (debug 3)
     
    66036053                              :end      3
    66046054                              :start    0
    6605                               :from-end t)))))))
     6055                              :from-end t))))))
    66066056  0)
    66076057
    66086058;;; Wrong value
    66096059(deftest misc.344
    6610   (funcall
    6611    (compile
    6612     nil
     6060  (call-compiled
    66136061    '(lambda (a)
    66146062       (declare (type (integer -3464434 12316202) a))
     
    66176065       (progn (tagbody (gcd (expt (setf a -2612809) 0) (go 5))
    66186066                       5)
    6619               a)))
     6067              a))
    66206068   1891348)
    66216069  -2612809)
     
    66266074   #+armedbear ((jvm::*catch-errors* nil))
    66276075   nil
    6628    (funcall
    6629     (compile
    6630      nil
     6076   (call-compiled
    66316077     '(lambda (a b c)
    66326078        (declare (type (integer -1968 -1759) a))
     
    66436089                                                       (return-from b1 0)))))
    66446090                            (progn 0))))
    6645              (sbit #*0001011010010 (min 12 (max 0 0))))))
     6091             (sbit #*0001011010010 (min 12 (max 0 0)))))
    66466092    -1957 523078358699 -634832888815))
    66476093  0)