Author: lgiessmann Date: Tue Apr 5 17:36:42 2011 New Revision: 416

Log: TM-SPARQL: fixed a bug in recursive-intersection

Modified: trunk/src/TM-SPARQL/sparql.lisp trunk/src/unit_tests/sparql_test.lisp

Modified: trunk/src/TM-SPARQL/sparql.lisp ============================================================================== --- trunk/src/TM-SPARQL/sparql.lisp (original) +++ trunk/src/TM-SPARQL/sparql.lisp Tue Apr 5 17:36:42 2011 @@ -1176,7 +1176,9 @@ (if (not more-lists) (list :result current-result :literal-datatype current-datatypes) - (recursive-intersection current-result (first more-lists) + (recursive-intersection (list :result current-result + :literal-datatype current-datatypes) + (first more-lists) (rest more-lists)))))

Modified: trunk/src/unit_tests/sparql_test.lisp ============================================================================== --- trunk/src/unit_tests/sparql_test.lisp (original) +++ trunk/src/unit_tests/sparql_test.lisp Tue Apr 5 17:36:42 2011 @@ -2391,7 +2391,7 @@ (format t "~a~%" r-1))))

- +;TODO: cast literal-values when called in filters ;TODO: test complex filters ;TODO: check if object results are in the actual object-represenrtation and not as string ;TODO: rename test-all-? test-module-?