anchor.diff:                 (format stream "Object to printable readably ~S"
                          (print-not-readable-object condition))))))
   
  -(defun ARRAY-DISPLACEMENT (array)
  +(defun array-displacement (array)
     ;; if not provided, then displaced array don't exist!
     (declare (ignore array))
     (values nil 0))
  
positive.code:                               (setf (aref sequence i) new-item)))))))
      sequence))
  
  (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)
    (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)
    (apply (function nsubstitute-if) new-item (complement predicate) (copy-seq sequence) rest))
  
  
  
negative.code:                     (copy-tree new-translations))
                *hosts*))))
  
  (defun translate-logical-pathname (pathname &key &allow-other-keys)
    (error "~S not implemented yet" 'translate-logical-pathname)
    pathname)
  
  (defun machine-instance ()
    ;; TODO: find the hostname of the machine, or some other machine identification.
    #+android "Android"
    #+ios     "iOS")
  
  (defun machine-version ()
    ;; TODO: find the hardware version, or some other machine version.
    #+android "0.0"
    #+ios     "0.0")
  