unicode handling, basic string to list

string-to-list.lisp

(defun string-to-list (string)
  (mapcar #'princ-to-string (coerce string 'list)))

;; (string-to-list "123🚘🚃🚅456")
;; > ("1" "2" "3" "🚘" "🚃" "🚅" "4" "5" "6")

;; and 

(defun list-to-string (list)
  (let ((result ""))
    (loop for x in list
	  do (setq result (concatenate 'string result x)))
    result))

;; CL-USER> (list-to-string (string-to-list "123🚘🚃🚅456"))
;; "123🚘🚃🚅456"

;; nicer; 

(defun concat (x y)
  (concatenate 'string x y))

(defun list-to-string2 (list)
  (reduce #'concat list))