Changeset 12030


Ignore:
Timestamp:
May 11, 2009, 3:26:28 PM (10 years ago)
Author:
gz
Message:

r12026 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-typesys.lisp

    r11680 r12030  
    111111         (remhash name %deftype-expanders%))
    112112        ((and *type-system-initialized*
    113               (or (built-in-type-p name) (find-class name nil)))
     113              (or (built-in-type-p name)
     114                  (let ((c (find-class name nil)))
     115                    (and c (eq (class-name c) name)))))
    114116         (error "Cannot redefine type ~S" name))
    115117        (t (setf (gethash name %deftype-expanders%) fn)
Note: See TracChangeset for help on using the changeset viewer.