[unix-history] / usr / doc / lisp / oblistd.l

; oblist dumping program

(def dumpit
  (lambda (x)
	  (setq prt (outfile x))	
	  (do ((i (oblist) (cdr i)))
	      ((null i))
	      (setq nm (car i))
	      (cond ((getd nm) (print nm prt)(terpr prt))))))
Commit	Line	Data
3d6d4647 C	1	; oblist dumping program
	2
	3	(def dumpit
	4	(lambda (x)
	5	(setq prt (outfile x))
	6	(do ((i (oblist) (cdr i)))
	7	((null i))
	8	(setq nm (car i))
	9	(cond ((getd nm) (print nm prt)(terpr prt))))))