So far, it looks like every file with through tr '\r\n' '\n\r' swapping cr and lf.

internal/test/env/program-analysis/hand/BROWSER-PART2.U

@@ -1 +1,115 @@
-;; Function To Be Tested: BROWSER-2  (Program Analysis)
+;; Function To Be Tested: BROWSER-2  (Program Analysis)
+;;
+;; Source: Lisp Library Modules Manual (Lyric Beta Release 2)
+;;		 Browser, Page 11
+;; Section: Program Analysis (Library)
+;;
+;; Created By:   John Park
+;;
+;; Creation Date: March 10, 1987
+;;
+;; Last Update:   March 11, 1987
+;;
+;; Somewhat Repaired:	June 16, 1988
+;;
+;; Filed As:      {ERIS}<lispcore>test>program-analysis>browser-part2.u
+;;
+;;
+;; Syntax:      (BROWSER T/NIL)
+;;
+;; Function Description: BROWSER modifies the SHOW PATHS command of Masterscope so that 
+;; the command's output is displayed as an undirected graph.  It creates a new window
+;; for each SHOW PATHS command, but will reuse a window if that window has an earlier
+;; instance of the same SHOW PATHS command displayed in it.
+;; 
+;; Argument(s):  T or NIL (SEE Browser documentation)
+;;			  
+;; Returns:    IL:MSPATHS  
+;;
+;; Constraints/Limitations: BROWSER modifies the SHOW PATHS command of Masterscope so that 
+;; the command's output is displayed as an undirected graph.  It creates a new window
+;; for each SHOW PATHS command, but will reuse a window if that window has an earlier
+;; instance of the same SHOW PATHS command displayed in it.  Part 1 of this test is 
+;; to determine if masterscope is unaffected when the BROWSER is not enabled or 
+;; (IL:BROWSER NIL). Part I also tests to see if grapher is automatically loaded
+;; by browser. Make sure that Part 1 is run before Part 2.  Part 2 of BROWSER test 
+;; determines if BROWSER modified masterscope in such a way that paths are displayed
+;; grahically in a display window.
+;;
+;; The tree structure of the functions being analyzed are as follows:
+;;
+;;				  Top-GFuntion
+;;					  |
+;;	      GFun-A------------------------GFun-B
+;;		  |						|
+;;    ---------------------              --------------------
+;;    |		  |	      |			|         |	    |
+;;  GFun-A1  GFun-A2  GFun-A3	  	 GFun-B1	 GFun-B2	  GFun-B3
+;;						     	   |
+;;					    	  --------------
+;;					   	  |		     |
+;;				     	   GFun-C1	       GFun-A1
+;;
+;;
+;; Messages will be printed before each command in the command files is executed
+;; for user monitoring.   Test result is logged on 
+;; {eris}<lispcore>test>program-analysis>masterscope.report 
+
+(DO-TEST "BROWSER2-TEST-SETUP"
+
+		(IL:FILESLOAD (IL:SYSLOAD) MASTERSCOPE BROWSER GRAPHER)
+		(SETQ BROWSERW (IL:CREATEW '(100 100 325 90) NIL NIL T))
+
+; Reinitialize and Define functions to be analyzed....
+(IL:MASTERSCOPE '(ERASE))
+(DEFUN TOP-GFUNTION NIL (AND (GFUN-A) (GFUN-B)))
+(DEFUN GFUN-A NIL (OR (GFUN-A1) (GFUN-A2) (GFUN-A3)))
+(DEFUN GFUN-B NIL (OR (GFUN-B1) (GFUN-B2) (GFUN-B3)))
+(DEFUN GFUN-A1 NIL T)
+(DEFUN GFUN-A2 NIL NIL)
+(DEFUN GFUN-A3 NIL T)
+(DEFUN GFUN-B1 NIL (AND (GFUN-C1)(GFUN-A1)))
+(DEFUN GFUN-B2 NIL NIL)
+(DEFUN GFUN-B3 NIL T)
+(DEFUN GFUN-C1 NIL NIL)
+
+(IL:MASTERSCOPE '(ANALYZE TOP-GFUNTION))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A1))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A2))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A3))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B1))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B2))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B3))
+(IL:MASTERSCOPE '(ANALYZE GFUN-C1))
+
+; Browser is now loaded and activated by Part 1 test of browser
+; Part 2 of this test is to determine if masterscope is modified by enabling
+; the BROWSER or (IL:BROWSER T)
+(IL:BROWSER T)
+; show paths should display the following path graphically in a display window
+; 1.gfun-a1 gfun-a top-gfuntion
+; 2.        gfun-b1 gfun-b top-gfuntion
+; show paths should display the above path graphically in a display window
+; as being shown on the lower left from
+; {eris}<lispcore>test>program-analysis>browser.graph.
+; Loading the graph.......
+; 
+; The graph returned from BROWSER should look like the one that is being
+; displayed on the lower right. If they are identical, please enter 
+; (BROWSER-SUCCEEDED) else enter (BROWSER-FAILED)
+; at the end of the test. If it breaks, enter ^ in the break
+; window to return to exec. The result will automatically be logged
+; in {eris}<lispcore>test>program-analysis>browser.report.
+(IL:MASTERSCOPE '(SHOW PATHS TO GFUN-A1 FROM TOP-GFUNTION))
+(PASS-FAIL 'BROWSER-DISPLAY (Y-OR-N-P "Did the browser work? "))
+
+	
+)
+
+STOP 
+
+
+
+

internal/test/env/program-analysis/hand/BROWSER-PART2.U.~1~

@@ -1 +1,137 @@
-;; Function To Be Tested: BROWSER-2  (Program Analysis)
+;; Function To Be Tested: BROWSER-2  (Program Analysis)
+;;
+;; Source: Lisp Library Modules Manual (Lyric Beta Release 2)
+;;		 Browser, Page 11
+;; Section: Program Analysis (Library)
+;;
+;; Created By:   John Park
+;;
+;; Creation Date: March 10, 1987
+;;
+;; Last Update:   March 11, 1987
+;;
+;; Filed As:      {ERIS}<lispcore>test>program-analysis>browser-part2.u
+;;
+;;
+;; Syntax:      (BROWSER T/NIL)
+;;
+;; Function Description: BROWSER modifies the SHOW PATHS command of Masterscope so that 
+;; the command's output is displayed as an undirected graph.  It creates a new window
+;; for each SHOW PATHS command, but will reuse a window if that window has an earlier
+;; instance of the same SHOW PATHS command displayed in it.
+;; 
+;; Argument(s):  T or NIL (SEE Browser documentation)
+;;			  
+;; Returns:    IL:MSPATHS  
+;;
+;; Constraints/Limitations: BROWSER modifies the SHOW PATHS command of Masterscope so that 
+;; the command's output is displayed as an undirected graph.  It creates a new window
+;; for each SHOW PATHS command, but will reuse a window if that window has an earlier
+;; instance of the same SHOW PATHS command displayed in it.  Part 1 of this test is 
+;; to determine if masterscope is unaffected when the BROWSER is not enabled or 
+;; (IL:BROWSER NIL). Part I also tests to see if grapher is automatically loaded
+;; by browser. Make sure that Part 1 is run before Part 2.  Part 2 of BROWSER test 
+;; determines if BROWSER modified masterscope in such a way that paths are displayed
+;; grahically in a display window.
+;;
+;; The tree structure of the functions being analyzed are as follows:
+;;
+;;				  Top-GFuntion
+;;					  |
+;;	      GFun-A------------------------GFun-B
+;;		  |						|
+;;    ---------------------              --------------------
+;;    |		  |	      |			|         |	    |
+;;  GFun-A1  GFun-A2  GFun-A3	  	 GFun-B1	 GFun-B2	  GFun-B3
+;;						     	   |
+;;					    	  --------------
+;;					   	  |		     |
+;;				     	   GFun-C1	       GFun-A1
+;;
+;;
+;; Messages will be printed before each command in the command files is executed
+;; for user monitoring.   Test result is logged on 
+;; {eris}<lispcore>test>program-analysis>masterscope.report 
+
+(DO-TEST "BROWSER2-TEST-SETUP"
+	(PROGN 
+		(SETQ BROWSERW (IL:CREATEW '(100 100 325 90) NIL NIL T))
+		(SETQ TEST-RESULT "{ERIS}<LISPCORE>TEST>PROGRAM-ANALYSIS>BROWSER.REPORT")
+		(DEFUN BROWSER-FAILED NIL (PROGN
+							(SETQ *OUTPUT* (OPEN TEST-RESULT :DIRECTION :OUTPUT
+								:IF-EXISTS :APPEND))
+							(PASS-FAIL 'BROWSER-DISPLAY NIL)
+							(CLOSE *OUTPUT*)
+							(IL:CLOSEW BROWSERW)
+							(IL:CLRPROMPT)))
+		(DEFUN BROWSER-SUCCEEDED NIL (PROGN
+							(SETQ *OUTPUT* (OPEN TEST-RESULT :DIRECTION :OUTPUT
+								:IF-EXISTS :APPEND))
+							(PASS-FAIL 'BROWSER-DISPLAY T)
+							(CLOSE *OUTPUT*)
+							(IL:CLOSEW BROWSERW)
+							(IL:CLRPROMPT)))
+		(SETQ MESSAGE "		Please enter (BROWSER-SUCCEEDED) if test has succeeded
+			or (BROWSER-FAILED) if test has failed.")
+		(SETQ BROWSER2-COMMAND-STRING 
+"; Reinitialize and Define functions to be analyzed....
+(PAUSE)
+. ERASE
+(DEFUN TOP-GFUNTION NIL (AND (GFUN-A) (GFUN-B)))
+(DEFUN GFUN-A NIL (OR (GFUN-A1) (GFUN-A2) (GFUN-A3)))
+(DEFUN GFUN-B NIL (OR (GFUN-B1) (GFUN-B2) (GFUN-B3)))
+(DEFUN GFUN-A1 NIL T)
+(DEFUN GFUN-A2 NIL NIL)
+(DEFUN GFUN-A3 NIL T)
+(DEFUN GFUN-B1 NIL (AND (GFUN-C1)(GFUN-A1)))
+(DEFUN GFUN-B2 NIL NIL)
+(DEFUN GFUN-B3 NIL T)
+(DEFUN GFUN-C1 NIL NIL)
+
+; Start analyzing functions in gtop-function and others...
+(PAUSE)
+. ANALYZE TOP-GFUNTION 
+. ANALYZE GFUN-A
+. ANALYZE GFUN-B
+. ANALYZE GFUN-A1
+. ANALYZE GFUN-A2
+. ANALYZE GFUN-A3
+. ANALYZE GFUN-B1
+. ANALYZE GFUN-B2
+. ANALYZE GFUN-B3
+. ANALYZE GFUN-C1
+; Browser is now loaded and activated by Part 1 test of browser
+; Part 2 of this test is to determine if masterscope is modified by enabling
+; the BROWSER or (IL:BROWSER T)
+(IL:BROWSER T)
+(PAUSE)
+; show paths should display the following path graphically in a display window
+; 1.gfun-a1 gfun-a top-gfuntion
+; 2.        gfun-b1 gfun-b top-gfuntion
+; show paths should display the above path graphically in a display window
+; as being shown on the lower left from
+; {eris}<lispcore>test>program-analysis>browser.graph.
+; Loading the graph.......
+(PAUSE) 
+(IL:TEDIT '{eris}<lispcore>test>program-analysis>browser.graph BROWSERW)
+(IL:TTY.PROCESS 'EXEC)
+; 
+; The graph returned from BROWSER should look like the one that is being
+; displayed on the lower right. If they are identical, please enter 
+; (BROWSER-SUCCEEDED) else enter (BROWSER-FAILED)
+; at the end of the test. If it breaks, enter ^ in the break
+; window to return to exec. The result will automatically be logged
+; in {eris}<lispcore>test>program-analysis>browser.report.
+(PAUSE)
+(IL:PROMPTPRINT MESSAGE)
+. SHOW PATHS TO GFUN-A1 FROM TOP-GFUNTION
+")
+		(IL:BKSYSBUF BROWSER2-COMMAND-STRING)
+	)
+)
+
+STOP 
+
+
+
+

internal/test/env/program-analysis/hand/BROWSER-PART2.U.~2~

@@ -1 +1,131 @@
-;; Function To Be Tested: BROWSER-2  (Program Analysis)
+;; Function To Be Tested: BROWSER-2  (Program Analysis)
+;;
+;; Source: Lisp Library Modules Manual (Lyric Beta Release 2)
+;;		 Browser, Page 11
+;; Section: Program Analysis (Library)
+;;
+;; Created By:   John Park
+;;
+;; Creation Date: March 10, 1987
+;;
+;; Last Update:   March 11, 1987
+;;
+;; Somewhat Repaired:	June 16, 1988
+;;
+;; Filed As:      {ERIS}<lispcore>test>program-analysis>browser-part2.u
+;;
+;;
+;; Syntax:      (BROWSER T/NIL)
+;;
+;; Function Description: BROWSER modifies the SHOW PATHS command of Masterscope so that 
+;; the command's output is displayed as an undirected graph.  It creates a new window
+;; for each SHOW PATHS command, but will reuse a window if that window has an earlier
+;; instance of the same SHOW PATHS command displayed in it.
+;; 
+;; Argument(s):  T or NIL (SEE Browser documentation)
+;;			  
+;; Returns:    IL:MSPATHS  
+;;
+;; Constraints/Limitations: BROWSER modifies the SHOW PATHS command of Masterscope so that 
+;; the command's output is displayed as an undirected graph.  It creates a new window
+;; for each SHOW PATHS command, but will reuse a window if that window has an earlier
+;; instance of the same SHOW PATHS command displayed in it.  Part 1 of this test is 
+;; to determine if masterscope is unaffected when the BROWSER is not enabled or 
+;; (IL:BROWSER NIL). Part I also tests to see if grapher is automatically loaded
+;; by browser. Make sure that Part 1 is run before Part 2.  Part 2 of BROWSER test 
+;; determines if BROWSER modified masterscope in such a way that paths are displayed
+;; grahically in a display window.
+;;
+;; The tree structure of the functions being analyzed are as follows:
+;;
+;;				  Top-GFuntion
+;;					  |
+;;	      GFun-A------------------------GFun-B
+;;		  |						|
+;;    ---------------------              --------------------
+;;    |		  |	      |			|         |	    |
+;;  GFun-A1  GFun-A2  GFun-A3	  	 GFun-B1	 GFun-B2	  GFun-B3
+;;						     	   |
+;;					    	  --------------
+;;					   	  |		     |
+;;				     	   GFun-C1	       GFun-A1
+;;
+;;
+;; Messages will be printed before each command in the command files is executed
+;; for user monitoring.   Test result is logged on 
+;; {eris}<lispcore>test>program-analysis>masterscope.report 
+
+(DO-TEST "BROWSER2-TEST-SETUP"
+	(PROGN 
+		(SETQ BROWSERW (IL:CREATEW '(100 100 325 90) NIL NIL T))
+		(SETQ TEST-RESULT "{ERIS}<LISPCORE>TEST>PROGRAM-ANALYSIS>BROWSER.REPORT")
+		(DEFUN BROWSER-FAILED NIL (PROGN
+							(PASS-FAIL 'BROWSER-DISPLAY NIL)
+							(IL:CLOSEW BROWSERW)
+							(IL:CLRPROMPT)))
+		(DEFUN BROWSER-SUCCEEDED NIL (PROGN
+							(PASS-FAIL 'BROWSER-DISPLAY T)
+							(IL:CLOSEW BROWSERW)
+							(IL:CLRPROMPT)))
+		(SETQ MESSAGE "		Please enter (BROWSER-SUCCEEDED) if test has succeeded
+			or (BROWSER-FAILED) if test has failed.")
+; Reinitialize and Define functions to be analyzed....
+(PAUSE)
+(IL:MASTERSCOPE '(ERASE))
+(DEFUN TOP-GFUNTION NIL (AND (GFUN-A) (GFUN-B)))
+(DEFUN GFUN-A NIL (OR (GFUN-A1) (GFUN-A2) (GFUN-A3)))
+(DEFUN GFUN-B NIL (OR (GFUN-B1) (GFUN-B2) (GFUN-B3)))
+(DEFUN GFUN-A1 NIL T)
+(DEFUN GFUN-A2 NIL NIL)
+(DEFUN GFUN-A3 NIL T)
+(DEFUN GFUN-B1 NIL (AND (GFUN-C1)(GFUN-A1)))
+(DEFUN GFUN-B2 NIL NIL)
+(DEFUN GFUN-B3 NIL T)
+(DEFUN GFUN-C1 NIL NIL)
+
+; Start analyzing functions in gtop-function and others...
+(PAUSE)
+(IL:MASTERSCOPE '(ANALYZE TOP-GFUNTION))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A1))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A2))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A3))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B1))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B2))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B3))
+(IL:MASTERSCOPE '(ANALYZE GFUN-C1))
+
+; Browser is now loaded and activated by Part 1 test of browser
+; Part 2 of this test is to determine if masterscope is modified by enabling
+; the BROWSER or (IL:BROWSER T)
+(IL:BROWSER T)
+(PAUSE)
+; show paths should display the following path graphically in a display window
+; 1.gfun-a1 gfun-a top-gfuntion
+; 2.        gfun-b1 gfun-b top-gfuntion
+; show paths should display the above path graphically in a display window
+; as being shown on the lower left from
+; {eris}<lispcore>test>program-analysis>browser.graph.
+; Loading the graph.......
+(PAUSE) 
+; 
+; The graph returned from BROWSER should look like the one that is being
+; displayed on the lower right. If they are identical, please enter 
+; (BROWSER-SUCCEEDED) else enter (BROWSER-FAILED)
+; at the end of the test. If it breaks, enter ^ in the break
+; window to return to exec. The result will automatically be logged
+; in {eris}<lispcore>test>program-analysis>browser.report.
+(PAUSE)
+(IL:PROMPTPRINT MESSAGE)
+(IL:MASTERSCOPE '(SHOW PATHS TO GFUN-A1 FROM TOP-GFUNTION))
+(PASS-FAIL 'BROWSER-DISPLAY (Y-OR-N-P "Did the browser work? "))
+
+	)
+)
+
+STOP 
+
+
+
+

internal/test/env/program-analysis/hand/BROWSER-PART2.U.~3~

@@ -1 +1,118 @@
-;; Function To Be Tested: BROWSER-2  (Program Analysis)
+;; Function To Be Tested: BROWSER-2  (Program Analysis)
+;;
+;; Source: Lisp Library Modules Manual (Lyric Beta Release 2)
+;;		 Browser, Page 11
+;; Section: Program Analysis (Library)
+;;
+;; Created By:   John Park
+;;
+;; Creation Date: March 10, 1987
+;;
+;; Last Update:   March 11, 1987
+;;
+;; Somewhat Repaired:	June 16, 1988
+;;
+;; Filed As:      {ERIS}<lispcore>test>program-analysis>browser-part2.u
+;;
+;;
+;; Syntax:      (BROWSER T/NIL)
+;;
+;; Function Description: BROWSER modifies the SHOW PATHS command of Masterscope so that 
+;; the command's output is displayed as an undirected graph.  It creates a new window
+;; for each SHOW PATHS command, but will reuse a window if that window has an earlier
+;; instance of the same SHOW PATHS command displayed in it.
+;; 
+;; Argument(s):  T or NIL (SEE Browser documentation)
+;;			  
+;; Returns:    IL:MSPATHS  
+;;
+;; Constraints/Limitations: BROWSER modifies the SHOW PATHS command of Masterscope so that 
+;; the command's output is displayed as an undirected graph.  It creates a new window
+;; for each SHOW PATHS command, but will reuse a window if that window has an earlier
+;; instance of the same SHOW PATHS command displayed in it.  Part 1 of this test is 
+;; to determine if masterscope is unaffected when the BROWSER is not enabled or 
+;; (IL:BROWSER NIL). Part I also tests to see if grapher is automatically loaded
+;; by browser. Make sure that Part 1 is run before Part 2.  Part 2 of BROWSER test 
+;; determines if BROWSER modified masterscope in such a way that paths are displayed
+;; grahically in a display window.
+;;
+;; The tree structure of the functions being analyzed are as follows:
+;;
+;;				  Top-GFuntion
+;;					  |
+;;	      GFun-A------------------------GFun-B
+;;		  |						|
+;;    ---------------------              --------------------
+;;    |		  |	      |			|         |	    |
+;;  GFun-A1  GFun-A2  GFun-A3	  	 GFun-B1	 GFun-B2	  GFun-B3
+;;						     	   |
+;;					    	  --------------
+;;					   	  |		     |
+;;				     	   GFun-C1	       GFun-A1
+;;
+;;
+;; Messages will be printed before each command in the command files is executed
+;; for user monitoring.   Test result is logged on 
+;; {eris}<lispcore>test>program-analysis>masterscope.report 
+
+(DO-TEST "BROWSER2-TEST-SETUP"
+
+		(IL:FILESLOAD (IL:SYSLOAD) MASTERSCOPE BROWSER GRAPHER)
+		(SETQ BROWSERW (IL:CREATEW '(100 100 325 90) NIL NIL T))
+
+; Reinitialize and Define functions to be analyzed....
+(PAUSE)
+(IL:MASTERSCOPE '(ERASE))
+(DEFUN TOP-GFUNTION NIL (AND (GFUN-A) (GFUN-B)))
+(DEFUN GFUN-A NIL (OR (GFUN-A1) (GFUN-A2) (GFUN-A3)))
+(DEFUN GFUN-B NIL (OR (GFUN-B1) (GFUN-B2) (GFUN-B3)))
+(DEFUN GFUN-A1 NIL T)
+(DEFUN GFUN-A2 NIL NIL)
+(DEFUN GFUN-A3 NIL T)
+(DEFUN GFUN-B1 NIL (AND (GFUN-C1)(GFUN-A1)))
+(DEFUN GFUN-B2 NIL NIL)
+(DEFUN GFUN-B3 NIL T)
+(DEFUN GFUN-C1 NIL NIL)
+
+; Start analyzing functions in gtop-function and others...
+(PAUSE)
+(IL:MASTERSCOPE '(ANALYZE TOP-GFUNTION))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A1))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A2))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A3))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B1))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B2))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B3))
+(IL:MASTERSCOPE '(ANALYZE GFUN-C1))
+
+; Browser is now loaded and activated by Part 1 test of browser
+; Part 2 of this test is to determine if masterscope is modified by enabling
+; the BROWSER or (IL:BROWSER T)
+(IL:BROWSER T)
+; show paths should display the following path graphically in a display window
+; 1.gfun-a1 gfun-a top-gfuntion
+; 2.        gfun-b1 gfun-b top-gfuntion
+; show paths should display the above path graphically in a display window
+; as being shown on the lower left from
+; {eris}<lispcore>test>program-analysis>browser.graph.
+; Loading the graph.......
+; 
+; The graph returned from BROWSER should look like the one that is being
+; displayed on the lower right. If they are identical, please enter 
+; (BROWSER-SUCCEEDED) else enter (BROWSER-FAILED)
+; at the end of the test. If it breaks, enter ^ in the break
+; window to return to exec. The result will automatically be logged
+; in {eris}<lispcore>test>program-analysis>browser.report.
+(IL:MASTERSCOPE '(SHOW PATHS TO GFUN-A1 FROM TOP-GFUNTION))
+(PASS-FAIL 'BROWSER-DISPLAY (Y-OR-N-P "Did the browser work? "))
+
+	
+)
+
+STOP 
+
+
+
+

internal/test/env/program-analysis/hand/BROWSER-PART2.U.~4~

@@ -1 +1,115 @@
-;; Function To Be Tested: BROWSER-2  (Program Analysis)
+;; Function To Be Tested: BROWSER-2  (Program Analysis)
+;;
+;; Source: Lisp Library Modules Manual (Lyric Beta Release 2)
+;;		 Browser, Page 11
+;; Section: Program Analysis (Library)
+;;
+;; Created By:   John Park
+;;
+;; Creation Date: March 10, 1987
+;;
+;; Last Update:   March 11, 1987
+;;
+;; Somewhat Repaired:	June 16, 1988
+;;
+;; Filed As:      {ERIS}<lispcore>test>program-analysis>browser-part2.u
+;;
+;;
+;; Syntax:      (BROWSER T/NIL)
+;;
+;; Function Description: BROWSER modifies the SHOW PATHS command of Masterscope so that 
+;; the command's output is displayed as an undirected graph.  It creates a new window
+;; for each SHOW PATHS command, but will reuse a window if that window has an earlier
+;; instance of the same SHOW PATHS command displayed in it.
+;; 
+;; Argument(s):  T or NIL (SEE Browser documentation)
+;;			  
+;; Returns:    IL:MSPATHS  
+;;
+;; Constraints/Limitations: BROWSER modifies the SHOW PATHS command of Masterscope so that 
+;; the command's output is displayed as an undirected graph.  It creates a new window
+;; for each SHOW PATHS command, but will reuse a window if that window has an earlier
+;; instance of the same SHOW PATHS command displayed in it.  Part 1 of this test is 
+;; to determine if masterscope is unaffected when the BROWSER is not enabled or 
+;; (IL:BROWSER NIL). Part I also tests to see if grapher is automatically loaded
+;; by browser. Make sure that Part 1 is run before Part 2.  Part 2 of BROWSER test 
+;; determines if BROWSER modified masterscope in such a way that paths are displayed
+;; grahically in a display window.
+;;
+;; The tree structure of the functions being analyzed are as follows:
+;;
+;;				  Top-GFuntion
+;;					  |
+;;	      GFun-A------------------------GFun-B
+;;		  |						|
+;;    ---------------------              --------------------
+;;    |		  |	      |			|         |	    |
+;;  GFun-A1  GFun-A2  GFun-A3	  	 GFun-B1	 GFun-B2	  GFun-B3
+;;						     	   |
+;;					    	  --------------
+;;					   	  |		     |
+;;				     	   GFun-C1	       GFun-A1
+;;
+;;
+;; Messages will be printed before each command in the command files is executed
+;; for user monitoring.   Test result is logged on 
+;; {eris}<lispcore>test>program-analysis>masterscope.report 
+
+(DO-TEST "BROWSER2-TEST-SETUP"
+
+		(IL:FILESLOAD (IL:SYSLOAD) MASTERSCOPE BROWSER GRAPHER)
+		(SETQ BROWSERW (IL:CREATEW '(100 100 325 90) NIL NIL T))
+
+; Reinitialize and Define functions to be analyzed....
+(IL:MASTERSCOPE '(ERASE))
+(DEFUN TOP-GFUNTION NIL (AND (GFUN-A) (GFUN-B)))
+(DEFUN GFUN-A NIL (OR (GFUN-A1) (GFUN-A2) (GFUN-A3)))
+(DEFUN GFUN-B NIL (OR (GFUN-B1) (GFUN-B2) (GFUN-B3)))
+(DEFUN GFUN-A1 NIL T)
+(DEFUN GFUN-A2 NIL NIL)
+(DEFUN GFUN-A3 NIL T)
+(DEFUN GFUN-B1 NIL (AND (GFUN-C1)(GFUN-A1)))
+(DEFUN GFUN-B2 NIL NIL)
+(DEFUN GFUN-B3 NIL T)
+(DEFUN GFUN-C1 NIL NIL)
+
+(IL:MASTERSCOPE '(ANALYZE TOP-GFUNTION))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A1))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A2))
+(IL:MASTERSCOPE '(ANALYZE GFUN-A3))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B1))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B2))
+(IL:MASTERSCOPE '(ANALYZE GFUN-B3))
+(IL:MASTERSCOPE '(ANALYZE GFUN-C1))
+
+; Browser is now loaded and activated by Part 1 test of browser
+; Part 2 of this test is to determine if masterscope is modified by enabling
+; the BROWSER or (IL:BROWSER T)
+(IL:BROWSER T)
+; show paths should display the following path graphically in a display window
+; 1.gfun-a1 gfun-a top-gfuntion
+; 2.        gfun-b1 gfun-b top-gfuntion
+; show paths should display the above path graphically in a display window
+; as being shown on the lower left from
+; {eris}<lispcore>test>program-analysis>browser.graph.
+; Loading the graph.......
+; 
+; The graph returned from BROWSER should look like the one that is being
+; displayed on the lower right. If they are identical, please enter 
+; (BROWSER-SUCCEEDED) else enter (BROWSER-FAILED)
+; at the end of the test. If it breaks, enter ^ in the break
+; window to return to exec. The result will automatically be logged
+; in {eris}<lispcore>test>program-analysis>browser.report.
+(IL:MASTERSCOPE '(SHOW PATHS TO GFUN-A1 FROM TOP-GFUNTION))
+(PASS-FAIL 'BROWSER-DISPLAY (Y-OR-N-P "Did the browser work? "))
+
+	
+)
+
+STOP 
+
+
+
+

internal/test/env/program-analysis/hand/BROWSER.REPORT

@@ -1 +1,39 @@
-
+
+
+
+
+COMMAND: BROWSER  TEST-ITEM: gragper-loaded?
+LISP VERSION: LYRIC of 26-Feb-87 21:33:01 
+STATUS:  success  DATE:  11-Mar-87 16:43:37  TESTER:  jpark.pasa
+
+COMMAND: BROWSER  TEST-ITEM: browser-disabled
+LISP VERSION: LYRIC of 26-Feb-87 21:33:01 
+STATUS:  success  DATE:  11-Mar-87 16:43:38  TESTER:  jpark.pasa
+
+COMMAND: BROWSER  TEST-ITEM: browser-display
+LISP VERSION: LYRIC of 26-Feb-87 21:33:01 
+STATUS:  fail  DATE:  11-Mar-87 17:00:40  TESTER:  jpark.pasa
+
+COMMAND: BROWSER  TEST-ITEM: browser-variables-bound?
+LISP VERSION: LYRIC of 26-Feb-87 21:33:01 
+STATUS:  success  DATE:  12-Mar-87 14:34:11  TESTER:  jpark.pasa
+
+COMMAND: BROWSER  TEST-ITEM: gragper-loaded?
+LISP VERSION: LYRIC of 26-Feb-87 21:33:01 
+STATUS:  success  DATE:  12-Mar-87 14:34:15  TESTER:  jpark.pasa
+
+COMMAND: BROWSER  TEST-ITEM: browser-disabled
+LISP VERSION: LYRIC of 26-Feb-87 21:33:01 
+STATUS:  success  DATE:  12-Mar-87 14:34:15  TESTER:  jpark.pasa
+
+COMMAND: BROWSER  TEST-ITEM: BROWSER-VARIABLES-BOUND?
+LISP VERSION: LYRIC of 11-Mar-87 13:49:38 
+STATUS:  SUCCESS  DATE:   9-Apr-87 08:38:45  TESTER:  SCHUSTER
+
+COMMAND: BROWSER  TEST-ITEM: GRAGPER-LOADED?
+LISP VERSION: LYRIC of 11-Mar-87 13:49:38 
+STATUS:  FAIL  DATE:   9-Apr-87 08:38:48  TESTER:  SCHUSTER
+
+COMMAND: BROWSER  TEST-ITEM: BROWSER-DISABLED
+LISP VERSION: LYRIC of 11-Mar-87 13:49:38 
+STATUS:  SUCCESS  DATE:   9-Apr-87 08:38:51  TESTER:  SCHUSTER

internal/test/env/program-analysis/hand/DATABASEFNS.REPORT

@@ -1 +1,64 @@
-TEST REPORT FOR DATABASEFNS
+TEST REPORT FOR DATABASEFNS
+
+
+COMMAND: DATABASEFNS  TEST-ITEM: DABASEFNS-VARIABLES
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:26:26  TESTER:  JPARK.PASA
+
+COMMAND: DATABASEFNS  TEST-ITEM: DATABASE-UPDATE
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  FAIL  DATE:  20-Mar-87 16:26:26  TESTER:  JPARK.PASA
+
+COMMAND: DATABASEFNS  TEST-ITEM: DATABASE-CREATED
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:26:27  TESTER:  JPARK.PASA
+
+COMMAND: DATABASEFNS  TEST-ITEM: DATABASE-PROP-RESET
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:26:27  TESTER:  JPARK.PASA
+
+COMMAND: DATABASEFNS  TEST-ITEM: DATABASE-CREATED-BY-MAKEFILE
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:26:27  TESTER:  JPARK.PASA
+
+COMMAND: DATABASEFNS  TEST-ITEM: LOADDB-FLG-NO
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:26:28  TESTER:  JPARK.PASA
+
+COMMAND: DATABASEFNS  TEST-ITEM: LOADDB-FLG-YES
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:26:29  TESTER:  JPARK.PASA
+
+
+TOTAL TEST RUN TIME FOR DATABASEFNS: 2.43125 MINUTES 
+
+COMMAND: DATABASEFNS  TEST-ITEM: DABASEFNS-VARIABLES
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:50:33  TESTER:  JPARK.PASA
+
+COMMAND: DATABASEFNS  TEST-ITEM: DATABASE-UPDATE
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:50:35  TESTER:  JPARK.PASA
+
+COMMAND: DATABASEFNS  TEST-ITEM: DATABASE-CREATED
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:50:35  TESTER:  JPARK.PASA
+
+COMMAND: DATABASEFNS  TEST-ITEM: DATABASE-PROP-RESET
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:50:35  TESTER:  JPARK.PASA
+
+COMMAND: DATABASEFNS  TEST-ITEM: DATABASE-CREATED-BY-MAKEFILE
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:50:36  TESTER:  JPARK.PASA
+
+COMMAND: DATABASEFNS  TEST-ITEM: LOADDB-FLG-NO
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:50:36  TESTER:  JPARK.PASA
+
+COMMAND: DATABASEFNS  TEST-ITEM: LOADDB-FLG-YES
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  20-Mar-87 16:50:36  TESTER:  JPARK.PASA
+
+
+TOTAL TEST RUN TIME FOR DATABASEFNS: 2.4325666 MINUTES 

internal/test/env/program-analysis/hand/MASTERSCOPE.REPORT

@@ -1 +1,86 @@
-TEST REPORT FOR MASTERSCOPE (PROGRAM ANALYSIS)
+TEST REPORT FOR MASTERSCOPE (PROGRAM ANALYSIS)
+
+
+COMMAND: MASTERSCOPE
+LISP VERSION: LYRIC of 18-Feb-87 20:00:06 
+STATUS:  success  DATE:   6-Mar-87 16:22:05  TESTER:  jpark.pasa
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: who-calls
+LISP VERSION: LYRIC of 18-Feb-87 20:00:06 
+STATUS:  success  DATE:   6-Mar-87 16:22:08  TESTER:  jpark.pasa
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: show-paths
+LISP VERSION: LYRIC of 18-Feb-87 20:00:06 
+STATUS:  success  DATE:   6-Mar-87 16:22:08  TESTER:  jpark.pasa
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: erased
+LISP VERSION: LYRIC of 18-Feb-87 20:00:06 
+STATUS:  success  DATE:   6-Mar-87 16:22:08  TESTER:  jpark.pasa
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: who-is-called-by
+LISP VERSION: LYRIC of 18-Feb-87 20:00:06 
+STATUS:  success  DATE:   6-Mar-87 16:22:09  TESTER:  jpark.pasa
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: reanalyze
+LISP VERSION: LYRIC of 18-Feb-87 20:00:06 
+STATUS:  success  DATE:   6-Mar-87 16:22:09  TESTER:  jpark.pasa
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: describe
+LISP VERSION: LYRIC of 18-Feb-87 20:00:06 
+STATUS:  success  DATE:   6-Mar-87 16:22:10  TESTER:  jpark.pasa
+
+COMMAND: MASTERSCOPE
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  FAIL  DATE:   3-Apr-87 08:34:10  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: WHO-CALLS
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  FAIL  DATE:   3-Apr-87 08:34:13  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: SHOW-PATHS
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:   3-Apr-87 08:34:14  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: ERASED
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:   3-Apr-87 08:34:14  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: WHO-IS-CALLED-BY
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:   3-Apr-87 08:34:15  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: REANALYZE
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:   3-Apr-87 08:34:15  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: DESCRIBE
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:   3-Apr-87 08:34:16  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE
+LISP VERSION: LYRIC of 11-Mar-87 13:49:38 
+STATUS:  SUCCESS  DATE:   9-Apr-87 07:22:06  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: WHO-CALLS
+LISP VERSION: LYRIC of 11-Mar-87 13:49:38 
+STATUS:  SUCCESS  DATE:   9-Apr-87 07:22:09  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: SHOW-PATHS
+LISP VERSION: LYRIC of 11-Mar-87 13:49:38 
+STATUS:  SUCCESS  DATE:   9-Apr-87 07:22:09  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: ERASED
+LISP VERSION: LYRIC of 11-Mar-87 13:49:38 
+STATUS:  SUCCESS  DATE:   9-Apr-87 07:22:11  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: WHO-IS-CALLED-BY
+LISP VERSION: LYRIC of 11-Mar-87 13:49:38 
+STATUS:  SUCCESS  DATE:   9-Apr-87 07:22:11  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: REANALYZE
+LISP VERSION: LYRIC of 11-Mar-87 13:49:38 
+STATUS:  SUCCESS  DATE:   9-Apr-87 07:22:12  TESTER:  SCHUSTER
+
+COMMAND: MASTERSCOPE  COMMAND LANGUAGE: DESCRIBE
+LISP VERSION: LYRIC of 11-Mar-87 13:49:38 
+STATUS:  SUCCESS  DATE:   9-Apr-87 07:22:13  TESTER:  SCHUSTER

internal/test/env/program-analysis/hand/SPY.REPORT

@@ -1 +1,88 @@
-TEST REPORT FOR SPY (PROGRAM ANALYSIS)
+TEST REPORT FOR SPY (PROGRAM ANALYSIS)
+
+
+COMMAND: SPY  TEST-ITEM: FUNCTION-VARIABLE-DEFINITION
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  18-Mar-87 10:38:23  TESTER:  JPARK.PASA
+
+COMMAND: SPY  TEST-ITEM: SPY-INITIAL-VALUES
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  18-Mar-87 10:38:25  TESTER:  JPARK.PASA
+
+COMMAND: SPY  TEST-ITEM: FUNCTION-VARIABLE-DEFINITION
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  18-Mar-87 10:38:26  TESTER:  JPARK.PASA
+
+COMMAND: SPY  TEST-ITEM: SPY-BUTTON-ON
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  18-Mar-87 10:38:26  TESTER:  JPARK.PASA
+
+COMMAND: SPY  TEST-ITEM: SPY-BUTTON-OFF
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  18-Mar-87 10:38:27  TESTER:  JPARK.PASA
+
+COMMAND: SPY  TEST-ITEM: SPY-START
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  18-Mar-87 10:38:27  TESTER:  JPARK.PASA
+
+COMMAND: SPY  TEST-ITEM: SPY-END
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  18-Mar-87 10:38:28  TESTER:  JPARK.PASA
+
+COMMAND: SPY  TEST-ITEM: SPY-TOGGLE
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  18-Mar-87 10:38:28  TESTER:  JPARK.PASA
+
+COMMAND: SPY  TEST-ITEM: WITH-SPY
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  18-Mar-87 10:38:28  TESTER:  JPARK.PASA
+
+COMMAND: SPY  TEST-ITEM: SPY-TREE
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  18-Mar-87 10:38:29  TESTER:  JPARK.PASA
+
+
+TOTAL TEST RUN TIME FOR SPY: 2.46365 MINUTES 
+
+COMMAND: SPY  TEST-ITEM: FUNCTION-VARIABLE-DEFINITION
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  31-Mar-87 13:35:08  TESTER:  SCHUSTER
+
+COMMAND: SPY  TEST-ITEM: SPY-INITIAL-VALUES
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  31-Mar-87 13:35:13  TESTER:  SCHUSTER
+
+COMMAND: SPY  TEST-ITEM: FUNCTION-VARIABLE-DEFINITION
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  31-Mar-87 13:35:13  TESTER:  SCHUSTER
+
+COMMAND: SPY  TEST-ITEM: SPY-BUTTON-ON
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  31-Mar-87 13:35:14  TESTER:  SCHUSTER
+
+COMMAND: SPY  TEST-ITEM: SPY-BUTTON-OFF
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  31-Mar-87 13:35:14  TESTER:  SCHUSTER
+
+COMMAND: SPY  TEST-ITEM: SPY-START
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  31-Mar-87 13:35:14  TESTER:  SCHUSTER
+
+COMMAND: SPY  TEST-ITEM: SPY-END
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  31-Mar-87 13:35:15  TESTER:  SCHUSTER
+
+COMMAND: SPY  TEST-ITEM: SPY-TOGGLE
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  31-Mar-87 13:35:16  TESTER:  SCHUSTER
+
+COMMAND: SPY  TEST-ITEM: WITH-SPY
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  31-Mar-87 13:35:16  TESTER:  SCHUSTER
+
+COMMAND: SPY  TEST-ITEM: SPY-TREE
+LISP VERSION: LYRIC of 11-Mar-87 13:34:07 
+STATUS:  SUCCESS  DATE:  31-Mar-87 13:35:17  TESTER:  SCHUSTER
+
+
+TOTAL TEST RUN TIME FOR SPY: 2.47435 MINUTES 

internal/test/env/program-analysis/hand/databasefns.data

@@ -1 +1,22 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
+(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
+
(FILECREATED "19-Mar-87 10:54:40" {DSK}<LISPFILES>LIBRARY>NEW-FUNCTION.\;1
 629    
+
+      |changes| |to:|  (VARS NEW-FUNCTIONCOMS)
+                       (FNS NEW-FUNCTION))
+
+
+; Copyright (c) 1987 by XEROX Corporation.  All rights reserved.
+
+(PRETTYCOMPRINT NEW-FUNCTIONCOMS)
+
+(RPAQQ NEW-FUNCTIONCOMS
 ((FNS NEW-FUNCTION)))
+(DEFINEQ
+
+(NEW-FUNCTION

+  (LAMBDA (X Y)
                                             (* \; "Edited 19-Mar-87 10:52 by jpark")

+    (PLUS X Y)))
+)
+(PUTPROPS NEW-FUNCTION COPYRIGHT ("XEROX Corporation" 1987))
+(DECLARE\: DONTCOPY
+  (FILEMAP (NIL (390 545 (NEW-FUNCTION 400 . 543)))))
+STOP

internal/test/env/program-analysis/hand/databasefns.data.~1~

@@ -1 +1,22 @@
-(DEFINE-FILE-INFO §READTABLE "XCL" §PACKAGE "INTERLISP")
+(DEFINE-FILE-INFO §READTABLE "XCL" §PACKAGE "INTERLISP")
+
(FILECREATED "19-Mar-87 10:54:40" {DSK}<LISPFILES>LIBRARY>NEW-FUNCTION.\;1
 629    
+
+      |changes| |to:|  (VARS NEW-FUNCTIONCOMS)
+                       (FNS NEW-FUNCTION))
+
+
+; Copyright (c) 1987 by XEROX Corporation.  All rights reserved.
+
+(PRETTYCOMPRINT NEW-FUNCTIONCOMS)
+
+(RPAQQ NEW-FUNCTIONCOMS
 ((FNS NEW-FUNCTION)))
+(DEFINEQ
+
+(NEW-FUNCTION

+  (LAMBDA (X Y)
                                             (* \; "Edited 19-Mar-87 10:52 by jpark")

+    (PLUS X Y)))
+)
+(PUTPROPS NEW-FUNCTION COPYRIGHT ("XEROX Corporation" 1987))
+(DECLARE\: DONTCOPY
+  (FILEMAP (NIL (390 545 (NEW-FUNCTION 400 . 543)))))
+STOP

internal/test/env/program-analysis/hand/databasefns.data.~2~

@@ -1 +1,22 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
+(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
+
(FILECREATED "19-Mar-87 10:54:40" {DSK}<LISPFILES>LIBRARY>NEW-FUNCTION.\;1
 629    
+
+      |changes| |to:|  (VARS NEW-FUNCTIONCOMS)
+                       (FNS NEW-FUNCTION))
+
+
+; Copyright (c) 1987 by XEROX Corporation.  All rights reserved.
+
+(PRETTYCOMPRINT NEW-FUNCTIONCOMS)
+
+(RPAQQ NEW-FUNCTIONCOMS
 ((FNS NEW-FUNCTION)))
+(DEFINEQ
+
+(NEW-FUNCTION

+  (LAMBDA (X Y)
                                             (* \; "Edited 19-Mar-87 10:52 by jpark")

+    (PLUS X Y)))
+)
+(PUTPROPS NEW-FUNCTION COPYRIGHT ("XEROX Corporation" 1987))
+(DECLARE\: DONTCOPY
+  (FILEMAP (NIL (390 545 (NEW-FUNCTION 400 . 543)))))
+STOP