(in-package :common-lisp-user)

;;; This attempts to set up a KPML-I package and a null kpml-i:startup
;;; function when the window interface is not being loaded. Seems to
;;; be something odd going on though.... something is wrong I'd say!
;;; John:Feb95


(eval-when 
 (compile load eval)
 
 (unless (find-package "KPML-I")
	 (make-package "KPML-I") 
	 (in-package "KPML-I")
	 (shadow #+Lucid '(lcl::warning)
		 #-Lucid '(penman::warning))))
	 






