Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0015/alvine.lsp
There are 5 other files named alvine.lsp in the archive. Click here to see a list.
00100	
00200	
00300	(DEFPROP EDINIT 
00400	 (LAMBDA NIL
00500	  (PROG NIL
00600		(PROG (%X))
00700		(PUTSYM (MEMQ (GET (QUOTE MEMQ) (QUOTE SUBR))) (UNBOUN (CDR (GET (QUOTE %X) (QUOTE VALUE))))))) 
00800	EXPR)
00900	
01000	(EDINIT)