[Openmcl-devel] Publishing a service under Mac OS X (10.6.8 or 10.5.8)

[R. Matthew Emerson]

On Aug 2, 2011, at 11:51 AM, Keith Erf wrote:

> When running:
> CCL 1.7 r14926
> CCL 1.6 r14823
> 
> The following send statement fails as described.
> 
> When running:
> CCL 1.5 r13659
> The send statement functions as expected (ie publishes the service).
> 
> (let* ((port 27856)
>       (the-socket (make-socket :type :stream
> 			:connect :passive
> 			:local-port port)))
> 
> (cond ((not (eql nil the-socket))
> 	(setf *registration*
> 		(make-instance 'ns:ns-net-service
> 		  :init-with-domain #@"local."
> 		  :type #@"_autopage._tcp."
> 		  :name #@"Pagination Server"
> 		  :port port))
> 
> 	(if *registration*
> 		(ccl::send *registration* 'publish))))

Instead of :init-with-domain just use :with-domain and it should
work.  I'm not sure what changed so that we don't like the
:init-with-foo form any more; it could just be a bug.



> 
> Under ccl 1.6/1.7 this error occurs:
>> Error: Objective-C runtime exception:
>>        *** -[NSNetService publishWithOptions:]: cannot publish an NSNetService created for resolution.
>