Custom Query (1030 matches)

(defun bug (state)
  (declare (type (simple-array (unsigned-byte 32) (627)) state)
           (optimize (speed 3) (safety 0)))
  (let ((y 0))
    (declare (type (unsigned-byte 32) y))
    (setf y (logior (logand (aref state (+ 3 (1- 624)))
                            #x80000000)
                    (logand (aref state 3) #x7fffffff)))
    (setf (aref state (+ 3 (1- 624)))
          (logxor (aref state (+ 3 (1- 397)))
                  (ash y -1) (aref state (logand y 1)))))
  (values))

Compile with an x8632 lisp at 1.10-dev-r16186, and get "Bug: ran out of node temp registers."

This is a cut-down test case from the mt19937 library. It could be loaded with (ql:quickload :mt19937) if desired.

Several of Ironclad's tests fail on Version 1.10-dev-r16186 (DarwinX8632).

(ql:quickload :ironclad-tests)
(asdf:oos 'asdf:test-op :ironclad-tests)

At the moment, this is mainly a placeholder ticket. I will be updating it with smaller test cases.

Mac App store CCL is still version 1.8.