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

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/home/bmastenbrook/lisppaste2

Modified Files:
	web-server.lisp 
Log Message:
Canonical order

Date: Fri Jan 30 11:34:20 2004
Author: bmastenbrook

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.19 lisppaste2/web-server.lisp:1.20
--- lisppaste2/web-server.lisp:1.19	Fri Jan 30 11:08:31 2004
+++ lisppaste2/web-server.lisp	Fri Jan 30 11:34:12 2004
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.19 2004/01/30 16:08:31 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.20 2004/01/30 16:34:12 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -105,7 +105,7 @@
      ,(format nil
               "<channel><title>Lisppaste pastes</title><link>~A</link><description>Pastes in this pastebot</description>~{~A~}</channel>~%"
               (araneida:urlstring *list-paste-url*)
-              (reverse (mapcar #'(lambda (paste)
+              (mapcar #'(lambda (paste)
                                    (format nil "<item><link>~A</link><pubDate>~A</pubDate><title>\"~A\" by ~A</title><description>~A</description></item>"
                                            (concatenate 'string
                                                         (araneida:urlstring
@@ -115,7 +115,7 @@
                                            (encode-for-pre (paste-title paste))
                                            (encode-for-pre (paste-user paste))
                                            (format nil "Paste to channel ~A with ~A annotations." (encode-for-pre (paste-channel paste)) (length (paste-annotations paste)))))
-                               *pastes*))))))
+                               *pastes*)))))
 
 (defun new-paste-form (request &key (message "") (annotate nil))
   (araneida:html-stream
@@ -294,4 +294,4 @@
 (araneida:install-handler
  (araneida:http-listener-handler *paste-listener*)
  (make-instance 'rss-handler)
- (araneida:urlstring *rss-url*) nil)
\ No newline at end of file
+ (araneida:urlstring *rss-url*) nil)