;;; -*- Mode: LISP; Syntax: Common-lisp; Package: USER; Base: 10 -*-

;;; This file contains all of the package that are used in the successor system
;;; Hopefully by creating them first, this will avoid some shadowing problems when
;;; systems are loaded in the incorrect order.

(unless (find-package 'rec)
  (make-package "RECORD" :nicknames '("REC") :use '("LISP")))

(unless (find-package 'dvi)
  (make-package "DVI" :use #-lucid'("RECORD" "LISP") 
		#+lucid '("RECORD" "LUCID-COMMON-LISP" "LISP")
		))

(unless (find-package 'menus)
  (make-package "MENUS" :use '("DVI" "RECORD" "LISP")))

(unless (find-package 'SPLINE)
  (make-package "SPLINE" :use '("DVI" "RECORD" "LISP")))

(unless (find-package 'shgc)
  (make-package "SHGC" :use '("MENUS" "DVI" "RECORD" "LISP")))

(unless (find-package 'sed)
  (make-package "SED" :use '("DVI" "RECORD" "LISP")))

(unless (find-package 'sgmt)
  (make-package "SGMT" :use '("SED" "MENUS" "DVI" "RECORD" "LISP")))


(unless (find-package 'grapher)
  (make-package "GRAPHER" :use '("MENUS" "DVI" "RECORD" "LISP")))

(unless (find-package 'vino)
  (make-package 'vino :use '(DVI RECORD LISP)))