Skip to content
Snippets Groups Projects
Commit 6a5af507 authored by gerd's avatar gerd
Browse files

MOP bug fix for problem with (SETF SLOT-VALUE-USING-CLASS)

	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.
parent 810b55df
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment