/[cmucl]/src/code/defstruct.lisp
ViewVC logotype

Diff of /src/code/defstruct.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50 by ram, Fri Jul 30 12:08:41 1993 UTC revision 1.51 by ram, Tue Aug 3 07:36:57 1993 UTC
# Line 546  Line 546 
546               (unless (dd-raw-index defstruct)               (unless (dd-raw-index defstruct)
547                 (setf (dd-raw-index defstruct) (dd-length defstruct))                 (setf (dd-raw-index defstruct) (dd-length defstruct))
548                 (incf (dd-length defstruct)))                 (incf (dd-length defstruct)))
549               (let ((off (rem (dd-length defstruct) words)))               (let ((off (rem (dd-raw-length defstruct) words)))
550                 (unless (zerop off)                 (unless (zerop off)
551                   (incf (dd-raw-length defstruct) (- words off))))                   (incf (dd-raw-length defstruct) (- words off))))
552               (setf (dsd-raw-type dsd) raw-type)               (setf (dsd-raw-type dsd) raw-type)

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

  ViewVC Help
Powered by ViewVC 1.1.5