diff --git a/ldb/alloc.c b/ldb/alloc.c index dd21b065b433d7cd988b08873a5088c6a2d63223..aaf141ef163f88707e44acb5bfd519025cb3859b 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; }