(sb-ext:disable-debugger)
(setf asdf:*central-registry* (list (car asdf:*central-registry*)))

(asdf:operate 'asdf:load-op :esa)
(defvar *old-command-tables* (make-hash-table))
(maphash (lambda (k v)
	   (setf (gethash k *old-command-tables*) v))
	 climi::*command-tables*)

(asdf:operate 'asdf:load-op :climacs)
(defvar *new-command-tables* (make-hash-table))
(maphash (lambda (k v)
	   (unless (gethash k *old-command-tables*)
	     (setf (gethash k *new-command-tables*) v)))
	 climi::*command-tables*)

(load "/opt/steeldump/scripts/lisp/clim-helper.lisp")

(defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :climacs))))
  (dump-clim-application
   '("CLIMACS"
     "CLIMACS-SLIDEMACS-EDITOR" "CLIMACS-TTCN3-SYNTAX" "CLIMACS-GUI"
     "CLIMACS-LISP-SYNTAX" "CLIMACS-CL-SYNTAX" "CLIMACS-PROLOG-SYNTAX"
     "CLIMACS-HTML-SYNTAX" "CLIMACS-FUNDAMENTAL-SYNTAX" "CLIMACS-PANE" "UNDO"
     "CLIMACS-KILL-RING" "CLIMACS-SYNTAX" "CLIMACS-ABBREV" "CLIMACS-BASE"
     "CLIMACS-BUFFER" "BINSEQ" "AUTOMATON" "EQV-HASH" "CLIMACS-MOTION"
     "CLIMACS-EDITING" "CLIMACS-CORE" "CLIMACS-COMMANDS")
   "climacs.heap"
   *new-command-tables*
   :systems '(:climacs :climacs.tests)
   :system-packages '(:climacs.system)
   :if-exists :rename-and-delete))

(let ((*default-pathname-defaults*
       (truename (sb-ext:posix-getenv "SBCL_HOME"))))
  (sb-heapdump:dump-system :climacs))
(sb-ext:quit)