[beirc-cvs] CVS beirc

[afuchs]

Update of /project/beirc/cvsroot/beirc
In directory common-lisp:/tmp/cvs-serv14444

Modified Files:
	message-display.lisp 
Log Message:
add a printer for the :key channel mode (+k)


--- /project/beirc/cvsroot/beirc/message-display.lisp	2006/02/06 21:21:02	1.29
+++ /project/beirc/cvsroot/beirc/message-display.lisp	2006/02/10 20:48:23	1.30
@@ -400,6 +400,12 @@
     (write-char #\:)
     (present arg 'number)))
 
+(defmethod print-mode-change (target op (mode (eql :key)) arg)
+  (format t "~A~A" op (mode-symbol-to-char target mode))
+  (when (not (null arg))
+    (write-char #\:)
+    (present arg 'string)))
+
 (macrolet ((define-mode-change-with-hostmask-printer (&rest modes)
                `(progn
                   ,@(loop for mode in modes