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

Changed assertion to use MAIN-ENTRY instead of writing it out.

parent a1adf61d
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/locall.lisp,v 1.28 1992/04/15 15:38:27 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.29 1992/04/27 19:47:24 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -307,11 +307,7 @@ ...@@ -307,11 +307,7 @@
fun))) fun)))
(*compiler-error-context* call)) (*compiler-error-context* call))
(let ((c1 (block-component (node-block call))) (let ((c1 (block-component (node-block call)))
(c2 (block-component (c2 (block-component (node-block (lambda-bind (main-entry fun))))))
(node-block (lambda-bind
(if (optional-dispatch-p fun)
(optional-dispatch-main-entry fun)
fun))))))
(assert (or (eq c1 c2) (assert (or (eq c1 c2)
(and (eq (component-kind c1) :initial) (and (eq (component-kind c1) :initial)
(eq (component-kind c2) :initial))))) (eq (component-kind c2) :initial)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment