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:   ;; ESA and PDF systems.
    (asdf:clear-configuration)
    (asdf:load-system :clim-examples)
    (asdf:load-system :clim-listener)
    (asdf:load-system :beirc)
    (let ((icon-path (translate-logical-pathname
                      (symbol-value
                       (read-from-string "clim-listener::*icon-path*")))))
  
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")
  