Commit 4aeb2fd7 authored by ram's avatar ram
Browse files

In propagate-local-call-args, don't do anything if there is an

optional-dispatch specified.  The last fixed entry point won't be referenced by
the XEP, so we can't count on that providing a T type input.
parent 024cb80a
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.63 1993/08/31 22:52:26 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.64 1994/01/06 18:04:03 ram Exp $")
;;; **********************************************************************
......@@ -1372,7 +1372,8 @@
(defun propagate-local-call-args (call fun)
(declare (type combination call) (type clambda fun))
(unless (functional-entry-function fun)
(unless (or (functional-entry-function fun)
(lambda-optional-dispatch fun))
(let* ((vars (lambda-vars fun))
(union (mapcar #'(lambda (arg var)
(when (and arg
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment