From a posting on comp.lang.lisp on 2007/07/10.
defun join-strings (strings &key (delimiter ","))
(collect-append 'string (spread #Z(0 . #0=(1 . #0#))
causes an infinite loop.
I think the infinite literal series is causing an infinite loop because the code for literal series is expecting a finite list.