From f869bb5be30c6bf59adeeeb2a948f97fbe6c88de Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 10 Jun 2012 11:39:24 +0200 Subject: [PATCH] New functions ecl_nvalues() and ecl_nth_value() --- src/h/stacks.h | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/h/stacks.h b/src/h/stacks.h index e91c4bb05..060cd4505 100755 --- a/src/h/stacks.h +++ b/src/h/stacks.h @@ -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) \