diff options
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/fns.c b/src/fns.c index 3f678439be9..d70d5e8daa8 100644 --- a/src/fns.c +++ b/src/fns.c @@ -886,6 +886,7 @@ do_cdr: return (extract_float (o1) == extract_float (o2)) ? Qt : Qnil; #endif if (XTYPE (o1) != XTYPE (o2)) return Qnil; + if (MISCP (o1) && XMISC (o1)->type != XMISC (o2)->type) return Qnil; if (CONSP (o1) || OVERLAYP (o1)) { Lisp_Object v1; |