Commit 38be7bc0 authored by Jean-Claude Beaudoin's avatar Jean-Claude Beaudoin
Browse files

Remove uses of &aux from .d files.

parent bdc7ce0e
......@@ -5190,8 +5190,8 @@ mkcl_open_stream(MKCL, mkcl_object fn, enum mkcl_smmode smm,
(if_exists mk_cl_Cnil iesp)
(if_does_not_exist mk_cl_Cnil idnesp)
(external_format @':default')
(stdio_stream mk_cl_Ct)
&aux strm)
(stdio_stream mk_cl_Ct))
mkcl_object strm = mk_cl_Cnil;
enum mkcl_smmode smm;
int flags = 0;
@
......
......@@ -470,8 +470,9 @@ mkcl_last(MKCL, mkcl_object l, mkcl_index n)
{ @(return mkcl_last(env, l, mkcl_integer_to_index(env, k))); }
@)
@(defun make_list (size &key initial_element &aux x)
mkcl_word i;
@(defun make_list (size &key initial_element)
mkcl_word i;
mkcl_object x = mk_cl_Cnil;
@
/* INV: mkcl_integer_to_index() signals a type-error if SIZE is not a integer >=0 */
i = mkcl_integer_to_index(env, size);
......
......@@ -542,8 +542,13 @@ mk_si_load_source(MKCL, mkcl_object source, mkcl_object verbose, mkcl_object pri
(print mkcl_symbol_value(env, @'*load-print*'))
(if_does_not_exist @':error')
(external_format @':default')
(search_list mkcl_symbol_value(env, @'si::*load-search-list*'))
&aux pathname pntype hooks filename function ok)
(search_list mkcl_symbol_value(env, @'si::*load-search-list*')))
mkcl_object pathname = mk_cl_Cnil;
mkcl_object pntype = mk_cl_Cnil;
mkcl_object hooks = mk_cl_Cnil;
mkcl_object filename = mk_cl_Cnil;
mkcl_object function = mk_cl_Cnil;
mkcl_object ok = mk_cl_Cnil;
bool not_a_filename = 0;
@
ok = mk_cl_Cnil;
......
......@@ -391,7 +391,8 @@ mkcl_number_compare(MKCL, mkcl_object x, mkcl_object y)
}
}
@(defun /= (&rest nums &aux numi)
@(defun /= (&rest nums)
mkcl_object numi = mk_cl_Cnil;
int i, j;
@
if (narg == 0)
......
......@@ -1096,7 +1096,8 @@ mk_cl_list_all_packages(MKCL)
@(return packages);
}
@(defun intern (strng &optional (p mkcl_current_package(env)) &aux sym)
@(defun intern (strng &optional (p mkcl_current_package(env)))
mkcl_object sym = mk_cl_Cnil;
int intern_flag;
@
sym = mkcl_intern(env, strng, p, &intern_flag);
......
......@@ -1352,8 +1352,8 @@ mk_cl_namestring(MKCL, mkcl_object x)
@(defun parse_namestring (thing
&o host (defaults mk_si_default_pathname_defaults(env))
&k (start MKCL_MAKE_FIXNUM(0)) end junk_allowed
&a output)
&k (start MKCL_MAKE_FIXNUM(0)) end junk_allowed)
mkcl_object output = mk_cl_Cnil;
mkcl_index s, e, ee;
@
if (host != mk_cl_Cnil) {
......@@ -1454,8 +1454,8 @@ mk_cl_namestring(MKCL, mkcl_object x)
@(defun make_pathname (&key (host MKCL_OBJNULL) (device MKCL_OBJNULL) (directory MKCL_OBJNULL)
(name MKCL_OBJNULL) (type MKCL_OBJNULL) (version MKCL_OBJNULL)
((:case scase) @':local')
defaults
&aux x)
defaults)
mkcl_object x = mk_cl_Cnil;
@
bool logical = FALSE;
bool verbatim = MKCL_EQ(scase, @':common') ? FALSE : TRUE;
......
......@@ -1843,8 +1843,8 @@ do_read_delimited_list(MKCL, int d, mkcl_object in, bool proper_list)
&key (start MKCL_MAKE_FIXNUM(0))
end
(radix MKCL_MAKE_FIXNUM(10))
junk_allowed
&aux x)
junk_allowed)
mkcl_object x = mk_cl_Cnil;
mkcl_index s, e, ep;
mkcl_object rtbl = mkcl_current_readtable(env);
@
......
......@@ -130,7 +130,8 @@ mkcl_elt_set(MKCL, mkcl_object seq, mkcl_word index, mkcl_object val)
mkcl_FEtype_error_seq_index(env, seq, MKCL_MAKE_FIXNUM(index));
}
@(defun subseq (sequence start &optional end &aux x)
@(defun subseq (sequence start &optional end)
mkcl_object x = mk_cl_Cnil;
mkcl_word s, e;
mkcl_word i;
@
......
......@@ -340,7 +340,8 @@ mk_cl_symbol_name(MKCL, mkcl_object x)
@(return mkcl_symbol_name(env, x));
}
@(defun copy_symbol (sym &optional cp &aux x)
@(defun copy_symbol (sym &optional cp)
mkcl_object x = mk_cl_Cnil;
@
if (mkcl_Null(sym))
sym = mk_cl_Cnil_symbol;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment