convert array to string

convert-array-to-string.l

(defun convert-array-to-string
  (a)
  (let* ((ret "")
         )
    (dotimes (i (length a))
      (cond ((= i 0)
             (setq ret (format nil "~a" (elt a i)))
             )
            (t
             (setq ret (format nil "~a, ~a" ret (elt a i)))
             ))
      )
    ret
    ))


;; (convert-array-to-string (float-vector 1 2 3))