From 38cb221455c1dbbefe18f5009a91fd3369955dc4 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Fri, 10 Nov 2006 21:01:09 +0000
Subject: [PATCH] Extended strings were not properly hashed.

---
 src/c/hash.d | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/c/hash.d b/src/c/hash.d
index 6371ad83f..010bcc819 100644
--- a/src/c/hash.d
+++ b/src/c/hash.d
@@ -222,6 +222,9 @@ _hash_equalp(int depth, cl_hashkey h, cl_object x)
 		}
 		h = _hash_equalp(depth, h, CAR(x));
 		return _hash_equalp(depth, h, CDR(x));
+#ifdef ECL_UNICODE
+	case t_string:
+#endif
 	case t_base_string:
 	case t_vector:
 	case t_bitvector: