Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • gerd's avatar
    3279c041
    Update CLOS STRUCTURE-CLASSes on structure changes. · 3279c041
    gerd authored
    	* pcl/braid.lisp (ensure-non-standard-class): Add optional
    	parameter existing-class.
    	(reinitialize-structure-class): New function.
    	(toplevel): Push it on kernel::*defstruct-hooks*.
    
    	* code/defstruct.lisp (*defstruct-hooks*): New variable.
    	(%defstruct): Call these hooks.
    
    	* tools/pclcom.lisp (find-package): Remove
    	pcl::reinitialize-structure-class from kernel::*defstruct-hooks*.
    3279c041
    History
    Update CLOS STRUCTURE-CLASSes on structure changes.
    gerd authored
    	* pcl/braid.lisp (ensure-non-standard-class): Add optional
    	parameter existing-class.
    	(reinitialize-structure-class): New function.
    	(toplevel): Push it on kernel::*defstruct-hooks*.
    
    	* code/defstruct.lisp (*defstruct-hooks*): New variable.
    	(%defstruct): Call these hooks.
    
    	* tools/pclcom.lisp (find-package): Remove
    	pcl::reinitialize-structure-class from kernel::*defstruct-hooks*.