(let ((function (symbolicate "%" (string-upcase name))))
`(progn
(proclaim '(inline ,function))
(let ((function (symbolicate "%" (string-upcase name))))
`(progn
(proclaim '(inline ,function))
;;;;
;;;; The original CMU CL code requested:
;;;; Please send any bug reports, comments, or improvements to
;;;;
;;;; The original CMU CL code requested:
;;;; Please send any bug reports, comments, or improvements to
;;; FIXME: In SBCL, the floating point infinity constants like
;;; SB!EXT:DOUBLE-FLOAT-POSITIVE-INFINITY aren't available as
;;; FIXME: In SBCL, the floating point infinity constants like
;;; SB!EXT:DOUBLE-FLOAT-POSITIVE-INFINITY aren't available as
#-(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)