From bc6ae2146ff089ea332c1832708087c4551e11f6 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 19 Aug 2008 10:27:06 +0000
Subject: [PATCH] Hash reader macros #n# and #n=# break with specialized arrays

---
 src/c/read.d | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/src/c/read.d b/src/c/read.d
index 180261d48..4db2da5a2 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -1173,22 +1173,22 @@ do_patch_sharp(cl_object x)
 		} while (CONSP(y));
 		break;
 	}
-	case t_vector: {
-		cl_index i;
-
-		for (i = 0;  i < x->vector.fillp;  i++)
-			x->vector.self.t[i] = do_patch_sharp(x->vector.self.t[i]);
+	case t_vector:
+		if (x->vector.elttype == aet_object) {
+			cl_index i;
+			for (i = 0;  i < x->vector.fillp;  i++)
+				x->vector.self.t[i] = do_patch_sharp(x->vector.self.t[i]);
+		}
 		break;
-	}
-	case t_array: {
-		cl_index i, j;
-
-		for (i = 0, j = 1;  i < x->array.rank;  i++)
-			j *= x->array.dims[i];
-		for (i = 0;  i < j;  i++)
-			x->array.self.t[i] = do_patch_sharp(x->array.self.t[i]);
+	case t_array:
+		if (x->vector.elttype == aet_object) {
+			cl_index i, j;
+			for (i = 0, j = 1;  i < x->array.rank;  i++)
+				j *= x->array.dims[i];
+			for (i = 0;  i < j;  i++)
+				x->array.self.t[i] = do_patch_sharp(x->array.self.t[i]);
+		}
 		break;
-	}
 	case t_complex: {
 		cl_object r = do_patch_sharp(x->complex.real);
 		cl_object i = do_patch_sharp(x->complex.imag);