[beirc-cvs] CVS update: beirc/application.lisp

[Andreas Fuchs]

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)