(sb-ext:disable-debugger) (setf asdf:*central-registry* (list (car asdf:*central-registry*))) (asdf:operate 'asdf:load-op :beirc) (load "/opt/steeldump/scripts/lisp/clim-helper.lisp") (defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :beirc)))) (dump-clim-application '(:beirc) "beirc.heap" nil :force (list #'clim:pane) :systems '(:beirc) :system-packages '(:beirc.system) :if-exists :rename-and-delete)) (let ((*default-pathname-defaults* (truename (sb-ext:posix-getenv "SBCL_HOME")))) (sb-heapdump:dump-system :beirc)) (sb-ext:quit)