   ;; otherwise has a child with the same two options (leaf or a head child),
   ;; up to the maximum depth.
   (log/debug (str "lightning-bolts: depth="
-                  depth (if use-candidate-parents
-                          (str "; using ucp: "
-                               (count use-candidate-parents)))))
+                  depth "; spec=" (dag_unify.core/strip-refs spec)))
   (if (and (< depth max-depth)
            (not (= false (get-in spec [:phrasal] true))))
     (let [candidate-parents

                   (or (:lexicon (:generate model)) (:lexicon model)))))))
   (filter #(or (= false (get-in % [:exception] false))
                (not (= :verb (get-in % [:synsem :cat])))))
   (map #(unify % spec))
   (filter #(not (= :fail %)))))

(defn show-spec [spec]

                                                     spec)))
                                    true
                                    (log/debug (str "rule:" (:rule rule)
                                                    " OK for spec:"
                                                    (dag_unify.core/strip-refs
                                                     spec))))
                              result)))
                     (filter #(not (= :fail %)))
                     (shufflefn))]
