Update of /project/beirc/cvsroot/beirc In directory clnet:/tmp/cvs-serv28686

Modified Files: application.lisp Log Message: when /nick is used before /connect, set *default-nick* instead of erroring out on the non-existing connection

--- /project/beirc/cvsroot/beirc/application.lisp 2007/02/24 19:33:37 1.87 +++ /project/beirc/cvsroot/beirc/application.lisp 2007/02/25 12:29:58 1.88 @@ -691,7 +691,13 @@ (format nil "~AACTION ~A~A" (code-char 1) what (code-char 1)))))

(define-beirc-command (com-nick :name t) ((new-nick 'string :prompt "new nick")) - (irc:nick (current-connection *application-frame*) new-nick)) + (let ((connection (current-connection *application-frame*))) + (cond + (connection + (irc:nick connection new-nick)) + (t + (format *standard-input* "Default nickname set to ~A.~%" new-nick) + (setf *default-nick* new-nick)))))

(define-beirc-command (com-browse-url :name t) ((url 'url :prompt "url")) (handler-case