Changeset 155

Timestamp:

Dec 29, 2003, 12:17:04 AM (21 years ago)

Author:

Gary Byers

Message:

Get rid of *DEFAULT-BUNDLE-PATH* and friend; require FAKE-CFBUNDLE-PATH
and use the function of that name explicitly.

File:

• trunk/ccl/examples/cocoa.lisp (modified) (1 diff)

trunk/ccl/examples/cocoa.lisp

@@ -3 +3 @@
 ;;; We need to be able to point the CoreFoundation and Cocoa libraries
 ;;; at some bundle very early in the process.  If you want to use some
-;;; other bundle path, you may need to change the value of
-;;; *default-bundle-path*; if you want to use some other executable
-;;; within that bundle, you may need to change the value of
-;;; *default-executable-path*.
+;;; other bundle path, you may need to change the call to FAKE-CFBUNDLE-PATH
+;;; below.
 
+(require "FAKE-CFBUNDLE-PATH")
+(fake-cfbundle-path "ccl:OpenMCL.app;Contents;MacOS;dppccl")
 
-(defparameter *default-bundle-path* "ccl:OpenMCL.app;")
-(defparameter *default-bundle-executable-path*
-  #+darwinppc-target
-  (merge-pathnames "Contents/MacOS/dppccl" *default-bundle-path*)
-  #+linuxppc-target
-  (merge-pathnames "ppccl" *default-bundle-path*))