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

Name local functions (FLET ...) or (LABELS ...).

	* compiler/ir1tran.lisp (*current-function-names*): New variable.
	(find-lexically-apparent-function): Use lexenv-find-function.
	(ir1-convert): Likewise.
	(ir1-convert-lambda): Bind *current-function-names*.
	(do-macrolet-stuff): Likewise.
	(extract-flet-variables): Determine function name from
	(%cleanup-function): Use lexenv-find-function.

	* compiler/main.lisp (compile): Bind *current-function-names*.

	* compiler/macros.lisp (lexenv-find-function): New function.

	* code/fdefinition.lisp (flet, labels): Define function names.

	* pcl/walk.lisp (environment-function): Activate code for
	handling flet/labels function names.
parent 3117b53d
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