diff options
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/fns.c b/src/fns.c index 2f07c2ccfb7..10d35b6112a 100644 --- a/src/fns.c +++ b/src/fns.c @@ -107,7 +107,7 @@ To get the number of bytes, use `string-bytes'. */) else if (BOOL_VECTOR_P (sequence)) XSETFASTINT (val, bool_vector_size (sequence)); else if (COMPILEDP (sequence) || RECORDP (sequence)) - XSETFASTINT (val, ASIZE (sequence) & PSEUDOVECTOR_SIZE_MASK); + XSETFASTINT (val, PVSIZE (sequence)); else if (CONSP (sequence)) { intptr_t i = 0; @@ -484,8 +484,7 @@ shared with the original. */) if (RECORDP (arg)) { - ptrdiff_t size = ASIZE (arg) & PSEUDOVECTOR_SIZE_MASK; - return Frecord (size, XVECTOR (arg)->contents); + return Frecord (PVSIZE (arg), XVECTOR (arg)->contents); } if (CHAR_TABLE_P (arg)) |