|
From: Adam W. <li...@co...> - 2003-09-21 14:50:56
|
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
|