anchor.diff:  	     (for url    = (getf repo :GIT-URL))
   	     (unless fork-p
   	       (backup-repository name url)))))
  +
  +;;; main
  +(defun main (argv)
  +  (declare (ignore argv))
  +  (backup))
  
positive.code:   (merge-pathnames ".ghbk" (user-homedir-pathname)))
  
  ;;; unix
  (defun exec (pathname command &rest args)
    (let* ((out (make-synonym-stream '*standard-output*))
  	 (err (make-synonym-stream '*error-output*))
  	 (process (run-program command args
  
negative.code: ;;; git
  (defun git-clone (url pathname)
    "Clone GIT repo at URL into pathname directory"
    (exec "git" `("clone" ,url ,pathname) *backup-basedir*))
  
  (defun git-pull (pathname)
    "Pull changes from GIT repo located in pathname directory"
    (exec "git" '("pull") pathname))
  
  ;;; github
  (defun read-access-token ()
  