update dn to remember its modification state

nixeagle · Jan 21, 2010 · c5d65d1 · c5d65d1
1 parent 07b75e2
commit c5d65d1
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/ldap.lisp b/ldap.lisp
@@ -40,17 +40,20 @@
   ;; can select on.
   (:documentation "Base of all ldap messages."))
 
-(defclass dn ()
-  ((dn :type string
-          :reader dn
-          :initarg :dn)
-   (modified-p :type boolean
 (defclass modification-state ()
   ((modified-p :type boolean
                :reader modified-p
                :initform nil))
   (:documentation "Represents a modified state."))
 
+(defclass modification-time ()
+  ((modified-time :reader modification-time
+                  )))
+
+(defclass dn (modification-state)
+  ((dn :type string
+       :reader dn
+       :initarg :dn))
   (:documentation "!!!")
   (:default-initargs :dn ""))