Changeset 412 for trunk/src/TM-SPARQL

Timestamp:

04/04/11 08:50:25 (14 years ago)

Author:

lgiessmann

Message:

TM-SPARQL: fixed a bug in the processing of final results when creating result-intersections and finished a unit-tests for such a scenario

File:

• trunk/src/TM-SPARQL/sparql.lisp (modified) (2 diffs)

trunk/src/TM-SPARQL/sparql.lisp ¶

@@ -1081 +1081 @@
                  (when (variable-p (predicate triple))
                    (list :variable (value (predicate triple))
-                          :result (predicate-result triple)))
+                         :result (predicate-result triple)))
                  (when (variable-p (object triple))
                    (list :variable (value (object triple))
@@ -1117 +1117 @@
            (list-1 (when (>= (length all-values) 1)
                      (first all-values)))
-           (list-2 (if (> (length all-values) 2)
+           (list-2 (if (>= (length all-values) 2)
                        (second all-values)
                        list-1))