Skip to content
Snippets Groups Projects
Commit 120b54d2 authored by wlott's avatar wlott
Browse files

Saps are only 1 word long, not 2.

parent 4270f5bb
No related branches found
No related tags found
No related merge requests found
/* $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;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment