Show More
@@ -32,7 +32,7 b'' | |||
|
32 | 32 | (t (push arg (getf data mode))))) |
|
33 | 33 | (unless (< 0 (length (getf data :sources))) |
|
34 | 34 | (report-error "There should be at least one source")) |
|
35 |
( |
|
|
35 | (when (> 1 (length (getf data :target))) | |
|
36 | 36 | (report-error "There should be no more than one target")) |
|
37 | 37 | (unless (> 1 (length (getf data :body))) |
|
38 | 38 | (report-error "There should be no more than one body")) |
General Comments 0
You need to be logged in to leave comments.
Login now