（XD::List->String）表转字符串

http://bbs.xdcad.net/thread-708902-1-1.html

程序代码：

(defun XD::List->String ( lst del )
    (if (cdr lst)
        (strcat (vl-princ-to-string (car lst)) del (XD::List->String (cdr lst) del))
        (vl-princ-to-string (car lst))
    )
)