Конвертирование списка в список строк

(defun ru-conv-list-to-string-list (lsp / res s)
    ;;преобразуем лисп-список в список строк
  ;;(ru-conv-list-to-string-list (entget (entlast)))
  ;;(ru-conv-list-to-string-list (list "Первый" "Второй" "Третий"))
  ;;("(" "1" "2" "3" "4" "5" ")")
  ;; Странная форма...Надо было для вывода списка свойств в диалог.
  ;; скорее всего надо выбросить эту функцию
    (setq res '("("))
    (if	(listp lsp)
      (foreach x lsp
	(if (setq s (vl-princ-to-string  x))
	  (setq res (cons s res))
	  (setq res (cons "ОШИБКА ПРЕОБРАЗОВАНИЯ" res))
	) ;_ end of if
      ) ;_ end of foreach
      (setq res (cons lsp res))
    ) ;_ end of if
     (setq res (cons ")" res))
    (reverse res)
  )