[Sbcl-devel] Re: [Sbcl-commits] CVS: sbcl/src/code unportable-float.lisp,NONE,1.1

[Alexey D. <ade...@co...>]

Christophe Rhodes <cr...@us...> writes:

> (defun make-unportable-float (name)
>   (flet ((opaque-identity (x) x))
>     ;; KLUDGE: "DO NOT CONSTANT FOLD, EVIL COMPILER!"
>     (declare (notinline opaque-identity make-single-float make-double-float))
>     (ecase name
>       (:single-float-negative-zero (make-single-float
> 				    (opaque-identity #x-80000000)))
>       (:double-float-negative-zero (make-double-float
> 				    (opaque-identity #x-80000000)
> 				    (opaque-identity #x00000000)))
>       #!+long-float
>       (:long-float-negative-zero (error "write LONG-FLOAT creation form")))))

Is OPAQUE-IDENTITY really necessary here?

-- 
Regards,
Alexey Dejneka

"Alas, the spheres of truth are less transparent than those of
illusion." -- L.E.J. Brouwer