old files, but not ready to delete contents into archive.
[CommonLispStat.git] / src / makesys.lisp
blobbd4e6ac1a889f3a6aa4d85d69fdba3a41114633f
2 (load "defsys")
3 (ls::load-stats)
4 (ls::use-stats)
6 ;;; EXCL
8 #+excl
9 (progn
10 (setf *default-path* "./")
12 (dumplisp :name "cls"
13 :checkpoint nil
14 :restart-actions (append (copy-list *restart-actions*)
15 (list (cons :eval '(ls::ls-top-level))))))
17 ;;; KCL
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)))
26 (gbc nil)
27 (si:save-system "saved_kcls"))