Function: STRCAT*

Documentation

Concatenate all the strings in STRING-DESIGNATORS.

Source

(defun strcat* (string-designators)
  "Concatenate all the strings in STRING-DESIGNATORS."
  (with-output-to-string (strcat)
    (dotree (s string-designators)
      (princ s strcat))))