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