Changeset 7746

Timestamp:

Nov 24, 2007, 7:41:01 PM (17 years ago)

Author:

Gary Byers

Message:

fix handling of class cell in late SET-FIND-CLASS.

File:

• branches/working-0711/ccl/level-1/l1-clos-boot.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-clos-boot.lisp

@@ -1279 +1279 @@
      (setq class (require-type class 'class))
      (when (built-in-type-p name)
-       (unless (eq (cdr cell) class)
+       (unless (eq (class-cell-class cell) class)
          (error "Cannot redefine built-in type name ~S" name)))
      (when (eq (%class.name class) name)