🚀 go-pugleaf

    Date: Mon, 27 Nov 1995 13:33-0600
    From: <israel_m101@orion.crc.monroecc.edu>

    I am trying to use DW:Format-Graph-From-Node in Generia 8.1.1 to
    create a tree-diagram of an sexpression such as '(* 3 (/ 3 4) 5) and
    want this tree displayed. (To turn an sexp into a tree diagram.):

You need to have your node printer and inferior producer understand the
datastructure:

(scl:format-graph-from-root
  '(* 3 (/ 3 4) 5)
  #'(lambda (object stream)
      (princ (if (consp object)
		 (car object)
		 object)
	     stream))
  #'(lambda (object)
      (if (consp object)
	  (cdr object)
	  nil)))

--David Gadbois