(in-package txt2web.main)

(defmacro+ps api-call (name &rest args)
  `(,(intern (string-upcase name) "TXT2WEB.API") ,@args))

(defpsmacro has (key obj)
  `(chain ,obj (has-own-property ,key)))