Skip to content
  • gerd's avatar
    Name local functions (FLET ...) or (LABELS ...). · cf3f726a
    gerd authored
    	* 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.
    cf3f726a