;;;; Replace SAMPLE in this file with the library name.  Look out for
;;;; libraries where system name, package name, and system package name
;;;; don't agree.  Often the system package is actually sample.system etc.
;;;;
;;;; As-is, this script not usually the the right thing for CLIM
;;;; programs, see clim-helper.lisp for details (and build-climacs.lisp
;;;; as an example).

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

(defmethod sb-heapdump:dump-system
    ((c (eql (asdf:find-system :SAMPLE))))
  (sb-heapdump:dump-packages
   '(:SAMPLE)
   "SAMPLE.heap"
   :if-exists :rename-and-delete
   :systems '(:SAMPLE)
   :system-packages '(:SAMPLE-system)))

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