anchor.diff:    (let ((upper (sb32ref/be buffer index))
           (lower (ub32ref/be buffer (+ index 4))))
       (sb-kernel:make-double-float upper lower))
  +  #+cmu
  +  (let ((upper (sb32ref/be buffer index))
  +        (lower (ub32ref/be buffer (+ index 4))))
  +    (kernel:make-double-float upper lower))
     #+ccl
     (let ((upper (ub32ref/be buffer index))
           (lower (ub32ref/be buffer (+ index 4))))
       (ccl::make-double-float-from-bits upper lower))
  -  #-(or sbcl ccl)
  +  #-(or sbcl cmu ccl)
     (not-supported))
   
   (defun (setf ieee-double-ref/be) (value buffer index)
  
positive.code:   (let ((upper (sb32ref/le buffer (+ index 4)))
          (lower (ub32ref/le buffer index)))
      (sb-kernel:make-double-float upper lower))
    #+ccl
    (let ((upper (ub32ref/le buffer (+ index 4)))
          (lower (ub32ref/le buffer index)))
      (ccl::make-double-float-from-bits upper lower))
    #-(or sbcl ccl)
    (not-supported))
  
  (defun (setf ieee-double-ref/le) (value buffer index)
  
negative.code:   (progn
      (setf (sb32ref/le buffer (+ index 4)) (sb-kernel:double-float-high-bits value)
            (ub32ref/le buffer index) (sb-kernel:double-float-low-bits value))
      value)
    #+cmu
    (progn
      (setf (sb32ref/le buffer (+ index 4)) (kernel:double-float-high-bits value)
            (ub32ref/le buffer index) (kernel:double-float-low-bits value))
      value)
    #+ccl
    (multiple-value-bind (upper lower) (ccl::double-float-bits value)
      (setf (ub32ref/le buffer (+ index 4)) upper
            (ub32ref/le buffer index) lower)
      value)
    #-(or sbcl cmu ccl)
    (not-supported))