Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0039/alvine.lsp
There are 5 other files named alvine.lsp in the archive. Click here to see a list.

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

(EDINIT)