From 2e1ba7a9e99bbd14e1f4ced62feb7f1ebfab723a Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sat, 29 Aug 2009 18:59:12 +0200
Subject: [PATCH] Replace a couple of uses of si_make_vector with
 ecl_alloc_simple_vector

---
 src/c/main.d    | 13 +------------
 src/c/num_log.d |  2 +-
 2 files changed, 2 insertions(+), 13 deletions(-)

diff --git a/src/c/main.d b/src/c/main.d
index 34186cdf7..bc1f4850d 100644
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -345,9 +345,7 @@ read_char_database()
 		if (!fseek(f, 0, SEEK_END)) {
 			size = ftell(f);
 			fseek(f, 0, SEEK_SET);
-			output = si_make_vector(@'ext::byte8', MAKE_FIXNUM(size),
-						Cnil, Cnil, Cnil, Cnil);
-	    
+			output = ecl_alloc_simple_vector(size, aet_b8);	    
 			read = 0;
 			while (read < size) {
 				cl_index res;
@@ -578,15 +576,6 @@ cl_boot(int argc, char **argv)
 	   a vector of weak pointers thanks to the magic in
 	   gbc.d/alloc_2.d */
 	cl_core.libraries = Cnil;
-#if 0
-	/* FINALIZERS and FINALIZABLE_OBJECTS are also like LIBRARIES */
-	cl_core.finalizable_objects = si_make_vector(@'t', MAKE_FIXNUM(512),
-						     @'t', MAKE_FIXNUM(0),
-						     @'nil', @'nil');
-	cl_core.finalizers = si_make_vector(@'t', MAKE_FIXNUM(512),
-					    @'t', MAKE_FIXNUM(0),
-					    @'nil', @'nil');
-#endif
 	cl_core.to_be_finalized = Cnil;
 	cl_core.bytes_consed = Cnil;
 	cl_core.gc_counter = Cnil;
diff --git a/src/c/num_log.d b/src/c/num_log.d
index 9377c2419..7d7c483b6 100644
--- a/src/c/num_log.d
+++ b/src/c/num_log.d
@@ -731,7 +731,7 @@ si_bit_array_op(cl_object o, cl_object x, cl_object y, cl_object r)
 		}
 	L1:
 		if (Null(r)) {
-			r = si_make_vector(@'bit', MAKE_FIXNUM(d), Cnil, Cnil, Cnil, Cnil);
+			r = ecl_alloc_simple_vector(d, aet_bit);
 		}
 	} else {
 		if (type_of(x) != t_array)