Commit 28d12d6a authored by Helmut Eller's avatar Helmut Eller

* swank-loader.lisp (dump-image): Move this function to the end of

the file to stop SBCL from reporting two times the same false
alarm.
parent e7f57e92
2008-08-15 B.Scott Michel <scooter.phd@gmail.com>
* swank-loader.lisp (dump-image): Move this function to the end of
the file to stop SBCL from reporting two times the same false
alarm.
2008-08-15 Tobias C. Rittweiler <tcr@freebits.de>
* slime.el (slime-popup-buffer-quit): Fix regression; we have to
......
......@@ -226,10 +226,6 @@ If LOAD is true, load the fasl file."
(eval `(pushnew 'compile-contribs ,(q "swank::*after-init-hook*")))
(funcall (q "swank::init")))
(defun dump-image (filename)
(init :setup nil)
(funcall (q "swank-backend:save-image") filename))
(defun init (&key delete reload load-contribs (setup t))
(when (and delete (find-package :swank))
(mapc #'delete-package '(:swank :swank-io-package :swank-backend)))
......@@ -241,3 +237,7 @@ If LOAD is true, load the fasl file."
(compile-contribs :load t))
(when setup
(setup)))
(defun dump-image (filename)
(init :setup nil)
(funcall (q "swank-backend:save-image") filename))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment