application.lisp

(defmethod load-cocoa-application ((a cocoa-application))
  (with-autorelease-pool
    (let* ((bundle (#/mainBundle ns:ns-bundle))
	   (info (#/infoDictionary bundle))
	   (classname (#/objectForKey: info #@"NSPrincipalClass"))
	   (progname (#/objectForKey: info #@"CFBundleName")))
      (when (%null-ptr-p classname)
	(setq classname #@"NSApplication"))
      (unless (%null-ptr-p progname)
	(#/setProcessName: (#/processInfo ns:ns-process-info) progname))
      (let* ((appclass (#_NSClassFromString classname))
	     (app (#/sharedApplication appclass)))
	(when (%null-ptr-p app)
	  (error "Could not create shared instance of ~s" (%get-cfstring
							   classname)))
	app))))