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

Modified Files: protocol.lisp Log Message: Move *print-case* let to right place

Date: Fri Nov 14 15:12:13 2003 Author: bmastenbrook

Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.9 net-nittin-irc/protocol.lisp:1.10 --- net-nittin-irc/protocol.lisp:1.9 Fri Nov 14 14:28:00 2003 +++ net-nittin-irc/protocol.lisp Fri Nov 14 15:12:12 2003 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.9 2003/11/14 19:28:00 bmastenbrook Exp $ +;;;; $Id: protocol.lisp,v 1.10 2003/11/14 20:12:12 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $

;;;; See LICENSE for licensing information. @@ -475,14 +475,14 @@

(defclass irc-error-reply (irc-message) ())

-(let ((*print-case* :upcase)) - (defmacro define-irc-message (command) +(defmacro define-irc-message (command) + (let ((*print-case* :upcase)) (let ((name (intern (format nil "IRC-~A-MESSAGE" command)))) `(progn - (defmethod find-irc-message-class ((type (eql ,command))) - (find-class ',name)) - (export ',name) - (defclass ,name (irc-message) ()))))) + (defmethod find-irc-message-class ((type (eql ,command))) + (find-class ',name)) + (export ',name) + (defclass ,name (irc-message) ())))))

(defun create-irc-message-classes (class-list) (dolist (class class-list) @@ -523,14 +523,14 @@

(defclass standard-ctcp-message (ctcp-mixin message) ())

-(let ((*print-case* :upcase)) - (defmacro define-ctcp-message (ctcp-command) +(defmacro define-ctcp-message (ctcp-command) + (let ((*print-case* :upcase)) (let ((name (intern (format nil "CTCP-~A-MESSAGE" ctcp-command)))) `(progn - (defmethod find-ctcp-message-class ((type (eql ,ctcp-command))) - (find-class ',name)) - (export ',name) - (defclass ,name (ctcp-mixin irc-message) ()))))) + (defmethod find-ctcp-message-class ((type (eql ,ctcp-command))) + (find-class ',name)) + (export ',name) + (defclass ,name (ctcp-mixin irc-message) ())))))

(defun create-ctcp-message-classes (class-list) (dolist (class class-list)