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

(defun always (args) args t)

(defsystem kmc2
  (:name "KMC-SYSTEM")
  (:short-name "KmC")
  (:pathname-default "dj:keith;")
  (:module defs "kmc-defs")
  (:module stuff "kmc-read")
  (:module maybes ("kmctest1" "kmctest2"))
  (:compile-load defs)
  (:readfile stuff nil always)
  (:compile-load maybes nil (:fasload defs) si:choose-file-within-system si:choose-file-within-system))