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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(print-connection): print-function for connection objects. Dumping the
indentation-cache was damned ugly with non-truncated lines (e.g. bug
reports on slime-devel).

Date: Fri Jul 16 11:12:41 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.214 slime/swank.lisp:1.215
--- slime/swank.lisp:1.214	Wed Jul 14 22:02:32 2004
+++ slime/swank.lisp	Fri Jul 16 11:12:41 2004
@@ -131,7 +131,8 @@
 ;;;
 
 (defstruct (connection
-             (:conc-name connection.))
+             (:conc-name connection.)
+             (:print-function print-connection))
   ;; Raw I/O stream of socket connection.
   (socket-io        (missing-arg) :type stream :read-only t)
   ;; Optional dedicated output socket (backending `user-output' slot).
@@ -170,6 +171,10 @@
   (indentation-cache (make-hash-table :test 'eq) :type hash-table)
   ;; The list of packages represented in the cache:
   (indentation-cache-packages '()))
+
+(defun print-connection (conn stream depth)
+  (declare (ignore depth))
+  (print-unreadable-object (conn stream :type t :identity t)))
 
 (defvar *connections* '()
   "List of all active connections, with the most recent at the front.")