diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 13:32:24 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 13:32:24 -0700 |
commit | 251d9ccc9d906fcd55599f01bbd85fa6e9058533 (patch) | |
tree | 95a076a712ee20e8e942e0e9184600368acca24b /src/data.lisp | |
parent | e4c60eb5a55ea6d1f44338a849abcf1566f01e8d (diff) | |
download | consfigurator-251d9ccc9d906fcd55599f01bbd85fa6e9058533.tar.gz |
fix type of argument passed to SUBTYPEP
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
-rw-r--r-- | src/data.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/data.lisp b/src/data.lisp index 6178320..0526d0c 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -260,7 +260,7 @@ This function is called by property :APPLY and :UNAPPLY subroutines." (defun connection-try-upload (from to) "Wrapper around CONNECTION-UPLOAD to ensure it gets used only when appropriate. Falls back to CONNECTION-WRITEFILE." - (if (and (subtypep (slot-value *connection* 'parent) + (if (and (subtypep (type-of (slot-value *connection* 'parent)) 'consfigurator.connection.local:local-connection) (find-method #'connection-upload (mapcar #'find-class (list *connection* t t)) |