Is there a CCL function that gives the image path, something like LispWorks: > (lw:lisp-image-name) "/Applications/LispWorks 6.0/LispWorks.app/Contents/MacOS/lispworks-6-0-0-macos-universal"