Lisp以点表的方式读写文件函数

(defun readini(path / lst file path)
    (setq lst (read (read-line (setq file (open path "r")))))
    (close file)
    lst
)
(defun writeini(path lst)
    (setq file (open path "w"))
    (write-line (vl-prin1-to-string lst) file)
    (close file)
    (prin1)
)
(defun getini(dlst key) (cdr (assoc key dlst)))
(defun setini(dlst key value / lst old)
    (if (setq old (assoc key dlst))
        (setq lst (subst (cons key value) old dlst))
        (setq lst (cons (cons key value) dlst))
    )
    lst
)
(defun makeconfile(path lst)
    (if (findfile path)
        (setq datalst (readini path))
        (writeini path lst)
    )
    (prin1)
)