Я во все тонкости loop пока не въехал, просто спрашиваю у знатоков

🤷‍♂

Я бы в хеш таблицу положил и просто дёргал поля

Ну конкретно в этом случае вполне можно и так. Но мне интересно "в общем" работа с данными - это пожалуй 70% времени писания программы.

А списки (и пары), я смотрю, крайне универсальная тема. В них можно впихнуть невпихуёмое. Поэтому интересно кто как наловчился ими жонглировать

Зависит от того в каком списке json. plist или alist. Если alist, то используют assoc.

Ну и небольшую обёртку, если вложенность большая.

По крайней мере, я так делаю. 😁

assoc да, но если вложенность большая? Под небольшой оберткой - это рекурсивно обходить все сравнивать? )

Просто думал может есть чего в коммонлисповом стандарте, не зря же там более 1.5к функций ))

я через assoc делал когда игрался несколько лет назад

А сейчас?

а сейчас этот код не работает, но когда я к нему вернусь, так и будет

cl-json выдает alist

(defun get-v (json &rest path)
 (loop
    for k in path
    for test = (etypecase k
   (string #'string=)
   (keyword #'eql))
    for v = (cdr (assoc k json :test test)) then (cdr (assoc k v :test test))
    while v
    finally (return v)))

(defun (setf get-v) (new json &rest path)
 (loop
    for k in path
    for test = (etypecase k
   (string #'string=)
   (keyword #'eql))
    for v = (let ((v (assoc k json :test test)))
       (unless v
  (rplacd json (cons (car json) (cdr json)))
  (rplaca json (cons k nil)))
       (assoc k json :test test))
    then (let ((v* (assoc k (cdr v) :test test)))
    (unless v*
      (push (cons k nil) (cdr v)))
    (assoc k (cdr v) :test test))
    finally (progn
       (setf (cdr v) new)
       (return json))))

впрочем, в plist он тоже умеет и местами было plist удобнее

И вот так можно использовать (get-v json :x :y).

читать - alist, а писать лично мне было иногда удобнее plist, вот

О, норм тема. Ща разберу loop