Re: Surprising behaviour of 'append' with strings

[Michael Heerdegen <michael_heerdegen@web.de>]

"R. Diez" <rdiezmail-emacs@yahoo.de> writes:

> I need a routine like this:
>
> (my-append
>   "1"
>   (list "2" "3")
>   "4"
> )
>
> The result should be:
>  ("1" "2" "3" "4")

(defun my-append (&rest args)
  (cl-mapcan (lambda (x) (if (consp x) x (list x)))
             args))

> As a bonus, 'my-append' should check that all elements are strings, or
> list of strings (no nested lists, and no other data types).

Use `cl-every' on the result of `my-append' with a `stringp' predicate.

Michael.