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

Brian Mastenbrook bmastenbrook at common-lisp.net
Wed Nov 12 06:04:14 UTC 2003


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

Modified Files:
	web-server.lisp 
Log Message:
Fix the order of the annotations

Date: Wed Nov 12 01:04:14 2003
Author: bmastenbrook

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.13 lisppaste2/web-server.lisp:1.14
--- lisppaste2/web-server.lisp:1.13	Wed Nov 12 00:58:56 2003
+++ lisppaste2/web-server.lisp	Wed Nov 12 01:04:14 2003
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.13 2003/11/12 05:58:56 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.14 2003/11/12 06:04:14 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -202,7 +202,7 @@
 	    ,@(if (paste-annotations paste)
 		  `((tr (td (p)) (td))
 		    (tr ((th :align "left" :colspan 2) "Annotations for this paste: "))
-		    ,@(reduce #'append
+		    ,@(reduce #'append (nreverse
 			      (mapcar #'(lambda (a)
 					  `((tr (td (p)) (td))
 					    (tr
@@ -217,7 +217,7 @@
 					    (tr
 					     ((td :valign "top" :nowrap) "Annotation contents:")
 					     ((td :bgcolor "#F4F4F4" :width "100%") (tt ,(encode-for-tt (paste-contents a)))))))
-				      (paste-annotations paste))))
+				      (paste-annotations paste)))))
 		`((tr (td (p)) (td))
 		  (tr ((td :align "left" :colspan 2 :nowrap) "This paste has no annotations.")))))
 	    (p)





More information about the Lisppaste-cvs mailing list