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:                     (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")
  
negative.code: 
  ;; COMPILE           ;; required to implement minimal compilation.
  
  (defun load (filespec &key verbose print if-does-not-exist external-format)
    )
  
  
  (defun ensure-directories-exist (pathspec &key verbose)
    (error "~S not implemented yet" 'ensure-directories-exist)
    (let ((created nil))
     (values pathspec created)))
  
  (defun rename-file (filespec new-name)
    (error "~S not implemented yet" 'rename-file)
    (let (defaulted-new-name old-truename new-truename)
     (values defaulted-new-name old-truename new-truename)))
  
  (defun file-write-date (pathspec)
    (declare (ignore pathspec))
    nil)
  
  (defvar *debugger-hook* nil)
  
  (defun invoke-debugger (condition)
    (when *debugger-hook*
      (let ((saved-hook *debugger-hook*)
            (*debugger-hook* nil))
  