;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:ZL -*-
;; load systems into world, clean up, gc

(progn
  (dolist (system '(local-file
		   file-server
		   unix-interface
		   tape
		   tiger
		   kermit
		   zmail
		   lambda-diag))
    (format t "~&Now making system ~a" system)
    (make-system system :noconfirm :silent))
  (setf (zwei:history-list zwei:*kill-history*) nil)
  (setf (zwei:history-length zwei:*kill-history*) 0)
  (format t "~&Systems loaded."))