diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 39bdea24cf38d485b9db455f3024ba09b45703c8..3b002fede728e40725257bc50b7574c0bf209786 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -10775,3 +10775,15 @@ Broken at C::WT-MAKE-CLOSURE. (space 1) (compilation-speed 3))) (logxor (ash 0 (min 90 0)) 0)))) 0) + +(deftest misc.601 + (funcall + (compile + nil + '(lambda () + (declare (notinline gcd)) + (declare + (optimize (debug 3) (space 3) (safety 3) + (compilation-speed 2) (speed 3))) + (logeqv 0 (gcd 0))))) + -1)