modify mpd.lisp to support CCL