Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
6bf1662c
Commit
6bf1662c
authored
Feb 12, 1992
by
ram
Browse files
Call PURIFY multiple times & make multiple info environments. Hopefully this
will improve locality.
parent
6e2e92c1
Changes
1
Hide whitespace changes
Inline
Side-by-side
tools/worldload.lisp
View file @
6bf1662c
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.
39
199
1/1
2/1
6
1
0:39:15 wlott
Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.
40
199
2/0
2/1
2
1
8:20:53 ram
Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -91,6 +91,14 @@
(
load
"code:foreign"
)
(
load
"code:setf-funs"
)
(
setq
*info-environment*
(
list*
(
make-info-environment
)
(
compact-info-environment
(
first
*info-environment*
)
:name
"Kernel"
)
(
rest
*info-environment*
)))
(
purify
:root-structures
`
(
lisp::%top-level
extensions:save-lisp
,
lisp::fop-codes
))
;;; Load the compiler.
#-
no-compiler
(
load
"c:loadcom.lisp"
)
...
...
@@ -101,6 +109,14 @@
(
set
'compiler-version
(
concatenate
'string
compiler-version
"("
*lisp-implementation-version*
")"
))
#-
no-compiler
(
progn
(
setq
*info-environment*
(
list*
(
make-info-environment
)
(
compact-info-environment
(
first
*info-environment*
)
:name
"Compiler"
)
(
rest
*info-environment*
)))
(
purify
:root-structures
'
(
compile-file
)))
;;; The pretty printer is part of the kernel core, but we can't turn in on
;;; until after the compiler is loaded because it compiles some lambdas
...
...
@@ -133,6 +149,9 @@
(
concatenate
'string
*hemlock-version*
" "
"("
*lisp-implementation-version*
")"
))
#-
(
and
no-clx
no-hemlock
)
(
purify
:root-structures
`
(
ed
#-
no-hemlock
,
hi::*global-command-table*
))
;;; PCL.
;;;
#-
no-pcl
(
load
"pcl:pclload"
)
...
...
@@ -159,16 +178,13 @@
(
setq
///
nil
)
(
setq
*load-verbose*
nil
)
(
setq
*info-environment*
(
list
(
make-info-environment
:name
"Working"
)
(
compact-info-environment
(
car
*info-environment*
))))
(
list*
(
make-info-environment
:name
"Working"
)
(
compact-info-environment
(
first
*info-environment*
)
:name
"Auxiliary"
)
(
rest
*info-environment*
)))
(
save-lisp
(
namestring
(
merge-pathnames
"lisp.core"
(
default-directory
)))
:purify
t
:init-function
#'
initial-init-function
:root-structures
`
(
ed
#-
no-hemlock
,
hi::*global-command-table*
lisp::%top-level
extensions:save-lisp
,
lisp::fop-codes
compile-file
)
#| :constants (cadr *info-environment*) |#
))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment