Skip to content
Snippets Groups Projects
Commit 650f1620 authored by gerd's avatar gerd
Browse files

Make classes FIND-CLASSable early, for MOP programming,

	and for compatibility with other Lisps.

	* pcl/std-class.lisp (update-class): (setf find-class) here.
	(shared-initialize) <:after std-class>: Call update-class
	after setting the class predicate.

	Make ENSURE-CLASS-USING-CLASS AMOP compliant.

	* pcl/std-class.lisp (ensure-class, ensure-class-using-class)
	(ensure-class-using-class): Exchange first and second arg for AMOP
	compliance.

	* pcl/generic-functions.lisp (ensure-non-standard-class):
	Likewise.

	* pcl/braid.lisp (ensure-non-standard-class): Likewise.
parent b160e18f
No related branches found
No related tags found
No related merge requests found
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