[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp
Brian Mastenbrook
bmastenbrook at common-lisp.net
Wed Nov 12 06:23:43 UTC 2003
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))
More information about the Lisppaste-cvs
mailing list