diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-23 10:32:55 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-23 10:32:55 -0700 |
| commit | f775cbadd2139d64fc58ca2d4ec2060841d8971a (patch) | |
| tree | e9ce0a34d3d0eeb93d8d9ef1056dae4815a7147e /src/data.lisp | |
| parent | d7f7f7f03ff58988be62d1fa2ebfd8cd5044da86 (diff) | |
| download | consfigurator-f775cbadd2139d64fc58ca2d4ec2060841d8971a.tar.gz | |
add DATA-SOURCE-PROVIDING-P
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
| -rw-r--r-- | src/data.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/data.lisp b/src/data.lisp index fcba0f4..20d27e3 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -184,6 +184,14 @@ This function is called by property :APPLY and :UNAPPLY subroutines." (lambda (x y) (version> (car x) (car y))))))) +(defun data-source-providing-p (iden1 iden2) + "Is there a data source which can provide the item of prerequisite data +identified by IDEN1 and IDEN2? + +This function is for implementation of REGISTER-DATA-SOURCE to check for +clashes. It should not be called by properties." + (if (query-data-sources iden1 iden2) t nil)) + ;; called by implementations of ESTABLISH-CONNECTION which start up remote ;; Lisp images (defun upload-all-prerequisite-data (&optional (host *host*)) |