LispWorks port (thanks to Edi Weitz)