Yu-Gi-Oh! Deck Building and Card Inventory Management web interface written in Common Lisp, utilizing HTMX.
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.

41 lines
1.2KB

  1. #|
  2. When I started this file I was going to generalize EVERY method then I
  3. realized that's too time consuming. So I am going to generalize
  4. methods as they conflict. Hybrid Power!
  5. There were some issues with merging symbols, I was using
  6. :SHADOWING-IMPORT-FROM which is probably not correct. So instead, what
  7. we do, is, every package that gets :USE-REEXPORTed, we :USE
  8. #:CL-DECK-BUILDER2.MODELS.GENERICS.
  9. |#
  10. (in-package #:cl-deck-builder2.models.generics)
  11. ;; Get the NAME slot of an object
  12. (defgeneric name-of (obj))
  13. ;; Get the PASSCODE slot of an object
  14. (defgeneric ygo-passcode-of (obj))
  15. ;; Get the Containing Deck ID of the DECK-ITEM, CONSTRUCTED-DECK-ITEM
  16. (defgeneric deck-id-of (obj))
  17. ;; Get the PRICE slot of an object
  18. (defgeneric ygo-price-of (obj))
  19. (defgeneric ygo-archetype-of (obj))
  20. (defgeneric ygo-atk-of (obj))
  21. (defgeneric ygo-attribute-of (obj))
  22. (defgeneric ygo-def-of (obj))
  23. (defgeneric ygo-description-of (obj))
  24. (defgeneric ygo-frame-type-of (obj))
  25. (defgeneric ygo-level-of (obj))
  26. (defgeneric ygo-linkmarkers-of (obj))
  27. (defgeneric ygo-linkval-of (obj))
  28. (defgeneric ygo-passcode-of (obj))
  29. (defgeneric ygo-race-of (obj))
  30. (defgeneric ygo-scale-of (obj))
  31. (defgeneric ygo-type-of (obj))