diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 56311017446c319c52dc77125cd2c44ff1a5d92f..07b77557956a6c2b9e3efec3e303288b9423e6dc 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -8191,3 +8191,29 @@ Broken at C::WT-MAKE-CLOSURE. v5)))) 17) 17) + +(deftest misc.428 + (funcall + (compile + nil + '(lambda () + (declare (notinline -)) + (declare (optimize (compilation-speed 0) (safety 1) (speed 0) + (debug 2) (space 3))) + (let ((v10 (catch 'ct2 1))) + (declare (dynamic-extent v10)) + (- v10))))) + -1) + +(deftest misc.429 + (funcall + (compile + nil + '(lambda () + (declare (optimize (safety 1) (debug 1) (space 2) + (speed 2) (compilation-speed 1))) + (let ((v8 (let ((*s3* 0)) *s3*))) + (declare (dynamic-extent v8)) + (logandc1 v8 28))))) + 28) +