anchor.diff:    ;; ESA and PDF systems.
     (asdf:clear-configuration)
     (asdf:load-system :clim-examples)
  +  (asdf:load-system :cl-ppcre)
     (asdf:load-system :clim-listener)
  -  (asdf:load-system :beirc)
  +  ;(asdf:load-system :beirc)
  +  (eval (read-from-string "(mcclim-render-internals::register-all-ttf-fonts (clim:find-port))"))
     (let ((icon-path (translate-logical-pathname
                       (symbol-value
                        (read-from-string "clim-listener::*icon-path*")))))
  
positive.code:         (ensure-directories-exist real-path)
          (when verbose
            (format t "Copy ~S -> ~S~%" f real-path))
          (copy-file f real-path (guess-element-type-from-extension (pathname-type f)))))))
  
  (defun mcclim-setup ()
    ;; Fix up some case issues.
  
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")
  