anchor.diff:      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))
  
positive.code:   #-(or sbcl cmu ccl)
    (not-supported))
  
  (defun (setf ieee-double-ref/be) (value vector index)
    (declare (ignorable value vector index))
    #+sbcl
    (progn
  
negative.code:   #-(or sbcl cmu ccl)
    (not-supported))
  
  (defun ieee-double-set/le (vector index value)
    (declare (ignorable value vector index))
    #+sbcl
    (progn
  