[elpa] externals/compat fbfbe3db89 1/3: Raise an error on duplicate compatibility definitions

[ELPA Syncer]

branch: externals/compat
commit fbfbe3db89e0e1fdcecf2123f3574eb5a595524b
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Raise an error on duplicate compatibility definitions
---
 compat-macs.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compat-macs.el b/compat-macs.el
index 5cf9e4685d..ab60e0204f 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -98,6 +98,8 @@ TYPE is used to set the symbol property `compat-type' for 
NAME."
        (put ',realname 'compat-type ',type)
        (put ',realname 'compat-version ,version)
        (put ',realname 'compat-doc ,(plist-get attr :note))
+       (when (get ',name 'compat-def)
+         (error "Duplicate compatibility definition: %s" ',name))
        (put ',name 'compat-def ',realname)
        ,(funcall def-fn realname version)
        (,@(cond