From 12a60329bd490d63501651cb47c4b87f3ed9c2da Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 27 May 2013 02:16:02 +0000 Subject: Remove and . --- src/lisp/core.lisp.in | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/lisp') 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)) -- cgit v1.2.3