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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Sep  1 14:44:36 2012
New Revision: 14145

Log:
Re #225: Can't reproduce and can't find the exact cause anymore.

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	Sat Sep  1 14:03:05 2012	(r14144)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sat Sep  1 14:44:36 2012	(r14145)
@@ -2255,8 +2255,6 @@
                  (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)