[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