[Openmcl-devel] should (concatenate (type-of "HTML") "HTML" "-DIRECTORY") work?

[Greg Pfeil]

On 21 Dec 2010, at 16:12, Stas Boukarev wrote:
> Karsten Poeck <karsten.poeck at gmail.com> writes:
> 
>> the following fails in clozure recent sources,
>> 
>> ? (let ((data-type-string (string :html)))
>>      (concatenate (type-of data-type-string) data-type-string "-DIRECTORY"))

> (type-of "HTML") => (SIMPLE-BASE-STRING 4), a string of length 4, but
> the result of your concatenation will be a string of length 14.

Replace TYPE-OF with CLASS-OF to get something a bit less restrictive.