anchor.diff:                 (error condition))))))))
   
   (defmacro in-temporary-directory (template-pathname &body body)
  +  "Macro-ized version of CALL-IN-TEMPORARY-DIRECTORY."
     `(call-in-temporary-directory ,template-pathname (lambda () ,@body)))
   
   (defun copy-file (from to)
  +  "Copy the file FROM to the file TO."
     (run "cp" (native (truename from)) (native to)))
  
positive.code:   (native-namestring (merge-pathnames pathname)))
  
  (defun call-in-temporary-directory (template-pathname fun)
    (flet ((random-temporary ()
             (let* ((parts (pathname-directory template-pathname))
                    (last (first (last parts)))
  
negative.code:     (t (princ-to-string argument))))
  
  (defun run (command &rest arguments)
    "Run shell-command COMMAND with ARGUMENTS as arguments. Searches the
  PATH environment for the right command to run. Arguments are converted
  to strings with STRINGIFY-COMMAND-ARGUMENT. If the command exits with
  nonzero status, signals an error."
    (let ((process (run-program command (mapcar #'stringify-command-argument arguments)
                                :search t
                                :wait t
  