-#+(or allegro lispworks cmu sbcl openmcl scl)
-(defsystem umlisp-tests
- :depends-on (rt umlisp)
- :components ((:file "tests")))
+(defmethod perform :after ((o load-op) (c (eql (find-system 'umlisp))))
+ (let* ((init-var (uffi:getenv "UMLISPRC"))
+ (init-file (or (when init-var (probe-file init-var))
+ (probe-file
+ (merge-pathnames
+ (make-pathname :name ".umlisprc")
+ (user-homedir-pathname)))
+ #+(or mswin windows win32)
+ (probe-file "c:\\etc\\umlisp-init.lisp"))))
+ (when init-file
+ (format t "loading umlisp init file ~A~%" init-file)
+ (load init-file))))