Skip to content
Snippets Groups Projects
Commit 221ef9af authored by rtoy's avatar rtoy
Browse files

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)
parent 19f4abf4
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment