anchor.diff:                                (setf (aref sequence i) new-item)))))))
       sequence))
   
  -(defun SUBSTITUTE-IF (new-item predicate sequence &rest rest &key from-end start end count key)
  +(defun substitute-if (new-item predicate sequence &rest rest &key from-end start end count key)
     (apply (function nsubstitute-if) new-item predicate (copy-seq sequence) rest))
   
  -(defun NSUBSTITUTE-IF-NOT (new-item predicate sequence &rest rest &key from-end start end count key)
  +(defun nsubstitute-if-not (new-item predicate sequence &rest rest &key from-end start end count key)
     (apply (function nsubstitute-if) new-item (complement predicate) sequence rest))
   
  -(defun SUBSTITUTE-IF-NOT (new-item predicate sequence &rest rest &key from-end start end count key)
  +(defun substitute-if-not (new-item predicate sequence &rest rest &key from-end start end count key)
     (apply (function nsubstitute-if) new-item (complement predicate) (copy-seq sequence) rest))
   
   
  
positive.code: 
  (defvar *hosts* '())
  
  (defun LOGICAL-PATHNAME-TRANSLATIONS (host)
    (cdr (assoc host *hosts* :test (function equalp))))
  
  (defun (setf LOGICAL-PATHNAME-TRANSLATIONS) (new-translations host)
    (let ((entry (assoc host *hosts* :test (function equalp))))
      (if entry
          (setf (cdr entry) (copy-tree new-translations))
  
negative.code: ;; SBCL                           --> ("larissa.local" "Intel(R) Core(TM) i7-4650U CPU @ 1.70GHz")
  
  
  (defun nset-difference (list-1 list-2 &rest rest &key key test test-not)
    (declare (ignore key test test-not))
    (apply (function set-difference) list-1 list-2 rest))
  
  