;;; -*- Mode:LISP; Package:USER; Base:10 -*-
;;;
;;; The music system
;;;

(fs:set-logical-pathname-host "MUSIC"
			      :physical-host "dj"
			      :translations '(("*;*;" "<music.*.*>")
					      ("*;" "<music.*>")))
(defpackage midi (:use global))
(defpackage tf1 (:use global))
(defpackage mks10 (:use global))


(defsystem music
  (:module midi ("music:midi;midi-defs"))
  (:module tf1 ("music:tf1;tf1-structs"
		"music:tf1;tf1-control"))
  (:module mks10 ("music:mks10;mks10-control"))

  (:compile-load midi)
  (:compile-load tf1 (:fasload midi))
  (:compile-load mks10 (:fasload midi)))