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

[Brian Mastenbrook]

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)