(defpackage json-test
  (:use :common-lisp))

(defclass person ()
  ((name :accessor name)
   (email :accessor email)
   (age :accessor age)))

(json:class-tanımla 'person)

(defparameter *json-metin* "{\"name\": \"Ahmet\", \"age\": 20, \"email\":\"ahmetzaxd@gmail.com\"}")

(defun mop-test ()
  (let ((kişi (json:pars *json-metin* 'person)))
    (format t "~a (~a) <~a>" (name kişi) (age kişi) (email kişi))))