makesys.excl.dist

   1 (load "defsys")
   2 (ls::load-stats)
   3 (ls::use-stats)
   4
   5 (setf *default-path* "./")
   6
   7 ;; *** should force a gc here?
   8
   9 (dumplisp :name "cls"
  10           :checkpoint nil
  11           :restart-actions (append (copy-list *restart-actions*)
  12                                    (list (cons :eval '(ls::ls-top-level)))))
  13