;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: base.lisp,v 1.8 2003/07/08 16:12:03 kevin Exp $
+;;;; $Id: base.lisp,v 1.9 2003/07/09 19:19:19 kevin Exp $
;;;; *************************************************************************
(in-package #:modlisp)
header)))
(defun read-apache-line ()
- (kmrcl:string-left-trim-one-char #\return
- (read-line *apache-socket* nil nil)))
+ (kmrcl:string-right-trim-one-char
+ #\return
+ (read-line *apache-socket* nil nil)))
(defun read-apache-header ()
(loop for key = (read-apache-line)