Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 363)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 364)
@@ -1562,5 +1562,5 @@
 
 (define-ppc32-vinsn copy-gpr (((dest t))
-                            ((src t)))
+			      ((src t)))
   ((:not (:pred =
                 (:apply %hard-regspec-value dest)
@@ -1569,6 +1569,6 @@
 
 
-(define-ppc32-vinsn copy-fpr (((dest t))
-                            ((src t)))
+(define-ppc32-vinsn copy-fpr (((dest :double-float))
+			      ((src :double-float)))
   ((:not (:pred =
                 (:apply %hard-regspec-value dest)