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

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/tmp/cvs-serv19200

Modified Files:
	web-server.lisp 
Log Message:
cvs: the poor man's scp

Date: Sun Mar  7 00:16:24 2004
Author: bmastenbrook

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.33 lisppaste2/web-server.lisp:1.34
--- lisppaste2/web-server.lisp:1.33	Sun Mar  7 00:15:03 2004
+++ lisppaste2/web-server.lisp	Sun Mar  7 00:16:24 2004
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.33 2004/03/07 05:15:03 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.34 2004/03/07 05:16:24 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -290,14 +290,14 @@
 		,(format-paste paste (araneida:urlstring (araneida:request-url request)) paste-number)
                 ,(if (paste-annotations paste)
                      `(p
-                       "Annotations for this paste: " (hr)
+                       "Annotations for this paste: "
                        ,@(reduce #'append
                                  (mapcar #'(lambda (a)
-                                             `(,(format-paste a
+                                             `((hr)
+                                               ,(format-paste a
                                                               (format nil "~A,~A"
                                                                       (araneida:urlstring (araneida:request-url request))
-                                                                      (paste-number a)) (paste-number a) t)
-                                                (p)))
+                                                                      (paste-number a)) (paste-number a) t)))
                                          (reverse (paste-annotations paste)))))
 		     `(p "This paste has no annotations."))
 		((form :method post :action ,(araneida:urlstring *new-paste-url*))