[Lisppaste-cvs] CVS update: lisppaste2/lisppaste.lisp - lisppaste-cvs@common-lisp.net - mailman3.common-lisp.net

4 Feb 2004

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/tmp/cvs-serv22399
Modified Files:
    lisppaste.lisp 
Log Message:
URL in realname
Date: Tue Feb  3 18:46:20 2004
Author: bmastenbrook
Index: lisppaste2/lisppaste.lisp
diff -u lisppaste2/lisppaste.lisp:1.5 lisppaste2/lisppaste.lisp:1.6

--- lisppaste2/lisppaste.lisp:1.5	Tue Jan 20 09:22:06 2004
+++ lisppaste2/lisppaste.lisp	Tue Feb  3 18:46:20 2004
@@ -1,4 +1,4 @@
-;;;; $Id: lisppaste.lisp,v 1.5 2004/01/20 14:22:06 bmastenbrook Exp $
+;;;; $Id: lisppaste.lisp,v 1.6 2004/02/03 23:46:20 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $
;;;; See the LICENSE file for licensing information.
@@ -12,6 +12,7 @@
   "Connect to specified server, join specified channel and start
 accepting requests through the web."
   (let ((connection (irc:connect :nickname nickname
+                                 :realname (araneida:urlstring *new-paste-url*)
                                  :server server
                                  :port port)))
     (setf *connection* connection)
@@ -23,4 +24,4 @@
(defun join-new-channel (channel)
   (setf *channels* (nconc *channels* (list channel)))
-  (irc:join *connection* channel))
\ No newline at end of file
+  (irc:join *connection* channel))

    