anchor.diff:  (defmethod perform :after ((op load-op) (c (eql (find-system :mcclim))))
     (pushnew :clim *features*)
     (pushnew :mcclim *features*))
  +
  +;; XXX This is very ugly, but ESA and Drei need to know whether they
  +;; are being compiled as part of McCLIM, or in another CLIM
  +;; implementation.
  +(defmethod perform :around (op c)
  +  (if (and (or (eql (component-system c) (find-system :esa-mcclim))
  +               (eql (component-system c) (find-system :drei-mcclim)))
  +           (not (find :building-mcclim *features*)))
  +      (unwind-protect (progn (push :building-mcclim *features*)
  +                             (call-next-method))
  +        (setf *features* (delete :building-mcclim *features*)))
  +      (call-next-method)))
  
positive.code:                (:file "presentation-history" :depends-on ("editing-stream" "buffer"
                                                                             "flexivector" "editable-buffer"
                                                                             "goatee-command"))))))
  
  ;;; CLIM-PostScript is not a backend in the normal sense.
  ;;; It is an extension (Chap. 35.1 of the spec) and is an
  ;;; "included" part of McCLIM. Hence the defsystem is here.
  (defsystem :clim-postscript
      :depends-on (:clim-core)
      :components
      ((:module "Backends/PostScript"
                :pathname #.(make-pathname :directory '(:relative "Backends" "PostScript"))
                :components
                ((:file "package")
                 (:file "encoding" :depends-on ("package"))
                 (:file "paper" :depends-on ("package"))
                 (:file "class" :depends-on ("paper" "package"))
                 (:file "font" :depends-on ("encoding" "class" "paper" "package"))
                 (:file "graphics" :depends-on ("encoding" "paper" "class" "font" "package"))
                 (:file "sheet" :depends-on ("paper" "class" "graphics" "package"))
                 (:file "afm" :depends-on ("class" "paper" "font" "package"))
                 (:file "standard-metrics" :depends-on ("font" "package"))))))
  
  (defsystem :clim
      :depends-on (:clim-core :goatee-core)
      :components
      ((:file "text-formatting")
       (:file "input-editing")
       (:file "presentations")
       (:file "defresource")
       (:file "presentation-defs" :depends-on ("input-editing" "presentations"))
       (:file "pointer-tracking" :depends-on ("input-editing"))
       (:file "commands" :depends-on ("input-editing" "presentations"
  						    "presentation-defs"))
       (:file "incremental-redisplay" :depends-on ("presentation-defs"))
       (:file "frames" :depends-on ("commands" "presentations" "presentation-defs"
                                               "pointer-tracking" "incremental-redisplay"))
       (:file "panes" :depends-on ("incremental-redisplay" "presentations"
                                                           "presentation-defs" "input-editing" "frames"))
       (:file "gadgets" :depends-on ("commands" "pointer-tracking" "input-editing" 
                                                "frames" "incremental-redisplay" "panes"))
       (:file "menu" :depends-on ("panes" "commands" "gadgets"
                                          "presentations" "frames"))
       (:file "table-formatting" :depends-on ("presentation-defs" "panes"
                                                                  "presentations" "input-editing"))
       (:file "graph-formatting")
       (:file "bordered-output" :depends-on ("input-editing" "incremental-redisplay"
                                                             "presentation-defs" "panes"))
       (:file "dialog-views" :depends-on ("presentations" "incremental-redisplay"
                                                          "bordered-output" "presentation-defs"))
       (:file "dialog" :depends-on ("panes" "frames" "incremental-redisplay"
                                            "table-formatting" "presentations"
                                            "bordered-output" "presentation-defs"
                                            "dialog-views" "input-editing"
                                            "commands"))
       (:file "builtin-commands" :depends-on ("table-formatting" "commands" "presentations"
                                                                 "presentation-defs" "input-editing"))
       (:file "describe" :depends-on ("presentations" "presentation-defs" "table-formatting"))
       (:file "menu-choose" :depends-on ("commands" "table-formatting" "presentation-defs"
  						  "panes" "frames" "pointer-tracking"
  						  "presentations"))
       (:file "Goatee/presentation-history" :depends-on ("presentation-defs")  ; XXX: this is loaded as part of the Goatee system. huh?
              :pathname #.(make-pathname :directory '(:relative "Goatee") :name "presentation-history" :type "lisp"))
       ))
  
  (defsystem :clim-clx
      :depends-on (:clim #+(or sbcl openmcl ecl allegro) :clx)
  
negative.code:                       #+clisp     "fix-clisp")))
     (:file "package" :depends-on ("Lisp-Dep" "patch"))))
  
  (defsystem :clim-basic
      :depends-on (:clim-lisp :spatial-trees)
      :components ((:file "decls")
  		 (:file "protocol-classes" :depends-on ("decls"))
  