From e6d2efe93c440c47a8383032be6435cae37921a5 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Wed, 4 Mar 1998 16:42:00 +0000
Subject: [PATCH] Fix some erroneous extra closing brackets introduces in the
 prior commit.

---
 compiler/alpha/float.lisp | 10 +++++-----
 compiler/hppa/float.lisp  |  6 +++---
 compiler/mips/float.lisp  |  6 +++---
 compiler/sparc/float.lisp |  6 +++---
 4 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/compiler/alpha/float.lisp b/compiler/alpha/float.lisp
index b816c11cc..5bcc3f6be 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 37bee9076..ac6720240 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 e55edc550..e8482aadc 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 09616ae2a..dea1aa820 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
 
-- 
GitLab