Micro-optimize LENGTH/LIST and VALUES-LIST on x86-64 for code size.

[sbcl.git] / src / compiler / ppc / move.lisp

diff --git a/src/compiler/ppc/move.lisp b/src/compiler/ppc/move.lisp
index e5b8324..63011ee 100644 (file)
--- a/src/compiler/ppc/move.lisp
+++ b/src/compiler/ppc/move.lisp
@@ -33,7 +33,7 @@
 
 (define-move-fun (load-character 1) (vop x y)
   ((immediate) (character-reg))
-  (inst li y (char-code (tn-value x))))
+  (inst lr y (char-code (tn-value x))))
 
 (define-move-fun (load-system-area-pointer 1) (vop x y)
   ((immediate) (sap-reg))