[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gcl-devel] (random tester) Error in FUNCALL [or a callee]: Caught fatal
From: |
Paul F. Dietz |
Subject: |
[Gcl-devel] (random tester) Error in FUNCALL [or a callee]: Caught fatal error [memory may be damaged] |
Date: |
Thu, 13 Nov 2003 07:42:17 -0600 |
User-agent: |
Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4) Gecko/20030624 |
Here's another example where memory is getting corrupted
somehow in a compiled function with flet/labels. Again,
this only shows up when I've loaded gclload1.lsp.
(load "gclload1.lsp")
(defparameter *fn*
'(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)
)))
(print (funcall (compile nil *fn*) -1139481))
(The handler-case, if removed, causes the bug to go away.)
Paul