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)