diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 15:48:11 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 15:48:11 -0700 |
| commit | 78d8f9dad92966a344ce71e12f1deb33a28f0ec3 (patch) | |
| tree | 4b6d961527f039b462efb33c6c952a48e0be62d0 /src/propspec.lisp | |
| parent | 649439ee3e7c05eb604f81b6c6d8eb76ac86aa6e (diff) | |
| download | consfigurator-78d8f9dad92966a344ce71e12f1deb33a28f0ec3.tar.gz | |
move properties type check into EVAL-PROPSPEC
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/propspec.lisp')
| -rw-r--r-- | src/propspec.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/propspec.lisp b/src/propspec.lisp index 22bd579..987f2c6 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -143,6 +143,9 @@ an atomic property application." (defun eval-propspec (propspec) "Apply properties as specified by PROPSPEC." + (when (and (subtypep (class-of *connection*) 'posix-connection) + (eq :lisp (propspec->type propspec))) + (error "Cannot apply :LISP properties using a POSIX connection")) (loop for system in (slot-value propspec 'systems) unless (asdf:component-loaded-p system) do (restart-case (asdf:load-system system) |