diff --git a/code/defstruct.lisp b/code/defstruct.lisp index 5245858ea2605dd3cbe2e05635fb479e928e956d..f70496e7de313508d874a2604804c8e00fcda1b4 100644 --- a/code/defstruct.lisp +++ b/code/defstruct.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.50 1993/07/30 12:08:41 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.51 1993/08/03 07:36:57 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -546,7 +546,7 @@ (unless (dd-raw-index defstruct) (setf (dd-raw-index defstruct) (dd-length defstruct)) (incf (dd-length defstruct))) - (let ((off (rem (dd-length defstruct) words))) + (let ((off (rem (dd-raw-length defstruct) words))) (unless (zerop off) (incf (dd-raw-length defstruct) (- words off)))) (setf (dsd-raw-type dsd) raw-type)