[Openmcl-cvs-notifications] r13211 - /trunk/source/examples/cocoa/nib-loading/nib-loading.lisp

[rme at clozure.com]

Author: rme
Date: Wed Nov 18 18:18:51 2009
New Revision: 13211

Log:
Use #&NSNibOwner, not #@"NSNibOwner".  (From Paul Krueger.)

Modified:
    trunk/source/examples/cocoa/nib-loading/nib-loading.lisp

Modified: trunk/source/examples/cocoa/nib-loading/nib-loading.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/examples/cocoa/nib-loading/nib-loading.lisp (original)
+++ trunk/source/examples/cocoa/nib-loading/nib-loading.lisp Wed Nov 18 18:=
18:51 2009
@@ -16,7 +16,7 @@
          (nib-name (%make-nsstring (namestring nib-path)))
          (objects-array (#/arrayWithCapacity: ns:ns-mutable-array 16))
          (dict (#/dictionaryWithObjectsAndKeys: ns:ns-mutable-dictionary
-                    *NSApp* #@"NSNibOwner"
+                    *NSApp* #&NSNibOwner
                     objects-array #&NSNibTopLevelObjects
 		    +null-ptr+))
          (toplevel-objects (list))