[isidorus-cvs] r919 - branches/gdl-frontend/src/TM-SPARQL

[lgiessmann at common-lisp.net]

Author: lgiessmann
Date: Mon Sep 19 01:56:58 2011
New Revision: 919

Log:
tm-sparql: fixed a bug when handling carriage returns of http in the rest-handler

Modified:
   branches/gdl-frontend/src/TM-SPARQL/sparql_parser.lisp

Modified: branches/gdl-frontend/src/TM-SPARQL/sparql_parser.lisp
==============================================================================
--- branches/gdl-frontend/src/TM-SPARQL/sparql_parser.lisp	Mon Sep 19 01:06:33 2011	(r918)
+++ branches/gdl-frontend/src/TM-SPARQL/sparql_parser.lisp	Mon Sep 19 01:56:58 2011	(r919)
@@ -427,7 +427,7 @@
 	      (progn (add-variable construct "*")
 		     (parse-variables construct (string-after trimmed-str "*")))
 	      (let ((result (parse-variable-name construct trimmed-str)))
-		(add-variable construct (getf result :value))
+		(add-variable construct (trim-whitespace-right (getf result :value)))
 		(parse-variables construct (getf result :next-query))))))))