; This bypasses most of the superfluous warning dialog boxes upon loading.

(setf *warn-on-redefinition* nil)





(defvar *default-device*)

(defvar *default-directory*)

(defvar *default-source-type*)

(defvar *default-object-type*)

(defvar *default-separator*)

(defvar *default-load-type*)



(setf *default-device*       "C")

(setf *default-directory* "473")



(setf *default-source-type*  "lsp")

(setf *default-object-type*  "fsl")

(setf *default-separator*    "\\")

(setf *default-load-type*    :SOURCE)

   

(lu:set-parameters 

    :device         *default-device*

    :directory      *default-directory*

    :source-type    *default-source-type*

    :object-type    *default-object-type*

    :separator      *default-separator*

    :load-type      *default-load-type*)



(defun load-agent ()

  (lu:ld-files 

   '("match" 

     "macrop-definition" 

     "macrop-forms"

     "percept" 

     "behavior-definition" 

     "behavior-forms"

     "truckworld-interface"

     "agent"

     "debug")))