(FILECREATED " 3-AUG-83 11:27:26" ("compiled on " {PHYLUM}DEPENDENT-WINDOWS.;1) "28-JUN-83 18:54:59" tcompl'd in WORK dated "28-JUN-83 19:31:02") (FILECREATED " 3-AUG-83 11:24:48" {PHYLUM}DEPENDENT-WINDOWS.;1 2629 changes to: (FNS CLOSE.DEPENDENT.WINDOWS ADD.DEPENDENT.WINDOW DELETE.DEPENDENT.WINDOW DELETE.DEPENDENT.WINDOWS OPEN.DEPENDENT.WINDOWS WINDOW.DEPENDED.UPON) (VARS DEPENDENT-WINDOWSCOMS) (ADVICE CLOSEW OPENW) previous date: " 3-AUG-83 07:51:55" {PHYLUM}LISP>DEPENDENT-WINDOWS.;1) ADD.DEPENDENT.WINDOW D1 (I 1 DEPENDENT.WINDOW I 0 WINDOW) @g@g Ah Ag@(33Q PUTWINDOWPROP 23Q PUTWINDOWPROP 20Q \NCONC2 12Q GETWINDOWPROP) (27Q WINDOW.DEPENDED.UPON 7 DEPENDENT.WINDOWS 3 DEPENDENT.WINDOWS) NIL CLOSE.DEPENDENT.WINDOWS D1 (I 0 WINDOW) @ †d żµřh(11Q CLOSEW 3 DEPENDENT.WINDOWS) NIL NIL DELETE.DEPENDENT.WINDOW D1 (I 1 DEPENDENT.WINDOW I 0 WINDOW) @gA@g Ag (30Q PUTWINDOWPROP 21Q PUTWINDOWPROP 16Q DREMOVE 13Q GETWINDOWPROP) (25Q WINDOW.DEPENDED.UPON 10Q DEPENDENT.WINDOWS 3 DEPENDENT.WINDOWS) NIL DELETE.DEPENDENT.WINDOWS D1 (P 0 W I 1 ALL.THE.WAY.DOWN I 0 WINDOW) $@ °d@H żA•Hi żµęh(32Q DELETE.DEPENDENT.WINDOWS 22Q DELETE.DEPENDENT.WINDOW 6 \APPEND2 3 DEPENDENT.WINDOWS) NIL NIL DEPENDENT.WINDOWS D1 (I 0 WINDOW) @g (6 GETWINDOWPROP) (3 DEPENDENT.WINDOWS) NIL OPEN.DEPENDENT.WINDOWS D1 (I 0 WINDOW) @ †d żµř@ (22Q TOTOPW 11Q OPENW 3 DEPENDENT.WINDOWS) NIL NIL WINDOW.DEPENDED.UPON D1 (I 0 WINDOW) @g (6 GETWINDOWPROP) (3 WINDOW.DEPENDED.UPON) NIL (PRETTYCOMPRINT DEPENDENT-WINDOWSCOMS) (RPAQQ DEPENDENT-WINDOWSCOMS ((FNS ADD.DEPENDENT.WINDOW CLOSE.DEPENDENT.WINDOWS DELETE.DEPENDENT.WINDOW DELETE.DEPENDENT.WINDOWS DEPENDENT.WINDOWS OPEN.DEPENDENT.WINDOWS WINDOW.DEPENDED.UPON) (ADVISE CLOSEW OPENW))) (PUTPROPS CLOSEW READVICE (NIL (BEFORE NIL (CLOSE.DEPENDENT.WINDOWS WINDOW)))) (PUTPROPS OPENW READVICE (NIL (AFTER NIL (OPEN.DEPENDENT.WINDOWS WINDOW)))) (READVISE CLOSEW OPENW) NIL