mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-17 06:42:18 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fix ecl_to_{u,}short.

Browse source
This commit is contained in:
Samium Gromoff 2009-08-06 14:35:34 +04:00 • committed by Juan Jose Garcia Ripoll
parent 9a0402d616
commit fe55f81cbe
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/h/external.h
View file

@ -987,9 +987,9 @@ extern ECL_API ecl_int16_t ecl_to_int16_t(cl_object o);
# define ecl_make_int16_t(i) MAKE_FIXNUM(i)
#endif /* ecl_uint16_t */
#define ecl_make_short(n) MAKE_FIXNUM(n)
#define ecl_to_short(x) (short)fixint(n)
#define ecl_to_short(n) (short)fixint(n)
#define ecl_make_ushort(n) MAKE_FIXNUM(n)
#define ecl_to_ushort(x) (unsigned short)fixnnint(n)
#define ecl_to_ushort(n) (unsigned short)fixnnint(n)
#ifdef ecl_uint32_t
# if FIXNUM_BITS == 32
# define ecl_to_uint32_t fixnnint