/[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.13 by pfdietz, Fri Oct 17 02:53:19 2003 UTC revision 1.14 by pfdietz, Sat Oct 18 19:36:03 2003 UTC
# Line 1086  Line 1086 
1086           '(x y z))           '(x y z))
1087    z)    z)
1088    
1089    ;;; cmucl bug (18e+ 10/15/03)
1090  (deftest misc.88  (deftest misc.88
1091    (eval '(block b3    (eval '(block b3
1092             (max (return-from b3 1)             (max (return-from b3 1)
1093                  (if (unwind-protect (unwind-protect 2)) 3 4))))                  (if (unwind-protect (unwind-protect 2)) 3 4))))
1094    1)    1)
1095    
1096    ;;; cmucl bug (18e+ 10/15/03)
1097    (deftest misc.89
1098      (funcall
1099       (compile nil
1100                '(lambda (c)
1101                   (declare (type (integer 0 130304) c))
1102                   (- (rem -26 (max 25 (load-time-value 505849129)))
1103                      (* -15718867961526428520296254978781964 c))))
1104       0)
1105      26)
1106    
1107    ;;; acl bug (version 6.2, linux x86 trial)
1108    (deftest misc.90
1109      (let* ((form '(- 0 (ignore-errors 20763)
1110                       (logxor b 1 c -7672794) b))
1111             (fn1 `(lambda (b c)
1112                     (declare (type (integer -148895 -46982) b))
1113                     (declare (type (integer 0 1) c))
1114                     (declare (optimize (speed 3)))
1115                     (declare (optimize (safety 1)))
1116                     ,form))
1117             (fn2 `(lambda (b c) ,form)))
1118        (let ((v1 (funcall (compile nil fn1) -76071 0))
1119              (v2 (funcall (compile nil fn2) -76071 0))
1120              (v3 (funcall (eval `(function ,fn2)) -76071 0)))
1121          (if (= v1 v2 v3) :good
1122            (list v1 v2 v3))))
1123      :good)
1124    
1125    ;;; acl bug (version 6.2, linux x86 trial)
1126    (deftest misc.91
1127      (let ((fn1 '(lambda ()
1128                    (declare (optimize (speed 3) (safety 1)))
1129                    (ash -10 (min 8 -481))))
1130            (fn2 '(lambda () (ash -10 (min 8 -481)))))
1131        (let ((v1 (funcall (compile nil fn1)))
1132              (v2 (funcall (compile nil fn2)))
1133              (v3 (funcall (eval `(function ,fn2)))))
1134          (if (= v1 v2 v3)
1135              :good
1136            (list v1 v2 v3))))
1137      :good)
1138    
1139    ;;; acl bug (version 6.2, linux x86 trial)
1140    (deftest misc.92
1141      (let* ((form '(- -16179207 b (lognor (let () 3) (logxor -17567197 c))))
1142             (fn1 `(lambda (b c)
1143                     (declare (type (integer -621 30) c))
1144                     (declare (optimize (speed 3)))
1145                     (declare (optimize (safety 1)))
1146                     ,form))
1147             (fn2 `(lambda (b c) ,form))
1148             (vals '(26291532469 -21)))
1149        (let ((v1 (apply (compile nil fn1) vals))
1150              (v2 (apply (compile nil fn2) vals))
1151              (v3 (apply (eval `(function ,fn2)) vals)))
1152          (if (= v1 v2 v3)
1153              :good
1154            (list v1 v2 v3))))
1155      :good)
1156    
1157            

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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