diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp index 7a6ea10b9b8d18728ea2c496cbee49ae22c70fca..3de7dbe3f78892ab74dd3971c0cf5b12a770e25c 100644 --- a/compiler/ir1opt.lisp +++ b/compiler/ir1opt.lisp @@ -1325,7 +1325,7 @@ (change-ref-leaf ref fun) (assert (eq (basic-combination-kind node) :full)) (local-call-analyze *current-component*) - (assert (eq (functional-kind (ref-leaf ref)) :mv-let))))))))) + (assert (eq (basic-combination-kind node) :local))))))))) (undefined-value))