makesys.kcl

   1 (load "defsys")
   2 (ls::load-stats)
   3 (ls::use-stats)
   4
   5 (defun si:top-level ()
   6   (in-package 'system::user)
   7   (incf system::*ihs-top* 2)
   8   (si:error-set (ls::ls-top-level)))
   9
  10 (gbc nil)
  11 (si:save-system "saved_kcls")