diff options
Diffstat (limited to 'lisp/service/rest-service.lisp')
| -rw-r--r-- | lisp/service/rest-service.lisp | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/lisp/service/rest-service.lisp b/lisp/service/rest-service.lisp index 4d23031..f497245 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))))) |