[Openmcl-devel] Can't access Interface Database files from application bundle

Cyrus Harmon ch-openmcl at bobobeach.com
Fri Jan 28 20:11:33 PST 2005

Glad to help! I'm not sure why the other approach doesn't work, but, 
IMHO, the logical-pathname stuff is much cleaner and more flexible 
(imagine you've got multiple different ccl:foo things you want to 
include). Also, I imagine you're doing a (ccl:use-interface-dir ...) 
somewhere, right?

The lisp-paste with my original example is at:



On Jan 28, 2005, at 8:01 PM, David Steuber wrote:

> On Jan 28, 2005, at 5:19 PM, David Steuber wrote:
>> I've been trying to get OpenMCL to access the CDB files when launched 
>> from an application bundle in Finder.  I've had no joy.  I have used 
>> a symlink that was found by CCL::CCL-DIRECTORY.  I've also used 
>> CCL::SETENV to set "CCL_DEFAULT_DIRECTORY".  I can access the CDB 
>> files just fine if I run openmcl from Terminal or M-x slime.  The 
>> problem only exists when running from an application bundle.
> OK, thanks to slyrus on #lisp, I have a partial handle on this 
> although I'm not clear on how exactly it works (gotta hit the CLHS) 
> and why I need to do this.  The key is in 
> CL-USER> (defun cl-user::set-ccl-path (path)
>   (setf (logical-pathname-translations "ccl")
>         `(("ccl;*.*" ,(merge-pathnames "*.*" path))
>           ("**;*.*" ,(merge-pathnames "**/*.*" path)))))
> CL-USER> (set-ccl-path (ccl::ccl-directory))
> (("ccl;*.*" #P"/Users/david/usr/src/ccl/*.*") ("**;*.*" 
> #P"/Users/david/usr/src/ccl/**/*.*"))
> CL-USER> (describe 'ccl::setenv)
> Symbol: CCL::SETENV
> Function
> INTERNAL in package: #<Package "CCL">
> Print name: "SETENV"
> Value: #<Unbound>
> Function: #<Compiled-function CCL::SETENV #x60E1E46>
> Plist: NIL
> ; No value
> CL-USER> #$kCFStringEncodingASCII
> 1536
> _______________________________________________
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
> http://clozure.com/mailman/listinfo/openmcl-devel

More information about the Openmcl-devel mailing list