[slime-cvs] CVS slime

[CVS User nsiivola]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv19896

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
SBCL: null *log-output* when saving core

	Hanging on to a *log-output* from a previous image is bad on SBCL
	at least: it is initialized to an FD-STREAM, which cannot be
	reused from one image to another.

	Deal with this by using sb-ext:*save-hooks* to clear the
        stream.


--- /project/slime/cvsroot/slime/ChangeLog	2010/10/02 11:16:54	1.2147
+++ /project/slime/cvsroot/slime/ChangeLog	2010/10/07 17:15:07	1.2148
@@ -1,3 +1,13 @@
+2010-10-07  Nikodemus Siivola  <nikodemus at random-state.net>
+
+	Hanging on to a *log-output* from a previous image is bad on SBCL
+	at least: it is initialized to an FD-STREAM, which cannot be
+	reused from one image to another.
+
+	Deal with this by using sb-ext:*save-hooks* to clear the stream.
+
+	* swank-sbcl.lisp (deinit-log-output): New function.
+
 2010-10-02  Helmut Eller  <heller at common-lisp.net>
 
 	Rename slime-macro/compiler-macro-expand-1 => slime-expand-1
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2010/09/01 13:18:55	1.277
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2010/10/07 17:15:07	1.278
@@ -1657,3 +1657,9 @@
                     (assert (sb-posix:wifexited status))
                     (funcall completion-function
                              (zerop (sb-posix:wexitstatus status))))))))))))
+
+(defun deinit-log-output ()
+  ;; Can't hang on to an fd-stream from a previous session.
+  (setf *log-output* nil))
+
+(pushnew 'deinit-log-output sb-ext:*save-hooks*)