Forked from
cmucl / cmucl
Source project has a limited visibility.
-
ram authored
We give a note if we see a function related thing for a SETF name that has a SETF macro as well. This NOTE-IF-SETF-FUNCTION-AND-MACRO also is used in ir1tran. Changed DEFINE-FUNCTION-NAME to call the above, and also to check for redefining a slot accessor or alien operator. Added UNDEFINE-FUNCTION-NAME. Added UNDEFINE-STRUCTURE, which uses the previous. Structures are undefined whenever we change a structure or its supertypes, or whenever we redefine an accessor as some other kind of function. This causes a warning. Changed DEFSTRUCT to make the accessors WHERE-FROM :DECLARED rather than :DEFINED, since the stronger claim seems reasonable. Made %%COMPILER-DEFSTRUCT flame if we try to define a primitive type and warn if we redefine a DEFTYPE.
ram authoredWe give a note if we see a function related thing for a SETF name that has a SETF macro as well. This NOTE-IF-SETF-FUNCTION-AND-MACRO also is used in ir1tran. Changed DEFINE-FUNCTION-NAME to call the above, and also to check for redefining a slot accessor or alien operator. Added UNDEFINE-FUNCTION-NAME. Added UNDEFINE-STRUCTURE, which uses the previous. Structures are undefined whenever we change a structure or its supertypes, or whenever we redefine an accessor as some other kind of function. This causes a warning. Changed DEFSTRUCT to make the accessors WHERE-FROM :DECLARED rather than :DEFINED, since the stronger claim seems reasonable. Made %%COMPILER-DEFSTRUCT flame if we try to define a primitive type and warn if we redefine a DEFTYPE.