~skin/jfon

17d5eace474e0bb569fb297f30ae68054990bb77 — Daniel Jay Haskin 10 months ago 0a94558
Fix some ecase stuff
1 files changed, 1 insertions(+), 2 deletions(-)

M jfon/main.lisp
M jfon/main.lisp => jfon/main.lisp +1 -2
@@ 20,8 20,7 @@
        (ecase event
          (:value value)
          (:begin-array (parse-array parser))
          (:begin-object (parse-object parser))
          (otherwise (error "Unexpected event: ~A" event))))
          (:begin-object (parse-object parser))))

(defun parse-array (parser)
  (declare (type jzon:parser parser))