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

(defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :clx))))
  (sb-heapdump:dump-packages
   ;; The test stuff is apparently loaded only when compiling clx for the
   ;; first time (and must then be dumped, too), not when loading clx later(?).
   ;; Let's just ignore the non-existent package for now.
   (remove nil (mapcar #'find-package '(:gl :glx :xlib :clipboard :gl-test)))
   "clx.heap"
   :if-exists :rename-and-delete
   :initializer (let ((event-keys xlib::*event-key-vector*))
                  (lambda (packages)
                    (loop
                        for event-key across event-keys
                        for i from 0
                        do
                          (setf (get event-key 'xlib::event-code) i))
                    (setf *features*
                          (union *features*
                                 '(:clx-ext-render
                                   :clx-mit-r5
                                   :clx-mit-r4
                                   :xlib
                                   :clx
                                   :clx-little-endian
                                   :clx-ansi-common-lisp)))
                    packages))
   :systems '(:clx)
   :system-packages '(:clx-system)))

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