Skip to content
Snippets Groups Projects
Commit bc55ed8a authored by ram's avatar ram
Browse files

Don't flame out in USE-STANDARD-RETURNS if a reference to the function has no

DEST.  This can happen when the reference is in top-level code which hasn't
been optimized yet.
parent ac75d16f
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/gtn.lisp,v 1.14 1993/08/25 00:15:37 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/gtn.lisp,v 1.15 1994/08/23 17:49:59 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -138,7 +138,8 @@ ...@@ -138,7 +138,8 @@
(dolist (ref (leaf-refs fun)) (dolist (ref (leaf-refs fun))
(let* ((cont (node-cont ref)) (let* ((cont (node-cont ref))
(dest (continuation-dest cont))) (dest (continuation-dest cont)))
(when (and (not (node-tail-p dest)) (when (and dest
(not (node-tail-p dest))
(basic-combination-p dest) (basic-combination-p dest)
(eq (basic-combination-fun dest) cont) (eq (basic-combination-fun dest) cont)
(eq (basic-combination-kind dest) :local)) (eq (basic-combination-kind dest) :local))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment