/[gcl]/gcl/ansi-tests/misc.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/misc.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by pfdietz, Sat Oct 25 17:35:19 2003 UTC revision 1.17 by pfdietz, Sat Oct 25 20:06:58 2003 UTC
# Line 1269  Line 1269 
1269     259448422916 173715)     259448422916 173715)
1270    259448422916)    259448422916)
1271    
1272    (deftest misc.102
1273      (funcall
1274       (compile nil '(lambda (b)
1275                       (declare (type (integer -1598566306 2941) b))
1276                       (declare (optimize (speed 3)))
1277                       (max -148949 (ignore-errors b))))
1278       0)
1279      0)
1280    
1281    (deftest misc.103
1282      (funcall
1283       (compile nil '(lambda (a b)
1284                       (min -80
1285                            (abs
1286                             (ignore-errors
1287                               (+
1288                                (logeqv b
1289                                        (block b6
1290                                          (return-from b6
1291                                            (load-time-value -6876935))))
1292                                (if (logbitp 1 a) b (setq a -1522022182249))))))))
1293       -1802767029877 -12374959963)
1294      -80)
1295    
1296    (deftest misc.104
1297      (funcall
1298       (compile nil '(lambda (a) (declare (type (integer 55400028 60748067) a))
1299                       (lognand 1505 (ash a (let () 40)))))
1300       58194485)
1301      -1)
1302    
1303    (deftest misc.105
1304      (funcall
1305       (compile nil '(lambda (b c)
1306                       (declare (type (integer -4 -3) c))
1307                       (block b7
1308                         (flet ((%f1 (f1-1 f1-2 f1-3)
1309                                     (if (logbitp 0 (return-from b7
1310                                                      (- -815145138 f1-2)))
1311                                         (return-from b7 -2611670)
1312                                       99345)))
1313                           (let ((v2 (%f1 -2464 (%f1 -1146 c c) -2)))
1314                             b)))))
1315       2950453607 -4)
1316      -815145134)

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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