(FILECREATED "19-May-84 09:28:02" ("compiled on " {PHYLUM}MAKEGRAPH.;7) "18-May-84 23:14:08" recompiled exprs: nothing in WORK dated "18-May-84 23:27:15") (FILECREATED "19-May-84 09:27:46" {PHYLUM}MAKEGRAPH.;7 19630 changes to: (VARS MAKEGRAPHCOMS) previous date: "25-JUN-83 17:33:37" {PHYLUM}MAKEGRAPH.;6) MAKE.GRAPH D1 (P 4 MBF P 3 LBF P 2 NEW.WINDOW P 1 GRAPH P 0 TTL I 10Q DEPTH I 7 TOPJUSTIFYFLG I 6 MIDDLEBUTTONFN I 5 LEFTBUTTONFN I 4 CONTEXT I 3 ROOTS I 2 GRAPH.SPECIFICATION I 1 TITLE I 0 WINDOW) v PEg[Fg\AoXBCDG Yd@ggG ZdgA JgB JgC JgD JgK JgL JgG JgG J(162Q PUTWINDOWPROP 151Q PUTWINDOWPROP 140Q PUTWINDOWPROP 130Q PUTWINDOWPROP 120Q PUTWINDOWPROP 110Q PUTWINDOWPROP 100Q PUTWINDOWPROP 70Q PUTWINDOWPROP 57Q SHOWGRAPH 40Q MAKE.GRAPH.CONSTRUCT) (155Q DEPTH 144Q TOPJUSTIFYFLG 134Q MIDDLEBUTTONFN 124Q LEFTBUTTONFN 114Q CONTEXT 104Q ROOTS 74Q GRAPH.SPECIFICATION 64Q TITLE 51Q MAKE.GRAPH.INTERNAL.MIDDLEBUTTONFN 46Q MAKE.GRAPH.INTERNAL.LEFTBUTTONFN 17Q MAKE.GRAPH.MIDDLEBUTTONFN 10Q MAKE.GRAPH.LEFTBUTTONFN) (27Q "A graph") MAKE.GRAPH.ACCESS D1 (I 2 CONTEXT I 1 ACCESS.SPEC I 0 DATUM) A (3 EVAL) NIL NIL MAKE.GRAPH.ACCESS.NODES D1 (P 10Q NEW.DATUM P 7 SUB.SPEC P 3 NEW.DATUM P 2 NEW.NODES P 1 STATE.SPEC P 0 DATUM.SPEC I 2 CONTEXT I 1 DATUM I 0 NODES.SPECS) @@X@YHdgd g30@'dAOB [dOB MLh^L&NHdg.0@dOAB \M L^]N ]Lg@AB Zd J0AHB dOdIB MLh^L&N(255Q MAKE.GRAPH.ACCESS 236Q MAKE.GRAPH.ACCESS 223Q INSPECT 216Q MAKE.GRAPH.ACCESS.NODES 174Q LAST 150Q MAKE.GRAPH.ACCESS.NODES 71Q MAKE.GRAPH.ACCESS 57Q MAKE.GRAPH.ACCESS 25Q EVAL) (204Q TRACE 122Q UNION 31Q LIST 16Q EVAL) NIL MAKE.GRAPH.ALREADY.SEENP D1 (L (1 GRAPHNODES 0 NODE)) %A!HhY@J@JIiHXNIL NIL NIL MAKE.GRAPH.CONSTRUCT D1 (P 3 ROOT P 2 IROOTS P 1 ROOTS P 0 GRAPHNODES I 3 DEPTH I 2 CONTEXT I 1 INITIAL.ROOTS I 0 GRAPH.SPECIFICATION) <hhhh"A Zd HI [H IK KB@HJC JZ(64Q MAKE.GRAPH.CONSTRUCT.BELOW 51Q TCONC 42Q MAKE.GRAPH.ALREADY.SEENP 32Q LAYOUTLATTICE 27Q DREVERSE 14Q \APPEND2) NIL NIL MAKE.GRAPH.CONSTRUCT.BELOW D1 (P 21Q SON P 15Q ROOTS.SPEC P 14Q SON.REFERENCES P 13Q SONS.SPEC P 12Q SONS P 11Q REFERENCE P 10Q FONT P 7 FONT.SPEC P 6 LABEL P 5 LABEL.SPEC P 4 GRAPHNODE P 3 STATE.DESCRIPTION P 2 STATE P 1 DATUM P 0 ALREADY.SEEN I 5 DEPTH I 4 ROOTS I 3 GRAPHNODES I 2 GRAPH.SPECIFICATION I 1 CONTEXT I 0 NODE)  @Y@ZBJ [dJo @C Xd@@@_Kg ]dIMA o^Kg _d IOA _OhdddddddONhddh\CL HLi'Ej"Kg _Kg _DOIA OIA _@O3d_"ABCDEddEk _O Oh_ O&_O _LO (413Q DREVERSE 340Q MAKE.GRAPH.CONSTRUCT.BELOW 272Q MAKE.GRAPH.ACCESS.NODES 262Q \NCONC2 257Q MAKE.GRAPH.ACCESS.NODES 244Q LISTGET 231Q LISTGET 173Q TCONC 124Q MAKE.GRAPH.ACCESS 110Q LISTGET 73Q MAKE.GRAPH.ACCESS 62Q LISTGET 37Q MAKE.GRAPH.ALREADY.SEENP 30Q ERROR 15Q LISTGET) (241Q ROOTS 226Q SONS 105Q FONT 57Q LABEL) (100Q "???" 25Q "unrecognized state") MAKE.GRAPH.DATUM D1 (L (0 NODE)) @NIL NIL NIL MAKE.GRAPH.EXAMPLE.1 D1 (F 0 MAKE.GRAPH.SPEC.SPEC) P (3 MAKE.GRAPH.SHOW.SPEC) NIL NIL MAKE.GRAPH.EXAMPLE.2 D1 (I 0 DEPTH F 0 MAKE.GRAPH.LIST.SPEC) P@ (4 MAKE.GRAPH.SHOW.LIST) NIL NIL MAKE.GRAPH.FATHER D1 (P 3 ID P 2 FATHERS P 1 GRAPHNODES P 0 GRAPH I 1 WINDOW I 0 NODE) 4`Ag dY@d d[I\h]KMiL(11Q GETWINDOWPROP) (6 GRAPH) NIL MAKE.GRAPH.FIND.ROOTS D1 (P 3 ROOT P 2 IROOTS P 1 NON-ROOTS P 0 NODES I 3 DEPTH I 2 CONTEXT I 1 INITIAL.ROOTS I 0 GRAPH.SPECIFICATION) ,hhhh"A Zd HI [B@HJIC JZ(44Q MAKE.GRAPH.FIND.ROOTS.BELOW 27Q LDIFFERENCE 14Q \APPEND2) NIL NIL MAKE.GRAPH.FIND.ROOTS.BELOW D1 (P 13Q SON P 7 ROOTS.SPEC P 6 SON.REFERENCES P 5 SONS.SPEC P 4 SONS P 3 REFERENCE P 2 STATE.DESCRIPTION P 1 STATE P 0 DATUM I 6 DEPTH I 5 NON-ROOTS I 4 ROOTS I 3 NODES I 2 GRAPH.SPECIFICATION I 1 CONTEXT I 0 NODE) @X@YBI ZdIo @C -Fj(C@ Jg ]Jg _DOHA hHA @ L>d_EO OABCDEFddFk _O Oh_O&_O(201Q MAKE.GRAPH.FIND.ROOTS.BELOW 145Q TCONC 123Q MAKE.GRAPH.ACCESS.NODES 114Q \NCONC2 111Q MAKE.GRAPH.ACCESS.NODES 75Q LISTGET 63Q LISTGET 53Q TCONC 37Q MAKE.GRAPH.NODE.ALREADY.SEENP 30Q ERROR 15Q LISTGET) (72Q ROOTS 60Q SONS) (25Q "unrecognized state") MAKE.GRAPH.INTERNAL.LEFTBUTTONFN D1 (P 3 FN P 2 REG P 1 Y P 0 X I 1 WINDOW I 0 NODE) FPA XA YhAg ZdHI Ag @AlLAg [dAkKA (103Q MAKE.GRAPH.INTERNAL.TITLE.FN 66Q GETWINDOWPROP 46Q GETWINDOWPROP 36Q INSIDEP 27Q DSPCLIPPINGREGION 24Q GETWINDOWPROP 13Q LASTMOUSEY 6 LASTMOUSEX) (63Q TITLE.LEFTBUTTONFN 43Q LEFTBUTTONFN 21Q DSP) NIL MAKE.GRAPH.INTERNAL.MIDDLEBUTTONFN D1 (P 3 FN P 2 REG P 1 Y P 0 X I 1 WINDOW I 0 NODE) FPA XA YhAg ZdHI Ag @AlLAg [dAkKA (103Q MAKE.GRAPH.INTERNAL.TITLE.FN 66Q GETWINDOWPROP 46Q GETWINDOWPROP 36Q INSIDEP 27Q DSPCLIPPINGREGION 24Q GETWINDOWPROP 13Q LASTMOUSEY 6 LASTMOUSEX) (63Q TITLE.MIDDLEBUTTONFN 43Q MIDDLEBUTTONFN 21Q DSP) NIL MAKE.GRAPH.INTERNAL.TITLE.FN D1 (P 1 COMMAND P 0 COMMAND.MENU I 0 WINDOW) 3 Xd Ydd#dg@ g@g h(57Q ERROR 53Q MAKE.GRAPH.SHOW.SPEC 50Q GETWINDOWPROP 32Q MAKE.GRAPH.UPDATE.WINDOW 12Q MENU 5 MAKE.GRAPH.INTERNAL.TITLE.FN.MENU) (45Q GRAPH.SPECIFICATION 37Q SHOW.GRAPH.SPEC 23Q UPDATE) NIL MAKE.GRAPH.INTERNAL.TITLE.FN.MENU D1 (F 2 MAKE.GRAPH.INTERNAL.TITLE.FN.MENU) @R=`dodi didg dgjdndhHdI cNIL (43Q DEFAULTMENUHELDFN 34Q CLRPROMPT 5 MENUTYPE#) (13Q (UPDATE SHOW.GRAPH.SPEC)) MAKE.GRAPH.LABEL D1 (L (0 GRAPHNODE)) @NIL NIL NIL MAKE.GRAPH.LEFTBUTTONFN D1 (P 5 DY P 4 DX P 3 CY P 2 CX P 1 CR P 0 POSITION I 1 WINDOW I 0 GRAPHNODE) @`l@jG` o` ` o` @ ` ` o` @ ` `@XhAg YdIlZIIl[JH\KH]ALM h(222Q SCROLLBYREPAINTFN 151Q DSPCLIPPINGREGION 146Q GETWINDOWPROP 126Q PRIN1 120Q MAKE.GRAPH.STATE 114Q PRIN1 102Q TERPRI 74Q PRIN1 66Q MAKE.GRAPH.LABEL 62Q PRIN1 50Q TERPRI 42Q PRIN1 30Q TERPRI) (143Q DSP 123Q PROMPTWINDOW 111Q PROMPTWINDOW 77Q PROMPTWINDOW 71Q PROMPTWINDOW 57Q PROMPTWINDOW 45Q PROMPTWINDOW 37Q PROMPTWINDOW 25Q PROMPTWINDOW 11Q \EM.KBDAD2) (106Q " Node state: " 54Q " Node label: " 34Q "Left button selection:") MAKE.GRAPH.MAKE.SUBGRAPH D1 (I 1 WINDOW I 0 GRAPHNODE) JhAg o Ag @ @ hAg Ag Ag Ag Ag (107Q MAKE.GRAPH 103Q GETWINDOWPROP 74Q GETWINDOWPROP 65Q GETWINDOWPROP 56Q GETWINDOWPROP 47Q GETWINDOWPROP 35Q MAKE.GRAPH.STATE 31Q MAKE.GRAPH.DATUM 25Q GETWINDOWPROP 16Q CONCAT 7 GETWINDOWPROP) (100Q DEPTH 71Q TOPJUSTIFYFLG 62Q MIDDLEBUTTONFN 53Q LEFTBUTTONFN 44Q CONTEXT 22Q GRAPH.SPECIFICATION 4 TITLE) (13Q " >") MAKE.GRAPH.MIDDLEBUTTONFN D1 (P 1 COMMAND P 0 COMMAND.MENU I 1 WINDOW I 0 GRAPHNODE) C@@`l@j@  Xd Ydd dg@ g@A h(77Q ERROR 73Q MAKE.GRAPH.MAKE.SUBGRAPH 60Q INSPECT 55Q MAKE.GRAPH.DATUM 35Q MENU 30Q MAKE.GRAPH.MIDDLEBUTTONFN.MENU 21Q INSPECT) (64Q MAKE.SUBGRAPH 46Q INSPECT 5 \EM.KBDAD2) NIL MAKE.GRAPH.MIDDLEBUTTONFN.MENU D1 (F 2 MAKE.GRAPH.MIDDLEBUTTONFN.MENU) @R=`dodi didg dgjdndhHdI cNIL (43Q DEFAULTMENUHELDFN 34Q CLRPROMPT 5 MENUTYPE#) (13Q (INSPECT MAKE.SUBGRAPH)) MAKE.GRAPH.NODE.ALREADY.SEENP D1 (L (1 NODES 0 NODE)) "AHhY@I@IiHXNIL NIL NIL MAKE.GRAPH.NODE.SONS D1 (L (0 DATUM)) )@dgdgih@gh@ghNIL (43Q VALUE 31Q NODE.SPECS 13Q ROOTS 5 SONS) NIL MAKE.GRAPH.NODE.SPECS.LABEL D1 (L (0 DATUM)) .@dggdggdgggggNIL (53Q SPEC.PAIR 47Q TRACE 42Q TRACE 36Q UNION 31Q UNION 24Q LIST 17Q LIST 12Q EVAL 5 EVAL) NIL MAKE.GRAPH.NODE.SPECS.SONS D1 (L (0 DATUM)) @dg@ghdg!0@dgIHhZH&Jdg!0@dgIHhZH&Jg@gh@g@ghNIL (171Q NEW.STATE.SPEC 162Q NEW.DATUM.SPEC 151Q NODE.SPECS 141Q TRACE 113Q NODE.SPECS 74Q UNION 45Q NODE.SPEC 26Q LIST 16Q VALUE 5 EVAL) NIL MAKE.GRAPH.PROP.PAIRS D1 (L (0 PLIST)) 0@XIdhZH&JNIL NIL NIL MAKE.GRAPH.SHOW.LIST D1 (P 1 SPEC.SPEC P 0 ROOTS I 1 DEPTH I 0 OBJECT F 2 MAKE.GRAPH.LIST.SPEC)  @ghXhoRHhddiA (32Q MAKE.GRAPH) (6 OBJECT) (17Q "A list") MAKE.GRAPH.SHOW.SPEC D1 (P 1 SPEC.SPEC P 0 ROOTS I 0 SPEC F 2 MAKE.GRAPH.SPEC.SPEC)  @ghXhoRHhddi (31Q MAKE.GRAPH) (6 GRAPH.SPEC) (17Q "A graph specification") MAKE.GRAPH.STATE D1 (L (0 GRAPHNODE)) @NIL NIL NIL MAKE.GRAPH.UPDATE.WINDOW D1 (I 0 WINDOW) ?@dg @g @g @g @g @g @g @g (74Q MAKE.GRAPH 70Q GETWINDOWPROP 61Q GETWINDOWPROP 52Q GETWINDOWPROP 43Q GETWINDOWPROP 34Q GETWINDOWPROP 25Q GETWINDOWPROP 16Q GETWINDOWPROP 7 GETWINDOWPROP) (65Q DEPTH 56Q TOPJUSTIFYFLG 47Q MIDDLEBUTTONFN 40Q LEFTBUTTONFN 31Q CONTEXT 22Q ROOTS 13Q GRAPH.SPECIFICATION 4 TITLE) NIL (PRETTYCOMPRINT MAKEGRAPHCOMS) (RPAQQ MAKEGRAPHCOMS ((FNS MAKE.GRAPH MAKE.GRAPH.ACCESS MAKE.GRAPH.ACCESS.NODES MAKE.GRAPH.ALREADY.SEENP MAKE.GRAPH.CONSTRUCT MAKE.GRAPH.CONSTRUCT.BELOW MAKE.GRAPH.DATUM MAKE.GRAPH.EXAMPLE.1 MAKE.GRAPH.EXAMPLE.2 MAKE.GRAPH.FATHER MAKE.GRAPH.FIND.ROOTS MAKE.GRAPH.FIND.ROOTS.BELOW MAKE.GRAPH.INTERNAL.LEFTBUTTONFN MAKE.GRAPH.INTERNAL.MIDDLEBUTTONFN MAKE.GRAPH.INTERNAL.TITLE.FN MAKE.GRAPH.INTERNAL.TITLE.FN.MENU MAKE.GRAPH.LABEL MAKE.GRAPH.LEFTBUTTONFN MAKE.GRAPH.MAKE.SUBGRAPH MAKE.GRAPH.MIDDLEBUTTONFN MAKE.GRAPH.MIDDLEBUTTONFN.MENU MAKE.GRAPH.NODE.ALREADY.SEENP MAKE.GRAPH.NODE.SONS MAKE.GRAPH.NODE.SPECS.LABEL MAKE.GRAPH.NODE.SPECS.SONS MAKE.GRAPH.PROP.PAIRS MAKE.GRAPH.SHOW.LIST MAKE.GRAPH.SHOW.SPEC MAKE.GRAPH.STATE MAKE.GRAPH.UPDATE.WINDOW) (FILES (FROM VALUEOF LISPUSERSDIRECTORIES) GRAPHER) (VARS (MAKE.GRAPH.INTERNAL.TITLE.FN.MENU) MAKE.GRAPH.LIST.SPEC ( MAKE.GRAPH.MIDDLEBUTTONFN.MENU) MAKE.GRAPH.SPEC.SPEC))) (FILESLOAD (FROM VALUEOF LISPUSERSDIRECTORIES) GRAPHER) (RPAQQ MAKE.GRAPH.INTERNAL.TITLE.FN.MENU NIL) (RPAQQ MAKE.GRAPH.LIST.SPEC (OBJECT (DOC (ANY LISP OBJECT) LABEL (COND ((LISTP DATUM) "( )") (T DATUM) ) SONS ((COND ((LISTP DATUM) DATUM) (T NIL)) (QUOTE OBJECT))))) (RPAQQ MAKE.GRAPH.MIDDLEBUTTONFN.MENU NIL) (RPAQQ MAKE.GRAPH.SPEC.SPEC (GRAPH.SPEC (DOC (A PLIST OF STATE.SPECS) LABEL (QUOTE GRAPH.SPEC) SONS (( MAKE.GRAPH.PROP.PAIRS DATUM) (QUOTE STATE.SPEC))) STATE.SPEC (DOC (A PLIST OF PROPERTIES) LABEL (CAR DATUM) SONS ((MAKE.GRAPH.PROP.PAIRS (CADR DATUM)) (QUOTE PROPERTY))) PROPERTY (DOC (A PROPERTY, EG. DOC, LABEL, FONT, SONS, ROOTS) LABEL (CAR DATUM) SONS (EVAL (MAKE.GRAPH.NODE.SONS DATUM))) NODE.SPECS (DOC (A SPEC OF DATUM/STATE PAIRS) LABEL (MAKE.GRAPH.NODE.SPECS.LABEL DATUM) SONS (EVAL ( MAKE.GRAPH.NODE.SPECS.SONS DATUM))) NODE.SPEC (DOC (A SPEC OF A SINGLE DATUM/STATE PAIR) LABEL (QUOTE NODE.SPEC) SONS (LIST ((CAR DATUM) (QUOTE NEW.DATA.SPEC)) ((CADR DATUM) (QUOTE NEW.STATE.SPEC)))) NEW.DATA.SPEC (DOC (THE NEW.DATUM.SPEC) LABEL (QUOTE DATA) SONS ((LIST DATUM) (QUOTE VALUE))) NEW.DATUM.SPEC (DOC (THE NEW.DATUM.SPEC) LABEL (QUOTE DATUM) SONS ((LIST DATUM) (QUOTE VALUE))) NEW.STATE.SPEC (DOC (THE NEW.STATE.SPEC) LABEL (QUOTE STATE) SONS ((LIST DATUM) (QUOTE VALUE))) VALUE (DOC (A VALUE) LABEL DATUM))) (PUTPROPS MAKEGRAPH COPYRIGHT ("Xerox Corporation" 1984)) NIL