diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index e5687788a7c5b2a517329a8d0c8fc9c6470fc626..3ff6adf132385830cc414acc147a856ac3a2f898 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -7278,24 +7278,26 @@ Broken at C::WT-C-INLINE-LOC. (deftest misc.382 (funcall - '(lambda (b) - (declare (type (integer -65822755520 31689335872) b)) - (declare (optimize (speed 2) (space 2) (safety 3) - (debug 0) (compilation-speed 1))) - (let ((s8 (make-array nil :initial-element - (catch 'ct4 - (complex - (dotimes (iv1 1 0) - (rational (throw 'ct4 b))) - 0))))) - (elt '(13423701584) - (min 0 - (max 0 - (rational - (let ((s3 (make-array nil :initial-element 0))) - (if (ldb-test (byte 0 0) - (shiftf (aref s8) - (aref s8))) - 0 0)))))))) + (compile + nil + '(lambda (b) + (declare (type (integer -65822755520 31689335872) b)) + (declare (optimize (speed 2) (space 2) (safety 3) + (debug 0) (compilation-speed 1))) + (let ((s8 (make-array nil :initial-element + (catch 'ct4 + (complex + (dotimes (iv1 1 0) + (rational (throw 'ct4 b))) + 0))))) + (elt '(13423701584) + (min 0 + (max 0 + (rational + (let ((s3 (make-array nil :initial-element 0))) + (if (ldb-test (byte 0 0) + (shiftf (aref s8) + (aref s8))) + 0 0))))))))) -38169486910) 13423701584)