diff --git a/compiler/alpha/float.lisp b/compiler/alpha/float.lisp
index b816c11cc20388e0206adbaaa97303fb9c92f060..5bcc3f6be363f606316d53d6785d9acdcf9d664e 100644
--- a/compiler/alpha/float.lisp
+++ b/compiler/alpha/float.lisp
@@ -6,7 +6,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/float.lisp,v 1.8 1998/03/04 15:00:30 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/float.lisp,v 1.9 1998/03/04 16:41:55 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -296,7 +296,7 @@
 			   vm:other-pointer-type)
 	    x))))
 (define-move-vop move-to-complex-single :move
-  (descriptor-reg) (complex-single-reg)))))
+  (descriptor-reg) (complex-single-reg))
 
 (define-vop (move-to-complex-double)
   (:args (x :scs (descriptor-reg)))
@@ -312,7 +312,7 @@
 			   vm:other-pointer-type)
 	    x))))
 (define-move-vop move-to-complex-double :move
-  (descriptor-reg) (complex-double-reg)))))
+  (descriptor-reg) (complex-double-reg))
 
 ;;;
 ;;; Complex float move-argument vop
@@ -339,7 +339,7 @@
 	 (let ((imag-tn (complex-single-reg-imag-tn x)))
 	   (inst sts imag-tn (+ offset world-bytes) nfp)))))))
 (define-move-vop move-complex-single-float-argument :move-argument
-  (complex-single-reg descriptor-reg) (complex-single-reg)))))
+  (complex-single-reg descriptor-reg) (complex-single-reg))
 
 (define-vop (move-complex-double-float-argument)
   (:args (x :scs (complex-double-reg) :target y)
@@ -363,7 +363,7 @@
 	 (let ((imag-tn (complex-double-reg-imag-tn x)))
 	   (inst stt imag-tn (+ offset (* 2 word-bytes)) nfp)))))))
 (define-move-vop move-complex-double-float-argument :move-argument
-  (complex-double-reg descriptor-reg) (complex-double-reg)))))
+  (complex-double-reg descriptor-reg) (complex-double-reg))
 
 ) ; progn complex-float
 
diff --git a/compiler/hppa/float.lisp b/compiler/hppa/float.lisp
index 37bee9076d218f14c8e23b2ec6b767eaa9e795fe..ac6720240e2961b4467c45554fefcd9a34a260bb 100644
--- a/compiler/hppa/float.lisp
+++ b/compiler/hppa/float.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/float.lisp,v 1.5 1998/03/04 15:11:37 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/float.lisp,v 1.6 1998/03/04 16:42:00 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -330,7 +330,7 @@
 	   (str-float imag-tn (+ offset word-bytes) nfp)))))))
 ;;;
 (define-move-vop move-complex-single-float-argument :move-argument
-  (complex-single-reg descriptor-reg) (complex-single-reg)))))
+  (complex-single-reg descriptor-reg) (complex-single-reg))
 
 (define-vop (move-complex-double-float-argument)
   (:args (x :scs (complex-double-reg) :target y)
@@ -355,7 +355,7 @@
 	   (str-float imag-tn (+ offset (* 2 word-bytes)) nfp)))))))
 ;;;
 (define-move-vop move-complex-double-float-argument :move-argument
-  (complex-double-reg descriptor-reg) (complex-double-reg)))))
+  (complex-double-reg descriptor-reg) (complex-double-reg))
 
 ) ; end progn complex-float
 
diff --git a/compiler/mips/float.lisp b/compiler/mips/float.lisp
index e55edc550c3a7debdf7347ad3df8669820929293..e8482aadc127dcc64284e6c5ec8ea4fa36a2e821 100644
--- a/compiler/mips/float.lisp
+++ b/compiler/mips/float.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.22 1998/03/04 15:08:48 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.23 1998/03/04 16:41:58 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -372,7 +372,7 @@
 	 (let ((imag-tn (complex-single-reg-imag-tn x)))
 	   (inst stc1 imag-tn nfp (+ offset word-bytes))))))))
 (define-move-vop move-complex-single-float-argument :move-argument
-  (complex-single-reg descriptor-reg) (complex-single-reg)))))
+  (complex-single-reg descriptor-reg) (complex-single-reg))
 
 (define-vop (move-complex-double-float-argument)
   (:args (x :scs (complex-double-reg) :target y)
@@ -396,7 +396,7 @@
 	 (let ((imag-tn (complex-double-reg-imag-tn x)))
 	   (str-double imag-tn nfp (+ offset (* 2 word-bytes)))))))))
 (define-move-vop move-complex-double-float-argument :move-argument
-  (complex-double-reg descriptor-reg) (complex-double-reg)))))
+  (complex-double-reg descriptor-reg) (complex-double-reg))
 
 ) ; progn complex-float
 
diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp
index 09616ae2aebba886eb6ed0ae48bd68de203e9678..dea1aa8207c59f05daac64d7a8675f99136a01d6 100644
--- a/compiler/sparc/float.lisp
+++ b/compiler/sparc/float.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.17 1998/03/04 15:00:28 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.18 1998/03/04 16:41:53 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -323,7 +323,7 @@
 	 (let ((imag-tn (complex-double-reg-imag-tn x)))
 	   (inst stf imag-tn nfp (+ offset word-bytes))))))))
 (define-move-vop move-complex-single-float-argument :move-argument
-  (complex-single-reg descriptor-reg) (complex-single-reg)))))
+  (complex-single-reg descriptor-reg) (complex-single-reg))
 
 (define-vop (move-complex-double-float-argument)
   (:args (x :scs (complex-double-reg) :target y)
@@ -349,7 +349,7 @@
 	 (let ((imag-tn (complex-double-reg-imag-tn x)))
 	   (inst stdf imag-tn nfp (+ offset (* 2 word-bytes)))))))))
 (define-move-vop move-complex-double-float-argument :move-argument
-  (complex-double-reg descriptor-reg) (complex-double-reg)))))
+  (complex-double-reg descriptor-reg) (complex-double-reg))
 
 ) ; progn complex-float