JSON part two

gistfile1.lisp

(grammar ((JValue  < (/ String Number JObject JArray JTrue JFalse JNull)))
         ((JObject < (: "\\{") (? JPair (* (:",") JPair)) (:"\\}"))
                     `($(car JObject)
                       ($(cons 'scope (cadr JObject)))))
         ((JPair   < String (: ":") JValue)
                     `($(car JPair)
                       ((var $(str->symbol (caadr JPair)) $(cadadr JPair)))))
         ((JArray  < (:"\\[") (? JValue (* (:",") JValue)) (:"\\]"))
                     `($(car JArray)
                        ($(vectorof (cadr JArray)))))
         ((JTrue   <- (: "true"))
                      `($(car JTrue)
                         ('t)))
         ((JFalse  <- (: "false")))
         ((JNull   <- (: "null"))))

(syntax (Expression < (/ Quote JObject String List Atom)))