diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 12:37:08 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 14:29:20 -0700 |
| commit | 3cea5b07666c72fbe33076e3d95c166d34426fc9 (patch) | |
| tree | 7cc384ea218b0c126ec0231287c4873cc3f2034b | |
| parent | 12c74be550c22d7d7ea57d3fa6645af1d2a9ad6c (diff) | |
| download | consfigurator-3cea5b07666c72fbe33076e3d95c166d34426fc9.tar.gz | |
%GET-DATA: add some debug output
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/data.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/data.lisp b/src/data.lisp index 91e6738..be4c37b 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -164,12 +164,14 @@ This function is called by property :APPLY and :UNAPPLY subroutines." from-source-version)) (or (not local-cached) (version>= in-memory-version local-cached-version))) + (informat 3 "~&Obtaining ~S | ~S from in-memory cache" iden1 iden2) (values (lambda () in-memory) in-memory-version)) ((and from-source (or (not in-memory) (version>= from-source-version in-memory-version)) (or (not local-cached) (version>= from-source-version local-cached-version))) + (informat 3 "~&Obtaining ~S | ~S from a data source" iden1 iden2) (values (lambda () (let ((from-source-data (funcall (cdr from-source)))) @@ -182,6 +184,7 @@ This function is called by property :APPLY and :UNAPPLY subroutines." from-source-version)) (or (not in-memory) (version>= local-cached-version in-memory-version))) + (informat 3 "~&Obtaining ~S | ~S from local cache" iden1 iden2) (values (lambda () (let ((file (apply #'local-data-pathname local-cached))) |