diff --git a/trivial-ldap.lisp b/trivial-ldap.lisp index 899aef2..6174ac3 100644 --- a/trivial-ldap.lisp +++ b/trivial-ldap.lisp @@ -1739,7 +1739,11 @@ LIST-OF-MODS is a list of (type att val) triples." (size (seq-integer size)) (time (seq-integer time)) (types (seq-boolean types)) - (attrs (seq-attribute-list attrs)) + (attrs + (seq-attribute-list (case attrs + ((nil) '("1.1")) ; No attributes + ((t) nil) ; All attributes + (t attrs)))) ; those requested (controls (when (and paging-size (zerop size))