diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index eb940eca9c0fe268a2afe82220dc047b5e94dc82..aa4d3483fed144a90f889a40c7fbdcf6c3bd067b 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -2098,3 +2098,35 @@ 0) -14) +;;; cmucl (9 Nov 2003) +;;; The assertion (NOT (MEMBER C::KIND '(:DELETED :OPTIONAL :TOP-LEVEL))) failed. + +(deftest misc.161 + (funcall + (compile nil + '(lambda (a b c) + (flet ((%f17 (f17-1 f17-2 f17-3) + (flet ((%f2 + (f2-1 f2-2 + &optional (f2-3 (return-from %f17 f17-1)) + (f2-4 (return-from %f17 -57))) + b)) + (multiple-value-call #'%f2 (values c -588 55101157))))) + (if nil + (let* ((v6 (%f17 102136 3096194 a))) + b) + c)))) + -511 -2269809964 250738) + 250738) + +;;; cmucl (9 Nov 2003) Incorrect result at SPEED 0. + +(deftest misc.162 + (let* ((fn `(lambda (a c) + (declare (notinline funcall) + (optimize (speed 0) (debug 0))) + (labels ((%f17 (f17-1 &optional (f17-4 c)) + (return-from %f17 (if f17-4 f17-1 49572640)))) + (funcall #'%f17 15128425 a))))) + (funcall (compile nil fn) 1 3)) + 15128425)