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

[Brian Mastenbrook]

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))