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