                                                            #"\.(..).*"
                                                            (fn [[_ two-digits]] (str "." two-digits))))))
                          result))
-                     (do (log/warn (str "no cache: will go through entire lexicon."))
+                     (do (log/trace (str "no cache: will go through entire lexicon."))
                          nil))
             complement-candidate-lexemes (if cached cached (flatten (vals lexicon)))]
         (let [semantics (get-in spec [:synsem :sem])]

        from-bolt bolt ;; so we can show what (add-complement) did to the input bolt, for logging.
        bolt-spec (get-in bolt path :no-path)
        spec (unifyc spec bolt-spec)]
    (log/debug (str "add-complement at path: " path " to bolt with bolt:["
                    (if (map? bolt) (get-in bolt [:rule]))
                    " '" (morph bolt) "'"
                    "]"))

              (filter (fn [result]
                        (not (fail? result)))
                      (map (fn [complement]
                             (let [debug
                                   (if (or true (= (morph bolt) "alzarsi"))
                                     (log/debug (str "add complement ["
                                                     (get-in bolt [:rule]) " "
                                                     (morph bolt) "]: trying lexical complement:" (morph complement)
                                                     )))
                                   result
                                   (unify (copy bolt)
                                          (path-to-map path
                                                        (copy complement)))
                                   is-fail? (fail? result)]
                               (if is-fail?
                                 (do
                                   (log/debug (str "fail-path-between(bolt=val1/comp=val2):" (fail-path-between (strip-refs (get-in bolt path))
                                                                                                      (strip-refs complement)))))
                                 (log/debug (str "Success: returning: " (morph result))))
                                 
                               (if is-fail? :fail result)))
                     
