diff options
| author | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-22 20:57:44 -0700 |
|---|---|---|
| committer | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-22 20:57:44 -0700 |
| commit | 4850ffaef859a3f33f03c5500602881e30b1039c (patch) | |
| tree | 4bcf433abc72ba0c01b4a5ead79081367aada2a9 /ldap/ldap.lisp | |
| parent | e5947122bae1115b024be354ace6885cb360037e (diff) | |
Moved core to its own library
Diffstat (limited to 'ldap/ldap.lisp')
| -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)) |