diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-27 02:16:02 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-27 02:16:02 +0000 |
| commit | 12a60329bd490d63501651cb47c4b87f3ed9c2da (patch) | |
| tree | 15dce46cd0c815a0f7a1137e1ff0fef39b40ea8e /src/lisp | |
| parent | 5b90309d09bb9f9d17ff86f644994953ce94c0b3 (diff) | |
| download | open-axiom-12a60329bd490d63501651cb47c4b87f3ed9c2da.tar.gz | |
Remove and .
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index ae5902c2..38183144 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -203,6 +203,7 @@ "Option" "systemRootDirectory" "systemLibraryDirectory" + "userHomeDirectory" "pathBasename" @@ -650,6 +651,9 @@ (concatenate 'string (|systemRootDirectory|) "lib/")))) +(defmacro |userHomeDirectory| nil + (user-homedir-pathname)) + ;; Return the list of linkable fasls in in the directory `dir'. (defun linkset-from (dir) (mapcar #'(lambda(f) (concatenate 'string dir f)) |