defining rdn before dn, it makes logical sense

ldap.lisp

@@ -100,6 +100,13 @@
   (:documentation "Represents LDAP base path.")
   (:default-initargs :base ""))
 
+(defclass rdn (modification)
+  ((rdn :type string
+        :reader rdn
+        :initarg :rdn))
+  (:documentation "!!!")
+  (:default-initargs :rdn ""))
+
 (defclass dn (modification)
   ((dn :type string
        :reader dn
@@ -112,13 +119,6 @@
   (setf (modification-state object) t)
   (setf (slot-value object 'dn) value))
 
-(defclass rdn (modification)
-  ((rdn :type string
-        :reader rdn
-        :initarg :rdn))
-  (:documentation "!!!")
-  (:default-initargs :rdn ""))
-
 (defclass entry (trivial-ldap:entry)
   ((dn :type dn
        :reader dn