Changeset 10480


Ignore:
Timestamp:
Aug 15, 2008, 5:36:05 PM (11 years ago)
Author:
gz
Message:

Missing comma in lfunloop, while in there also tweak it to skip lfun bits and (for ppc) the code vector

File:
1 edited

Legend:

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

    r10244 r10480  
    758758    `(loop with ,fn = ,function
    759759           with ,lfv = (function-to-function-vector ,fn)
    760            for ,i from #+ppc-target 0 #+x86-target (%function-code-words fn) below (uvsize  ,lfv)
    761            as ,var = (uvref ,lfv ,i)
     760           for ,i from #+ppc-target 1 #+x86-target (%function-code-words ,fn) below (%i- (uvsize  ,lfv) 1)
     761           as ,var = (%svref ,lfv ,i)
    762762           ,@loop-body)))
    763763
Note: See TracChangeset for help on using the changeset viewer.