add abdl element type

3 files changed, 8 insertions, 3 deletions

diff --git a/data/element-types/abdl.lisp b/data/element-types/abdl.lisp
new file mode 100644
index 0000000..bb0a46c
--- /dev/null
+++ b/data/element-types/abdl.lisp
@@ -0,0 +1,5 @@
+;;;; -*- mode: Common-Lisp; sly-buffer-package: "yadfa-element-types"; coding: utf-8-unix; -*-
+(in-package :yadfa-element-types)
+(define-type abdl ()
+    ()
+    (:element-name "ABDL"))
diff --git a/data/element-types/pokemon.lisp b/data/element-types/pokemon.lisp
index 9f78d56..a11e528 100644
--- a/data/element-types/pokemon.lisp
+++ b/data/element-types/pokemon.lisp
@@ -68,9 +68,9 @@
              (:element-name "Dragon"))
 (define-type dark () ()
              (:not-very-effective fighting dark fairy)
-             (:super-effective ghost psychic)
+             (:super-effective ghost psychic abdl)
              (:element-name "Dark"))
 (define-type fairy () ()
-             (:not-very-effective poison steel fire)
+             (:not-very-effective poison steel fire abdl)
              (:super-effective fighting dragon dark)
              (:element-name "Fairy"))
diff --git a/packages.lisp b/packages.lisp
index 5afe1f7..28a0b34 100644
--- a/packages.lisp
+++ b/packages.lisp
@@ -518,7 +518,7 @@
 (uiop:define-package :yadfa-element-types
   (:use :cl :yadfa :yadfa-util :iterate)
   (:export #:normal #:fighting #:flying #:poison #:ground #:rock #:bug #:ghost #:steel #:fire #:water
-           #:grass #:electric #:psychic #:ice #:dragon #:dark #:fairy)
+           #:grass #:electric #:psychic #:ice #:dragon #:dark #:fairy #:abdl)
   (:documentation "Element types")
   (:local-nicknames (:s :serapeum) (:a :alexandria) (:u :ugly-tiny-infix-macro) (:g :global-vars)
                     (:c :clim) (:ce :clim-extensions) (:cc :conditional-commands) (:f :fmt)))