_$ (_mapcar strcase '("a" "b" "c" "d" "e"))
("A" "B" "C" "D" . "E")
_$
(foo (car L))
to:(list (foo (car L)))
_$ (_mapcar strcase '("a" "b" "c" "d" "e"))
("A" "B" "C" "D" "E")
_$
_$ (_mapcar (lambda (x) (strcat (strcase x) (strcase x T))) '("a" "b" "c" "d" "e"))
("Aa" "Bb" "Cc" "Dd" "Ee")
_$
Hint: cond, null, atom.Thanks for the hint, MP !
Example:Code - Auto/Visual Lisp: [Select]
:wink:This is very cleverly written! Thanks, Lee! :yay!:Code - Auto/Visual Lisp: [Select]