repo.or.cz
/
tsl.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Pristine Start using Luke's original CLS 1.0 alpha 1
[tsl.git]
/
makesys.kcl
blob
41fc852932c27acb101169422536e1668d969746
1
(load "defsys")
2
(ls::load-stats)
3
(ls::use-stats)
4
5
(defun si:top-level ()
6
(in-package 'system::user)
7
(incf system::*ihs-top* 2)
8
(si:error-set (ls::ls-top-level)))
9
10
(gbc nil)
11
(si:save-system "saved_kcls")