Changeset 922 for branches

Timestamp:

09/19/11 10:11:58 (14 years ago)

Author:

lgiessmann

Message:

 

File:

• branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp (modified) (3 diffs)

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

@@ -18 +18 @@
 (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/?$")
 
 
@@ -62 +62 @@
 
   (push
-   (create-regex-dispatcher gdl-sparql #'gdl-tm-sparql)
+   (create-regex-dispatcher gdl-sparql #'gdl-sparql-handler)
    hunchentoot:*dispatch-table*))
 
@@ -222 +222 @@
 
 
-(defun gdl-tm-sparql (&optional param)
+(defun gdl-sparql-handler(&optional param)
   "Returns a JSON object representing a SPARQL response."
   (declare (Ignorable param))