[Sbcl-help] Block compilation

[Adam W. <li...@co...>]

Hello SBCL users and developers,

I found this (time (api)) test code to be around twenty times slower in
SBCL compared to CMUCL:

(declaim (optimize (safety 0) (speed 3)))
(declaim (start-block api))

(defun api ()
  (loop for i of-type (double-float 0d0)
        from 0d0 to 100000000d0
        sum (fn-call i) of-type double-float))

(defun fn-call (float)
  (sqrt float))

(declaim (end-block))

I am aware that support for this elegant form of block compilation has
been removed from SBCL. Does SBCL provide another way to achieve this
kind of block compilation? I have also noted that :ENTRY-POINTS for
:BLOCK-COMPILE in COMPILE-FILE appears to have been removed.

Thanks,
Adam