(sb-ext:disable-debugger)
(setf asdf:*central-registry* (list (car asdf:*central-registry*)))
(asdf:operate 'asdf:load-op :esa)

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

(defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :esa))))
  (dump-clim-application
   '("ESA" "ESA-BUFFER" "ESA-IO")
   "esa.heap"
   nil
   :force (list #'clim:command-table #'(setf clim:command-table))
   :initializer (lambda (x)
                  (setf (fdefinition 'clim:command-table) #'clim:command-table)
                  (setf (fdefinition '(setf clim:command-table))
                        #'(setf clim:command-table))
                  x)
   :systems '(:esa)
   :system-packages '()
   :if-exists :rename-and-delete))

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