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:                (format stream "Object to printable readably ~S"
                         (print-not-readable-object condition))))))
  
  (defun ARRAY-DISPLACEMENT (array)
    ;; if not provided, then displaced array don't exist!
    (declare (ignore array))
    (values nil 0))
  
negative.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))
  