Changeset 12027 for release


Ignore:
Timestamp:
May 9, 2009, 8:51:16 PM (10 years ago)
Author:
gb
Message:

r12026 to 1.3.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.3/source/level-1/l1-typesys.lisp

    r11665 r12027  
    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.