diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-24 10:06:30 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-24 10:06:30 -0700 |
| commit | abcde492596564dbc69ee0fc7f5cb0380937c9b2 (patch) | |
| tree | 926877c8339859000d9c1f0fce4d699c5a762776 /src/propspec.lisp | |
| parent | ac17e28f7d927cad8884b33e66c47abaab8f85e3 (diff) | |
| download | consfigurator-abcde492596564dbc69ee0fc7f5cb0380937c9b2.tar.gz | |
remote Lisp images can ignore failures to load consfigs as systems
We ensure the packages comprising those systems will be loaded.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/propspec.lisp')
| -rw-r--r-- | src/propspec.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/propspec.lisp b/src/propspec.lisp index b46b6b5..3dc4ba5 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -143,7 +143,8 @@ an atomic property application." "Apply properties as specified by PROPSPEC." (loop for system in (slot-value propspec 'systems) unless (asdf:component-loaded-p system) - do (asdf:load-system system)) + do (restart-case (asdf:load-system system) + (continue-without-system () nil))) (loop for form in (slot-value propspec 'applications) for propapp = (compile-propapp form) do (propappapply propapp))) |