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

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

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

;;;; System Definition for Vista

;;; fix Common Lisp in release < 3.97
(multiple-value-bind (major minor)
    (si:get-system-version 'system-revision-level)
    (if (and major minor
	     (= major 3)
	     (< minor 97))
	(intern 'si:atom 'lisp)))

(defconst *devices* '(iris black&white))

(defsystem vista-library
  (:pathname-default "VISTA:LIBRARY;")
  (:patchable "vista:library;patches;")
  (:module transforms "transforms")
  (:module transformations "transformations")
  (:module defvice "defvice")
  (:module vista-library ("vista-library" "vista-defs"))
  (:module devices ("black&white" "iris"))    ; "medium-res"
  (:module demo ("demo;tree" "demo;tetra" "demo-frame"))
  (:compile-load transforms)
  (:compile-load transformations (:fasload transforms) (:fasload transforms))
  (:compile-load defvice)
  (:compile-load vista-library (:fasload defvice transforms transformations)
		               (:fasload defvice transforms transformations))
  (:compile-load devices (:fasload vista-library) (:fasload vista-library))
  (:compile-load demo (:fasload devices) (:fasload devices)))