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: 
  (defvar *command-output* (make-synonym-stream '*standard-output*))
  
  (defun stringify-command-argument (argument)
    (typecase argument
      (string argument)
      (pathname (native-namestring argument))
  
negative.code:            (ignore-errors (sb-posix:close ,fd)))))))
  
  (defmacro with-binary-run-output (pathname &body body)
    "Evaluate BODY in an environment that binds *COMMAND-OUTPUT* to a
  binary output stream."
    `(with-open-file (*command-output* ,pathname :direction :output
                                       :element-type '(unsigned-byte 8)
                                       :if-exists :supersede)
       ,@body))
  
  (defmacro without-run-output (&body body)
    "Evaluates BODY in an environment that discards all command output."
    `(let ((*command-output* nil))
       ,@body))
  
  (defun run-output-lines (command &rest args)
    "Return the output of COMMAND as a list of one string per line."
    (let ((output (with-output-to-string (*command-output*)
                    (apply #'run command args))))
      (with-input-from-string (stream output)
  