                                                                    ))
                                                                [:sing :plur]))))
                                                      [:1st :2nd :3rd]))))
+                                           ;; TODO: why is this check disabled with (or true ..)?
                                            (cond (or true (= tense
                                                              {:synsem {:sem {:aspect :perfect
                                                                              :tense :past}}}))

                                      (map (fn [gender]
                                             (let [spec (unify/unify spec
                                                                     {:comp {:synsem {:agr gender}}})]
                                               (log/trace (str "generating from gender: " gender))
                                               (.size
                                                (map (fn [person]
                                                       (let [spec (unify/unify spec
                                                                               {:comp {:synsem {:agr {:person person}}}})]
                                                         (log/trace (str "generating from person: " person))
                                                         (.size
                                                          (map (fn [number]
                                                                 (let [spec (unify/unify spec
                                                                                         {:comp {:synsem {:agr {:number number}}}})]
                                                                   (log/debug (str "generating from spec: " spec))
                                                                   (try
                                                                     (process [{:fill-one-language
                                                                                {:count 1


    ;; for debugging, change (pmap) to (map) so logging is easier to read: in-order rather than interleaved by multiple workers.
    (.size (pmap (fn [verb]
                   (log/debug (str "verb: " (strip-refs verb)))
                   (let [root-form (get-in verb [:espanol :espanol])]
                     (log/info (str "generating with verb: '" root-form "'"))
                     (.size (pmap (fn [tense]
