[slime-devel] define-common-lisp-style bug and fix