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

Brian Mastenbrook bmastenbrook at common-lisp.net
Sun Mar 7 02:05:51 UTC 2004


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





More information about the Lisppaste-cvs mailing list