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

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Mon Aug 13 09:04:38 2012
New Revision: 14080

Log:
Don't spuriously generate generic functions.

- slight deviation from AMOP since we hand make-method-lambda an
  uninitialized generic-function object.

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	Mon Aug 13 06:22:17 2012	(r14079)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Mon Aug 13 09:04:38 2012	(r14080)
@@ -2796,7 +2796,7 @@
     (let* ((specializers-form '())
            (lambda-expression `(lambda ,lambda-list , at declarations ,body))
            (gf (or (find-generic-function function-name nil)
-                   (ensure-generic-function function-name :lambda-list lambda-list)))
+                   (class-prototype (find-class 'standard-generic-function))))
            (method-function
              (make-method-lambda gf (class-prototype (generic-function-method-class gf))
                                  lambda-expression env))