Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • gerd's avatar
    3bbc7259
    Structure slot names can be any symbol. Found by Paul Dietz. · 3bbc7259
    gerd authored
    	* src/pcl/std-class.lisp (*allow-funny-slot-names*): Renamed
    	from *allow-keyword-slot-names*.
    
    	* src/pcl/methods.lisp (legal-slot-name-p): Allow any symbol
    	if *allow-funny-slot-names* is true.
    	(shared-initialize): Print the value of the :slot-name initarg.
    
    	* src/code/defstruct.lisp (parse-1-dsd): Treat nil as symbol
    	when used as a slot name.
    3bbc7259
    History
    Structure slot names can be any symbol. Found by Paul Dietz.
    gerd authored
    	* src/pcl/std-class.lisp (*allow-funny-slot-names*): Renamed
    	from *allow-keyword-slot-names*.
    
    	* src/pcl/methods.lisp (legal-slot-name-p): Allow any symbol
    	if *allow-funny-slot-names* is true.
    	(shared-initialize): Print the value of the :slot-name initarg.
    
    	* src/code/defstruct.lisp (parse-1-dsd): Treat nil as symbol
    	when used as a slot name.