[Portableaserve-cvslog] CVS: portableaserve/aserve client.cl,1.4,1.5

[John D. <de...@us...>]

Update of /cvsroot/portableaserve/portableaserve/aserve
In directory usw-pr-cvs1:/tmp/cvs-serv1995/portableaserve/aserve

Modified Files:
	client.cl 
Log Message:
Converted #\newline to #\linefeed.

Index: client.cl
===================================================================
RCS file: /cvsroot/portableaserve/portableaserve/aserve/client.cl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- client.cl	15 Feb 2002 01:17:39 -0000	1.4
+++ client.cl	26 Feb 2002 16:26:18 -0000	1.5
@@ -119,7 +119,7 @@
 
 
 (defvar crlf (make-array 2 :element-type 'character
-			 :initial-contents '(#\return #\newline)))
+			 :initial-contents '(#\return #\linefeed)))
 
 (defmacro with-better-scan-macros (&rest body)
   ;; define the macros for scanning characters in a string
@@ -144,7 +144,7 @@
 			  then (let ((ans (buf-substr start ,i ,buffer)))
 				 (incf ,i)  ; skip to newline
 				 (return ans))
-			elseif (eq thisch #\newline)
+			elseif (eq thisch #\linefeed)
 			  then (return (buf-substr start ,i ,buffer))))
 		     (incf ,i)
 		     )))
@@ -798,7 +798,7 @@
 
         (setf ch (code-char ch))
         (cond ((eql ch #\return)) ; ignore CR
-              ((eql ch #\newline) (return i)) ; end of line
+              ((eql ch #\linefeed) (return i)) ; end of line
               ((< i max) ; ignore characters beyond line end
                (setf (schar buffer i) ch)
                (incf i)))))))