Changeset 412

Timestamp:

Jan 26, 2004, 4:09:33 AM (21 years ago)

Author:

Gary Byers

Message:

Kinder, gentler %SHARED-INITIALIZE uses INSTANCE-CLASS-WRAPPER.

File:

• trunk/ccl/level-1/l1-clos.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-clos.lisp

@@ -62 +62 @@
   ;; an obscure way to do so.)
   (destructuring-bind (&key &allow-other-keys) initargs)
-  (let* ((wrapper (instance.class-wrapper instance))
+  (let* ((wrapper (instance-class-wrapper instance))
          (class (%wrapper-class wrapper)))
     (when (eql 0 (%wrapper-hash-index wrapper)) ; obsolete
       (update-obsolete-instance instance)
-      (setq wrapper (instance.class-wrapper instance)))
+      (setq wrapper (instance-class-wrapper instance)))
     (dolist (slotd (%class-slots class))
       (let* ((loc (%slot-definition-location slotd)))
-        (unless loc (error "Blew it! no location for ~s" slotd))
         (multiple-value-bind (ignore new-value foundp)
             (get-properties initargs