diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-16 16:49:17 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-17 12:52:26 -0700 |
commit | a86a2b3f2951a6d22018bee6ae84fc70e949df4d (patch) | |
tree | 282d29d9adc7f3b12f81ce5143a564c17b764424 /src/data | |
parent | 76a3b04f1cd436804f101e5404dcf5a82c3639b0 (diff) | |
download | consfigurator-a86a2b3f2951a6d22018bee6ae84fc70e949df4d.tar.gz |
DATA.ASDF: stop setting output translations
Our custom output translation was becoming part of the global ASDF
configuration, changing where certain .fasl files were being saved.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data')
-rw-r--r-- | src/data/asdf.lisp | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/src/data/asdf.lisp b/src/data/asdf.lisp index 67d405c..5db7c7a 100644 --- a/src/data/asdf.lisp +++ b/src/data/asdf.lisp @@ -40,17 +40,8 @@ (defun get-path-to-concatenated-system (iden1 system) "Try to concatenate all the source code for SYSTEM, store it somewhere and return the filename." - (let ((cache-dir (ensure-directory-pathname - (strcat (or (getenv "XDG_CACHE_HOME") - (strcat (getenv "HOME") "/.cache")) - "/consfigurator/systems"))) - (op 'asdf:monolithic-concatenate-source-op) + (let ((op 'asdf:monolithic-concatenate-source-op) (co (asdf:find-component system nil))) - (ensure-directories-exist cache-dir) - (asdf:initialize-output-translations `(:output-translations - (t ,cache-dir) - :disable-cache - :ignore-inherited-configuration)) (asdf:operate op co) (make-instance 'file-data :file (asdf:output-file op co) :mime "text/plain" |