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