[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