From 120b54d253c32ddd37fbc13d59980646f320469e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 27 Sep 1990 06:32:32 +0000
Subject: [PATCH] Saps are only 1 word long, not 2.

---
 ldb/alloc.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ldb/alloc.c b/ldb/alloc.c
index aaf141ef1..35d0e3403 100644
--- a/ldb/alloc.c
+++ b/ldb/alloc.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/alloc.c,v 1.3 1990/05/25 23:55:32 ch Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/alloc.c,v 1.4 1990/09/27 06:32:32 wlott Exp $ */
 #include "lisp.h"
 #include "ldb.h"
 #include "alloc.h"
@@ -91,7 +91,7 @@ char *str;
 lispobj alloc_sap(ptr)
 char *ptr;
 {
-    struct sap *sap = (struct sap *)alloc_unboxed(type_Sap, 2);
+    struct sap *sap = (struct sap *)alloc_unboxed(type_Sap, 1);
 
     sap->pointer = ptr;
 
-- 
GitLab