Return stringified multi-valued list

SpaceCompanies.org

@@ -21,7 +21,8 @@
           (elt-b nil)
           (elt-e nil)
           (elt nil)
-        (values '()))
+          (values '())
+          (values-str ""))
       (save-excursion
         (setq elt-b (search-forward-regexp (format ":%s\\+?:" prop) end t))
         (while elt-b
@@ -31,8 +32,10 @@
           (setq values (cons elt values))
           (setq elt-b (search-forward-regexp (format ":%s\\+?:" prop) end t)))
         )
-    values
+      (dolist (elt values values-str)
-    ))
+        (let ((sep (if (> (length values-str) 0) ", " "")   ))
+          (setq values-str (format "%s%s%s" values-str sep elt))
+          ))))
 
   (defun extract-company-data ()
     (let* ((cur-point (point))
@@ -78,6 +81,9 @@
     )
 #+end_src
 
+#+RESULTS: export_block
+: t
+
 * Terms
 - SBIR
 - STTR