fix bug when using lispworks