% gcl				# Enter gcl from UNIX
GCL (GNU Common Lisp)  Version(2.4.0) Thu Mar 28 16:04:54 PST 2002
Licensed under GNU Library General Public License
Contains Enhancements by W. Schelter

>(load "xeval.l")		; Load your completed xeval program.
Loading xeval.l
Finished loading xeval.l
T

>(load "read-xeval-print.l")	; Load this to do interactive testing.
Loading read-xeval-print.l
Finished loading read-xeval-print.l
T

>(load "readfile-xeval-print.l")	; Load this when ready for final test.
Loading readfile-xeval-print.l
Finished loading readfile-xeval-print.l
T

>(readfile-xeval-print-loop)		; This will ask for and run test file.
Name of xeval test file: xeval-tests.xl

"-- BASIC ATOM TESTS --" 
10 
"hi" 
NIL 
T 
Error: The variable X is unbound.
NIL 
"-- XSETQ TESTS --" 
10 
10 
20 
20 
100 
100 
100 
200 
300 
100 
200 
300 
"-- XDEFUN TESTS --" 
XPRINT 
F 
G 
H 
100 
F 
MEMORY DUMP:
((X 100) (Y 200) (Z 30000) (XPRINT (X) ((PRINT X)))
 (F (X Y)
    ((XPRINT X) (XSETQ X (XQUOTE F)) (G X Y) (XPRINT X) (XPRINT Y)))
 (G (X Y)
    ((XPRINT X) (XSETQ X (XQUOTE G)) (XSETQ Z 30000) (H X Y NIL)
     (XPRINT X) (XPRINT Y)))
 (H (X Y Z) ((XSETQ Z (XSETQ X (XQUOTE H))) :DUMP)) (X F) (Y 200) (X G)
 (Y 200) (X H) (Y 200) (Z H))

G 
200 
F 
200 
200 
100 
200 
30000 
"-- XCOND TESTS --" 
XEQ 
NIL 
1 
10 
Z 
1 
2 
Z 
2 
2 
40 
40 
40 
"-- ADVANCED TESTS --" 
XNULL 
XADD1 
XCDR 
XLENGTH 
3 
2 

X> 	;Test has been read in, interactive read-xeval-print loop now entered.
	;Proceed to do debugging if necessary.

  ^C	;Type ctrl-C to leave read-xeval-print loop.
Correctable error: Console interrupt.
Signalled by READ.
If continued: Type :r to resume execution, or :q to quit to top level.
Broken at SYSTEM:TERMINAL-INTERRUPT.  Type :H for Help.
>>:q

Top level.
>(bye)
Bye.
% 	# Back at UNIX.