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

From Leslie Polzer: %DEFTYPE checks for conflicts with proper class names.

File:
1 edited

Legend:

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

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