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

[Brian Mastenbrook]

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