From f5e4b6679796191cefa13a64af962e19f807cf58 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Mon, 6 Feb 2012 21:36:43 +0100
Subject: [PATCH] Rewrite vector-push-extend so that MSVC accepts it.

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

diff --git a/src/c/vector_push.d b/src/c/vector_push.d
index d4fb503c3..1ecb5ed5a 100644
--- a/src/c/vector_push.d
+++ b/src/c/vector_push.d
@@ -79,10 +79,12 @@ cl_vector_push(cl_object value, cl_object v)
 
 @(defun vector-push-extend (value v &optional (extent MAKE_FIXNUM(0)))
 @
+{
 	cl_index f = fix(cl_fill_pointer(v));
 	if (f >= v->vector.dim) {
 		v = extend_vector(v, ecl_to_size(extent));
 	}
 	ecl_aset1(v, v->vector.fillp, value);
 	@(return MAKE_FIXNUM(v->vector.fillp++));
+}
 @)