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