;  LOAD4

; Quiet the garbage collector

(setf *gc-silence* t)

; Load all the world files:

(load "tw.l")
(load "tw-interface.l")
(load-foreign-files '("twdisp.o")
		    '("-lcurses" "-ltermcap" "-lc"))

; Load all the plan-expansion files:

(def-foreign-function (moveplan (:return-type :simple-string))
    (rows :signed-32bit) (cols :signed-32bit)
    (grid :simple-string) (occupied :simple-string)
    (row :signed-32bit) (col :signed-32bit))

(def-foreign-function (pushplan (:return-type :simple-string))
    (rows :signed-32bit) (cols :signed-32bit)
    (grid :simple-string) (occupied :simple-string)
    (row :signed-32bit) (col :signed-32bit) (orientation :signed-32bit))

(load-foreign-files '("twmove.o" "twpush.o" 
		      "bfs.o" "heap.o"))

(load "pplan.l")


; Load all the agent files:

(load "agent-structures.l")
(load "tw-vars.l")
(load "save-history.l")
(load "agent.l")
(load "agent-access.l")
;(load "ex.l")


; Load all the parameter settings:

(load "defaults.l")
;(load "ctw.l")


(load "exper.l")



