[net-nittin-irc-cvs] CVS update: net-nittin-irc/utility.lisp

[Kevin Rosenberg]

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc
In directory common-lisp.net:/tmp/cvs-serv16616

Modified Files:
	utility.lisp 
Log Message:
bind *print-circle* to nil when composing irc messages
Date: Tue Dec 16 15:52:40 2003
Author: krosenberg

Index: net-nittin-irc/utility.lisp
diff -u net-nittin-irc/utility.lisp:1.5 net-nittin-irc/utility.lisp:1.6
--- net-nittin-irc/utility.lisp:1.5	Sun Nov 23 17:39:16 2003
+++ net-nittin-irc/utility.lisp	Tue Dec 16 15:52:39 2003
@@ -1,4 +1,4 @@
-;;;; $Id: utility.lisp,v 1.5 2003/11/23 22:39:16 eenge Exp $
+;;;; $Id: utility.lisp,v 1.6 2003/12/16 20:52:39 krosenberg Exp $
 ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/utility.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -53,13 +53,14 @@
                                  (trailing-argument nil))
   "Return a valid IRC message, as a string, composed of the input
 parameters."
-  (format nil "~A~{ ~A~}~A~A~A~A" command arguments
-          (if trailing-argument
-              " :"
+  (let ((*print-circle* nil))
+    (format nil "~A~{ ~A~}~A~A~A~A" command arguments
+	    (if trailing-argument
+		" :"
               "")
-          (or trailing-argument "")
-          #\Return
-          #\Linefeed))
+	    (or trailing-argument "")
+	    #\Return
+	    #\Linefeed)))
 
 (defun make-ctcp-message (string)
   "Return a valid IRC CTCP message, as a string, composed by