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