blob: d5ebfb453c285c070e27575beffff88a695d0135 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(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))))
|
