From 50c7e42495e802800e2d06731a17f848641da4ca Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Thu, 20 Aug 2026 16:06:17 -0600 Subject: stuff --- lisp/service/profile-service.lisp | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) (limited to 'lisp/service/profile-service.lisp') 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))) -- cgit v1.3