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)