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

Brian Mastenbrook bmastenbrook at common-lisp.net
Sun Mar 7 05:15:04 UTC 2004


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))))





More information about the Lisppaste-cvs mailing list