diff --git a/compiler/pack.lisp b/compiler/pack.lisp index b183073c1d8e60b163a06e0d5ab01c2094247bc0..53aeec425175204f39a6dd2550ff8f8948b6c557 100644 --- a/compiler/pack.lisp +++ b/compiler/pack.lisp @@ -433,7 +433,7 @@ (emit-load-template node block (template-or-lose 'move-operand) src dest - (list (or (svref (sc-load-functions (tn-sc dest)) + (list (or (svref (sc-move-functions (tn-sc dest)) (sc-number (tn-sc src))) (no-load-function-error src dest))) after)