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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(define-printer-variables): Allow print-gensym, base and others.
(printer-variables sldb-print): Include print-gensym, pprint-dispatch,
base, radix, array, lines.

Date: Tue Oct 19 08:14:17 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.252 slime/swank.lisp:1.253
--- slime/swank.lisp:1.252	Tue Oct 19 07:57:29 2004
+++ slime/swank.lisp	Tue Oct 19 08:14:17 2004
@@ -1215,7 +1215,6 @@
                                    shortest)
               finally (return shortest)))
 
-
 (defslimefun interactive-eval-region (string)
   (with-buffer-syntax ()
     (format-values-for-echo-area (eval-region string))))
@@ -1229,12 +1228,6 @@
 	(makunbound name)
 	(prin1-to-string (eval form))))))
 
-(defun foo (&key ((:x a)) ((y b)))
-  (cons a b))
-
-(foo 'y 10)
-
-
 (defmacro define-printer-variables (prefix &body vars)
   "Define a group of printer variables.  
 
@@ -1248,7 +1241,8 @@
 At macroexpansion time the names of the created symbols are stored in
 the 'printer-variables property of PREFIX."
   (let ((valid-names '(level length circle readably pretty 
-                       case escape right-margin)))
+                       case escape right-margin miser-width
+                       base radix gensym array lines pprint-dispatch)))
     (labels ((symconc (prefix suffix)
                (intern (format nil "*~A-~A*" (string prefix) (string suffix))
                        :swank))
@@ -1267,6 +1261,7 @@
                    collect `(defvar ,(symconc prefix name) ,init 
                               ,@(if doc doc))))))))
 
+
 (define-printer-variables swank-pprint
   circle level length case right-margin escape)
 
@@ -1372,7 +1367,8 @@
   (level 4)
   (length 10)
   (circle t)
-  (readably nil))
+  (readably nil)
+  gensym pprint-dispatch base radix array lines)
 
 (defun debug-in-emacs (condition)
   (let ((*swank-debugger-condition* condition)