From e5947122bae1115b024be354ace6885cb360037e Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Tue, 22 Dec 2020 09:19:28 -0700 Subject: updated to latest bootstrap --- service/inetorg-delete-service.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'service/inetorg-delete-service.lisp') diff --git a/service/inetorg-delete-service.lisp b/service/inetorg-delete-service.lisp index 1bcac65..8756f64 100644 --- a/service/inetorg-delete-service.lisp +++ b/service/inetorg-delete-service.lisp @@ -3,7 +3,7 @@ (in-package #:ldapadmin) -(defclass inetorg-delete (auth-service) +(defclass inetorg-delete-service (auth-service) ((cn :initarg :cn :initform nil :accessor cn) @@ -13,15 +13,15 @@ (:documentation "")) (defun inetorg-delete-json (cn) - (with-auth (instance inetorg-delete) + (with-auth (instance inetorg-delete-service) (setf (cn instance) cn))) -(defclass inetorg-delete-submit (auth-service) +(defclass inetorg-delete-submit-service (auth-service) () (:documentation "")) (defun inetorg-delete-submit-json (cn) - (with-auth (instance inetorg-delete-submit) + (with-auth (instance inetorg-delete-submit-service) (with-ldap (ldap) (let ((ldap-user (get-ldap-user ldap cn))) (delete-ldap-user ldap-user ldap) -- cgit v1.3