Re: how to concatenate symbols

+ "cadence" <jimka@xxxxxxxxx>:

| Here is my attempt. Is there an better way?
|
| (defun concat (list)
| (intern (apply 'concatenate 'string (mapcar 'symbol-name list))
| (find-package :keyword)))

No need for find-package. :keyword on its own is a valid package
designator (see also Pascal Costanza's solution).

--
* Harald Hanche-Olsen <URL:http://www.math.ntnu.no/~hanche/>
- It is undesirable to believe a proposition
when there is no ground whatsoever for supposing it is true.
-- Bertrand Russell
.