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