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)