[Lisppaste-cvs] CVS update: lisppaste2/lisppaste.lisp

[Brian Mastenbrook]

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