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

(defpackage MICRO
  :use (LAMBDA GLOBAL))

(cond ((< (si:get-system-version) 115.)
       (defsystem imicro
	 (:name "IMicro")
	 (:patchable "sys:imicro;imicro")
	 (:pathname-default "sys:imicro;")
	 (:module lambda-symbols ("sys:ulambda;lambda-symbols") :package "LAMBDA")
	 (:module imicro ("symbol-table" "imicro"))
	 (:module components ("lambda-components"))
	 (:module support-microcode ("support-microcode"))
	 (:readfile lambda-symbols)
	 (:compile-load imicro (:readfile lambda-symbols))
	 (:compile-load components (:fasload imicro))
	 (:compile-load support-microcode (:fasload imicro components))
	 ))
      (t
       (defsystem imicro
	 (:name "IMicro")
	 (:patchable "sys:imicro;imicro")
	 (:pathname-default "sys:imicro;")
	 (:default-binary-file-type "QFASL115")
	 (:module lambda-symbols ("sys:ulambda;lambda-symbols") :package "LAMBDA")
	 (:module imicro ("symbol-table" "imicro"))
	 (:module components ("lambda-components"))
	 (:module support-microcode ("support-microcode"))
	 (:readfile lambda-symbols)
	 (:compile-load imicro (:readfile lambda-symbols))
	 (:compile-load components (:fasload imicro))
	 (:compile-load support-microcode (:fasload imicro components))
	 )))