[isidorus-cvs] r416 - in trunk/src: TM-SPARQL unit_tests

[Lukas Giessmann]

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-?