;;
;;    This functions loads in the indicated files. You
;;    will have to modify this to work on your own machine.
;;    Its set up here for loading from a UNIX directory starting
;;    from the directory NLPcode

(defvar *default-directory* ".")

(defun load-f (name)
	(load (format nil "~A/~A" *default-directory* name)))
