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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(variable-desc-for-echo-area): Bind some printer variables to limit
the length of the output.
Date: Fri Aug 13 09:14:13 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.221 slime/swank.lisp:1.222
--- slime/swank.lisp:1.221	Sun Aug  1 22:25:33 2004
+++ slime/swank.lisp	Fri Aug 13 09:14:13 2004
@@ -101,7 +101,7 @@
 ;;; Lisp one.
 
 (defmacro add-hook (place function)
-  "Add FUNCTION to the list of values on HOOK-VARIABLE."
+  "Add FUNCTION to the list of values on PLACE."
   `(pushnew ,function ,place))
 
 (defun run-hook (functions &rest arguments)
@@ -1056,8 +1056,9 @@
   (with-buffer-syntax ()
     (let ((sym (parse-symbol variable-name)))
       (if (and sym (boundp sym))
-          (let ((*print-pretty* nil))
-            (format nil "~A => ~A" sym (symbol-value sym)))))))
+          (let ((*print-pretty* nil) (*print-level* 4)
+                (*print-length* 10) (*print-circle* t))
+             (format nil "~A => ~A" sym (symbol-value sym)))))))
 
 (defslimefun arglist-for-insertion (name)
   (with-buffer-syntax ()