anchor.diff:    (not-supported))
   (defsetf ieee-single-ref/le ieee-single-set/le)
   
  +#+sbcl (declaim (sb-ext:maybe-inline ieee-double-ref/be))
   (defun ieee-double-ref/be (vector index)
     (declare (ignorable vector index))
     #+sbcl
  
positive.code:   #-(or sbcl cmu ccl allegro lispworks)
    (not-supported))
  
  (defun ieee-single-set/be (vector index value)
    (declare (ignorable value vector index))
    #+sbcl
  
negative.code: (defun not-supported ()
    (error "not supported"))
  
  #+sbcl (declaim (sb-ext:maybe-inline ieee-single-ref/be))
  (defun ieee-single-ref/be (vector index)
    (declare (ignorable vector index))
    #+sbcl
  