[Openmcl-devel] :init-with- idiom seems to be broken

[Ron Garret]

Found the answer.  The answer to this question turns out to be "yes" and the change took place a long time ago.  You have to leave out the "init-" part:

? (setf s (make-instance gui::ns-lisp-string :string "foo"))
#<NS-LISP-STRING "foo" (#x193D3380)>
? (make-instance ns:ns-string :with-string s)
#<NS-MUTABLE-STRING "foo" (#x19317890)>
? 


On Jun 18, 2011, at 9:58 AM, Ron Garret wrote:

> Did something change in the ObjC bridge while I wasn't paying attention?  The :init-with- idiom seems to be no longer working:
> 
> Welcome to Clozure Common Lisp Version 1.7-dev-r14832M-trunk  (DarwinX8664)!
> ? (setf s (make-instance gui::ns-lisp-string :string "foo"))
> #<NS-LISP-STRING "foo" (#x1640FBC0)>
> ? (make-instance ns:ns-string :init-with-string s)
> #<NS-MUTABLE-STRING "" (#x7FFF707D5170)>
> ? (make-instance ns:ns-url :init-with-string s)
> #<A Null Foreign Pointer>
> ? 
> 
> _______________________________________________
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
> http://clozure.com/mailman/listinfo/openmcl-devel