Optimize some comparison functions for EQ cases.

[sbcl.git] / src / code / target-char.lisp

diff --git a/src/code/target-char.lisp b/src/code/target-char.lisp
index 55b4bcc..0994977 100644 (file)
--- a/src/code/target-char.lisp
+++ b/src/code/target-char.lisp
@@ -518,7 +518,8 @@ is either numeric or alphabetic."
           (char-code ,ch)))))
 
 (defun two-arg-char-equal (c1 c2)
-  (= (equal-char-code c1) (equal-char-code c2)))
+  (or (eq c1 c2)
+      (= (equal-char-code c1) (equal-char-code c2))))
 
 (defun char-equal (character &rest more-characters)
   #!+sb-doc