Index: src/org/armedbear/lisp/compiler-pass2.lisp
===================================================================
--- src/org/armedbear/lisp/compiler-pass2.lisp	(revision 14070)
+++ src/org/armedbear/lisp/compiler-pass2.lisp	(working copy)
@@ -2665,7 +2665,7 @@
         (t result)))))
 
 (defun p2-test-char= (form success-label failure-label)
-  (when (check-arg-count form 2)
+  (when (= (length form) 3)
     (let* ((arg1 (%cadr form))
            (arg2 (%caddr form)))
       (with-operand-accumulation