Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50216/alvine.lsp
Click 43,50216/alvine.lsp to see without markup as text/plain
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)