From 5eeac5bae4ef3319720a8daf2af8f3e726dc11a4 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sat, 6 Jan 2007 16:29:10 +0000
Subject: [PATCH] Cannot displace arrays with element type T onto arbitrary
 memory pointed by a foreign pointer

---
 src/c/array.d | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/c/array.d b/src/c/array.d
index 993b0ce72..b1475e3d6 100644
--- a/src/c/array.d
+++ b/src/c/array.d
@@ -613,8 +613,8 @@ displace(cl_object from, cl_object to, cl_object offset)
 	cl_elttype totype, fromtype;
 	fromtype = array_elttype(from);
 	if (type_of(to) == t_foreign) {
-		if (fromtype == aet_bit) {
-			FEerror("Cannot displace bit vectors onto foreign data",0);
+		if (fromtype == aet_bit || fromtype == aet_object) {
+			FEerror("Cannot displace arrays with element type T or BIT onto foreign data",0);
 		}
 		base = to->foreign.data;
 		j = ecl_fixnum_in_range(@'adjust-array',"array displacement", offset,