;;; -*- 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))
    (make-system system :noconfirm))
  (setf (zwei:history-list zwei:*kill-history*) nil)
  (setf (zwei:history-length zwei:*kill-history*) 0)
  (gc:full-gc :mode :system-release)
  (print-disk-label)
  (format t "~&Systems loaded, full gc done."))