diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 17:30:30 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 17:30:30 -0700 |
commit | ae84c17174dae5c8655c021b8c0229bd186de595 (patch) | |
tree | 3549c04fcfc65ba19b4ad614c26c4af67fe2bb2e /src/data | |
parent | ab5c87b90d4397be913ef99d321278d4bfd80a61 (diff) | |
download | consfigurator-ae84c17174dae5c8655c021b8c0229bd186de595.tar.gz |
set :IDEN1 and :IDEN2 when initialising DATA objects
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data')
-rw-r--r-- | src/data/asdf.lisp | 5 | ||||
-rw-r--r-- | src/data/pgp.lisp | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/src/data/asdf.lisp b/src/data/asdf.lisp index 27ea41a..ed995e1 100644 --- a/src/data/asdf.lisp +++ b/src/data/asdf.lisp @@ -40,7 +40,6 @@ (defun get-path-to-concatenated-system (iden1 system) "Try to concatenate all the source code for SYSTEM, store it somewhere and return the filename." - (declare (ignore iden1)) (let ((cache-dir (ensure-directory-pathname (strcat (or (getenv "XDG_CACHE_HOME") (strcat (getenv "HOME") "/.cache")) @@ -54,4 +53,6 @@ return the filename." :ignore-inherited-configuration)) (asdf:operate op co) (make-instance 'file-data :file (asdf:output-file op co) - :mime "text/plain"))) + :mime "text/plain" + :iden1 iden1 + :iden2 system))) diff --git a/src/data/pgp.lisp b/src/data/pgp.lisp index 8650ce9..74717a1 100644 --- a/src/data/pgp.lisp +++ b/src/data/pgp.lisp @@ -44,6 +44,8 @@ (extract (iden1 iden2) (update-cache) (make-instance 'string-data + :iden1 iden1 + :iden2 iden2 :string (cddr (data-assoc iden1 iden2 cache))))) (cons #'check #'extract)))) |