Emacs+；粘液&x2B；带有utf-8的CCL文件加载问题

今天刚切换到emacs，正在使用通过apple store获得的ccl应用程序

当我尝试通过C-C-l加载文件时，我得到以下信息：

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

这似乎是一个编码问题，因为当我复制粘贴时，ccl可以很好地读取它

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

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

我做错了什么

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

编辑：原始代码：

(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*
        )
    )
)

---

其中一个BC被汉字/假名字符替换。

你能发布你试图加载的文件（或至少是文件的相关部分）吗？@tsikov用代码更新了帖子。我真的很困惑，因为解释器运行得很好。如果只启动CCL（不是Slime，不是Emacs）并发出

（加载文件）

，其中文件是坏文件的名称，会发生什么？@coredump它工作得很好。