[slime-cvs] CVS update: slime/swank.lisp

[Matthias Koeppe]

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

Modified Files:
	swank.lisp 
Log Message:
(*can-print-presentation*): Move up.

Date: Thu Aug  4 22:14:57 2005
Author: mkoeppe

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.316 slime/swank.lisp:1.317
--- slime/swank.lisp:1.316	Thu Aug  4 21:34:35 2005
+++ slime/swank.lisp	Thu Aug  4 22:14:57 2005
@@ -329,7 +329,7 @@
 
 ;;;; TCP Server
 
-(defvar *use-dedicated-output-stream* t
+(defvar *use-dedicated-output-stream* nil
   "When T swank will attempt to create a second connection to
   Emacs which is used just to send output.")
 (defvar *dedicated-output-stream-port* 0
@@ -917,7 +917,7 @@
          (out (connection.user-output connection))
          (*standard-output* out)
          (*error-output* out)
-         (*trace-output* out)
+         ;;(*trace-output* out)
          (*debug-io* io)
          (*query-io* io)
          (*standard-input* in)
@@ -1657,6 +1657,9 @@
 
 (defvar *current-id* nil)
 
+(defvar *can-print-presentation* nil 
+  "set this to t in contexts where it is ok to print presentations at all")
+ 
 (defun eval-for-emacs (form buffer-package id)
   "Bind *BUFFER-PACKAGE* BUFFER-PACKAGE and evaluate FORM.
 Return the result to the continuation ID.
@@ -1843,9 +1846,6 @@
 (defparameter *repl-results* '()
   "Association list of old repl results.")
 
-(defvar *can-print-presentation* nil 
-  "set this to t in contexts where it is ok to print presentations at all")
- 
 (defslimefun listener-eval (string)
   (clear-user-input)
   (with-buffer-syntax ()