Mapping-example.lisp

;; list to string

CL-USER>  (map 'string (lambda (x) (char (write-to-string x) 0)) '(1 2 3))
"123"


;; string to list

CL-USER> (map 'list (lambda (x) (intern (string-upcase (string x)))) "lisp")
(L I S P)


;; list to vector

CL-USER> (map 'vector (lambda (x) x) '( 1 2 3))
#(1 2 3)


;; vector to list

CL-USER> (map 'list (lambda (x) x) #(1 2 3))
(1 2 3)


;; list to a-list

CL-USER> (map 'list (lambda (x)  (cons (car x) (cadr x))) '((1 "one") (2 "two")))
((1 . "one") (2 . "two"))our code here