Changeset 179

Timestamp:

Jan 3, 2004, 11:40:25 AM (21 years ago)

Author:

Gary Byers

Message:

Add a VALIDATE-SUPERCLASS method for (FOREIGN-CLASS STANDARD-CLASS), just
in case.

File:

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

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

@@ -370 +370 @@
                  (eq class-of-super *standard-class-class*))))))
 
+(defmethod validate-superclass ((class foreign-class) (super standard-class))
+  t)
+
 (defmethod validate-superclass ((class std-class) (super forward-referenced-class))
   t)