anchor.diff:    (declare (ignore length element-type))
     (cond
       (initial-element-p
  -     (free-vector-if-error (vector)
  +     (free-vector-on-error (vector)
          (fill vector initial-element)))
       (initial-contents-p
  -     (free-vector-if-error (vector)
  +     (free-vector-on-error (vector)
          (replace vector initial-contents))))
     vector)
   
  
positive.code:   #+(or ecl lispworks) t
    #-(or ecl lispworks) nil)
  
  (defmacro free-vector-if-error ((vector) &body body)
    (if +static-vectors-are-garbage-collected+
        `(progn ,@body)
        `(unwind-protect-case ()
  
negative.code:   (cond
      (initial-element-p
       (once-only (vector)
         `(free-vector-on-error (,vector)
            ,@(if (and (constantp element-type env)
                       (constantp initial-element env))
                  (check-initial-element (eval-constant element-type env) initial-element)
  