(in-package :user)
;;  Set the pathname appropriately to where the parser directory
;;   is located on your machine. All load functions within the parser
;;   use this function, so this is the only change require to set up the system.
;;   This is used to  maintain uniform code across different platforms

;;  The is the MacIntosh version

;; >>>>>>>> CHANGE THE NEXT LINE TO BE YOUR OWN PATH <<<<<<<<<<<<<<<<<<<

;(let ((*PATH* "/u/james/Code/NLUcode")


(let ((*PATH* "/amd/sundown/b/juiyuan/cornell/674/translator/allen") ; ---1234567890 don't touch 


	;;   >>>> AND CHANGE THIS ONE TO BE THE FILE_SEPARATOR: "/" for unix, ":" for Mac
	(*FILE-SEPARATOR* "/"))

  ;;  LOADF takes one or two strongs as arguments. If one string, it
  ;;  is a filename. If two, it is a directory and a file name,

  (defun loadf (id1 &optional id2)
    (if id2 
      (load (format nil "~a~a~a~a~a" 
	*PATH* *FILE-SEPARATOR* id1 *FILE-SEPARATOR* id2))
      (load (format nil "~a~a~a" *PATH* *FILE-SEPARATOR* id1))))
) ;; end scope of variable *PATH*
