projects
/
cl-modlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
40b5dce
)
r5265: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 9 Jul 2003 19:19:19 +0000
(19:19 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 9 Jul 2003 19:19:19 +0000
(19:19 +0000)
base.lisp
patch
|
blob
|
history
diff --git
a/base.lisp
b/base.lisp
index 24c1689d08413fe5ff4b73925c8956b412d90553..724aef24a8a6fa082ff5161e8c87aa1435d8323c 100644
(file)
--- a/
base.lisp
+++ b/
base.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
;;;; 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)
;;;; *************************************************************************
(in-package #:modlisp)
@@
-80,8
+80,9
@@
header)))
(defun read-apache-line ()
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)
(defun read-apache-header ()
(loop for key = (read-apache-line)