anchor.diff:  	  (t
   	   (!number (asin n))))))
   
  -(defun %math.asinh (x)
  +(defun -math.asinh (x)
     (declare (type number-type x))
     (let ((n (slot-value x '-number-data)))
       (cond ((eql n :nan)
  
positive.code: 	  (t
  	   (!number (atan x))))))
  
  (defun %math.atanh (x)
    (declare (type number-type x))
    (let ((n (slot-value x '-number-data)))
      (cond ((eql n :nan)
  
negative.code: 	(!number (- product (expt 2 32)))
  	(!number product))))
  
  (defun -math.log (x)
    (declare (type number-type x))
    (let ((n (slot-value x '-number-data)))
      (cond ((or (eql n :nan) (< n 0) (eql n :-infinity))
  	   *number-nan*)
  	  ((or (zerop n) (eql n :-0))
  	   *number--infinity*)
  	  ((= n 1)
  	   *number-0*)
  