[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:
Programmatic join-new-channel

Date: Tue Jan 20 09:22:06 2004
Author: bmastenbrook

Index: lisppaste2/lisppaste.lisp
diff -u lisppaste2/lisppaste.lisp:1.4 lisppaste2/lisppaste.lisp:1.5
--- lisppaste2/lisppaste.lisp:1.4	Sat Jan 17 13:22:35 2004
+++ lisppaste2/lisppaste.lisp	Tue Jan 20 09:22:06 2004
@@ -1,4 +1,4 @@
-;;;; $Id: lisppaste.lisp,v 1.4 2004/01/17 18:22:35 bmastenbrook Exp $
+;;;; $Id: lisppaste.lisp,v 1.5 2004/01/20 14:22:06 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -19,4 +19,8 @@
     (read-pastes-from-file *paste-file*)
     (mapcar #'(lambda (channel) (irc:join connection channel)) channels)
     (araneida:start-listening *paste-listener*)
-    (irc:read-message-loop connection)))
\ No newline at end of file
+    (irc:read-message-loop connection)))
+
+(defun join-new-channel (channel)
+  (setf *channels* (nconc *channels* (list channel)))
+  (irc:join *connection* channel))
\ No newline at end of file