diff options
Diffstat (limited to 'lisp/service/profile-service.lisp')
| -rw-r--r-- | lisp/service/profile-service.lisp | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/service/profile-service.lisp b/lisp/service/profile-service.lisp index 990a9d0..de31d29 100644 --- a/lisp/service/profile-service.lisp +++ b/lisp/service/profile-service.lisp @@ -16,10 +16,11 @@ (location-p :initform nil)) (:documentation "")) -(defclass profile/modify-service (profile/view-service) +(defclass profile/modify-service (profile-service) ((form :initarg :form :initform nil - :accessor form)) + :accessor form) + (location-p :initform nil)) (:documentation "")) (defun profile-json () @@ -34,13 +35,6 @@ (loop for item in (items instance) do (sanitize-json item)))) -(defclass profile/modify-service (profile-service) - ((form :initarg :form - :initform nil - :accessor form) - (location-p :initform nil)) - (:documentation "")) - (defun profile-modify-json () (with-auth (instance profile/modify-service "profile-modify") (let ((user (get-user))) |