[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp - lisppaste-cvs@common-lisp.net - mailman3.common-lisp.net

7 Mar 2004

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/tmp/cvs-serv12410
Modified Files:
    web-server.lisp 
Log Message:
argh
Date: Sun Mar  7 15:09:20 2004
Author: bmastenbrook
Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.39 lisppaste2/web-server.lisp:1.40

--- lisppaste2/web-server.lisp:1.39	Sun Mar  7 15:07:48 2004
+++ lisppaste2/web-server.lisp	Sun Mar  7 15:09:19 2004
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.39 2004/03/07 20:07:48 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.40 2004/03/07 20:09:19 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
;;;; See the LICENSE file for licensing information.
@@ -202,7 +202,8 @@
                         (if discriminate-channel
                             (remove discriminate-channel *pastes* :test-not #'string-equal
                                     :key #'paste-channel)
-                            *pastes*)))))))
+                            *pastes*))
+                #\Return #\Linefeed)))))
(defmethod araneida:handle-request-response ((handler rss-handler) method request)
   (handle-rss-request request))

    