Changeset 13868


Ignore:
Timestamp:
Jun 22, 2010, 4:06:45 AM (9 years ago)
Author:
gb
Message:

Uh, actually implement %ALLOCATE-GF-INSTANCE for ARM. Remove the
debug trap from NO-APPLICABLE-METHOD.

Now gets into l1-typesys where it hangs/loops around for some reason.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-1/l1-clos.lisp

    r13779 r13868  
    16781678                                0
    16791679                                (logior (ash 1 $lfbits-gfn-bit)
    1680                                         (ash 1 $lfbits-aok-bit)))))
    1681     (setf
    1682           (slot-vector.instance slots) fn)
     1680                                        (ash 1 $lfbits-aok-bit)))
     1681           #+arm-target
     1682           (gvector :function
     1683                    arm::*function-initial-entrypoint*
     1684                    *unset-fin-code*
     1685                    wrapper
     1686                    slots
     1687                    dt
     1688                    #'false
     1689                    0
     1690                    (logior (ash 1 $lfbits-gfn-bit)
     1691                            (ash 1 $lfbits-aok-bit)))))
     1692    (setf (slot-vector.instance slots) fn)
    16831693    (when dt
    16841694      (setf (%gf-dispatch-table-gf dt) fn))
Note: See TracChangeset for help on using the changeset viewer.