Fixed problem with queries without paths (cl-source or cl-target are …

…interface or abstract class).

src/ru/petrsu/nest/yz/core.clj

@@ -107,7 +107,10 @@
           m-go (memoize (fn [ids o]
                           (cond (vector? ids) 
                               (reduce (fn [r {:keys [id cl]}]
-                                        (let [objs- (mapcat (partial reduce get-objs r) id)]
+                                        (let [id (if (nil? id)
+                                                   (u/get-paths cl (-> r first class) @a-mom)
+                                                   id)
+                                              objs- (mapcat (partial reduce get-objs r) id)]
                                           (if (nil? cl)
                                             objs-
                                             (filter (partial instance? cl) objs-))))

src/ru/petrsu/nest/yz/parsing.clj

@@ -1,5 +1,5 @@
 ;;
-;; Copyright 2011-2012 Vyacheslav Dimitrov <vyacheslav.dimitrov@gmail.com>
+;; Copyright 2011-2013 Vyacheslav Dimitrov <vyacheslav.dimitrov@gmail.com>
 ;;
 ;; This file is part of YZ.
 ;;
@@ -268,9 +268,14 @@
       ;; [20.05.12] But now MOM contains information about
       ;; children of class, so if MOM is defined we can check
       ;; whether class or one of its children has the property.
-      (do 
-        (if cl-source (check-prop cl-source id))
-        [{:id [[id]] :cl cl-target}])
+      ;; [12.01.13] Also we can't throw exception in case
+      ;; cl-source and cl-target are defined because of
+      ;; cl-source also may be abstract class or interface so
+      ;; we must search paths in runtime (core.clj).
+      (if (and cl-source cl-target) 
+        [{:id nil :cl cl-target}]
+        (let [_ (check-prop cl-source id)]
+         [{:id [[id]] :cl cl-target}]))
       {:id paths :cl cl-target})))