Removed open-main-bundle patch.

Pascal J. Bourguignon [2014-03-17 05:34]
Removed open-main-bundle patch.
Filename
objcl/packages.lisp
diff --git a/objcl/packages.lisp b/objcl/packages.lisp
index ea7b131..44092c9 100644
--- a/objcl/packages.lisp
+++ b/objcl/packages.lisp
@@ -32,13 +32,13 @@
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>
 ;;;;**************************************************************************

-#+(and ccl ccl-1.9)
-(let ((initialized nil))
- (defun ccl::open-main-bundle ()
-   (if initialized
-       (#/mainBundle ns:ns-bundle)
-       (let ((mainBundle (#/mainBundle ns:ns-bundle)))
-         (#/initWithPath: mainBundle (namestring (truename ccl::*cocoa-ide-path*)))))))
+;; #+(and ccl ccl-1.9)
+;; (let ((initialized nil))
+;;  (defun ccl::open-main-bundle ()
+;;    (if initialized
+;;        (#/mainBundle ns:ns-bundle)
+;;        (let ((mainBundle (#/mainBundle ns:ns-bundle)))
+;;          (#/initWithPath: mainBundle (namestring (truename ccl::*cocoa-ide-path*)))))))

 #+ccl (eval-when (:compile-toplevel :load-toplevel :execute)
         (require :cocoa))
ViewGit