Treat solely tables with-@TYPE items as AP objects

By default, at least. @TYPE is considered a
requirement for a proper node object, as per the
spec.
This commit is contained in:
Jaidyn Ann 2024-09-04 15:12:34 -05:00
parent cd0545be52
commit e8858ef773

View File

@ -339,8 +339,8 @@ parsed into hash-tables) will be parsed into CLOS objects."
(type (identify-json-type parsed-table ctx))
(type-def (or (gethash type *json-types*)
(gethash *default-json-type* *json-types*)))
(valid-object (or type (gethash "@id" table))))
(if (or valid-object (gethash ".always-object" ctx))
(valid-object-p type))
(if (or valid-object-p (gethash ".always-object" ctx))
(parse-table-into-object parsed-table type-def ctx)
parsed-table))))