mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-30 04:10:44 -08:00
Code Issues Projects Releases Packages Wiki Activity

Add a name mangler to the lisp runtime. Use this mangler in the compiler to

Browse source 
optimize access to symbols and functions which are defined in the C runtime.
This commit is contained in:
jjgarcia 2001-07-05 10:08:52 +00:00
parent 0dc4df6002
commit f2da18a591
27 changed files with 783 additions and 709 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/dpp.c
View file

@ -286,6 +286,8 @@ read_name(int is_symbol)
poolp--;
if (l > 2 && oneC && poolp[-1] == 'P')
poolp--;
if (poolp[-1] == '_')
poolp[-1] = 'M';
if (colon == NULL) {
char buf[256];
poolp[0] = buf[0] = '\0';