仅适用于整数:
- _$ (mapcar '(lambda ( x ) (if (= 'int (type (read x))) (strcat "'" x) x)) '("Titel01" "Titel02" "Titel03" "0000000" "1" "1" "justaword" "A. bC" "03-12-09"))
- ("Titel01" "Titel02" "Titel03" "'0000000" "'1" "'1" "justaword" "A. bC" "03-12-09")
对于以数字开头的项目:
- _$ (mapcar '(lambda ( x ) (if (< 47 (ascii x) 58) (strcat "'" x) x)) '("Titel01" "Titel02" "Titel03" "0000000" "1" "1" "justaword" "A. bC" "03-12-09"))
- ("Titel01" "Titel02" "Titel03" "'0000000" "'1" "'1" "justaword" "A. bC" "'03-12-09")
|