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