Заметка из серии "perfomance hints".
Допустим, у нас есть какая-то функция от двух double-float, которая должна работать максимально быстро:
(defun fast-proc (x y)
(declare (optimize (speed 3) (safety 0) (debug 0) (space 0)))
(declare (type double-float x)
(type double-float y))
(> (+ x y) 10.0d0)) В нашем случае, она
(
Read more... )