# HG changeset patch
# User naryl <naryl+rhodecode@ave.maria.si>
# Date 2020-08-26 18:30:14
# Node ID b03a5f77abec7f91adab6e2f3d1687c9a604bbad
# Parent  19e7324c341a426518d6d46c52c711a4a5722e56

Fix -o

diff --git a/src/main.lisp b/src/main.lisp
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -32,7 +32,7 @@
              (t (push arg (getf data mode)))))
     (unless (< 0 (length (getf data :sources)))
       (report-error "There should be at least one source"))
-    (unless (> 1 (length (getf data :target)))
+    (when (> 1 (length (getf data :target)))
       (report-error "There should be no more than one target"))
     (unless (> 1 (length (getf data :body)))
       (report-error "There should be no more than one body"))