anchor.diff:  ;; connect to with slime
   ;; source locations: (ed '+) (ed 'ql:setup) (ed 'asdf:load-system)
   (defun prepare-release ()
  -  ;; Doom & Quake
  -  (let ((*default-pathname-defaults* (merge-pathnames "../Iota-old/")))
  -    (load "load.lisp"))
  +  (load-iota)
     (copy-sources)
     (mcclim-setup)
     (load-quicklisp)
  +  (cal "SYS;SOURCE;GUI;COLOUR-MATRIX-DEMO.LISP")
  +  (setf mezzano.gui.desktop::*icons*
  +        (append mezzano.gui.desktop::*icons*
  +                '(("LOCAL:>Icons>Mandelbrot.png" "Postprocessing Demo" "(mezzano.gui.fancy-repl:spawn :initial-function 'colour-matrix-demo:demo :title \"Display Postprocessing Demo\" :width 450 :height 90)"))))
  +  (asdf:load-system :mezzano-virgl)
  +  (setf mezzano.gui.desktop::*icons*
  +        (append mezzano.gui.desktop::*icons*
  +                '(("LOCAL:>Icons>Mandelbrot.png" "Virgl 3D Demos" "(mezzano.gui.virgl.demo-menu:spawn)"))))
     ;; Convince ASDF that ASDF and UIOP really are loaded & up to date.
     ;; This is just a hack for the demo & shouldn't be done in general.
     (asdf:register-immutable-system :uiop)
     (asdf:register-immutable-system :asdf)
     (asdf:disable-output-translations)
  +  (warm-up-class-constructors)
     (setf (symbol-value (read-from-string "bordeaux-threads:*default-special-bindings*"))
           '((*terminal-io* . (make-instance 'mezzano.gui.popup-io-stream:lazy-popup-io-stream))))
     (setf (sys.int::symbol-global-value '*package*) (find-package :cl-user))
  
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:                #p"LOCAL:>Icons>"))
    (setf (symbol-value (read-from-string "clim-listener::*icon-path*")) #p"LOCAL:>Icons>")
    (clrhash (symbol-value (read-from-string "clim-listener::*icon-cache*")))
    ;;(setf (symbol-value (read-from-string "beirc::*beirc-user-init-file*"))
    ;;      #p"LOCAL:>beirc.lisp")
    (setf mezzano.gui.desktop::*icons*
          (append mezzano.gui.desktop::*icons*
                  '(;;("LOCAL:>Icons>Chat.png" "beirc" "(beirc:beirc :new-process t)")
                    ("LOCAL:>Icons>Terminal.png" "McCLIM Listener" "(clim-listener:run-listener :new-process t)")
                    ("LOCAL:>Icons>Editor.png" "McCLIM Demos" "(mezzano.supervisor:make-thread (lambda ()
                                                                                                 (let ((*terminal-io* (make-instance 'mezzano.gui.popup-io-stream:popup-io-stream
                                                                                                                                     :title \"McCLIM Demos console\"))
  