[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/record b9bebba 7/7: Remove CHECK_RECORD_TYPE.
From: |
Lars Brinkhoff |
Subject: |
[Emacs-diffs] scratch/record b9bebba 7/7: Remove CHECK_RECORD_TYPE. |
Date: |
Wed, 22 Mar 2017 10:11:13 -0400 (EDT) |
branch: scratch/record
commit b9bebbadff3ce91fdd75ef28b1e232537ba2a73d
Author: Lars Brinkhoff <address@hidden>
Commit: Lars Brinkhoff <address@hidden>
Remove CHECK_RECORD_TYPE.
---
src/alloc.c | 2 --
src/data.c | 2 --
src/lisp.h | 9 ---------
3 files changed, 13 deletions(-)
diff --git a/src/alloc.c b/src/alloc.c
index d46f2a7..fe631f2 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3419,7 +3419,6 @@ type slot, must fit in PSEUDOVECTOR_SIZE_BITS. */)
ptrdiff_t size, i;
struct Lisp_Vector *p;
- CHECK_RECORD_TYPE (type);
CHECK_NATNUM (slots);
size = XFASTINT (slots) + 1;
@@ -3454,7 +3453,6 @@ usage: (record TYPE &rest SLOTS) */)
Lisp_Object type = args[0];
Lisp_Object record;
- CHECK_RECORD_TYPE (type);
p->contents[0] = type;
memcpy (p->contents + 1, args + 1, (nargs - 1) * sizeof *args);
diff --git a/src/data.c b/src/data.c
index b3be9c7..559c92f 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2367,8 +2367,6 @@ bool-vector. IDX starts at 0. */)
ptrdiff_t size = ASIZE (array) & PSEUDOVECTOR_SIZE_MASK;
if (idxval < 0 || idxval >= size)
args_out_of_range (array, idx);
- if (idxval == 0)
- CHECK_RECORD_TYPE (newelt);
ASET (array, idxval, newelt);
}
else /* STRINGP */
diff --git a/src/lisp.h b/src/lisp.h
index b7c4d69..324a00d 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2746,15 +2746,6 @@ CHECK_RECORD (Lisp_Object x)
CHECK_TYPE (RECORDP (x), Qrecordp, x);
}
-INLINE void
-CHECK_RECORD_TYPE (Lisp_Object x)
-{
- /* We don't yet know exactly what to check for, or if there should
- be a check. */
-
- /* eassert (SYMBOLP (x) || CLASSP (x)); */
-}
-
/* Test for image (image . spec) */
INLINE bool
IMAGEP (Lisp_Object x)
- [Emacs-diffs] branch scratch/record created (now b9bebba), Lars Brinkhoff, 2017/03/22
- [Emacs-diffs] scratch/record b9bebba 7/7: Remove CHECK_RECORD_TYPE.,
Lars Brinkhoff <=
- [Emacs-diffs] scratch/record ab76bca 3/7: Make EIEIO use records., Lars Brinkhoff, 2017/03/22
- [Emacs-diffs] scratch/record 88987f6 1/7: Add record objects with user-defined types., Lars Brinkhoff, 2017/03/22
- [Emacs-diffs] scratch/record b749f26 4/7: Make the URL library use records., Lars Brinkhoff, 2017/03/22
- [Emacs-diffs] scratch/record 32399a8 6/7: Change read/print syntax to use #s., Lars Brinkhoff, 2017/03/22
- [Emacs-diffs] scratch/record d0ee340 5/7: Backward compatibility with pre-existing struct instances., Lars Brinkhoff, 2017/03/22
- [Emacs-diffs] scratch/record 8d2551f 2/7: Make cl-defstruct use records., Lars Brinkhoff, 2017/03/22