CODEWITHSUNDEEP
lispcommon-lisp
Lucas Wickström
Lucas Wickström

Reputation: 143

common lisp - get path to file

In Common Lisp, is there a way to get the path to a compiled file (something like current-directory)?

The file is not inside the current-directory folder.

Upvotes: 14

Views: 8658

Answers (5)

PerduGames
PerduGames

Reputation: 1218

If you want get the pathname whitout use ASDF function, but you need also attend the users that use ASDF, you can use like this:

(defmacro project-pathname ()
  (let ((path (or *compile-file-pathname* *load-truename*)))
    `(progn ,path)))

It's necessary because the ASDF stores in one "/home/you/.../.cache/..." directory, and you need capture the pathname in compilation time with one macro.

Upvotes: 0

Frank Zalkow
Frank Zalkow

Reputation: 3930

*load-truename* resp. *load-pathname* gives you what you need.

http://www.lispworks.com/documentation/HyperSpec/Body/v_ld_pns.htm

Upvotes: 9

huaiyuan
huaiyuan

Reputation: 26519

Perchance you want compile-file-pathname, which gives you the destination where compile-file would write into.

It'd help if you provide more context on what you're trying to achieve.

Upvotes: 2

Emre Sevinç
Emre Sevinç

Reputation: 8511

You can use:

*default-pathname-defaults*

Please see http://cybertiggyr.com/gene/pathnames-0/node11.html

Upvotes: -2

aerique
aerique

Reputation: 981

This ought to be a comment but I'm going to give some code examples that might help the original poster along.

First of all, you need to be a little more clear about what you want to do. What is the problem you're trying to solve?

Secondly, here are a couple of examples which could be useful:

  • *default-pathname-defaults* usually set to the directory the CL image was started up in:

    * *default-pathname-defaults*
#P"/Users/aerique/"

  • merge-pathnames allows you to construct new pathnames:

    * (merge-pathnames "lib/misc" *default-pathname-defaults*)
#P"/Users/aerique/lib/misc"
* (merge-pathnames "lib/misc/" *default-pathname-defaults*)
#P"/Users/aerique/lib/misc/"

  • asdf:system-source-directory returns the path to a system loaded with ASDF:

    * (asdf:system-source-directory :linedit)  
#P"/Users/aerique/quicklisp/dists/quicklisp/software/linedit-20111203-git/"

Also see the linked ASDF manual for more useful file and system functions.

Upvotes: 14

Related Questions