<html><head></head><body dir="auto"><div>usocket from the current quicklisp dist is calling (ccl::inet-connect ...) with a few parameters it gets by calling other unexported CCL functions.</div><div><br></div><div>Just this line is sufficient to get to the (first?) problem:</div><div><blockquote type="cite"><font color="#000000"><span style="background-color: rgba(255, 255, 255, 0);">(usocket:socket-connect "localhost" 1111 :protocol ':datagram)</span></font></blockquote></div><div><br></div><div>In a quick glance around trunk, I didn't see where make-udp-socket would invoke connect(2) or any way to do it after-the-fact.</div><div><br>-- Patrick <span class="Apple-style-span" style="-webkit-tap-highlight-color: rgba(26, 26, 26, 0.294118); -webkit-composition-fill-color: rgba(175, 192, 227, 0.231373);"><<a href="mailto:pat@nklein.com">pat@nklein.com</a>></span></div><div><br>On May 20, 2015, at 12:49 PM, R. Matthew Emerson <<a href="mailto:rme@clozure.com">rme@clozure.com</a>> wrote:<br><br></div><blockquote type="cite"><div><span>I can try to look at it. What version of usocket are you using? Is there a place I can get it easily so I can try to run your test case and duplicate the problem?</span><br><span></span><br><span></span><br><blockquote type="cite"><span>On May 19, 2015, at 6:10 PM, Mark H. David <<a href="mailto:mhd@yv.org">mhd@yv.org</a>> wrote:</span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span>This works on an earlier CCL:</span><br></blockquote><blockquote type="cite"><span> Welcome to Clozure Common Lisp Version 1.10-r16196 (LinuxX8664)!</span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span>(let* ((host "localhost")</span><br></blockquote><blockquote type="cite"><span> (port 1111)</span><br></blockquote><blockquote type="cite"><span> (server-sock</span><br></blockquote><blockquote type="cite"><span> (usocket:socket-connect nil nil :protocol ':datagram :local-host host :local-port port))</span><br></blockquote><blockquote type="cite"><span> (client-sock</span><br></blockquote><blockquote type="cite"><span> (usocket:socket-connect host port :protocol ':datagram))</span><br></blockquote><blockquote type="cite"><span> (octet-vector</span><br></blockquote><blockquote type="cite"><span> (make-array 2 :element-type '(unsigned-byte 8) :initial-contents `(,(char-code #\O) ,(char-code #\K))))</span><br></blockquote><blockquote type="cite"><span> (recv-octet-vector</span><br></blockquote><blockquote type="cite"><span> (make-array 2 :element-type '(unsigned-byte 8))))</span><br></blockquote><blockquote type="cite"><span> (usocket:socket-send client-sock octet-vector 2)</span><br></blockquote><blockquote type="cite"><span> (usocket:socket-receive server-sock recv-octet-vector 2)</span><br></blockquote><blockquote type="cite"><span> (prog1 (and (equalp octet-vector recv-octet-vector)</span><br></blockquote><blockquote type="cite"><span> recv-octet-vector)</span><br></blockquote><blockquote type="cite"><span> (usocket:socket-close server-sock)</span><br></blockquote><blockquote type="cite"><span> (usocket:socket-close client-sock)))</span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span>=></span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span>#(79 75)</span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span>On trunk CCL, updated/built on 5/19/15: </span><br></blockquote><blockquote type="cite"><span> Welcome to Clozure Common Lisp Version 1.11-dev-r16393M-trunk (DarwinX8664)!</span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span>It gets an error:</span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><blockquote type="cite"><span>Debug: The condition Invalid argument (error #22) during attempt to connect to [unparsed, AF 2] occurred.</span><br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><span>While executing: (:INTERNAL SWANK::INVOKE-DEFAULT-DEBUGGER), in process repl-thread(12).</span><br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><span>Type :POP to abort, :R for a list of available restarts.</span><br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite"><span>Type :? for other options.</span><br></blockquote></blockquote><blockquote type="cite"><span>1 > :b</span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span>(24034210) : 0 (FUNCALL #'#<(:INTERNAL SWANK::INVOKE-DEFAULT-DEBUGGER)>) 53</span><br></blockquote><blockquote type="cite"><span>(24034230) : 1 (FUNCALL #'#<SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK> NIL #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::INVOKE-DEFAULT-DEBUGGER) #x302002623FFF>) 181</span><br></blockquote><blockquote type="cite"><span>(240342B8) : 2 (CALL-WITH-DEBUGGER-HOOK NIL #<COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::INVOKE-DEFAULT-DEBUGGER) #x302002623FFF>) 181</span><br></blockquote><blockquote type="cite"><span>(240342E8) : 3 (INVOKE-DEFAULT-DEBUGGER #<USOCKET:UNKNOWN-ERROR #x30200250C31D>) 189</span><br></blockquote><blockquote type="cite"><span>(24034308) : 4 (SWANK-DEBUGGER-HOOK #<USOCKET:UNKNOWN-ERROR #x30200250C31D> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020008ADAEF>) 565</span><br></blockquote><blockquote type="cite"><span>(24034338) : 5 (BREAK-LOOP-HANDLE-ERROR #<USOCKET:UNKNOWN-ERROR #x30200250C31D> 75524225) 637</span><br></blockquote><blockquote type="cite"><span>(240343E0) : 6 (%ERROR #<USOCKET:UNKNOWN-ERROR #x30200250C31D> (:SOCKET NIL :REAL-ERROR #<SOCKET-CREATION-ERROR #x30200250D79D>) 75524225) 333</span><br></blockquote><blockquote type="cite"><span>(24034408) : 7 (RAISE-ERROR-FROM-ID :UNKNOWN NIL #<SOCKET-CREATION-ERROR #x30200250D79D>) 213</span><br></blockquote><blockquote type="cite"><span>(24034438) : 8 (HANDLE-CONDITION #<SOCKET-CREATION-ERROR #x30200250D79D> NIL) 709</span><br></blockquote><blockquote type="cite"><span>(24034470) : 9 (FUNCALL #'#<(:INTERNAL USOCKET:SOCKET-CONNECT)> #<SOCKET-CREATION-ERROR #x30200250D79D>) 61</span><br></blockquote><blockquote type="cite"><span>(24034490) : 10 (SIGNAL #<SOCKET-CREATION-ERROR #x30200250D79D>) 981</span><br></blockquote><blockquote type="cite"><span>(240344E8) : 11 (%ERROR #<SOCKET-CREATION-ERROR #x30200250D79D> NIL 75524258) 117</span><br></blockquote><blockquote type="cite"><span>(24034510) : 12 (SOCKET-ERROR NIL "connect" 22 NIL :CONNECT-ADDRESS #<SOCKET-ADDRESS [unparsed, AF 2]>) 1053</span><br></blockquote><blockquote type="cite"><span>(24034580) : 13 (INET-CONNECT 20 16777343 22276 NIL) 637</span><br></blockquote><blockquote type="cite"><span>(240345C8) : 14 (SOCKET-CONNECT "localhost" 1111 :PROTOCOL :DATAGRAM :ELEMENT-TYPE NIL :TIMEOUT NIL :DEADLINE NIL :NODELAY NIL :LOCAL-HOST NIL :LOCAL-PORT NIL) 1149</span><br></blockquote><blockquote type="cite"><span>(24034690) : 15 (FUNCALL #'#<Anonymous Function #x30200250E67F>) 149</span><br></blockquote><blockquote type="cite"><span>(240346A8) : 16 (CHEAP-EVAL (LET* (# # # # # ...) (USOCKET:SOCKET-SEND CLIENT-SOCK OCTET-VECTOR 2) (USOCKET:SOCKET-RECEIVE SERVER-SOCK RECV-OCTET-VECTOR 2) (PROG1 # # #))) 101</span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span>What's up with that?</span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span>Thanks,</span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span>Mark</span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><span></span><br><span></span><br></div></blockquote></body></html>