@verb #9090:"getrid" none none none rxdo #7446
@program #9090:"getrid" none none none
if (#-1 in this.p)
  blah = #-1 in this.p
  this.p = listdelete(this.p, blah)
  this.ps = listdelete(this.ps, blah)
endif
"Last modified by James (#6397) on Fri Mar  6 21:57:13 1998 EST."
.