添加兼容性代码,修改dirotory-to-html宏为函数,宏的递归导致SBCL栈溢出,但是allegro cl却工作得很好