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

Modified Files: web-server.lisp Log Message: Whoops, bug fix slightly after release! not that it would have harmed anything..:.

Date: Tue Feb 3 22:26:03 2004 Author: bmastenbrook

Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.24 lisppaste2/web-server.lisp:1.25 --- lisppaste2/web-server.lisp:1.24 Tue Feb 3 21:55:36 2004 +++ lisppaste2/web-server.lisp Tue Feb 3 22:26:03 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.24 2004/02/04 02:55:36 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.25 2004/02/04 03:26:03 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -117,7 +117,7 @@ (concatenate 'string (araneida:urlstring (araneida:merge-url *display-paste-url* - (prin1-to-string (paste-number paste)))) "#" (prin1-to-string (paste-number paste))) + (prin1-to-string (paste-number paste))))) (date:universal-time-to-rfc-date (paste-universal-time paste)) (encode-for-pre (paste-title paste)) (encode-for-pre (paste-user paste))