[usocket-cvs] r154 - usocket/branches/0.2.x/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Jan 16 03:22:16 2007
New Revision: 154

Modified:
   usocket/branches/0.2.x/backend/lispworks.lisp
Log:
Backport r153 (character :element-type fix).

Modified: usocket/branches/0.2.x/backend/lispworks.lisp
==============================================================================
--- usocket/branches/0.2.x/backend/lispworks.lisp	(original)
+++ usocket/branches/0.2.x/backend/lispworks.lisp	Tue Jan 16 03:22:16 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