(FILECREATED "24-Apr-86 16:20:41" {ERIS}<LISPCORE>LIBRARY>CONDITIONGRAPH.;4
 2048   

      changes to:  (FNS GRAPH-CONDITIONS CONDITION-SUBTREE-SEXPR COLLECT-CONDITION-TYPES)
                   (VARS CONDITIONGRAPHCOMS *CONDITION-NAME-LIST*)

      previous date: "24-Apr-86 16:02:27" {ERIS}<LISPCORE>LIBRARY>CONDITIONGRAPH.;1)


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT CONDITIONGRAPHCOMS)

(RPAQQ CONDITIONGRAPHCOMS
 [(INITVARS *CONDITION-GRAPH-WINDOW*)
                           (FNS GRAPH-CONDITIONS CONDITION-SUBTREE-SEXPR)
                           (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
                                  (ADDVARS (NLAMA)
                                         (NLAML)
                                         (LAMA GRAPH-CONDITIONS])

(RPAQ? *CONDITION-GRAPH-WINDOW*
 NIL)
(DEFINEQ

(GRAPH-CONDITIONS

  [CL:LAMBDA (&OPTIONAL (ROOT (QUOTE CONDITION))
                    W)
                                       (* amd "24-Apr-86 16:19")

    (LET ((NEWW (SHOWGRAPH (LAYOUTSEXPR (CONDITION-SUBTREE-SEXPR
 ROOT)
                                  (QUOTE (HORIZONTAL)))
                       (OR W *CONDITION-GRAPH-WINDOW* (CONCAT "Condition type graph from: " ROOT))
                       NIL NIL T)))
         (WINDOWPROP NEWW (QUOTE TITLE)
                (CONCAT "Condition type graph from: " ROOT))
         (OR W *CONDITION-GRAPH-WINDOW* (SETF *CONDITION-GRAPH-WINDOW* NEWW])

(CONDITION-SUBTREE-SEXPR

  [CL:LAMBDA (NAME)
                                          (* amd "24-Apr-86 16:06")

    (CONS NAME (MAPCAN [FUNCTION (CL:LAMBDA (CHILD)
                                   (LIST (CONDITION-SUBTREE-SEXPR
 CHILD]
                      (GET NAME (QUOTE %%CONDITION-CHILDREN])
)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 GRAPH-CONDITIONS)
)
(PUTPROPS CONDITIONGRAPH COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (877 1815 (GRAPH-CONDITIONS 887 . 1497) (CONDITION-SUBTREE-SEXPR 1499 . 1813)))))
STOP