[nongnu] elpa/slime 77fb499e58: Erase *log-output* in clisp on startup.

[ELPA Syncer]

branch: elpa/slime
commit 77fb499e5803bfe162f2299ec767bb15466de0a8
Author: Stas Boukarev <stass...@gmail.com>
Commit: Stas Boukarev <stass...@gmail.com>

    Erase *log-output* in clisp on startup.
    
    Sadly, it doesn't have a hook that runs before saveinitmem.
---
 swank/clisp.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/swank/clisp.lisp b/swank/clisp.lisp
index d028c9ed96..f53b40eb6d 100644
--- a/swank/clisp.lisp
+++ b/swank/clisp.lisp
@@ -934,3 +934,9 @@ Execute BODY with NAME's function slot set to FUNCTION."
                 ,@(if restart-function 
                       `((:init-function ,restart-function))))))
     (apply #'ext:saveinitmem args)))
+
+(pushnew (lambda ()
+           (when *log-output*
+             (setf *log-output* nil))
+           (swank::init-log-output))
+         custom:*init-hooks*)