Script started on Tue Sep 14 16:53:14 1999
rocky-gw - dutton - chall1 > pcl

GCL (GNU Common Lisp)  Version(2.2) Wed Jan 22 09:55:53 EST 1997
Licensed under GNU Public Library License
Contains Enhancements by W. Schelter

>(load "generate.l")
Loading generate.l
Compiling gazonk0.lsp.
End of Pass 1.  
End of Pass 2.  
OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3
Finished compiling gazonk0.lsp.
Loading gazonk0.o
start address -T 5cc82c Finished loading gazonk0.o
Compiling gazonk0.lsp.
End of Pass 1.  
End of Pass 2.  
OPTIMIZE levels: Safety=1 (No runtime error checking), Space=0, Speed=3
Finished compiling gazonk0.lsp.
Loading gazonk0.o
start address -T 5ca400 Finished loading gazonk0.o
Finished loading generate.l
T

>(load "tet st-generator.l")
Loading test-generator.l
Finished loading test-generator.l
T

>(in-package "pcl")
#<"PCL" package>

PCL>pa lace       (place 3 3)
#<POSITION 22123710>

PCL>(test-gn enerator 25  38)
-------------------------
(W)

-------------------------
(NORTH)
NORTH

-------------------------
(NORTH)
NORTH

-------------------------
(NW)

-------------------------
(W)

-------------------------
(SOUTH)
SOUTH

-------------------------
(AND (WEST) (W))
WEST

-------------------------
(NORTH)
NORTH

-------------------------
(SW)

-------------------------
(NOT (IF (WEST) (OR (E) (NE)) (NW)))
WEST

-------------------------
(EAST)
EAST

-------------------------
(IF (WEST) (NW) (NOT (EAST)))
WEST
EAST

-------------------------
(OR (SE) (AND (NW) (N)))

-------------------------
(IF (WEST) (NOT (SW)) (W))
WEST

-------------------------
(AND (AND (SW) (NORTH)) (S))
NORTH

-------------------------
(AND (NE) (OR (SE) (NW)))

-------------------------
(AND (WEST) (N))
WEST

-------------------------
(SW)

-------------------------
(WEST)
WEST

-------------------------
(SOUTH)
SOUTH

-------------------------
(N)

-------------------------
(NORTH)
NORTH

-------------------------
(NOT (NOT (NW)))

-------------------------
(IF (AND (NE) (NW)) (IF (NOT (SOUTH)) (OR (S) (NE)) (EAST)) (SOUTH))
SOUTH

-------------------------
(NORTH)
NORTH

-------------------------
(NORTH)
NORTH

-------------------------
(EAST)
EAST

-------------------------
(NORTH)
NORTH

-------------------------
(NORTH)
NORTH

-------------------------
(NE)

-------------------------
(NW)

-------------------------
(WEST)
WEST

-------------------------
(SOUTH)
SOUTH

-------------------------
(SOUTH)
SOUTH

-------------------------
(SOUTH)
SOUTH

-------------------------
(SOUTH)
SOUTH

-------------------------
(EAST)
EAST

NIL

PCL>(pa lace 3   45  2)
#<POSITION 30247554>

PCL>(test-generator 38)
-------------------------
(WEST)
WEST

-------------------------
(NOT (SOUTH))
SOUTH

-------------------------
(NORTH)
NORTH

-------------------------
(NORTH)
NORTH

-------------------------
(WEST)
WEST

-------------------------
(NE)

-------------------------
(NOT (SOUTH))
SOUTH

-------------------------
(W)

-------------------------
(EAST)
EAST

-------------------------
(E)

-------------------------
(WEST)
WEST

-------------------------
(NORTH)
NORTH

-------------------------
(SE)

-------------------------
(OR (AND (N) (S)) (NORTH))

-------------------------
(NORTH)
NORTH

-------------------------
(E)

-------------------------
(NOT (IF (OR (IF (AND (S) (NORTH))
                 (OR (OR (EAST) (N)) (IF (EAST) (EAST) (SE))) (EAST))
             (NORTH))
         (EAST) (NE)))
NORTH
EAST
NORTH

-------------------------
(OR (NOT (WEST)) (NOT (NW)))
WEST

-------------------------
(E)

-------------------------
(NORTH)
NORTH

-------------------------
(IF (NOT (EAST)) (EAST) (W))
EAST
EAST

-------------------------
(W)

-------------------------
(NORTH)
NORTH

-------------------------
(AND (WEST) (WEST))
WEST

-------------------------
(IF (NW) (EAST) (W))
EAST

-------------------------
(WEST)
WEST

-------------------------
(N)

-------------------------
(AND (S) (IF (NOT (IF (E) (SW) (EAST))) (SE) (NORTH)))
NORTH

-------------------------
(EAST)
EAST

-------------------------
(AND (SW) (AND (N) (NOT (WEST))))
WEST

-------------------------
(EAST)
EAST

-------------------------
(W)

-------------------------
(SOUTH)
SOUTH

-------------------------
(SE)

-------------------------
(NORTH)
NORTH

-------------------------
(SOUTH)
SOUTH

-------------------------
(NE)

NIL

PCL>(bye)
rocky-gw - dutton - chall1 > exit

rocky-gw - dutton - chall1 > exit

script done on Tue Sep 14 16:57:49 1999