>>>>> "Chisheng" == Chisheng Huang <[EMAIL PROTECTED]> writes:

    Chisheng> The following 2 silly functions reproduce the situation I'm facing
    Chisheng> while optimizing a function that bins lots of line segments.

[snip]

    Chisheng> * (compile 'test1)
    Chisheng> ; In: LAMBDA (XMIN)

    Chisheng> ;   (LOOP FOR I OF-TYPE FIXNUM ...)
    Chisheng> ; --> BLOCK LET LET ANSI-LOOP::LOOP-BODY TAGBODY 
ANSI-LOOP::LOOP-REALLY-DESETQ 
    Chisheng> ; ==>
    Chisheng> ;   (SETQ X (RANDOM 100.0))
    Chisheng> ; Note: Doing float to pointer coercion (cost 13) to X.

This not is not from get-x-index.  It's from the call to random in
main body of test1.  I guess random returns a boxed float.  I'm not
sure what to do about that and why you don't get a similar note from
test0.

Ray

Reply via email to