Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • gerd's avatar
    6a5af507
    MOP bug fix for problem with (SETF SLOT-VALUE-USING-CLASS) · 6a5af507
    gerd authored
    	reported by Kevin Rosenberg <kevin@rosenberg.net> on cmucl-imp,
    	Tue, 22 Apr 2003 13:28:23 -0600.  There's a test case in
    	the thread on cmucl-imp.
    
    	* src/pcl/methods.lisp (update-slot-value-gf-info):
    	Moved here from slots-boot.lisp.
    	(get-accessor-method-function): Don't pass nil wrappers
    	to get-secondary-dispatch-function.  See comment there.
    	(update-gf-dfun): Remove unused code.
    
    	* src/pcl/slots-boot.lisp (get-accessor-from-svuc-method-function):
    	Move to methods.lisp, where it's used.
    
    	* src/pcl/std-class.lisp (compute-slot-accessor-info): Add
    	comment.
    
    	Code cleanup.
    
    	* src/pcl/std-class.lisp (compute-default-initargs): Don't use a
    	recursive local function for something that can be done with loop
    	in 2 lines.
    6a5af507
    History
    MOP bug fix for problem with (SETF SLOT-VALUE-USING-CLASS)
    gerd authored
    	reported by Kevin Rosenberg <kevin@rosenberg.net> on cmucl-imp,
    	Tue, 22 Apr 2003 13:28:23 -0600.  There's a test case in
    	the thread on cmucl-imp.
    
    	* src/pcl/methods.lisp (update-slot-value-gf-info):
    	Moved here from slots-boot.lisp.
    	(get-accessor-method-function): Don't pass nil wrappers
    	to get-secondary-dispatch-function.  See comment there.
    	(update-gf-dfun): Remove unused code.
    
    	* src/pcl/slots-boot.lisp (get-accessor-from-svuc-method-function):
    	Move to methods.lisp, where it's used.
    
    	* src/pcl/std-class.lisp (compute-slot-accessor-info): Add
    	comment.
    
    	Code cleanup.
    
    	* src/pcl/std-class.lisp (compute-default-initargs): Don't use a
    	recursive local function for something that can be done with loop
    	in 2 lines.