Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 28 lines (20 sloc) 0.451 kb
e5dce8f @blindglobe refactored makesys
authored
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"))
Something went wrong with that request. Please try again.