From 3f5e42cc9a9db6ddbbb90d130826ad6dd3b7d770 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 16 Nov 2011 13:20:39 +0000
Subject: 	* interp/category.boot (mkCategory): Tidy. 
 (SigListUnion): Likewise.  The last argument is not a vector buffer. 
 (JoinInner):  Use a vector buffer for scratch space to compute the 
 initial principal ancestor.  Simplify copy logic. 	* interp/g-util.boot
 (mkBuffer): New. 	(bufferData): New. 	(buffeLength): Likewise. 
 (resizeBuffer): Likewise. 	(bufferToVector): Likwise. 	*
 lisp/core.lisp.in (mkVector): New.  Export.

---
 src/lisp/core.lisp.in | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/lisp')

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 431894b5..948df067 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -149,6 +149,7 @@
 	   "makeByteArray"
 	   "makeBitVector"
 	   "makeString"
+	   "mkVector"
 	   "listToString"
 
            "%hasFeature"
@@ -1415,6 +1416,9 @@
 	(setq l (cdr l)))
     s))
 
+(defmacro |mkVector| (n)
+  `(make-array ,n :initial-element nil))
+
 ;; native data type translation table
 (defconstant |$NativeTypeTable|
   '((|void|    . @void_type@)
-- 
cgit v1.2.3