(defclass лошадиные () ())
(defclass конь (лошадиные) ())
(defclass пегас (лошадиные) ())
 
(defmethod род ((животина лошадиные))
  (string-downcase (class-name (class-of животина))))
 
(defmethod заржи ((животина лошадиные))
  (format t "~&~@(~a~): И-ГО-ГО!" (род животина)))
 
(defmethod взлетай ((животина пегас))
  (format t "~&~@(~a~): Поехали нахуй!" (род животина)))
 
(defmethod насри ((животина лошадиные))
  (format t "~&*~a кекает*" (род животина)))
 
(defun зацени (лошадина)
  (format t "~&Гля, какой у меня ~a" (род лошадина))
  (заржи лошадина))
 
(loop :for род :in '(конь пегас)
      :for приказ :in '(насри взлетай)
      :for животина :=  (make-instance род)
      :do (funcall приказ животина)
      :do (зацени животина))
 
(defmethod отъеби ((ебущий лошадиные) (ебемый лошадиные))
  (format t "~&*~a засадил в ~aиный зад*" (род ебущий) (род ебемый)))
 
(defmethod отъеби :before ((ебущий пегас) (ебемый лошадиные))
  (format t "~&*~a взпорхнув прицелился*" (род ебущий)))
 
(defmethod отъеби ((ебущий лошадиные) (циферки number))
  (format t "~&~@(~a~): Э-э-э! Я ж тебе не ~a, сам еби ~a" (род ебущий)
          (typecase циферки
            (bit "сишник-байтослесарь")
            (complex "математик")
            (real "физик"))
           циферки))
 
(let ((пегас (make-instance 'пегас))
      (п-с   (make-instance 'пегас)))
  (dolist (x (list п-с 1 1.2 #c(1 2)))
    (отъеби пегас x)))

KGRlZmNsYXNzINC70L7RiNCw0LTQuNC90YvQtSAoKSAoKSkKKGRlZmNsYXNzINC60L7QvdGMICjQu9C+0YjQsNC00LjQvdGL0LUpICgpKQooZGVmY2xhc3Mg0L/QtdCz0LDRgSAo0LvQvtGI0LDQtNC40L3Ri9C1KSAoKSkKCihkZWZtZXRob2Qg0YDQvtC0ICgo0LbQuNCy0L7RgtC40L3QsCDQu9C+0YjQsNC00LjQvdGL0LUpKQogIChzdHJpbmctZG93bmNhc2UgKGNsYXNzLW5hbWUgKGNsYXNzLW9mINC20LjQstC+0YLQuNC90LApKSkpCgooZGVmbWV0aG9kINC30LDRgNC20LggKCjQttC40LLQvtGC0LjQvdCwINC70L7RiNCw0LTQuNC90YvQtSkpCiAgKGZvcm1hdCB0ICJ+Jn5AKH5hfik6INCYLdCT0J4t0JPQniEiICjRgNC+0LQg0LbQuNCy0L7RgtC40L3QsCkpKQoKKGRlZm1ldGhvZCDQstC30LvQtdGC0LDQuSAoKNC20LjQstC+0YLQuNC90LAg0L/QtdCz0LDRgSkpCiAgKGZvcm1hdCB0ICJ+Jn5AKH5hfik6INCf0L7QtdGF0LDQu9C4INC90LDRhdGD0LkhIiAo0YDQvtC0INC20LjQstC+0YLQuNC90LApKSkKCihkZWZtZXRob2Qg0L3QsNGB0YDQuCAoKNC20LjQstC+0YLQuNC90LAg0LvQvtGI0LDQtNC40L3Ri9C1KSkKICAoZm9ybWF0IHQgIn4mKn5hINC60LXQutCw0LXRgioiICjRgNC+0LQg0LbQuNCy0L7RgtC40L3QsCkpKQoKKGRlZnVuINC30LDRhtC10L3QuCAo0LvQvtGI0LDQtNC40L3QsCkKICAoZm9ybWF0IHQgIn4m0JPQu9GPLCDQutCw0LrQvtC5INGDINC80LXQvdGPIH5hIiAo0YDQvtC0INC70L7RiNCw0LTQuNC90LApKQogICjQt9Cw0YDQttC4INC70L7RiNCw0LTQuNC90LApKQoKKGxvb3AgOmZvciDRgNC+0LQgOmluICco0LrQvtC90Ywg0L/QtdCz0LDRgSkKICAgICAgOmZvciDQv9GA0LjQutCw0LcgOmluICco0L3QsNGB0YDQuCDQstC30LvQtdGC0LDQuSkKICAgICAgOmZvciDQttC40LLQvtGC0LjQvdCwIDo9ICAobWFrZS1pbnN0YW5jZSDRgNC+0LQpCiAgICAgIDpkbyAoZnVuY2FsbCDQv9GA0LjQutCw0Lcg0LbQuNCy0L7RgtC40L3QsCkKICAgICAgOmRvICjQt9Cw0YbQtdC90Lgg0LbQuNCy0L7RgtC40L3QsCkpCiAgICAgIAooZGVmbWV0aG9kINC+0YLRitC10LHQuCAoKNC10LHRg9GJ0LjQuSDQu9C+0YjQsNC00LjQvdGL0LUpICjQtdCx0LXQvNGL0Lkg0LvQvtGI0LDQtNC40L3Ri9C1KSkKICAoZm9ybWF0IHQgIn4mKn5hINC30LDRgdCw0LTQuNC7INCyIH5h0LjQvdGL0Lkg0LfQsNC0KiIgKNGA0L7QtCDQtdCx0YPRidC40LkpICjRgNC+0LQg0LXQsdC10LzRi9C5KSkpCiAgCihkZWZtZXRob2Qg0L7RgtGK0LXQsdC4IDpiZWZvcmUgKCjQtdCx0YPRidC40Lkg0L/QtdCz0LDRgSkgKNC10LHQtdC80YvQuSDQu9C+0YjQsNC00LjQvdGL0LUpKQogIChmb3JtYXQgdCAifiYqfmEg0LLQt9C/0L7RgNGF0L3Rg9CyINC/0YDQuNGG0LXQu9C40LvRgdGPKiIgKNGA0L7QtCDQtdCx0YPRidC40LkpKSkKCihkZWZtZXRob2Qg0L7RgtGK0LXQsdC4ICgo0LXQsdGD0YnQuNC5INC70L7RiNCw0LTQuNC90YvQtSkgKNGG0LjRhNC10YDQutC4IG51bWJlcikpCiAgKGZvcm1hdCB0ICJ+Jn5AKH5hfik6INCtLdGNLdGNISDQryDQtiDRgtC10LHQtSDQvdC1IH5hLCDRgdCw0Lwg0LXQsdC4IH5hIiAo0YDQvtC0INC10LHRg9GJ0LjQuSkKICAgICAgICAgICh0eXBlY2FzZSDRhtC40YTQtdGA0LrQuAogICAgICAgICAgICAoYml0ICLRgdC40YjQvdC40Lot0LHQsNC50YLQvtGB0LvQtdGB0LDRgNGMIikKICAgICAgICAgICAgKGNvbXBsZXggItC80LDRgtC10LzQsNGC0LjQuiIpCiAgICAgICAgICAgIChyZWFsICLRhNC40LfQuNC6IikpCiAgICAgICAgICAg0YbQuNGE0LXRgNC60LgpKQoKKGxldCAoKNC/0LXQs9Cw0YEgKG1ha2UtaW5zdGFuY2UgJ9C/0LXQs9Cw0YEpKQogICAgICAo0L8t0YEgICAobWFrZS1pbnN0YW5jZSAn0L/QtdCz0LDRgSkpKQogIChkb2xpc3QgKHggKGxpc3Qg0L8t0YEgMSAxLjIgI2MoMSAyKSkpCiAgICAo0L7RgtGK0LXQsdC4INC/0LXQs9Cw0YEgeCkpKQ==