diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-21 09:04:11 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-21 09:04:44 -0700 |
| commit | eb847460ba81a49a56c4d7144d97761c151d05b6 (patch) | |
| tree | 11c8e520bf9a4050f5ed1d740d58b5306316fb7f /src/data | |
| parent | eb5444e851068b5e1aaf13d9a0488cc791023348 (diff) | |
| download | consfigurator-eb847460ba81a49a56c4d7144d97761c151d05b6.tar.gz | |
have asdf check function actually return a version
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data')
| -rw-r--r-- | src/data/asdf.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/data/asdf.lisp b/src/data/asdf.lisp index 08165b9..fee169e 100644 --- a/src/data/asdf.lisp +++ b/src/data/asdf.lisp @@ -33,8 +33,9 @@ (cons #'asdf-data-source-check #'get-path-to-concatenated-system)) (defun asdf-data-source-check (iden1 system) - (and (string= iden1 "lisp-system") - (asdf:find-system system nil))) + (when (and (string= iden1 "lisp-system") + (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 |