-
- Downloads
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.
Showing
- code/fdefinition.lisp 6 additions, 1 deletioncode/fdefinition.lisp
- compiler/ir1tran.lisp 51 additions, 28 deletionscompiler/ir1tran.lisp
- compiler/macros.lisp 14 additions, 1 deletioncompiler/macros.lisp
- compiler/main.lisp 3 additions, 2 deletionscompiler/main.lisp
- general-info/release-19a.txt 4 additions, 0 deletionsgeneral-info/release-19a.txt
- pcl/walk.lisp 1 addition, 10 deletionspcl/walk.lisp
Loading
Please register or sign in to comment