anchor.diff:  (require :cl-video-wav)
   (require :cl-wav)
   ;; Swank doesn't really support logical pathname shenanigans.
  -(load (merge-pathnames "slime/swank-loader.lisp" (user-homedir-pathname)))
  +
  +(load (merge-pathnames (make-pathname :directory '(:relative "slime") :name "swank-loader" :type "lisp")
  +                       (user-homedir-pathname)))
   (eval (read-from-string "(swank-loader::init)"))
   (eval (read-from-string "(swank:create-server :style :spawn :dont-close t :interface \"0.0.0.0\")"))
   
  
positive.code: ;;; partition UUIDs to file system host names. These mappings should
  ;;; be set up for the local system configuration. For example:
  ;;;
  ;;; (set (intern "*filesystem-alist*" (find-package "MEZZANO.FILE-SYSTEM"))
  ;;;      '(("8F51-4F7E" MNT)
  ;;;        ("a3a2162c-6272-401b-b621-a97b65c3f871" HOME)))
  ;;;
  ;;; For FAT file systems, the 32-bit BS_VolID (Volume serial number)
  ;;; is used as the "UUID" - for example the MNT entry in the example
  
negative.code: 
  ;; Fonts. Loaded from the home directory.
  (ensure-directories-exist "LOCAL:>Fonts>")
  (dolist (f (directory (merge-pathnames
                         (make-pathname :directory '(:relative "Fonts" :wild-inferiors) :name :wild :type "ttf")
                         (user-homedir-pathname))))
    (sys.int::copy-file f
               (merge-pathnames "LOCAL:>Fonts>" f)
               '(unsigned-byte 8)))
  (sys.int::copy-file (merge-pathnames
                       (make-pathname :directory '(:relative "Fonts") :name "LICENSE")
                       (user-homedir-pathname))
                      "LOCAL:>Fonts>LICENSE"
                      'character)
  
  