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
ab987d72
Commit
ab987d72
authored
Oct 11, 1990
by
ram
Browse files
Changed the DEBUG-SOURCE-NAME to be a vector of the top-level forms
for both :LISP and :STREAM.
parent
6c255f84
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/debug-dump.lisp
View file @
ab987d72
...
...
@@ -295,9 +295,8 @@
(
setf
(
debug-source-name
res
)
name
))
(
t
(
setf
(
debug-source-from
res
)
name
)
(
when
(
eq
name
:lisp
)
(
setf
(
debug-source-name
res
)
(
aref
(
file-info-forms
x
)
0
)))))
(
setf
(
debug-source-name
res
)
(
coerce
(
file-info-forms
x
)
'simple-vector
))))
res
))
(
source-info-files
info
)))
...
...
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