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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Jul 29 08:45:14 2012
New Revision: 14021

Log:
Commit comment that's been sitting in my working copy
(only for me to see) too long.

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	Sun Jul 29 08:41:31 2012	(r14020)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sun Jul 29 08:45:14 2012	(r14021)
@@ -2166,6 +2166,8 @@
                  (let* ((method (%car (sys:%generic-function-methods gf)))
                         (specializer (car (std-method-specializers method)))
                         (function (std-method-fast-function method)))
+                   ;;### The above doesn't work: STD-METHOD-FUNCTION
+                   ;; is a function of 2 args: ARGS and NEXT-EMFUN and being called with one below...
                    (if (typep specializer 'eql-specializer)
                        (let ((specializer-object (eql-specializer-object specializer)))
                          #'(lambda (arg)