anchor.diff:  
   (defun run-git (&rest cmdargs)
     (run
  -   "git" (mapcar #'shellify (remove NIL cmdargs))
  +   "git" (loop with list = ()
  +               for arg in cmdargs
  +               do (typecase arg
  +                    (list (dolist (a arg) (push a list)))
  +                    (T (push arg list)))
  +               finally (return (nreverse list)))
      :output *git-output*
      :error *git-errors*
      :input *git-input*))
  
positive.code:     (etypecase arg
        (symbol (string-downcase arg))
        (string arg)
        (pathname (prin1-to-string (uiop:native-namestring arg)))
        (real (prin1-to-string arg))
        (list (format NIL "~{~@[~a ~]~}" (mapcar #'shellify arg))))))
  
  
negative.code:     (stop-process process)))
  
  (defun run (program args &key input output error)
    (format T "~&> ~a ~{~a~^ ~}~&" program args)
    (with-resolved-stream (output)
      (with-resolved-stream (error)
        (let* ((process (external-program:start program args :output :stream :error :stream :input input))
  