Changeset 302

Timestamp:

Jan 15, 2004, 12:32:41 AM (21 years ago)

Author:

Gary Byers

Message:

MAKE-INSTANCES-OBSOLETE: methods return class.

File:

• trunk/ccl/level-1/l1-clos-boot.lisp (modified) (2 diffs)

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

@@ -2435 +2435 @@
     (when wrapper
       (setf (%class.own-wrapper class) nil)
-      (make-wrapper-obsolete wrapper))))
+      (make-wrapper-obsolete wrapper)))
+  class)
 
 (defmethod make-instances-obsolete ((class funcallable-standard-class))
@@ -2441 +2442 @@
     (when wrapper
       (setf (%class.own-wrapper class) nil)
-      (make-wrapper-obsolete wrapper))))
-
-(defmethod make-instances-obsolete ((class structure-class)))
+      (make-wrapper-obsolete wrapper)))
+  class)
+
+(defmethod make-instances-obsolete ((class structure-class))
+  ;; could maybe warn that instances are obsolete, but there's not
+  ;; much that we can do about that.
+  class)