add class base for ldap equivalent of `pwd'

nixeagle · Jan 22, 2010 · e540129 · e540129
1 parent be45e0b
commit e540129
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/ldap.lisp b/ldap.lisp
@@ -92,6 +92,14 @@
   (declare (type boolean state))
   (call-next-method))
 
+(defclass base (modification)
+  ((base :type string
+         :reader base
+         :initarg :base
+         :documentation "LDAP base path: equivalent to 'ls' on *nix."))
+  (:documentation "Represents LDAP base path.")
+  (:default-initargs :base ""))
+
 (defclass dn (modification)
   ((dn :type string
        :reader dn