From cf764bba5bcaf8c7708b2babc9ebbf892e56cd4d Mon Sep 17 00:00:00 2001
From: ch <ch>
Date: Fri, 25 May 1990 23:55:32 +0000
Subject: [PATCH] Fixed alloc_number and alloc_sap.

---
 ldb/alloc.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ldb/alloc.c b/ldb/alloc.c
index dd21b065b..aaf141ef1 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.2 1990/03/28 22:48:37 ch Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/alloc.c,v 1.3 1990/05/25 23:55:32 ch Exp $ */
 #include "lisp.h"
 #include "ldb.h"
 #include "alloc.h"
@@ -70,6 +70,8 @@ long n;
         ptr = (struct bignum *)alloc_unboxed(type_Bignum, 1);
 
         ptr->digits[0] = n;
+
+	return (lispobj) ptr | type_OtherPointer;
     }
 }
 
@@ -92,5 +94,7 @@ char *ptr;
     struct sap *sap = (struct sap *)alloc_unboxed(type_Sap, 2);
 
     sap->pointer = ptr;
+
+    return (lispobj) sap | type_OtherPointer;
 }
 
-- 
GitLab