From a76bc61825c1251eab384b5edc80f0d12b7946e4 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 10 Nov 1990 18:37:16 +0000
Subject: [PATCH] Changed %primitive allocate-vector and make-array-header to
 just a call to the magic function by the same name.

---
 code/array.lisp | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/code/array.lisp b/code/array.lisp
index b8e00a51e..725fee125 100644
--- a/code/array.lisp
+++ b/code/array.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/array.lisp,v 1.4 1990/10/03 09:55:22 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/array.lisp,v 1.5 1990/11/10 18:37:16 wlott Exp $
 ;;;
 ;;; Functions to implement arrays for CMU Common Lisp.
 ;;; Written by Skef Wholey.
@@ -129,17 +129,14 @@
 	  (declare (type (unsigned-byte 8) type)
 		   (type (integer 1 64) bits))
 	  (let* ((length (car dimensions))
-		 (array (%primitive
-			 allocate-vector
+		 (array (allocate-vector
 			 type
 			 length
-			 (the index
-			      (ceiling (* (if (= type
-						 vm:simple-string-type)
-					      (1+ length)
-					      length)
-					  bits)
-				       vm:word-bits)))))
+			 (ceiling (* (if (= type vm:simple-string-type)
+					 (1+ length)
+					 length)
+				     bits)
+				  vm:word-bits))))
 	    (declare (type index length))
 	    (when initial-element-p
 	      (fill array initial-element))
@@ -160,8 +157,7 @@
 			 (data-vector-from-inits
 			  dimensions total-size element-type
 			  initial-contents initial-element initial-element-p)))
-	       (array (%primitive
-		       make-array-header
+	       (array (make-array-header
 		       (cond ((= array-rank 1)
 			      (%complex-vector-type-code element-type))
 			     (simple vm:simple-array-type)
-- 
GitLab