Subject: Re: Adding a charcter to the end of a string.
From: Erik Naggum <>
Date: 31 Oct 2000 20:32:01 +0000
Newsgroups: comp.lang.lisp
Message-ID: <>

* John Clonts <>
| But I have a different question:  How to "coerce" a list of symbols
| to append them into a string:

  By not getting into this fix to begin with.  (Why are they symbols?)

|    (setf aa '(a bc de f))
|    (list-of-symbols-to-string aa)  ==> "abcdef"
| This is how I did it:
|    (defun list-of-symbols-to-string (list)
|       (apply #'concat-strings (mapcar #'string list)))
|    (defun concat-strings (&rest r)
|       (eval (append '(concatenate 'string ) r)))
| But I really wanted to do without the eval, rather something like:
|    (defun concat-strings (&rest r)
|       (concatenate 'string @r))

(apply #'concatenate 'string (mapcar #'string list))

  If you have a Scheme background (where apply takes two arguments),
  you could have consed 'string onto the list of arguments, too.

  Does anyone remember where I parked Air Force One?
                                   -- George W. Bush