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

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/home/bmastenbrook/lisppaste2

Modified Files:
	web-server.lisp 
Log Message:
< antifuchs> MORE DISCLAIMERS (this line is provided without any warranty)

Date: Fri Jun 11 06:02:38 2004
Author: bmastenbrook

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.53 lisppaste2/web-server.lisp:1.54
--- lisppaste2/web-server.lisp:1.53	Wed Jun  9 12:46:35 2004
+++ lisppaste2/web-server.lisp	Fri Jun 11 06:02:38 2004
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.53 2004/06/09 19:46:35 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.54 2004/06/11 13:02:38 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -123,7 +123,9 @@
     " | "
     ((a :href ,(araneida:urlstring *stats-url*)) "Stats")
     " | "
-    ((a :href "http://common-lisp.net/project/lisppaste") "lisppaste home page")))
+    ((a :href "http://common-lisp.net/project/lisppaste") "lisppaste home page")
+    (br)
+    (i "Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.")))
 
 (defun time-delta (time &key (level 2) (ago-p t) (origin (get-universal-time)))
   (let ((delta (- origin time)))