From fb0b2d79315da5b2477507ff128f15855e19ab54 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 18 Nov 1990 17:00:48 +0000 Subject: [PATCH] Replaced use of alloc-g-vector with a call to make-array. --- code/defstruct.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/defstruct.lisp b/code/defstruct.lisp index 36ffcdb46..708457b24 100644 --- a/code/defstruct.lisp +++ b/code/defstruct.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.16 1990/10/17 03:47:59 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.17 1990/11/18 17:00:48 wlott Exp $ ;;; ;;; Defstruct structure definition package (Mark II). ;;; Written by Skef Wholey and Rob MacLachlan. @@ -414,7 +414,7 @@ (let ((len (dd-length info))) (declare (fixnum len)) (do ((i 1 (1+ i)) - (res (structurify (%primitive alloc-g-vector len nil)))) + (res (structurify (make-array len :element-type t)))) ((= i len) (setf (structure-ref res 0) (dd-name info)) res) -- GitLab