[usocket-cvs] r153 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Jan 16 03:20:00 2007
New Revision: 153

Modified:
   usocket/trunk/backend/lispworks.lisp
Log:
Fix LispWorks character :element-type.

Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp	(original)
+++ usocket/trunk/backend/lispworks.lisp	Tue Jan 16 03:20:00 2007
@@ -47,7 +47,7 @@
 ;;                       :real-condition condition
 ;;                       :socket socket))))
 
-(defun socket-connect (host port &key (element-type 'character))
+(defun socket-connect (host port &key (element-type 'base-char))
   (let ((hostname (host-to-hostname host))
         (stream))
     (setf stream