Сохранение имен и описаний блоков в файл

(defun ru-block-save-all-names-and-decriptions (descr_file_name
                                                /
                                                file
                                                lst_names_descr
                                                descr
                                                name
                                               )
;;; (ru-block-save-all-names-and-decriptions)
  (if (setq lst_names_descr (ru-block-list-all-names-and-decriptions))
    (progn
      (setq
        file (open descr_file_name "w")
      ) ;_ end of setq
      (foreach block lst_names_descr
        (setq name  (car block)
              descr (cadr block)
        ) ;_ end of setq
        (if (not descr)
          (setq descr "")
        ) ;_ end of if
        (write-line
          (strcat name
                  "|"
                  (if (/= descr "")
                    descr
                    name
                  ) ;_ end of if
                  "|"
                  name
          ) ;_ end of strcat
          file
        ) ;_ end of write-line
      ) ;_ end of foreach
      (setq file (close file))
      descr_file_name
    ) ;_ end of progn
    NIL
  ) ;_ end of if
) ;_ end of defun