@Se7en: No worries, I've been up for 8 hours already ... so it wasn't "fair"
Anyhow, it's debatable if mine is "better" ... it's just shorter and only calls strcat once, though it calls cons where yours doesn't. What yours is doing though is adding spaces in front of all strings through the mapcar ... didn't know if the OP wanted this?
@coder: That's correct, mine simply concatenates the list together as is. To "incorporate" the adding of spaces to my code:
(alert (apply 'strcat (cons "\nYou have a list of strings :" (mapcar '(lambda (s) (strcat " " s)) lst))))