とりあえず整理だけ。変数名をc[ad]+rにしたのもいけなかったな… (defun nalist-to-plist (alist) (do* ((result (car alist)) (a alist next) (next #1=(cdr a) #1#)) ((null a) result) (let ((1st (car a)) (2nd a) (3rd (cadr a))) (setf (car 2nd) (cdr…