Changeset 14080


Ignore:
Timestamp:
08/13/12 16:04:38 (9 years ago)
Author:
rschlatte
Message:

Don't spuriously generate generic functions.

  • slight deviation from AMOP since we hand make-method-lambda an uninitialized generic-function object.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r14079 r14080  
    27972797           (lambda-expression `(lambda ,lambda-list ,@declarations ,body))
    27982798           (gf (or (find-generic-function function-name nil)
    2799                    (ensure-generic-function function-name :lambda-list lambda-list)))
     2799                   (class-prototype (find-class 'standard-generic-function))))
    28002800           (method-function
    28012801             (make-method-lambda gf (class-prototype (generic-function-method-class gf))
Note: See TracChangeset for help on using the changeset viewer.