Fix slot map/alist initialization
Instead of doing this on `finalize-inheritance`, do it after `compute-slots`.
I swear, sometimes using the MOP feels like playing whack-a-mole.
Also adds another real-world test case.
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Mon, 31 Aug 2020 22:18:48 -0400 |
| parents |
2a95e54cdcac |
| children |
(none) |
(asdf:defsystem :jarl
:description "JSON (Another Reimplementation) in Lisp"
:author "Steve Losh <steve@stevelosh.com>"
:homepage "https://docs.stevelosh.com/jarl/"
:license "MIT"
:version "0.0.1"
:depends-on (:closer-mop)
:in-order-to ((asdf:test-op (asdf:test-op :jarl/test)))
:serial t
:components ((:module "src" :serial t
:components ((:file "package")
(:file "basic")
(:file "discard")
(:file "wrappers")
(:file "mop")))))
(asdf:defsystem :jarl/test
:description "Test suite for jarl."
:author "Steve Losh <steve@stevelosh.com>"
:license "MIT"
:depends-on (:jarl :1am :alexandria :yason :chancery :uuid)
:serial t
:components ((:module "test"
:serial t
:components ((:file "package")
(:file "tests"))))
:perform (asdf:test-op (op system)
(funcall (read-from-string "jarl/test:run-tests"))))