Ignore:
Timestamp:
01/25/12 08:53:54 (10 years ago)
Author:
rschlatte
Message:

minor refactorings in the vicinity of standard-generic-function.

File:
1 edited

Legend:

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

    r13792 r13800  
    749749                 shared-initialize))
    750750    (let ((gf (and (fboundp sym) (fdefinition sym))))
    751       (when (typep gf 'generic-function)
     751      (when (typep gf 'standard-generic-function)
    752752        (unless (compiled-function-p gf)
    753           (mop::finalize-generic-function gf))))))
     753          (mop::finalize-standard-generic-function gf))))))
    754754
    755755(finalize-generic-functions)
Note: See TracChangeset for help on using the changeset viewer.