mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-16 22:32:05 -08:00
47 lines
1 KiB
D
47 lines
1 KiB
D
/*
|
|
multival.c -- Multiple Values.
|
|
*/
|
|
/*
|
|
Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya.
|
|
Copyright (c) 1990, Giuseppe Attardi.
|
|
|
|
ECoLisp is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2 of the License, or (at your option) any later version.
|
|
|
|
See file '../Copyright' for full details.
|
|
*/
|
|
|
|
|
|
#include "ecl.h"
|
|
|
|
@(defun values (&rest args)
|
|
int i;
|
|
@
|
|
/* INV: the number of arguments never exceeds VSSIZE */
|
|
NValues = narg;
|
|
if (narg == 0)
|
|
VALUES(0) = Cnil;
|
|
else for (i = 0; i < narg; i++)
|
|
VALUES(i) = cl_va_arg(args);
|
|
returnn(VALUES(0));
|
|
@)
|
|
|
|
cl_object
|
|
cl_values_list(cl_object list)
|
|
{
|
|
VALUES(0) = Cnil;
|
|
for (NValues=0; !endp(list); list=CDR(list)) {
|
|
if (NValues == VSSIZE)
|
|
FEerror("Too many values in VALUES-LIST",0);
|
|
VALUES(NValues++) = CAR(list);
|
|
}
|
|
returnn(VALUES(0));
|
|
}
|
|
|
|
void
|
|
init_multival(void)
|
|
{
|
|
SYM_VAL(@'MULTIPLE-VALUES-LIMIT') = MAKE_FIXNUM(32);
|
|
}
|