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