* eval.c (op_modplace): push replaced with mpush (mutating push).

* gc.c (gc_push): New function.

* gc.h (gc_push): Declared.

* hash.c (pushhash): Use mpush.

* lib.c (push): Reverted to unsafe operation. TODO comment replaced
with warning.
(lazy_flatten_scan): push occurence commented as safe.
(lazy_stream_func): Unsafe push replaced with mpush.

* lib.h (mpush): New macro.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 7ff81ae4..4a44c194 100644
--- a/eval.c
+++ b/eval.c
@@ -983,7 +983,7 @@ static val op_modplace(val form, val env)
     val inc = or2(eval(newform, env, form), one);
     return set(*loc,  minus(*loc, inc));
   } else if (op == push_s) {
-    return push(newval, loc);
+    return mpush(newval, *loc);
   } else if (op == pop_s) {
     if (third_arg_p)
       eval_error(form, lit("~a: superfluous argument"), op, place, nao);