;;; -*- Mode:LISP; Package:USER; Base:10 -*-

;;; Copyright (C) LISP Machine, Inc. 1986
;;;   See filename "Copyright" for
;;; licensing and release information.


(unless (find-package 'vista-library)
  (defpackage VISTA-LIBRARY
    (:nicknames "VL")
    (:use (lisp))))

(defpackage VISTA
  (:use vista-library obj lisp))

(defpackage VISTA-DEMO
  (:use vista vista-library obj lisp))

(unless (find-package 'vista-user)
  (defpackage VISTA-USER
    :nicknames "VU"
    :use (vista-library lisp)))

(use-package '(obj vista) 'vista-user)

;;;; System Definition for Vista Visobs

(defsystem visobs
  (:pathname-default "VISTA:VISOBS;")
  (:patchable "VISTA: VISOBS; PATCHES;")
  (:module patch "oblisp-patch")
  (:module visobs "visobs")
  (:module demos ("demo;hand" "demo;new-splotch" "demo;color-editor"
		  "demo;worldviewer"))
  (:compile-load patch)
  (:compile-load visobs (:fasload patch (vista-library vista-library))
		        (:fasload patch (vista-library vista-library)))
  (:compile-load demos
		 (:fasload patch visobs (vista-library devices))
		 (:fasload patch visobs (vista-library devices))))


;;;; System Definition for Vista

(defsystem vista
  (:pathname-default "VISTA:VISOBS;")
  (:component-systems vista-library visobs))