;;; -*- Mode: COMMON-LISP; Package: COMMON-LISP-USER -*-
;;
;; ______________________________________________________________________
;;
;; The Garnet User Interface Development Environment
;; Copyright (c) 1989, 1990 Carnegie Mellon University
;; All rights reserved.  The CMU software License Agreement specifies
;; the terms and conditions for use and redistribution.
;;
;; ______________________________________________________________________

;;; $Id::                                                                $
;;


(in-package "COMMON-LISP-USER")

(defparameter KR-Version-Number "2.3.4")

(format t "Loading KR...~%")

;; check first to see if pathname variable is set
;; (unless (boundp 'Garnet-Kr-PathName)
;;   (error
;;    "Load 'Garnet-Loader' first to set Garnet-Kr-PathName before loading KR."))

(Defparameter Garnet-Kr-Files
  '(;; "kr-macros"
;;    "kr-doc"
;;    "kr"
    ;; "constraints"
    ))

(dolist (file Garnet-Kr-Files)
  (garnet-load (concatenate 'string "kr:" file)))

(setf (get :garnet-modules :kr)  t)
(format t "...Done Kr.~%")