Google
 

Trailing-Edge - PDP-10 Archives - -
There are no other files named in the archive.
NIL 


(DEFPROP DO 
 (LAMBDA(L P)
  (COND ((NULL L) NIL)
	((ATOM L) (COND ((GET L P) (PRINT (LIST (QUOTE DEFPROP) L (GET L P) P))) (T NIL)))
	(T (PROG2 (DO (CAR L) P) (DO (CDR L) P))))) 
EXPR)

(DEFPROP DODUMP 
 (LAMBDA(L)
  (PROG (Q)
	(SETQ Q L)
   LOOP (COND ((NULL L) (RETURN)))
	(DO OBLIST (CAR L))
	(SETQ L (CDR L))
	(TERPRI)
	(GO LOOP))) 
EXPR)

(DEFPROP DUMP 
 (LAMBDA NIL
  (DODUMP
   (LIST (QUOTE EXPR)
	 (QUOTE TRANSLATION)
	 (QUOTE PRIORITY)
	 (QUOTE RULES)
	 (QUOTE PUNCTUATION)
	 (QUOTE BREAK)
	 (QUOTE FAMILY)
	 (QUOTE MEMR)
	 (QUOTE LASTRESORT)
	 (QUOTE BELIEF)
	 (QUOTE MEM)))) 
EXPR)

(DEFPROP DO1 
 (LAMBDA(L P)
  (COND ((NULL L) NIL)
	((ATOM L)
	 (COND ((GET L P) (PROG2 (TERPRI) (SPRINT (LIST (QUOTE DEFPROP) L (GET L P) P) 1 1))) (T NIL)))
	(T (PROG2 (DO1 (CAR L) P) (DO1 (CDR L) P))))) 
EXPR)

(DEFPROP DO2 
 (LAMBDA(L P)
  (COND ((NULL L) NIL)
	((ATOM L) (COND ((GET L P) (PROG2 (PRFF) (SPRINT (LIST (QUOTE DEFPROP) L (GET L P) P) 1 1))) (T NIL)))
	(T (PROG2 (DO2 (CAR L) P) (DO2 (CDR L) P))))) 
EXPR)

(DEFPROP PRFF 
 (LAMBDA NIL (PROG2 (TERPRI) (PRINC (ASCII 14)))) 
EXPR)

(DEFPROP PDUMP 
 (LAMBDA NIL
  (PROG NIL
	(DO1 OBLIST (QUOTE TRANSLATION))
	(PRFF)
	(DO1 OBLIST (QUOTE PRIORITY))
	(PRFF)
	(DO1 OBLIST (QUOTE RULES))
	(PRFF)
	(DO1 OBLIST (QUOTE PUNCTUATION))
	(PRFF)
	(DO1 OBLIST (QUOTE BREAK))
	(PRFF)
	(DO1 OBLIST (QUOTE FAMILY))
	(PRFF)
	(DO1 OBLIST (QUOTE MEMR))
	(PRFF)
	(DO1 OBLIST (QUOTE LASTRESORT))
	(PRFF)
	(DO1 OBLIST (QUOTE BELIEF))
	(PRFF)
	(DO1 OBLIST (QUOTE MEM))
	(PRFF))) 
EXPR)

NIL