[Portableaserve-cvslog] CVS: portableaserve/acl-compat acl-excl-cmu.lisp,1.9,1.10

[Rudi S. <ru...@us...>]

Update of /cvsroot/portableaserve/portableaserve/acl-compat
In directory usw-pr-cvs1:/tmp/cvs-serv24210/acl-compat

Modified Files:
	acl-excl-cmu.lisp 
Log Message:
Implemented stream-read-char-no-hang (POST requests break without it)
(Thanks to Wojciech Sobczuk for the bug report)


Index: acl-excl-cmu.lisp
===================================================================
RCS file: /cvsroot/portableaserve/portableaserve/acl-compat/acl-excl-cmu.lisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -w -r1.9 -r1.10
--- acl-excl-cmu.lisp	1 Jul 2002 09:49:22 -0000	1.9
+++ acl-excl-cmu.lisp	10 Jul 2002 17:10:44 -0000	1.10
@@ -260,7 +260,10 @@
 
 ;; stream-unread-char
 
-;; stream-read-char-no-hang
+(defmethod stream-read-char-no-hang ((stream bivalent-input-stream))
+  (if (listen (lisp-stream stream))
+      (code-char (read-byte (lisp-stream stream)))
+      nil))
 
 ;; stream-peek-char