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
55a36731
Commit
55a36731
authored
May 24, 1991
by
ram
Browse files
Changed the debug-info level for internal functions to be .5, which now
suppresses arg documentation and function type information.
parent
92fd46ec
Changes
1
Hide whitespace changes
Inline
Side-by-side
tools/worldcom.lisp
View file @
55a36731
...
@@ -13,13 +13,14 @@
...
@@ -13,13 +13,14 @@
(
with-compiler-log-file
(
with-compiler-log-file
(
"target:compile-lisp.log"
(
"target:compile-lisp.log"
:optimize
'
(
optimize
(
speed
2
)
(
space
2
)
(
inhibit-warnings
2
)
:optimize
'
(
optimize
(
speed
2
)
(
space
2
)
(
inhibit-warnings
2
)
(
debug-info
#-
small
2
#+
small
1
)
(
debug-info
#-
small
2
#+
small
.5
)
(
safety
#-
small
1
#+
small
0
))
(
safety
#-
small
1
#+
small
0
))
:optimize-interface
'
(
optimize-interface
(
safety
#-
small
2
#+
small
1
)
:optimize-interface
'
(
optimize-interface
(
safety
#-
small
2
#+
small
1
)
(
debug-info
1
))
(
debug-info
.5
))
:context-declarations
:context-declarations
'
(((
:or
:external
(
:and
(
:match
"%"
)
(
:match
"SET"
)))
'
(((
:or
:external
(
:and
(
:match
"%"
)
(
:match
"SET"
)))
(
declare
(
optimize-interface
(
safety
2
))))
(
declare
(
optimize-interface
(
safety
2
)
(
debug-info
1
))
(
optimize
(
debug-info
1
))))
((
:or
(
:and
:external
:macro
)
((
:or
(
:and
:external
:macro
)
(
:match
"$PARSE-"
))
(
:match
"$PARSE-"
))
(
declare
(
optimize
(
safety
2
))))
(
declare
(
optimize
(
safety
2
))))
...
...
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