diff options
Diffstat (limited to 'ldap')
| -rw-r--r-- | ldap/ldap.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ldap/ldap.lisp b/ldap/ldap.lisp index 0c16414..2d477e4 100644 --- a/ldap/ldap.lisp +++ b/ldap/ldap.lisp @@ -120,8 +120,8 @@ binddn. Returns `t' if the password is valid, `nil' otherwise." \"Konstanski\"))' to an LDAP search base fragment like \"(givenname=Carlos)(sn=Konstanski)\". Any `nil' or empty-string values are ignored." - (reduce-to-char-separated-string (mapcar (lambda (term) - (when (not (null-or-empty-p (cadr term))) + (org-ckons-core::reduce-to-char-separated-string (mapcar (lambda (term) + (when (not (org-ckons-core::null-or-empty-p (cadr term))) (format nil "(~a=~a)" (symbol-name (car term)) |