10 (setf *default-path
* "./")
14 :restart-actions
(append (copy-list *restart-actions
*)
15 (list (cons :eval
'(ls::ls-top-level
))))))
21 (defun si:top-level
()
22 (in-package 'system
::user
)
23 (incf system
::*ihs-top
* 2)
24 (si:error-set
(ls::ls-top-level
)))
27 (si:save-system
"saved_kcls"))