Changeset 5417

Timestamp:

Oct 23, 2006, 11:52:57 PM (18 years ago)

Author:

Gary Byers

Message:

DEFAULT-CHARACTER-ENCODING for :SOCKET, *DEFAULT-SOCKET-CHARACTER-ENCODING*.

File:

• trunk/ccl/level-1/l1-sockets.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-sockets.lisp

@@ -78 +78 @@
   (defmacro NTOHS (x) `(%bswap16 ,x)))
 
-
+(defparameter *default-socket-character-encoding*
+  nil)
+
+(defmethod default-character-encoding ((domain (eql :socket)))
+  *default-socket-character-encoding*)