Skip to content
Snippets Groups Projects
Commit 31c47c52 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Move ABL default from ~/.fasl/ to ~/.cache/common-lisp/

parent 7e34af2c
No related branches found
No related tags found
No related merge requests found
...@@ -22,3 +22,4 @@ lift-local.config ...@@ -22,3 +22,4 @@ lift-local.config
*.lib *.lib
*.o *.o
*.*fsl *.*fsl
*.bak
...@@ -1110,7 +1110,7 @@ to `~a` which is not a directory.~@:>" ...@@ -1110,7 +1110,7 @@ to `~a` which is not a directory.~@:>"
(error nil)) (error nil))
(dolist (kid (module-components c)) (dolist (kid (module-components c))
(handler-case (handler-case
(appendf forced (traverse operation kid )) (appendf forced (traverse operation kid))
(missing-dependency (condition) (missing-dependency (condition)
(if (eq (module-if-component-dep-fails c) (if (eq (module-if-component-dep-fails c)
:fail) :fail)
...@@ -1736,9 +1736,8 @@ output to `*verbose-out*`. Returns the shell's exit code." ...@@ -1736,9 +1736,8 @@ output to `*verbose-out*`. Returns the shell's exit code."
;;; --------------------------------------------------------------------------- ;;; ---------------------------------------------------------------------------
;;; Portions of this code were once from SWANK / SLIME ;;; Portions of this code were once from SWANK / SLIME
(defparameter *centralize-lisp-binaries* (defparameter *centralize-lisp-binaries* nil
nil " "If true, compiled lisp files without an explicit mapping (see
If true, compiled lisp files without an explicit mapping (see
\\*source-to-target-mappings\\*) will be placed in subdirectories of \\*source-to-target-mappings\\*) will be placed in subdirectories of
\\*default-toplevel-directory\\*. If false, then compiled lisp files \\*default-toplevel-directory\\*. If false, then compiled lisp files
without an explicitly mapping will be placed in subdirectories of without an explicitly mapping will be placed in subdirectories of
...@@ -1753,7 +1752,7 @@ See [implementation-specific-directory-name][] for details.") ...@@ -1753,7 +1752,7 @@ See [implementation-specific-directory-name][] for details.")
(defparameter *default-toplevel-directory* (defparameter *default-toplevel-directory*
(merge-pathnames (merge-pathnames
(make-pathname :directory '(:relative ".fasls")) (make-pathname :directory '(:relative ".cache" "common-lisp"))
(truename (user-homedir-pathname))) (truename (user-homedir-pathname)))
"If \\*centralize-lisp-binaries\\* is true, then compiled lisp files without an explicit mapping \(see \\*source-to-target-mappings\\*\) will be placed in subdirectories of \\*default-toplevel-directory\\*.") "If \\*centralize-lisp-binaries\\* is true, then compiled lisp files without an explicit mapping \(see \\*source-to-target-mappings\\*\) will be placed in subdirectories of \\*default-toplevel-directory\\*.")
...@@ -1955,7 +1954,7 @@ applied by the plain `*source-to-target-mappings*`." ...@@ -1955,7 +1954,7 @@ applied by the plain `*source-to-target-mappings*`."
(typecase component (typecase component
(cl-source-file t) (cl-source-file t)
(t nil))) (t nil)))
(let ((source (component-pathname component )) (let ((source (component-pathname component))
(paths (call-next-method))) (paths (call-next-method)))
(output-files-for-system-and-operation (output-files-for-system-and-operation
(component-system component) operation component source paths)) (component-system component) operation component source paths))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment