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

[David Steuber]

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 LOGICAL-PATHNAME-TRANSLATIONS:

CL-USER> (defun cl-user::set-ccl-path (path)
   (setf (logical-pathname-translations "ccl")
         `(("ccl;*.*" ,(merge-pathnames "*.*" path))
           ("**;*.*" ,(merge-pathnames "**/*.*" path)))))
SET-CCL-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>
Arglist: (CCL::KEY CCL::VALUE &OPTIONAL CCL::OVERWRITE)
Plist: NIL
; No value
CL-USER> #$kCFStringEncodingASCII
1536