From ae494b903b5b9f5204b34c874ecb3d1b97c84076 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 10 Nov 2003 03:52:05 +0000 Subject: [PATCH] A couple of CMUCL bugs, including a new one using FUNCALL. --- ansi-tests/misc.lsp | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index eb940eca..aa4d3483 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) -- GitLab