Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
4ad388af
Commit
4ad388af
authored
Mar 10, 1990
by
ram
Browse files
Changed to new logical names.
parent
667686f8
Changes
1
Hide whitespace changes
Inline
Side-by-side
tools/comcom.lisp
View file @
4ad388af
...
...
@@ -5,23 +5,23 @@
(
with-compiler-log-file
(
"c:compile-compiler.log"
)
(
unless
*new-compile*
(
comf
"
n
code:fdefinition"
)
(
load
"
n
code:extensions.lisp"
)
(
comf
"code:fdefinition"
)
(
load
"code:extensions.lisp"
)
(
comf
"c:globaldb"
:load
t
)
(
unless
(
boundp
'ext::*info-environment*
)
(
c::globaldb-init
))
(
comf
"c:patch"
)
(
comf
"
n
code:macros"
:load
t
)
(
comf
"
n
code:extensions"
:bootstrap-macros
:both
)
(
load
"
n
code:extensions.fasl"
)
(
comf
"
n
code:struct"
:load
t
)
(
comf
"code:macros"
:load
t
)
(
comf
"code:extensions"
:bootstrap-macros
:both
)
(
load
"code:extensions.fasl"
)
(
comf
"code:struct"
:load
t
)
(
comf
"c:macros"
:load
t
:bootstrap-macros
:both
))
(
when
*new-compile*
(
comf
"
n
code:globals"
:always-once
t
)
; For global variables.
(
comf
"
n
code:struct"
:always-once
t
)
; For structures.
(
comf
"code:globals"
:always-once
t
)
; For global variables.
(
comf
"code:struct"
:always-once
t
)
; For structures.
(
comf
"c:globals"
:always-once
t
)
(
comf
"c:proclaim"
:always-once
t
))
; For COOKIE structure.
...
...
@@ -66,14 +66,14 @@
:bootstrap-macros
:both
:always-once
*new-compile*
)
(
comf
"
n
code:debug-info"
(
comf
"code:debug-info"
:load
t
:bootstrap-macros
:both
:always-once
*new-compile*
)
(
comf
"c:rt/assem-insts"
:load
t
)
#+
new-compiler
(
when
*new-compile*
(
comf
"c:eval-comp"
)
(
comf
"c:eval"
:bootstrap-macros
:both
)
...
...
@@ -85,7 +85,7 @@
(
comf
"c:debug-dump"
)
(
unless
*new-compile*
(
comf
"
n
code:constants"
:load
t
:proceed
t
)
(
comf
"code:constants"
:load
t
:proceed
t
)
(
comf
"assem:rompconst"
:load
t
:proceed
t
)
(
comf
"assem:assembler"
)
(
comf
"c:fop"
))
...
...
@@ -132,18 +132,18 @@
(
comf
"c:rt/genesis"
)
(
unless
*new-compile*
(
comf
"
n
code:defstruct"
)
(
comf
"
n
code:error"
)
(
comf
"
n
code:defrecord"
)
(
comf
"
n
code:defmacro"
)
(
comf
"
n
code:alieneval"
)
(
comf
"
n
code:c-call"
)
(
comf
"
n
code:salterror"
)
(
comf
"
n
code:sysmacs"
)
(
comf
"
n
code:machdef"
)
(
comf
"
n
code:mmlispdefs"
)
(
comf
"
n
icode:machdefs"
)
(
comf
"
n
icode:netnamedefs"
)
(
comf
"code:defstruct"
)
(
comf
"code:error"
)
(
comf
"code:defrecord"
)
(
comf
"code:defmacro"
)
(
comf
"code:alieneval"
)
(
comf
"code:c-call"
)
(
comf
"code:salterror"
)
(
comf
"code:sysmacs"
)
(
comf
"code:machdef"
)
(
comf
"code:mmlispdefs"
)
(
comf
"icode:machdefs"
)
(
comf
"icode:netnamedefs"
)
(
comf
"c:globaldb"
:output-file
"c:boot-globaldb.fasl"
:bootstrap-macros
:both
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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