(let ((function (symbolicate "%" (string-upcase name))))
`(progn
(proclaim '(inline ,function))
(let ((function (symbolicate "%" (string-upcase name))))
`(progn
(proclaim '(inline ,function))
#-(or linux hpux) #.(/ (asinh most-positive-double-float) 4d0)
;; This is more accurate under linux.
#+(or linux hpux) #.(/ (+ (log 2.0d0)
#-(or linux hpux) #.(/ (asinh most-positive-double-float) 4d0)
;; This is more accurate under linux.
#+(or linux hpux) #.(/ (+ (log 2.0d0)