Checks if THING is a JSON AST file object.
(jsonast-looks-like-file-p thing) → yes/no
Function:
(defun jsonast-looks-like-file-p (thing) (declare (xargs :guard (json::valuep thing))) (let ((__function__ 'jsonast-looks-like-file-p)) (declare (ignorable __function__)) (and (equal :object (json::value-kind thing)) (json::object-has-member-p "name" thing) (json::object-has-member-p "expected_input" thing) (json::object-has-member-p "structs" thing) (json::object-has-member-p "functions" thing))))