;-*- mode: lisp; package: lambda; base: 8 -*-

(if (not (fboundp 'lam:byte))
    (fset 'lam:byte #'global:byte))

(DEFUN LOAD-UA () (MAKE-SYSTEM "UA-LAMBDA" :COMPILE))

(DEFSYSTEM UA-LAMBDA
  (:PACKAGE LAMBDA)
  (:NAME "UA-Lambda")
  (:NICKNAMES "LA")
  (:PATHNAME-DEFAULT "SYS:ULAMBDA;")
  (:MODULE DEFS1 ("LAMBDA-SYMBOLS" "RAVEN-SYMBOLS" "COMMON-SYMBOLS"))
  (:MODULE DEFS2 ("REQUIRED-FUNCTIONS-AND-MACROS"))
  (:MODULE ASS ("LAMLP" "FREAD" "USYMLD"))
  (:COMPILE-LOAD DEFS1)
  (:COMPILE-LOAD DEFS2)
  (:COMPILE-LOAD ASS (:FASLOAD DEFS1) (:FASLOAD DEFS2))
  (:READFILE ("SYS:COLD;QCOM"
	      "SYS:COLD;SYSCONF"
	      "SYS:COLD;DEFMIC"
	      "SYS:COLD;DEFMIC-PROLOG"
	      "SYS:ULAMBDA;LAMSYM")
	     (:FASLOAD ASS))
  )