Update of /project/beirc/cvsroot/beirc In directory clnet:/tmp/cvs-serv18270 Modified Files: application.lisp Log Message: Make the quit reason in com-quit an (optional) keyword arg. --- /project/beirc/cvsroot/beirc/application.lisp 2006/03/16 20:56:52 1.63 +++ /project/beirc/cvsroot/beirc/application.lisp 2006/03/16 21:01:21 1.64 @@ -573,7 +573,7 @@ (define-beirc-command (com-back :name t) () (irc:away (current-connection *application-frame*) "")) -(define-beirc-command (com-quit :name t) ((reason 'mumble :prompt "reason")) +(define-beirc-command (com-quit :name t) (&key (reason 'mumble :prompt "reason" :default "Client Quit")) (disconnect-all *application-frame* reason) (frame-exit *application-frame*))