[armedbear-cvs] r13583 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Sep  8 03:19:47 2011
New Revision: 13583

Log:
Resolve FIXME regarding D-M-C.

Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Wed Sep  7 13:36:09 2011	(r13582)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Thu Sep  8 03:19:47 2011	(r13583)
@@ -1012,12 +1012,10 @@
                ;; after reading the METHOD-FUNCTION slot
                (compute-method-function
                     `(lambda (&rest ,(gensym))
-                       ;;### FIXME
                        ;; the MAKE-METHOD body form gets evaluated in
                        ;; the null lexical environment augmented
                        ;; with a binding for CALL-METHOD
-                       ;; ... it's the latter we're not doing here...
-                       ,(second method))))
+                       ,(wrap-with-call-method-macro ,gf (second method)))))
               (t (%method-function method)))
             args
             ,(unless (null next-method-list)