#|
Loader for lgp.
c) 1999, Lee Spector

Load this file to load the lgp system in Macintosh Common Lisp.

|#

(setq *load-verbose* t
      *compile-verbose* t)

(defparameter *lgp-dir* 
  (ccl::mac-directory-namestring ccl::*loading-file-source-file*))

;; the files in the project
(defparameter *lgp-files*
  '("random.cl"
    "lgp.lisp"
    ))

(defun load-lgp ()
  (dolist (file *lgp-files*)
    (load (concatenate 'string *lgp-dir* file)))
  )

(load-lgp)