<div dir="ltr"><div style>HI,</div><div style><br></div><div style>I've noticed a problem in the CCL backend, when the socket is created not with the default external-format but with NIL external-format which causes the fallback to ISO-8859-1 and is rather unfortunate. What's even worse is that it's very hard to alter the format, while initializing it from ccl:*default-external-format* makes it possible to control this parameter.</div>

<div style><span class=""><br></span></div><div style>So here's a small change that solves the problem. It's against v.0.5.5, but I've looked at the code for 0.6.1 and didn't see any change there. If someone points me to the sources, I can make a proper patch. </div>

<div style><span class=""><br></span></div><div style><span class=""><div>diff -u openmcl-new.lisp openmcl.lisp</div><div>--- openmcl-new.lisp<span class="" style="white-space:pre"> </span>2013-02-18 19:18:25.482382100 +0200</div>

<div>+++ openmcl.lisp<span class="" style="white-space:pre">    </span>2013-02-18 19:16:24.586378860 +0200</div><div>@@ -97,6 +97,7 @@</div><div> <span class="" style="white-space:pre">                                      </span>  :local-port local-port</div>

<div> <span class="" style="white-space:pre">                                  </span>  :format (to-format element-type)</div><div> <span class="" style="white-space:pre">                                      </span>  :deadline deadline</div><div>+<span class="" style="white-space:pre">                                     </span>  :external-format ccl:*default-external-format*</div>

<div> <span class="" style="white-space:pre">                                  </span>  :nodelay nodelay</div><div> <span class="" style="white-space:pre">                                      </span>  :connect-timeout timeout)))</div><div> <span class="" style="white-space:pre">   </span> (make-stream-socket :stream mcl-sock :socket mcl-sock)))</div>

<div>@@ -107,6 +108,7 @@</div><div>                                            :local-host (when local-host (host-to-hostname local-host))</div><div>                                            :local-port local-port</div>

<div> <span class="" style="white-space:pre">                                  </span>   :input-timeout timeout</div><div>+                                           :external-format ccl:*default-external-format*</div><div>                                            :format :binary))</div>

<div>               (usocket (make-datagram-socket mcl-sock)))</div><div> <span class="" style="white-space:pre">  </span> (when (and host port)</div></span></div><div><br></div><div style>Best,</div><br clear="all"><div>
Vsevolod Dyomkin<div>
+38-096-111-41-56</div><div>skype, twitter: vseloved</div></div> </div>