Skip to content
Snippets Groups Projects
Commit 7081bed0 authored by wlott's avatar wlott
Browse files

Make-structure is exported from the kernel package, not the C package.

parent f5bff586
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.22 1990/12/19 02:34:22 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.23 1991/01/11 22:39:32 wlott Exp $
;;; ;;;
;;; Loader for Spice Lisp. ;;; Loader for Spice Lisp.
;;; Written by Skef Wholey and Rob MacLachlan. ;;; Written by Skef Wholey and Rob MacLachlan.
...@@ -475,12 +475,12 @@ ...@@ -475,12 +475,12 @@
(clone-fop (fop-struct 48) (clone-fop (fop-struct 48)
(fop-small-struct 49) (fop-small-struct 49)
(let* ((size (clone-arg)) (let* ((size (clone-arg))
(res (c:make-structure size))) (res (make-structure size)))
(declare (type index size)) (declare (type index size))
(do ((n (1- size) (1- n))) (do ((n (1- size) (1- n)))
((minusp n)) ((minusp n))
(declare (type (integer -1 #.most-positive-fixnum) n)) (declare (type (integer -1 #.most-positive-fixnum) n))
(setf (c::structure-ref res n) (pop-stack))) (setf (structure-ref res n) (pop-stack)))
res)) res))
(define-fop (fop-end-group 64 :nope) (throw 'group-end t)) (define-fop (fop-end-group 64 :nope) (throw 'group-end t))
......
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