From 2e5b29266e2ca473d07f6d89496e214797e54512 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 30 Nov 2005 01:46:12 +0000
Subject: [PATCH] Style change:  use let instead of let*.

---
 compiler/ppc/c-call.lisp | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/compiler/ppc/c-call.lisp b/compiler/ppc/c-call.lisp
index 2f52b9e2d..b2be3a988 100644
--- a/compiler/ppc/c-call.lisp
+++ b/compiler/ppc/c-call.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/c-call.lisp,v 1.18 2005/11/29 14:25:46 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/c-call.lisp,v 1.19 2005/11/30 01:46:12 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -387,13 +387,13 @@
       (alien::integer-64$
        ;; Get both words of a 64-bit integer and combine together, in
        ;; a big-endian fashion.
-       `(let* ((hi (alien:deref (sap-alien (sys:sap+ ,sp ,offset)
-					   ,(if (alien-integer-type-signed parsed-type)
-						'(* c-call:int)
-						'(* c-call:unsigned-int)))))
-	       (lo (alien:deref (sap-alien (sys:sap+ ,sp
-						     (+ ,offset vm:word-bytes))
-					   (* c-call:unsigned-int)))))
+       `(let ((hi (alien:deref (sap-alien (sys:sap+ ,sp ,offset)
+					  ,(if (alien-integer-type-signed parsed-type)
+					       '(* c-call:int)
+					       '(* c-call:unsigned-int)))))
+	      (lo (alien:deref (sap-alien (sys:sap+ ,sp
+						    (+ ,offset vm:word-bytes))
+					  (* c-call:unsigned-int)))))
 	     (+ (ash hi vm:word-bits) lo)))
       (alien::integer$
        ;; We can access machine integers directly, but we need to get
-- 
GitLab