modify cd.lisp