[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (deinit-log-output): Use the right symbol for
*LOG-OUTPUT*, swank package isn't available at the time
swank-backend is compiled.


--- /project/slime/cvsroot/slime/ChangeLog	2010/10/16 10:10:38	1.2153
+++ /project/slime/cvsroot/slime/ChangeLog	2010/10/19 11:59:25	1.2154
@@ -1,3 +1,9 @@
+2010-10-19  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-sbcl.lisp (deinit-log-output): Use the right symbol for
+	*LOG-OUTPUT*, swank package isn't available at the time
+	swank-backend is compiled.
+
 2010-10-16  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-loader.lisp (default-fasl-dir): Guard against using :asdf
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2010/10/07 17:15:07	1.278
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2010/10/19 11:59:25	1.279
@@ -1660,6 +1660,7 @@
 
 (defun deinit-log-output ()
   ;; Can't hang on to an fd-stream from a previous session.
-  (setf *log-output* nil))
+  (setf (symbol-value (find-symbol "*LOG-OUTPUT*" 'swank))
+        nil))
 
 (pushnew 'deinit-log-output sb-ext:*save-hooks*)