             complement-candidate-lexemes (if (not (= true
                                                      (get-in bolt (concat path [:phrasal]))))
                                            (if cached cached (flatten (vals lexicon))))]
-        (log/debug (str "add-complement(depth=" depth "): immediate parent:" (get-in immediate-parent [:rule])))
         (let [complement-pre-check (fn [child parent path-to-child]
                                      (let [child-in-bolt (get-in bolt path-to-child)]
                                        (and (not (fail?

        bolt-spec (get-in bolt path :no-path)
        depth (if depth depth 0)
        spec (unifyc spec bolt-spec)]
    (log/debug (str "add-complement(depth=" depth ", path=" path ", bolt: ["
                    (if (map? bolt) (get-in bolt [:rule])) ": '" (morph bolt) "']"))
    (if (not (= bolt-spec :no-path)) ;; check if this bolt has this path in it.
      (let [immediate-parent (get-in bolt (butlast path))
            start-time (current-time)

                    (if (fail? complement)
                      true
                      (do
                        (log/debug (str "add-complement(depth=" depth ",path=" path ")=>"
                                        (get-in complement [:synsem :cat] :none) "):" (morph complement)))
                        false)))
                  (map (fn [complement]
                         (unify (copy bolt)
