emacs - utf-8 的 Emacs+Slime+CCL 文件加载问题

Question

今天刚切换到 emacs，正在使用您通过苹果商店获得的 ccl 应用程序。

当我尝试通过 Cc Cl 加载文件时，我得到以下信息：

While compiling UPDATE_BACK :
Bad lambda list : (SELECTOR &KEY |ȦÅ| |ȦǨ®| |ìÃë|
                   |ǵɨŤ| |È¡ÅÅ| |ÆÅ·ÇÆ|
                   |Žĸ­Å| |Ç«Å| ...)
[Condition of type CCL::COMPILE-TIME-PROGRAM-ERROR]

这似乎是一个编码问题，因为当我复制粘贴时 ccl 读取它非常好。

我已经将我的 ~/.emacs 设置为包括：

(set-language-environment "utf-8")

我究竟做错了什么？

ps 原文是日文（汉字和假名）；不确定我是否使用了错误的语言环境？

编辑：原始代码：

(defun update_back 
    (
    selector &key 
    a b c  
    ...
    )
    (setf *db*
        (mapcar
        #'(lambda (row)
            (when (funcall selector row)
                (if a               (setf (getf row :a) a))
                (if b               (setf (getf row :b) b))
                (if c               (setf (getf row :c) c))
                ...
            )
        row) *db*
        )
    )
)

其中 abc 被汉字/假名字符替换。