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

[Brian Mastenbrook]

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

Modified Files:
	web-server.lisp 
Log Message:
Reverse paste list

Date: Sun Mar  7 14:55:54 2004
Author: bmastenbrook

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.37 lisppaste2/web-server.lisp:1.38
--- lisppaste2/web-server.lisp:1.37	Sun Mar  7 14:52:57 2004
+++ lisppaste2/web-server.lisp	Sun Mar  7 14:55:53 2004
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.37 2004/03/07 19:52:57 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.38 2004/03/07 19:55:53 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -148,7 +148,7 @@
         (p)
         ((table :width "100%" :cellpadding 2)
          (tr (td) (td "By") (td "Where") (td "When") (td "Titled") (td "Ann."))
-         ,@(reverse (mapcar #'(lambda (paste)
+         ,@(mapcar #'(lambda (paste)
                                 `(tr ((td :nowrap "nowrap") ((a :href ,(araneida:urlstring (araneida:merge-url *display-paste-url* (prin1-to-string (paste-number paste)))))
                                                              ,(concatenate 'string "#" (prin1-to-string (paste-number paste)))))
                                      ((td :nowrap "nowrap") ,(encode-for-pre (max-length (paste-user paste) 12)))
@@ -159,7 +159,7 @@
                             (if discriminate-channel
                                 (remove discriminate-channel *pastes* :test-not #'string-equal
                                         :key #'paste-channel)
-                                *pastes*))))
+                                *pastes*)))
         ,@(bottom-links))))))
 
 (defun handle-rss-request (request &key full)