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

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

(defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :gsharp))))
  (dump-clim-application
   '("GSHARP-UTILITIES" "MF" "SDL" "SCORE-PANE" "GSHARP-BUFFER"
     "GSHARP-NUMBERING" "OBSEQ" "GSHARP-MEASURE" "GSHARP-BEAMING"
     "GSHARP-CURSOR" "GSHARP-DRAWING" "MIDI" "GSHARP-PLAY" "GSHARP"
     "FONTVIEW")
   "gsharp.heap"
   nil
   :force (list #'(setf clim:output-record-start-cursor-position)
		#'(setf clim:output-record-end-cursor-position))
   :systems '(:gsharp)
   :system-packages '()
   :if-exists :rename-and-delete))

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