[Openmcl-devel] UDP Socket problem on ccl 1.8-dev-r14960-trunk x8664

박성민 byulparan at gmail.com
Thu Oct 27 16:06:59 UTC 2011


I'm making SuperCollider3 client on closure cl.

but. recently….



Welcome to Clozure Common Lisp Version 1.8-dev-r15048M-trunk  (DarwinX8664)!
? (defparameter *message* (make-array 20 :element-type '(unsigned-byte 8)
                               :initial-contents '(47 103 95 102 114 101 101 65 108 108 0 0 44 105 0 0 0 0 0 0)))
*MESSAGE*
? (defparameter *server* (make-socket :type :datagram :local-port 57150))
*SERVER*
? (defparameter *client* (make-socket :type :datagram :remote-port 57150))
*CLIENT*
? (ccl::process-run-function "server" (lambda () (print (ccl::receive-from *server* 100))))
#<PROCESS server(2) [Active] #x302000987C0D>
? (ccl::send-to *client* *message* (length *message*))
20

? #(108 0 108 0 108 0 108 0 108 0 108 0 108 0 108 0 108 0 108 0) 



but…32bit version is fine.

Welcome to Clozure Common Lisp Version 1.8-dev-r14960-trunk  (DarwinX8632)!
? (defparameter *message* (make-array 20 :element-type '(unsigned-byte 8)
                              :initial-contents '(47 103 95 102 114 101 101 65 108 108 0 0 44 105 0 0 0 0 0 0)))
*MESSAGE*
?  (defparameter *server* (make-socket :type :datagram :local-port 57150))
*SERVER*
?  (defparameter *client* (make-socket :type :datagram :remote-port 57150))
*CLIENT*
?  (ccl::process-run-function "server" (lambda () (print (ccl::receive-from *server* 100))))
#<PROCESS server(2) [Reset] #xC510EE6>
?  (ccl::send-to *client* *message* (length *message*))
20

? #(47 103 95 102 114 101 101 65 108 108 0 0 44 105 0 0 0 0 0 0) 


also  1.7-dev-r14869  (DarwinX8664)!  is fine, too.

is it bug??





More information about the Openmcl-devel mailing list