Changeset 9431


Ignore:
Timestamp:
May 9, 2008, 10:17:00 AM (11 years ago)
Author:
gb
Message:

When undoing encapsulations on a GF, assume that #'FUNCALLABLE-TRAMPOLINE
is the default trampoline function.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/lib/encapsulate.lisp

    r8796 r9431  
    243243                ) ; <<
    244244           (setf (%gf-dcode def) orig-decode)
    245            (replace-function-code def (or proto *gf-proto*)))
     245           (replace-function-code def (or proto #'funcallable-trampoline)))
    246246         (setf (car (%combined-method-methods (%gf-dcode def))) newdef))
    247247       (typecase spec
Note: See TracChangeset for help on using the changeset viewer.