mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 22:32:05 -08:00
Code Issues Projects Releases Packages Wiki Activity

New functions ecl_nvalues() and ecl_nth_value()

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-06-10 11:39:24 +02:00
parent 412a56efec
commit f869bb5be3
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/h/stacks.h
View file

@ -289,6 +289,8 @@ extern ECL_API ecl_frame_ptr _ecl_frs_push(register cl_env_ptr, register cl_obje
#define return0() return ((NVALUES = 0),Cnil)
#define return1(x) return ((VALUES(0)=(x)),(NVALUES=1),VALUES(0))
#define returnn(x) return x
#define ecl_nth_value(env,n) ((env)->values[n])
#define ecl_nvalues(env) ((env)->nvalues)
#define ecl_return0(env) \
do { (env)->nvalues = 0; return Cnil; } while (0)
#define ecl_return1(env,x) \