migrate to reactHEADmaster

1 files changed, 2 insertions, 6 deletions

diff --git a/lisp/service/rest-service.lisp b/lisp/service/rest-service.lisp
index b01f7fa..9f9f3d7 100644
--- a/lisp/service/rest-service.lisp
+++ b/lisp/service/rest-service.lisp
@@ -20,12 +20,6 @@
 
 (defmethod initialize-instance :after ((rest-service rest-service) &key)
   (when (location-p rest-service)
-    (if (message rest-service)
-        (setf (session-value :message) (message rest-service))
-        (setf (message rest-service) (session-value :message)))
-    (if (errormsg rest-service)
-        (setf (session-value :errormsg) (errormsg rest-service))
-        (setf (errormsg rest-service) (session-value :errormsg)))
     (when (null (location rest-service))
       (setf (location rest-service) (type-to-path rest-service)))))
 
@@ -39,3 +33,5 @@
   (loop for slot in (intersection '(org-ckons-session::*session-key *table *where-expression pwd)
                                   (org-ckons-core::map-slot-names rest-service))
         do (setf (slot-value rest-service slot) nil)))
+
+(define-endpoint ("/location" :method :post) (&post (location :parameter-type 'string)) location-json location)