[Openmcl-cvs-notifications] r12843 - /trunk/source/objc-bridge/objc-runtime.lisp

[gb at clozure.com]

Author: gb
Date: Wed Sep 16 11:18:43 2009
New Revision: 12843

Log:
Change WITH-STRING-VECTOR usage in commented-out Cocotron-specifc code.

Modified:
    trunk/source/objc-bridge/objc-runtime.lisp

Modified: trunk/source/objc-bridge/objc-runtime.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/objc-bridge/objc-runtime.lisp (original)
+++ trunk/source/objc-bridge/objc-runtime.lisp Wed Sep 16 11:18:43 2009
@@ -402,10 +402,10 @@
          ;; We may need to call #_NSInitializeProcess
          ;; under Cocotron.  If so, we'd need to do
          ;; so on standalone startup, too, and would
-         ;; have to heap-allocated the string vector
+         ;; have to have heap-allocated the string vector
          ;; and its strings.
          #+notyet
-         (with-string-vector (argv (kernel-path))
+         (with-string-vector (argv (list (kernel-path)))
            (#_NSInitializeProcess 1 argv)))
          =

        ;(#_GetCurrentEventQueue)