From 31657f6854edc116946a099be889440fb3e92e53 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sat, 27 Nov 2021 10:20:12 -0700 Subject: moved everything under lisp/ --- lisp/ldap/generics.lisp | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 lisp/ldap/generics.lisp (limited to 'lisp/ldap/generics.lisp') diff --git a/lisp/ldap/generics.lisp b/lisp/ldap/generics.lisp new file mode 100644 index 0000000..ed8a839 --- /dev/null +++ b/lisp/ldap/generics.lisp @@ -0,0 +1,18 @@ +;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +(declaim (optimize (speed 0) (safety 3) (debug 3))) + +(in-package :ldapadmin) + +(defgeneric disconnect (ldap) + (:documentation "")) + +(defgeneric get-ldap-users (ldap search-base) + (:documentation "Calls `with-ldap-iterate' to iterate over all LDAP +users returned with the search `search-base', wrapping each entry in +an `ldap-user' object. Returns a list of these objects. `ldap' is a +free variable that must be present for `with-ldap-iterate'.")) + +(defgeneric get-ldap-user (ldap cn) + (:documentation "Calls `with-ldap-users' with a search filter and +returns the first entry.")) + -- cgit v1.3