diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index f92481815ef16a6c8c33924d1dec9b0c30021ded..7b40fafdd76f064a44a63ecc19338beec7c7cf11 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -1269,5 +1269,48 @@ 259448422916 173715) 259448422916) +(deftest misc.102 + (funcall + (compile nil '(lambda (b) + (declare (type (integer -1598566306 2941) b)) + (declare (optimize (speed 3))) + (max -148949 (ignore-errors b)))) + 0) + 0) + +(deftest misc.103 + (funcall + (compile nil '(lambda (a b) + (min -80 + (abs + (ignore-errors + (+ + (logeqv b + (block b6 + (return-from b6 + (load-time-value -6876935)))) + (if (logbitp 1 a) b (setq a -1522022182249)))))))) + -1802767029877 -12374959963) + -80) +(deftest misc.104 + (funcall + (compile nil '(lambda (a) (declare (type (integer 55400028 60748067) a)) + (lognand 1505 (ash a (let () 40))))) + 58194485) + -1) +(deftest misc.105 + (funcall + (compile nil '(lambda (b c) + (declare (type (integer -4 -3) c)) + (block b7 + (flet ((%f1 (f1-1 f1-2 f1-3) + (if (logbitp 0 (return-from b7 + (- -815145138 f1-2))) + (return-from b7 -2611670) + 99345))) + (let ((v2 (%f1 -2464 (%f1 -1146 c c) -2))) + b))))) + 2950453607 -4) + -815145134)