mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-20 11:32:35 -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

16
src/c/num_comp.d
View file

@ -23,7 +23,7 @@
*/
@(defun all_the_same (num &rest nums)
@(defun = (num &rest nums)
int i;
cl_object numi;
@
@ -259,7 +259,7 @@ number_compare(cl_object x, cl_object y)
}
}
@(defun all_different (&rest nums)
@(defun /= (&rest nums)
int i, j;
va_list numb;
@
@ -281,14 +281,10 @@ number_compare(cl_object x, cl_object y)
{ va_list nums; va_start(nums, narg); \
return monotonic(i, j, narg, (cl_object *)nums); }
cl_object
@monotonically-nondecreasing MONOTONIC( 1, 0)
cl_object
@monotonically-nonincreasing MONOTONIC(-1, 0)
cl_object
@monotonically-increasing MONOTONIC( 1, 1)
cl_object
@monotonically-decreasing MONOTONIC(-1, 1)
cl_object @<= MONOTONIC( 1, 0)
cl_object @>= MONOTONIC(-1, 0)
cl_object @< MONOTONIC( 1, 1)
cl_object @> MONOTONIC(-1, 1)
cl_object
monotonic(int s, int t, int narg, cl_object *nums)