diff options
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)) |