(DEFINE REMOVE (LAMBDA (S LIS)
,  (PROG (A B)
,  ,  (SETQ A (CONS NIL LIS))
,  ,  (SETQ B A)
,  ,  (REPEAT WHILE (CDR A)
,  ,  ,  (COND 
,  ,  ,  ,  ((EQUAL (CADR A) S)
,  ,  ,  ,  ,  (RPLACD A (CDR (CDR A)))
,  ,  ,  ,  ,,,)
,  ,  ,  ,,,)
,  ,  ,  (SETQ A (CDR A))
,  ,  ,,,)
,  ,  (RETURN (CDR B))
,  ,,,)
,,,))