/** Return a plist which has no value stored for INDICATOR in PLIST */
public final SubLList remf(SubLObject indicator) {
// @todo get rid of duplication with conses_high...this version shoul prevail
// @todo hand optimize this code
SubLObject back = SubLNil.NIL;
SubLObject next = SubLNil.NIL;
SubLObject key = SubLNil.NIL;
for (back = SubLNil.NIL, next = this, key = ConsesLow.car(next);
(SubLNil.NIL == Types.sublisp_null(next));
back = ConsesLow.cdr(next), next = next.rest().rest(), key = ConsesLow.car(next)) {
if ((indicator == key)) {
if ((SubLNil.NIL != back)) {
ConsesLow.rplacd(back, next.rest().rest());
return this;
} else {
return next.rest().rest().toList();
}
}
}
return this;
}
/** Replace the last cdr of NON-EMPTY-LIST with NEW-LAST-CDR */
@SubL(source = "cycl/subl-macros.lisp", position = 27221)
public static final SubLObject rplacd_last(SubLObject non_empty_list, SubLObject new_last_cdr) {
return ConsesLow.rplacd(conses_high.last(non_empty_list, UNPROVIDED), new_last_cdr);
}