diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index b035a01ffc1242dd91474049bcfe61e826681b51..b8437361e5efd96a9baef5b08cfa4cd57affa0ea 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -2147,3 +2147,22 @@ -6) :good) +;;; gcl (13 Nov 2003) +;;; Error in FUNCALL [or a callee]: Caught fatal error [memory may be damaged] + +(deftest misc.164 + (funcall + (compile + nil + '(lambda (a) + (labels ((%f6 (f6-1 f6-2) + (handler-case + (labels ((%f2 nil (logior a))) + (if (eql (%f2) (%f2)) + 2829254 -10723)) + (error (c) (error c)) + ))) + (funcall #'%f6 10 20) + ))) + 0) + 2829254)