[Gcl-devel] (random tester) Error in FUNCALL [or a callee]: Caught fatal error [memory may be damaged]

[Paul F. Dietz]

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