(DEFPROP EDINIT (LAMBDA NIL (PROG NIL (PROG (%X)) (PUTSYM (MEMQ (GET (QUOTE MEMQ) (QUOTE SUBR))) (UNBOUN (CDR (GET (QUOTE %X) (QUOTE VALUE))))))) EXPR) (EDINIT)