Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2 Modified Files: lisppaste.lisp Log Message: Better hup-connection Date: Tue Feb 10 11:17:52 2004 Author: bmastenbrook Index: lisppaste2/lisppaste.lisp diff -u lisppaste2/lisppaste.lisp:1.7 lisppaste2/lisppaste.lisp:1.8 --- lisppaste2/lisppaste.lisp:1.7 Tue Feb 3 18:52:04 2004 +++ lisppaste2/lisppaste.lisp Tue Feb 10 11:17:52 2004 @@ -1,4 +1,4 @@ -;;;; $Id: lisppaste.lisp,v 1.7 2004/02/03 23:52:04 bmastenbrook Exp $ +;;;; $Id: lisppaste.lisp,v 1.8 2004/02/10 16:17:52 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -27,7 +27,7 @@ (irc:join *connection* channel)) (defun hup-connection (nickname server) - (irc:quit *connection*) + (ignore-errors (irc:quit *connection*)) (setf *connection* (irc:connect :nickname nickname :realname (araneida:urlstring *new-paste-url*) :server server