Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2
Modified Files: web-server.lisp Log Message: no more CR in raw source
Date: Sat Mar 6 21:05:51 2004 Author: bmastenbrook
Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.29 lisppaste2/web-server.lisp:1.30 --- lisppaste2/web-server.lisp:1.29 Mon Feb 23 14:56:49 2004 +++ lisppaste2/web-server.lisp Sat Mar 6 21:05:51 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.29 2004/02/23 19:56:49 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.30 2004/03/07 02:05:51 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -253,10 +253,14 @@ (if theann (progn (araneida:request-send-headers request :expires 0 :content-type "text/plain") - (write-string (paste-contents theann) (araneida:request-stream request)))))) + (write-string (remove #\Return + (paste-contents theann) + :test #'char=) (araneida:request-stream request)))))) (progn (araneida:request-send-headers request :expires 0 :content-type "text/plain") - (write-string (paste-contents paste) (araneida:request-stream request))))) + (write-string (remove #\return + (paste-contents paste) + :test #'char=)(araneida:request-stream request))))) (progn (araneida:request-send-headers request :expires 0) (format (araneida:request-stream request) "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">")
-
Brian Mastenbrook