Index: /trunk/source/cocoa-ide/builder-utilities.lisp
===================================================================
--- /trunk/source/cocoa-ide/builder-utilities.lisp	(revision 15326)
+++ /trunk/source/cocoa-ide/builder-utilities.lisp	(revision 15327)
@@ -233,4 +233,5 @@
                           (document-class nil)
                           (exportable-as nil))
+  (declare (ignorable bundlep exportable-as icon-file))
   ;; certain values are required
   (assert (or ls-item-content-types extensions mime-types ostypes)
Index: /trunk/source/cocoa-ide/cocoa-application.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-application.lisp	(revision 15326)
+++ /trunk/source/cocoa-ide/cocoa-application.lisp	(revision 15327)
@@ -39,13 +39,5 @@
 (load-ide *cocoa-ide-force-compile*)
 
-#+darwin-target
-;;; Nuke any command-line arguments, to keep the Cocoa runtime from
-;;; trying to process them.
-(let* ((argv (foreign-symbol-address "NXArgv"))
-       (argc (foreign-symbol-address "NXArgc")))
-  (when argc
-    (setf (pref argc :int) 1))
-  (when argv
-    (setf (paref (%get-ptr argv) (:* :char) 1) +null-ptr+)))
+
   
 
Index: /trunk/source/objc-bridge/objc-runtime.lisp
===================================================================
--- /trunk/source/objc-bridge/objc-runtime.lisp	(revision 15326)
+++ /trunk/source/objc-bridge/objc-runtime.lisp	(revision 15327)
@@ -394,4 +394,14 @@
 (pushnew #'load-cocoa-framework *lisp-system-pointer-functions* :key #'function-name)
 
+#+darwin-target
+;;; Nuke any command-line arguments, to keep the Cocoa runtime from
+;;; trying to process them.
+(let* ((argv (foreign-symbol-address "NXArgv"))
+       (argc (foreign-symbol-address "NXArgc")))
+  (when argc
+    (setf (pref argc :int) 1))
+  (when argv
+    (setf (paref (%get-ptr argv) (:* :char) 1) +null-ptr+)))
+
 #-cocotron
 (load-cocoa-framework)