diff options
Diffstat (limited to 'src/data/asdf.lisp')
-rw-r--r-- | src/data/asdf.lisp | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/src/data/asdf.lisp b/src/data/asdf.lisp index 51ac344..67d405c 100644 --- a/src/data/asdf.lisp +++ b/src/data/asdf.lisp @@ -34,26 +34,26 @@ (defun asdf-data-source-check (iden1 system) (when (and (string= iden1 "--lisp-system") - (asdf:find-system system nil)) + (asdf:find-system system nil)) (get-universal-time))) (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) - (co (asdf:find-component system nil))) + (strcat (or (getenv "XDG_CACHE_HOME") + (strcat (getenv "HOME") "/.cache")) + "/consfigurator/systems"))) + (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)) + (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" - :iden1 iden1 - :iden2 system - :version (get-universal-time)))) + :mime "text/plain" + :iden1 iden1 + :iden2 system + :version (get-universal-time)))) |