Index: /trunk/ccl/level-1/l1-sockets.lisp
===================================================================
--- /trunk/ccl/level-1/l1-sockets.lisp	(revision 5416)
+++ /trunk/ccl/level-1/l1-sockets.lisp	(revision 5417)
@@ -78,5 +78,9 @@
   (defmacro NTOHS (x) `(%bswap16 ,x)))
 
-
+(defparameter *default-socket-character-encoding*
+  nil)
+
+(defmethod default-character-encoding ((domain (eql :socket)))
+  *default-socket-character-encoding*)