Ignore:
Timestamp:
Jul 2, 2008, 12:48:36 AM (11 years ago)
Author:
gz
Message:

Propagate r9620 to trunk from working-0711

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r9844 r9879  
    24542454
    24552455(defmethod initialize-instance ((instance standard-object) &rest initargs)
    2456   (declare (dynamic-extent ini targs))
     2456  (declare (dynamic-extent initargs))
    24572457  (apply 'shared-initialize instance t initargs))
    24582458
     
    31053105         (new-object (allocate-instance new-class)))
    31063106    (declare (fixnum num-new-instance-slots)
    3107              (simple-vector new-instance-slots old-instance-slots))
     3107             (simple-vector new-instance-slots-vector old-instance-slots-vector))
    31083108    ;; Retain local slots shared between the new class and the old.
    31093109    (do* ((new-pos 0 (1+ new-pos))
    31103110          (new-slot-location 1 (1+ new-slot-location)))
    31113111         ((= new-pos num-new-instance-slots))
    3112       (declare (fixnum new-pos new-slot-vector-pos))
     3112      (declare (fixnum new-pos new-slot-location))
    31133113      (let* ((old-pos (position (svref new-instance-slots-vector new-pos)
    31143114                                old-instance-slots-vector :test #'eq)))
Note: See TracChangeset for help on using the changeset viewer.