updated defgeneric for lispworks