>>444 ｺﾞﾒｿ
char-list-to-string は標準じゃなかった。関数string-to-sjis-string
をこのように直したらどうでしょう？

(defun string-to-sjis-string (str)
"文字列をSJISにencodeしたバイト列に変換する"
(apply 'string ;; ←この行だけ違う
(flatten-list
(mapcar
(lambda (i)
(let ((val (encode-sjis-char i)))
(list (/ val 256) (% val 256))))
str))))