Skip to content
Snippets Groups Projects
Commit 7568b955 authored by gerd's avatar gerd
Browse files

* src/pcl/cache.lisp (dfun-arg-symbol, slot-vector-symbol):

	Use make-.variable..
	* src/pcl/ctor.lisp (make-instance->constructor-call)
	(slot-init-forms): Ditto.

	* src/pcl/low.lisp (make-.variable.): New function.

	* src/pcl/braid.lisp (ensure-non-standard-class): Remove ext:.
	* src/pcl/defclass.lisp (defclass): Ditto.
	* src/pcl/low.lisp (set-function-name): Ditto.

	* src/pcl/ctor.lisp (make-instance->constructor-call): Don't
	do the without-package-locks around the let-form.
	(install-optimized-constructor): Do it here.
	(slot-init-forms): Don't do it here.
parent 0fb0c5a9
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