[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv10895

Modified Files:
	ChangeLog swank-backend.lisp swank-ccl.lisp swank-sbcl.lisp 
Log Message:
* swank-backend.lisp (deinit-log-output): Move from swank-sbcl,
use it on CCL in ccl:*save-exit-functions* as well.


--- /project/slime/cvsroot/slime/ChangeLog	2012/12/03 03:35:09	1.2372
+++ /project/slime/cvsroot/slime/ChangeLog	2012/12/03 03:43:16	1.2373
@@ -1,5 +1,8 @@
 2012-12-03  Stas Boukarev  <stassats at gmail.com>
 
+	* swank-backend.lisp (deinit-log-output): Move from swank-sbcl,
+	use it on CCL in ccl:*save-exit-functions* as well.
+
 	* swank-allegro.lisp (macroexpand-all): USe walk-form, not walk
 	on >= 8.2.
 	Patch by Utz-Uwe Haus.
--- /project/slime/cvsroot/slime/swank-backend.lisp	2012/05/11 06:52:05	1.220
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2012/12/03 03:43:16	1.221
@@ -1498,3 +1498,8 @@
   "Request saving a heap image to the file FILENAME.
 RESTART-FUNCTION, if non-nil, should be called when the image is loaded.
 COMPLETION-FUNCTION, if non-nil, should be called after saving the image.")
+
+(defun deinit-log-output ()
+  ;; Can't hang on to an fd-stream from a previous session.
+  (setf (symbol-value (find-symbol "*LOG-OUTPUT*" 'swank))
+        nil))
--- /project/slime/cvsroot/slime/swank-ccl.lisp	2012/08/04 23:48:19	1.28
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2012/12/03 03:43:16	1.29
@@ -797,3 +797,5 @@
 
 (defimplementation hash-table-weakness (hashtable)
   (ccl:hash-table-weak-p hashtable))
+
+(pushnew 'deinit-log-output ccl:*save-exit-functions*)
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/08/04 23:48:19	1.324
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/12/03 03:43:16	1.325
@@ -1860,9 +1860,4 @@
                     (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 (symbol-value (find-symbol "*LOG-OUTPUT*" 'swank))
-        nil))
-
 (pushnew 'deinit-log-output sb-ext:*save-hooks*)