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

[Brian Mastenbrook]

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

Modified Files:
	variable.lisp 
Log Message:
defparameter is kind of unintuitive there. Spent a frustrated ten minutes wondering why my new page was 404ing until I realized that variable.lisp smashes over the old handler but never replaces it.

Date: Fri Jan 30 11:36:41 2004
Author: bmastenbrook

Index: lisppaste2/variable.lisp
diff -u lisppaste2/variable.lisp:1.8 lisppaste2/variable.lisp:1.9
--- lisppaste2/variable.lisp:1.8	Fri Jan 30 11:09:47 2004
+++ lisppaste2/variable.lisp	Fri Jan 30 11:36:37 2004
@@ -1,4 +1,4 @@
-;;;; $Id: variable.lisp,v 1.8 2004/01/30 16:09:47 bmastenbrook Exp $
+;;;; $Id: variable.lisp,v 1.9 2004/01/30 16:36:37 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -40,7 +40,7 @@
 (defparameter *rss-url*
   (araneida:merge-url *paste-external-url* "list.rss"))
 
-(defparameter *paste-listener*
+(defvar *paste-listener*
   (let ((fwd-url (araneida:copy-url *paste-url*)))
     (setf (araneida:url-port fwd-url) *internal-http-port*)
     (make-instance 'araneida:serve-event-reverse-proxy-listener