diff --git a/compiler/locall.lisp b/compiler/locall.lisp index 4e53bbaacc83cc4237ce7e9223ee8dd54beb96ee..8da5230bc35804862151131d44c6661d32268e82 100644 --- a/compiler/locall.lisp +++ b/compiler/locall.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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 @@ fun))) (*compiler-error-context* call)) (let ((c1 (block-component (node-block call))) - (c2 (block-component - (node-block (lambda-bind - (if (optional-dispatch-p fun) - (optional-dispatch-main-entry fun) - fun)))))) + (c2 (block-component (node-block (lambda-bind (main-entry fun)))))) (assert (or (eq c1 c2) (and (eq (component-kind c1) :initial) (eq (component-kind c2) :initial)))))