Fix issue where CMUCL does not correctly handle FLETs in DEFMETHOD
bodies which use the same name as that of the generic function. Bug report and fix from Madhu, cmucl-imp, 2010-02-19. An example: (defmethod foo (bar var) (format t "GENERICFOO ~S, ~S.%" bar var)) (defclass fnarr () ()) (defmethod foo ((bar fnarr) var) (flet ((foo (&optional arg) (foo var (class-of arg)))) ; gf FOO call (foo bar))) ; local function FOO call ;; (incorrect) Error when evaluating (foo (make-instance 'fnarr) t)
Loading
Please register or sign in to comment