Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv8288
Modified Files: web-server.lisp Log Message: more formatting fixups
Date: Sun Mar 7 00:15:03 2004 Author: bmastenbrook
Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.32 lisppaste2/web-server.lisp:1.33 --- lisppaste2/web-server.lisp:1.32 Sun Mar 7 00:11:08 2004 +++ lisppaste2/web-server.lisp Sun Mar 7 00:15:03 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.32 2004/03/07 05:11:08 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.33 2004/03/07 05:15:03 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -291,11 +291,14 @@ ,(if (paste-annotations paste) `(p "Annotations for this paste: " (hr) - ,@(nreverse - (mapcar #'(lambda (a) - (format-paste a - (format nil "~A,~A" (araneida:urlstring (araneida:request-url request)) (paste-number a)) (paste-number a) t)) - (paste-annotations paste)))) + ,@(reduce #'append + (mapcar #'(lambda (a) + `(,(format-paste a + (format nil "~A,~A" + (araneida:urlstring (araneida:request-url request)) + (paste-number a)) (paste-number a) t) + (p))) + (reverse (paste-annotations paste))))) `(p "This paste has no annotations.")) ((form :method post :action ,(araneida:urlstring *new-paste-url*)) ((input :type hidden :name "annotate" :value ,(prin1-to-string (paste-number paste))))