Skip to content
Snippets Groups Projects
Commit 93379ab5 authored by gerd's avatar gerd
Browse files

Make DIRECT-SLOT-DEFINITION-CLASS and EFFECTIVE-SLOT-DEFINITION-CLASS

	AMOP compliant.  From Kevin Rosenberg on cmucl-imp 2003-04-29.

	* src/pcl/std-class.lisp (direct-slot-definition-class):
	(effective-slot-definition-class): Change methods accordingly.
	(make-direct-slotd): Apply direct-slot-definition-class to
	initargs instead of funcalling it.
	(compute-effective-slot-definition): Likewise for
	effective-slot-definition-class.

	* src/pcl/generic-functions.lisp (direct-slot-definition-class)
	(effective-slot-definition-class): Make initargs a &rest arg.
parent 257c3a31
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.
Finish editing this message first!
Please register or to comment