diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 16:24:39 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 16:24:39 -0700 |
commit | f190406af14bebb93e4632b57dae5ed675539d35 (patch) | |
tree | b41ac6fb0b396f14ed94d2eb5b94beb1e2f446ec | |
parent | be461462885b987222eef811fef4cd3551a14527 (diff) | |
download | consfigurator-f190406af14bebb93e4632b57dae5ed675539d35.tar.gz |
fix call to FIND-METHOD
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/data.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/data.lisp b/src/data.lisp index 310ffe0..8825535 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -263,7 +263,8 @@ appropriate. Falls back to CONNECTION-WRITEFILE." (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)) + '() + (mapcar #'class-of (list *connection* t t)) nil)) (connection-upload *connection* from to) (with-open-file (s from :element-type '(unsigned-byte 8)) |