;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:ZL -*-
;;;
;;;  Definition of the system that represents the
;;;  K <-> Mac interface
;;;



(defpackage "MAC" :size 1000)


(defsystem K-MAC
  (:name "K-machine <--> MAC interface")
  (:package "MAC")
  (:pathname-default "kmac:v2;")		;was "lama:kmac-v2;" 
  (:module initial         ("share" "structures"))
  (:module major-cmd       "major-cmd")
  (:module keyboard        "keyboard")
  (:module path-host       ("mac-path" "mac-host"))
  (:module filesystem      ("filesystem" "stream"))
  (:module access          "macacc")
  (:compile-load initial)
  (:compile-load major-cmd      (:fasload initial))
  (:compile-load keyboard       (:fasload initial major-cmd))
  (:compile-load path-host)
  (:compile-load filesystem     (:fasload initial major-cmd keyboard path-host))
  (:compile-load access         (:fasload initial major-cmd path-host filesystem)))