[beirc-cvs] CVS beirc

[afuchs]

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*))