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
ad110a98
Commit
ad110a98
authored
Apr 23, 1991
by
ram
Browse files
Added context sensitive declarations and SMALL conditionalization.
parent
b6966eb8
Changes
1
Hide whitespace changes
Inline
Side-by-side
tools/worldcom.lisp
View file @
ad110a98
...
...
@@ -10,9 +10,23 @@
(
in-package
"USER"
)
(
c::%proclaim
'
(
optimize
(
speed
2
)
(
space
2
)
(
c::brevity
2
)))
(
with-compiler-log-file
(
"target:compile-lisp.log"
)
(
c::%proclaim
'
)
(
with-compiler-log-file
(
"target:compile-lisp.log"
:optimize
'
(
optimize
(
speed
2
)
(
space
2
)
(
inhibit-warnings
2
)
(
debug-info
#-
small
2
#+
small
1
)
(
safety
#-
small
1
#+
small
0
))
:optimize-interface
'
(
optimize-interface
(
safety
#-
small
2
#+
small
1
)
(
debug-info
1
))
:context-declarations
'
(((
:or
:external
(
:and
(
:match
"%"
)
(
:match
"SET"
)))
(
declare
(
optimize-interface
(
safety
2
))))
((
:or
(
:and
:external
:macro
)
(
match
"$PARSE-"
))
(
declare
(
optimize
(
safety
2
))))
((
:and
:external
(
:match
"LIST"
))
(
declare
(
optimize
(
safety
1
))))))
(
let
((
*features*
(
cons
(
intern
(
c:backend-name
c:*backend*
)
...
...
@@ -68,7 +82,10 @@
(
comf
"target:code/array"
)
(
comf
"target:code/hash"
)
(
comf
"target:code/list"
)
(
with-compilation-unit
(
:optimize
'
(
optimize
(
safety
1
)))
(
comf
"target:code/list"
))
(
comf
"target:code/seq"
)
; seq must come after list
(
comf
"target:code/string"
)
(
comf
"target:code/mipsstrops"
)
...
...
@@ -159,13 +176,6 @@
#+
clx
(
comf
"target:code/clx-ext"
)
#|
These need serious work.
(comf "target:code/lfloatcon")
|#
(
comf
"target:code/foreign"
)
(
comf
"target:code/internet"
)
(
comf
"target:code/wire"
)
...
...
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