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