Changeset 10362


Ignore:
Timestamp:
Aug 5, 2008, 9:41:46 PM (11 years ago)
Author:
gb
Message:

Use FUNCTION-VECTOR-TO-FUNCTION, which may be a no-op.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/nfasload.lisp

    r10340 r10362  
    361361         (size-of-code (%fasl-read-count s))
    362362         (vector (%alloc-misc size-in-elements target::subtag-function))
    363          (function (%function-vector-to-function vector)))
     363         (function (function-vector-to-function vector)))
    364364    (declare (fixnum size-in-elements size-of-code))
    365365    (%epushval s function)
Note: See TracChangeset for help on using the changeset viewer.