Update of /project/beirc/cvsroot/beirc In directory common-lisp.net:/tmp/cvs-serv8527

Modified Files: application.lisp Log Message: remove the ugly DISCONNECT function. it did the wrong thing, anyway.

Date: Sun Sep 25 18:07:58 2005 Author: afuchs

Index: beirc/application.lisp diff -u beirc/application.lisp:1.3 beirc/application.lisp:1.4 --- beirc/application.lisp:1.3 Sun Sep 25 17:48:32 2005 +++ beirc/application.lisp Sun Sep 25 18:07:58 2005 @@ -480,25 +480,8 @@ (setf (gethash "*Server*" (receivers frame)) (server-receiver frame)) (setf (connection-process *application-frame*) (clim-sys:make-process #'(lambda () - (unwind-protect - (irc-event-loop frame connection) - (disconnect frame))) + (irc-event-loop frame connection)) :name "IRC Message Muffling Loop"))))))) - -(defun disconnect (frame) - (raise-receiver (server-receiver frame)) - (post-message frame - (make-fake-irc-message 'irc:irc-quit-message - :trailing-argument "You disconnected from IRC" - :command "QUIT")) - (when (and (connection-process frame) - (not (eql (clim-sys:current-process) - (connection-process frame)))) - (destroy-process (connection-process frame))) - (setf (slot-value frame 'connection) nil - (connection-process frame) nil - (slot-value frame 'nick) nil)) - (defun quit (frame reason) (raise-receiver (server-receiver frame)) (irc:quit (current-connection frame) reason)