reorganized for Lispworks