; -*- Mode: Lisp; Package: (GPSG LISP); Base: 10; Syntax: Common-Lisp -*-
 
; Copyright (c) 1989 by the Massachusetts Institute of Technology
 
; Load in the components of the system.
 
; (in-package '(gpsg) :use '(lisp))

(eval-when (compile) (error "You're not supposed to compile this file!"))
 
(provide "EARLEY")
 
 
(defvar *earley-files* '("utilities" "earley" "rtn" "cfg" "gpsg"
                         "new-rule"))
(defvar *earley-directory* "/home/nl/gina/6863-98/")
 
(defun compile-earley ()
  (mapc #'(lambda (file)
            (let ((file-with-dir (concatenate 'string *earley-directory* file)))
              (compile-file file-with-dir)
              ;; (load file-with-dir)
              ))
        *earley-files*))
 
(defun load-earley ()
  (mapc #'(lambda (file)
            (let ((file-with-dir (concatenate 'string *earley-directory* file)))
              (load file-with-dir)))
        *earley-files*))
 
(load-earley)