anchor.diff:      (setf (ub16ref/be buffer index) hi
             (ub16ref/be buffer (+ index 2) lo))
       value)
  -  #-(or sbcl ccl allegro)
  +  #-(or sbcl cmu ccl allegro)
     (not-supported))
   
   (defun ieee-single-ref/le (buffer index)
     #+sbcl
     (sb-kernel:make-single-float (sb32ref/le buffer index))
  +  #+cmu
  +  (kernel:make-single-float (sb32ref/le buffer index))
     #+ccl
     (ccl::host-single-float-from-unsigned-byte-32 (ub32ref/le buffer index))
     #+allegro
     (let ((b (ub32ref/le buffer index)))
       (excl:shorts-to-single-float (ldb (byte 16 16) b) (ldb (byte 16 0) b)))
  -  #-(or sbcl ccl allegro)
  +  #-(or sbcl cmu ccl allegro)
     (not-supported))
   
   (defun (setf ieee-single-ref/le) (value buffer index)
     #+sbcl
     (progn
       (setf (sb32ref/le buffer index) (sb-kernel:single-float-bits value))
  +    value)
  +  #+cmu
  +  (progn
  +    (setf (sb32ref/le buffer index) (kernel:single-float-bits value))
       value)
     #+ccl
     (progn
  
positive.code:   (let ((upper (sb32ref/be buffer index))
          (lower (ub32ref/be buffer (+ index 4))))
      (sb-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)
    (not-supported))
  
  (defun (setf ieee-double-ref/be) (value buffer index)
  
negative.code: (defun ieee-single-ref/be (buffer index)
    #+sbcl
    (sb-kernel:make-single-float (sb32ref/be buffer index))
    #+cmu
    (kernel:make-single-float (sb32ref/be buffer index))
    #+ccl
    (ccl::host-single-float-from-unsigned-byte-32 (ub32ref/be buffer index))
    #+allegro
    (let ((b (ub32ref/be buffer index)))
      (excl:shorts-to-single-float (ldb (byte 16 16) b) (ldb (byte 16 0) b)))
    #-(or sbcl cmu ccl allegro)
    (not-supported))
  
  (defun (setf ieee-single-ref/be) (value buffer index)
    #+sbcl
    (progn
      (setf (sb32ref/be buffer index) (sb-kernel:single-float-bits value))
      value)
    #+cmu
    (progn
      (setf (sb32ref/be buffer index) (kernel:single-float-bits value))
      value)
    #+ccl
    (progn
  