From 6d3852c0a626f83ebc631a83f01c4f8e84d87f47 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 27 Apr 1992 19:47:24 +0000 Subject: [PATCH] Changed assertion to use MAIN-ENTRY instead of writing it out. --- compiler/locall.lisp | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/compiler/locall.lisp b/compiler/locall.lisp index 4e53bbaac..8da5230bc 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))))) -- GitLab