diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-22 05:11:47 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-22 05:11:47 +0100 |
| commit | 3bd63047706cf7c65eb31daa1f005de8cc0ddbe5 (patch) | |
| tree | 25e1d7c28f1058f9a8d024fb8b8300006c7b322d | |
| parent | 965fff2db0d15ddd074ede8efa030f9032d4f4eb (diff) | |
compat-macs: Formatting
| -rw-r--r-- | compat-macs.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/compat-macs.el b/compat-macs.el index 4ba7cc1..0e81eab 100644 --- a/compat-macs.el +++ b/compat-macs.el @@ -92,9 +92,9 @@ a plist of predicates for arguments which are passed to FUN." (defun compat-macs--defun (type name arglist docstring rest) "Define function NAME of TYPE with ARGLIST and DOCSTRING. REST are attributes and the function BODY." - (compat-macs--guard rest `(:extended ,(lambda (x) (or (booleanp x) (version-to-list x))) - :obsolete ,(lambda (x) (or (booleanp x) (stringp x))) - :body t) + (compat-macs--guard rest (list :extended (lambda (x) (or (booleanp x) (version-to-list x))) + :obsolete (lambda (x) (or (booleanp x) (stringp x))) + :body t) (lambda (extended obsolete body) (when (stringp extended) (compat-macs--assert @@ -225,9 +225,9 @@ definition is generated. - :feature :: See `compat-guard'." (declare (debug (name form stringp [&rest keywordp sexp])) (doc-string 3) (indent 2)) - (compat-macs--guard attrs `(:constant booleanp - :local ,(lambda (x) (memq x '(nil t permanent))) - :obsolete ,(lambda (x) (or (booleanp x) (stringp x)))) + (compat-macs--guard attrs (list :constant #'booleanp + :local (lambda (x) (memq x '(nil t permanent))) + :obsolete (lambda (x) (or (booleanp x) (stringp x)))) (lambda (constant local obsolete) (compat-macs--strict (not (boundp name)) "%s already defined" name) (compat-macs--assert (not (and constant local)) "Both :constant and :local") |