From 139cb2561fde400a4917b9bbfc7afddf584482d3 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 28 Mar 2007 03:54:12 +0000
Subject: [PATCH] o Remove some extraneous (typo) parens for  
 double-double-stack-sc-number and   complex-double-double-stack-sc-number. o
 The complex-double-double-stack-sc-number case was not computed the   complex
 double-double correctly.  Fix it.

---
 code/debug-int.lisp | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index c24be4311..2a8e3a614 100644
--- a/code/debug-int.lisp
+++ b/code/debug-int.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/code/debug-int.lisp,v 1.125 2007/03/27 17:46:26 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.126 2007/03/28 03:54:12 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -3219,14 +3219,14 @@ The result is a symbol or nil if the routine cannot be found."
 	 (system:sap-ref-long nfp (* (c:sc-offset-offset sc-offset)
 				     vm:word-bytes))))
       #+double-double
-      ((#.vm:double-double-stack-sc-number
-	(with-nfp (nfp)
-	  (kernel:%make-double-double-float
-	   (system:sap-ref-double nfp (* (c:sc-offset-offset sc-offset)
-					 vm:word-bytes))
-	   (system:sap-ref-double nfp (* (+ (c:sc-offset-offset sc-offset)
-					    2)
-					 vm:word-bytes))))))
+      (#.vm:double-double-stack-sc-number
+       (with-nfp (nfp)
+	 (kernel:%make-double-double-float
+	  (system:sap-ref-double nfp (* (c:sc-offset-offset sc-offset)
+					vm:word-bytes))
+	  (system:sap-ref-double nfp (* (+ (c:sc-offset-offset sc-offset)
+					   2)
+					vm:word-bytes)))))
       (#.vm:complex-single-stack-sc-number
        (with-nfp (nfp)
 	 (complex
@@ -3242,14 +3242,16 @@ The result is a symbol or nil if the routine cannot be found."
 	  (system:sap-ref-double nfp (* (+ (c:sc-offset-offset sc-offset) 2)
 					vm:word-bytes)))))
       #+double-double
-      ((#.vm:complex-double-double-stack-sc-number
-	(with-nfp (nfp)
+      (#.vm:complex-double-double-stack-sc-number
+       (with-nfp (nfp)
+	 (complex
 	  (kernel:%make-double-double-float
 	   (system:sap-ref-double nfp (* (c:sc-offset-offset sc-offset)
 					 vm:word-bytes))
 	   (system:sap-ref-double nfp (* (+ (c:sc-offset-offset sc-offset)
 					    2)
-					 vm:word-bytes))
+					 vm:word-bytes)))
+	  (kernel:%make-double-double-float
 	   (system:sap-ref-double nfp (* (+ (c:sc-offset-offset sc-offset)
 					    4)
 					 vm:word-bytes))
-- 
GitLab