[spacebind] use cl-every

This commit is contained in:
JAremko 2020-03-11 10:30:29 +02:00 committed by Eugene Yaremenko
parent 62bbff5567
commit 710aa947b7
1 changed files with 1 additions and 1 deletions

View File

@ -247,7 +247,7 @@ delimited by \"|\" character."
(let* ((fn-sym-or-label (car-safe (cdr-safe form)))
(prefix-form? (stringp fn-sym-or-label))
(binding-form? (and fn-sym-or-label (symbolp fn-sym-or-label)))
(list-of-forms? (and form (every #'consp form)))
(list-of-forms? (and form (cl-every #'consp form)))
(binding-or-prefix-form? (or binding-form?
prefix-form?))
(head (car form))