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

[Peter Seibel]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
Adding swank versions of two missing pretty-printer control variables.

Date: Wed Apr  7 12:24:03 2004
Author: pseibel

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.325 slime/ChangeLog:1.326
--- slime/ChangeLog:1.325	Wed Apr  7 06:07:50 2004
+++ slime/ChangeLog	Wed Apr  7 12:24:03 2004
@@ -1,3 +1,8 @@
+2004-04-07  Peter Seibel  <peter at javamonkey.com>
+
+	* swank.lisp (swank-pprint): Add swank versions of two missing
+	pretty-printer control variables.
+
 2004-04-07  Luke Gorrie  <luke at bluetail.com>
 
 	* swank.lisp (completion-set): Also complete package


Index: slime/swank.lisp
diff -u slime/swank.lisp:1.164 slime/swank.lisp:1.165
--- slime/swank.lisp:1.164	Wed Apr  7 06:20:40 2004
+++ slime/swank.lisp	Wed Apr  7 12:24:03 2004
@@ -1128,6 +1128,12 @@
 (defvar *swank-pprint-circle* *print-circle*
   "*PRINT-CIRCLE* is bound to this value when pretty printing slime output.")
 
+(defvar *swank-pprint-case* *print-case*
+  "*PRINT-CASE* is bound to this value when pretty printing slime output.")
+
+(defvar *swank-pprint-right-margin* *print-right-margin*
+  "*PRINT-RIGHT-MARGIN* is bound to this value when pretty printing slime output.")
+
 (defvar *swank-pprint-escape* *print-escape*
   "*PRINT-ESCAPE* is bound to this value when pretty printing slime output.")
 
@@ -1140,6 +1146,8 @@
 (defun swank-pprint (list)
   "Bind some printer variables and pretty print each object in LIST."
   (let ((*print-pretty* t)
+        (*print-case* *swank-pprint-case*)
+        (*print-right-margin* *swank-pprint-right-margin*)
         (*print-circle* *swank-pprint-circle*)
         (*print-escape* *swank-pprint-escape*)
         (*print-level* *swank-pprint-level*)