anchor.diff:    (setf mezzano.gui.desktop::*icons*
           (append mezzano.gui.desktop::*icons*
                   '(:next-column
  +                  ("LOCAL:>Icons>Editor.png" "Supporters!" "(ed \"LOCAL:>Mezzano>SUPPORTERS.md\")")
                     ("LOCAL:>Icons>Editor.png" "Readme" "(ed \"LOCAL:>Mezzano>README.md\")")
                     ("LOCAL:>Icons>Editor.png" "Quickstart Guide" "(ed \"LOCAL:>Mezzano>doc>quickstart.md\")"))))
     #+(or)
  
positive.code:   (copy-many (merge-pathnames "*.avi" (user-homedir-pathname))
               (user-homedir-pathname)
               #p"LOCAL:>Videos>"))
  
  ;; Cutting a release:
  ;; Start from a clean checkout of mbuild
  
negative.code:            (member "notes" (pathname-directory path) :test #'string-equal)
             (member "prof" (pathname-directory path) :test #'string-equal)
             (member "iso-stage" (pathname-directory path) :test #'string-equal)
             (member "build-arm64" (pathname-directory path) :test #'string-equal)
             (member "build-x86-64" (pathname-directory path) :test #'string-equal)
             (eql (pathname-version path) :previous)
             (string-equal (pathname-name path) "atom-rombios")
             (string-equal (pathname-name path) "atom-rombios2M")
             (string-equal (pathname-name path) "cbmemc-1")
             (string-equal (pathname-name path) ".git")
             (string-equal (pathname-name path) "build-x86-64")
             (string-equal (pathname-name path) "build-arm64")
             (string-equal (pathname-type path) "log")
             (string-equal (pathname-type path) "llf")
             (string-equal (pathname-type path) "fasl")
             (string-equal (pathname-type path) "image")
  