(LDUMP TABX)›(DEFINEQ LDUMP '(LAMBDA (PROPS) (PROGN (OPEN 1 8 (QUOTE P:)) (PR# 1) (MAPCAR PROPS (LAMBDA (X) (PROGN (TERPRI) (TERPRI) (PRIN1 (QUOTE "**** ")) (PRINT X) (PPRINT (GETD X))))) (PR# 0) (CLOSE 1)))›)›(DEFINEQ TABX '(LAMBDA (N) (PROG (COUNT) (SETQ COUNT N) LOOP (SETQ COUNT (SUB COUNT 1)) (COND ((> COUNT 0) (PRIN1 (QUOTE " ")) (GO LOOP))) (RETURN)))›)›NIL›