[isidorus-cvs] r922 - branches/gdl-frontend/src/rest_interface

[lgiessmann at common-lisp.net]

Author: lgiessmann
Date: Mon Sep 19 03:11:58 2011
New Revision: 922

Log:


Modified:
   branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp

Modified: branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp
==============================================================================
--- branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp	Mon Sep 19 02:28:50 2011	(r921)
+++ branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp	Mon Sep 19 03:11:58 2011	(r922)
@@ -17,7 +17,7 @@
 (defparameter *gdl-base-path* "anaToMia/hosted_files/")
 (defparameter *gdl-host-file* (concat *gdl-base-path* "GDL_Widgets.html"))
 (defparameter *gdl-tm-id* "http://textgrid.org/serviceregistry/gdl-frontend/gdl-tm")
-(defparameter *gdl-sparql* "/gdl/tm-sparql/?$")
+(defparameter *gdl-sparql* "/gdl/sparql/?$")
 
 
 (defun set-up-gdl-interface (&key (get-fragment *gdl-get-fragment*)
@@ -61,7 +61,7 @@
    hunchentoot:*dispatch-table*)
 
   (push
-   (create-regex-dispatcher gdl-sparql #'gdl-tm-sparql)
+   (create-regex-dispatcher gdl-sparql #'gdl-sparql-handler)
    hunchentoot:*dispatch-table*))
 
 
@@ -221,7 +221,7 @@
 	(setf (hunchentoot:return-code*) hunchentoot:+http-bad-request+))))
 
 
-(defun gdl-tm-sparql (&optional param)
+(defun gdl-sparql-handler(&optional param)
   "Returns a JSON object representing a SPARQL response."
   (declare (Ignorable param))
   (if (eql (hunchentoot:request-method*) :POST)