makesys.lisp

   1
   2 (load "defsys")
   3 (ls::load-stats)
   4 (ls::use-stats)
   5
   6 ;;; EXCL
   7
   8 #+excl
   9 (progn
  10   (setf *default-path* "./")
  11
  12   (dumplisp :name "cls"
  13             :checkpoint nil
  14             :restart-actions (append (copy-list *restart-actions*)
  15                                      (list (cons :eval '(ls::ls-top-level))))))
  16
  17 ;;; KCL
  18
  19 #+kcl
  20 (progn
  21   (defun si:top-level ()
  22   (in-package 'system::user)
  23   (incf system::*ihs-top* 2)
  24   (si:error-set (ls::ls-top-level)))
  25
  26   (gbc nil)
  27   (si:save-system "saved_kcls"))