Skip to content
Snippets Groups Projects
Commit 95136b57 authored by wlott's avatar wlott
Browse files

Just call the magic function make-array-header instead of using %primitive.

parent d43064a0
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.16 1990/11/07 20:21:48 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.17 1990/11/19 05:06:59 wlott Exp $
;;; ;;;
;;; Loader for Spice Lisp. ;;; Loader for Spice Lisp.
;;; Written by Skef Wholey and Rob MacLachlan. ;;; Written by Skef Wholey and Rob MacLachlan.
...@@ -646,8 +646,9 @@ ...@@ -646,8 +646,9 @@
(let* ((rank (read-arg 4)) (let* ((rank (read-arg 4))
(vec (pop-stack)) (vec (pop-stack))
(length (length vec)) (length (length vec))
(res (%primitive make-array-header vm:simple-array-type rank))) (res (make-array-header vm:simple-array-type rank)))
(declare (simple-array vec)) (declare (simple-array vec)
(type (unsigned-byte 24) rank))
(set-array-header res vec length length 0 (set-array-header res vec length length 0
(do ((i rank (1- i)) (do ((i rank (1- i))
(dimensions () (cons (pop-stack) dimensions))) (dimensions () (cons (pop-stack) dimensions)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment