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

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

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