(ql:quickload 'serapeum)
(ql:quickload 'nytpu.lisp-utils)

(defmacro 📌 (name macro)
  `(progn
     (setf (macro-function ',name)
           (macro-function ',macro))))
(defmacro ⚙️ (name function)
  `(serapeum:defalias ,name #',function))

(📌 🥺 defmethod)
(📌 😎 defun)
(📌 💭 serapeum:defconst)
(📌 🤓 defclass)
(📌 🔩 defstruct)
(📌 📝 deftype)
(📌 📋 nytpu.lisp-utils.bind:bind)
(📌 👓 with-accessors)
(⚙️ 📓 list)
(⚙️ ➕ +)
(⚙️ ✖️ *)
(⚙️ ➖ -)
(⚙️ 🔧 make-instance)
(💭 0️⃣ 0.0)
(💭 🌛 0.5)
(💭 1️⃣ 1.0)
(💭 2️⃣ 2.0)

(📝 🔢 () 'real)

(🔩 🔵
    (👉 0️⃣ :type 🔢)
    (👆 0️⃣ :type 🔢))
(⚙️ 🎯 make-🔵)

(🤓 〰️ ()
    ((🌓 :initarg :🌓
         :accessor 🌓
         :type 🔢)
     (🌒 :initarg :🌒
         :accessor 🌒
         :type 🔢)
     (🌑 :initarg :🌑
         :accessor 🌑
         :type 🔢)))

(😎 〰️ (🌓 🌒 🌑)
  (🔧 '〰️ :🌓 🌓 :🌒 🌒 :🌑 🌑))

(🥺 📈 ((〰️ 〰️) ⏳)
    (👓 ((🇦 🌓)
         (🇧 🌒)
         (🇨 🌑))
        〰️
      (📋 ((⌛ (➖ 1️⃣ ⏳)))
        (➕ (✖️ 🇦 (✖️ ⌛ ⌛))
            (✖️ 🇧 (✖️ ⏳ 2️⃣) ⌛)
            (✖️ 🇨 (✖️ ⏳ ⏳))))))

(🥺 🎀 ((〰️ 〰️))
    (👓 ((🇦 🌓)
         (🇧 🌒)
         (🇨 🌑))
        〰️
      (📓 (🎯 :👉 0️⃣ :👆 🇦)
          (🎯 :👉 🌛 :👆 🇧)
          (🎯 :👉 1️⃣ :👆 🇨))))

(📋 ((💡 (〰️ 1️⃣ 0️⃣ 2️⃣)))
  (📓 (📈 💡 🌛)
      (🎀 💡)))