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

Modified Files: web-server.lisp Log Message: Removing redundant superflous verbage.

Date: Wed Nov 12 01:23:43 2003 Author: bmastenbrook

Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.15 lisppaste2/web-server.lisp:1.16 --- lisppaste2/web-server.lisp:1.15 Wed Nov 12 01:18:55 2003 +++ lisppaste2/web-server.lisp Wed Nov 12 01:23:43 2003 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.15 2003/11/12 06:18:55 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.16 2003/11/12 06:23:43 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -207,16 +207,16 @@ (mapcar #'(lambda (a) `((tr (td (p)) (td)) (tr - (td ((a :name ,(prin1-to-string (paste-number a))) "Annotation title:")) + (td ((a :name ,(prin1-to-string (paste-number a))) "Title:")) ((td :align "left") ,(encode-for-pre (paste-title a)))) (tr - (td "Annotated by:") + (td "By:") ((td :align "left") ,(encode-for-pre (paste-user a)))) (tr (td) ((td :align "left") ,(time-delta (paste-universal-time a)))) (tr - ((td :valign "top" :nowrap) "Annotation contents:") + ((td :valign "top" :nowrap) "Contents:") ((td :bgcolor "#F4F4F4" :width "100%") (tt ,(encode-for-tt (paste-contents a))))))) (paste-annotations paste))))) `((tr (td (p)) (td))