From 1484dfe2d07ade18bd9b42ddf344ee839ce5e9ff Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Sat, 16 Apr 2005 02:05:06 +0000
Subject: [PATCH] Gdb on OS X 10.2.8 (at least) doesn't like local variables
 names with the same name as a structure name.  So change the name of the
 local. (Stupid gdb.)

---
 lisp/alloc.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/alloc.c b/lisp/alloc.c
index 51ad6e32e..9ec65ed22 100644
--- a/lisp/alloc.c
+++ b/lisp/alloc.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alloc.c,v 1.8 2004/07/08 17:49:04 rtoy Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alloc.c,v 1.9 2005/04/16 02:05:06 rtoy Exp $ */
 
 #include <string.h>
 
@@ -123,11 +123,11 @@ lispobj alloc_string(char *str)
 lispobj alloc_sap(void *ptr)
 {
 #ifndef alpha
-    struct sap *sap = (struct sap *)alloc_unboxed(type_Sap, 1);
+    struct sap *sap_ptr = (struct sap *)alloc_unboxed(type_Sap, 1);
 #else
-    struct sap *sap = (struct sap *)alloc_unboxed(type_Sap, 3);
+    struct sap *sap_ptr = (struct sap *)alloc_unboxed(type_Sap, 3);
 #endif
-    sap->pointer = ptr;
+    sap_ptr->pointer = ptr;
 
-    return (lispobj) sap | type_OtherPointer;
+    return (lispobj) sap_ptr | type_OtherPointer;
 }
-- 
GitLab