[Sbcl-help] closure-init & optimization

[Tamas K P. <tk...@gm...>]

Hi,

Could someone please help me on what this means (ie what is
closure-init, and how can I make it happy), and whether this is a
one-time cost (at the time of setting up the closure) or paid every
time it is called.
    
src/univariate.lisp:283:10:
  note: 
    doing float to pointer coercion (cost 13), for:
          the second argument of CLOSURE-INIT
    --> FUNCTION SB-C::%%ALLOCATE-CLOSURES 
    ==>
      (SB-C::%ALLOCATE-CLOSURES
       '(#<SB-C::CLAMBDA
           :%SOURCE-NAME SB-C::.ANONYMOUS.
           :%DEBUG-NAME (LAMBDA #)
           :KIND NIL
           :TYPE #<SB-KERNEL:FUN-TYPE #>
           :WHERE-FROM :DEFINED
           :VARS NIL {B640CA1}>))

I am using (declare (optimize (speed 3))), and the code looks like this:

(let* ((left (to-standard-normal left mu sigma))
       (alpha (truncated-normal-optimal-alpha left)))
  (lambda ()
    (from-standard-normal (draw-left-truncated-standard-normal left alpha)
                          mu sigma)))

The location of the note is at the lambda.

Thanks,

Tamas