8994 |
-6189)) |
-6189)) |
8995 |
33816832) |
33816832) |
8996 |
|
|
8997 |
|
;;; Bug in CMUCL Snapshot 2004-10 |
8998 |
|
;;; Invalid number of arguments: 370632372 |
8999 |
|
|
9000 |
|
(deftest misc.479 |
9001 |
|
(let ((r (make-array nil :element-type '(unsigned-byte 32))) |
9002 |
|
(fn (compile nil '(lambda (r p2) |
9003 |
|
(declare (optimize speed (safety 1)) |
9004 |
|
(type (simple-array (unsigned-byte 32) nil) r) |
9005 |
|
(type integer p2)) |
9006 |
|
(setf (aref r) (logxor 0 (the (integer 2797513123 2798027357) p2))) |
9007 |
|
(values))))) |
9008 |
|
(funcall fn r 2797674503) |
9009 |
|
(aref r)) |
9010 |
|
2797674503) |
9011 |
|
|
9012 |
|
|
9013 |
|
|
9014 |
|
|