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

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/tmp/cvs-serv13984

Modified Files:
	README.lisp lisppaste.lisp 
Log Message:
Make lisppaste read pastes from a file on startup, and fix the README

Date: Sat Jan 17 13:22:35 2004
Author: bmastenbrook

Index: lisppaste2/README.lisp
diff -u lisppaste2/README.lisp:1.1.1.1 lisppaste2/README.lisp:1.2
--- lisppaste2/README.lisp:1.1.1.1	Mon Nov  3 12:17:53 2003
+++ lisppaste2/README.lisp	Sat Jan 17 13:22:35 2004
@@ -1,4 +1,4 @@
-;;;; $Id: README.lisp,v 1.1.1.1 2003/11/03 17:17:53 eenge Exp $
+;;;; $Id: README.lisp,v 1.2 2004/01/17 18:22:35 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/README.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -15,7 +15,7 @@
 (load "lisppaste.asd")
 (asdf:oos 'asdf:load-op :lisppaste)
 
-(lisppaste:start-lisppaste :channel "#lisppaste"
-                           :nickname "toby"
+(lisppaste:start-lisppaste :channels '("#lisppaste")
+                           :nickname "devpaste"
                            :server "irc.freenode.net"
                            :port 6667)


Index: lisppaste2/lisppaste.lisp
diff -u lisppaste2/lisppaste.lisp:1.3 lisppaste2/lisppaste.lisp:1.4
--- lisppaste2/lisppaste.lisp:1.3	Sat Jan 17 12:54:13 2004
+++ lisppaste2/lisppaste.lisp	Sat Jan 17 13:22:35 2004
@@ -1,4 +1,4 @@
-;;;; $Id: lisppaste.lisp,v 1.3 2004/01/17 17:54:13 bmastenbrook Exp $
+;;;; $Id: lisppaste.lisp,v 1.4 2004/01/17 18:22:35 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -16,6 +16,7 @@
                                  :port port)))
     (setf *connection* connection)
     (setf *channels* channels)
+    (read-pastes-from-file *paste-file*)
     (mapcar #'(lambda (channel) (irc:join connection channel)) channels)
     (araneida:start-listening *paste-listener*)
     (irc:read-message-loop connection)))