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
fdd1150a
Commit
fdd1150a
authored
Dec 11, 1991
by
ram
Browse files
Fixed function dumping to understand that it is now the TAIL-SET-INFO
that is conditionally present, and not the LAMBDA-TAIL-SET.
parent
20fe5f1a
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/debug-dump.lisp
View file @
fdd1150a
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.2
5
1991/
07/08
16:
36
:12 ram Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.2
6
1991/
12/11
16:
47
:12 ram Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -594,15 +594,14 @@
(
if
(
external-entry-point-p
fun
)
(
setf
(
compiled-debug-function-returns
dfun
)
:standard
)
(
let
((
tails
(
lambda-tail-set
fun
)))
(
when
tails
(
let
((
info
(
tail-set-info
tails
)))
(
cond
((
eq
(
return-info-kind
info
)
:unknown
)
(
setf
(
compiled-debug-function-returns
dfun
)
:standard
))
((
/=
level
0
)
(
setf
(
compiled-debug-function-returns
dfun
)
(
compute-debug-returns
fun
))))))))
(
let
((
info
(
tail-set-info
(
lambda-tail-set
fun
))))
(
when
info
(
cond
((
eq
(
return-info-kind
info
)
:unknown
)
(
setf
(
compiled-debug-function-returns
dfun
)
:standard
))
((
/=
level
0
)
(
setf
(
compiled-debug-function-returns
dfun
)
(
compute-debug-returns
fun
)))))))
dfun
))
...
...
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