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