anchor.diff:    (error "not supported"))
   
   (defun ieee-single-ref/be (buffer index)
  +  (declare (ignorable buffer index))
     #+sbcl
     (sb-kernel:make-single-float (sb32ref/be buffer index))
     #+cmu
  
positive.code:   (not-supported))
  
  (defun (setf ieee-single-ref/be) (value buffer index)
    #+sbcl
    (progn
      (setf (sb32ref/be buffer index) (sb-kernel:single-float-bits value))
  
negative.code:   (not-supported))
  
  (defun (setf ieee-double-ref/le) (value buffer index)
    (declare (ignorable value buffer index))
    #+sbcl
    (progn
      (setf (sb32ref/le buffer (+ index 4)) (sb-kernel:double-float-high-bits value)
  