- /* FIXME: It would probably be good to grep for "alpha" everywhere
- * and replace this kind of weirdness with nicer parameterizations
- * like N_WORDS_IN_POINTER. However, it might be hard to do this
- * well enough to be useful without an Alpha to test on. What to do? */
-#ifndef alpha
- struct sap *sap = (struct sap *)alloc_unboxed(type_Sap, 1);
-#else
- struct sap *sap = (struct sap *)alloc_unboxed(type_Sap, 3);
-#endif
+ int n_words_to_alloc =
+ (sizeof(struct sap) - sizeof(lispobj)) / sizeof(u32);
+ struct sap *sap =
+ (struct sap *)alloc_unboxed((int)SAP_WIDETAG, n_words_to_alloc);