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