Remove Lisp_Symbol::external

diff --git a/src/alloc.c b/src/alloc.c
index 3b1d7cf0b2e6cf834344bcd3a1bc6eed17a768e4..7f439aedd8d8573c2f084e94c75be63ab46ac52e 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3675,7 +3675,6 @@ init_symbol (Lisp_Object val, Lisp_Object name)
   p->u.s.trapped_write = SYMBOL_UNTRAPPED_WRITE;
   p->u.s.declared_special = false;
   p->u.s.pinned = false;
-  p->u.s.external = false;
 }
 
 DEFUN ("make-symbol", Fmake_symbol, Smake_symbol, 1, 1, 0,

diff --git a/src/lisp.h b/src/lisp.h
index 8e33a3b5ba59ccbabee8f673c5b00ebd47917fca..5417881a0adc394afde467119e60d79a3bdd5cdf 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -850,9 +850,6 @@ struct Lisp_Symbol
       /* True if pointed to from purespace and hence can't be GC'd.  */
       bool_bf pinned : 1;
 
-      /* True if external symbol in its home package.  */
-      bool_bf external : 1;
-
       /* The symbol's name, as a Lisp string.  */
       Lisp_Object name;
 
@@ -2416,12 +2413,6 @@ SYMBOL_PACKAGE (Lisp_Object sym)
   return XSYMBOL (sym)->u.s.package;
 }
 
-INLINE bool
-SYMBOL_EXTERNAL_P (Lisp_Object sym)
-{
-  return XSYMBOL (sym)->u.s.external;
-}
-
 INLINE bool
 SYMBOL_KEYWORD_P (Lisp_Object sym)
 {

diff --git a/src/pdumper.c b/src/pdumper.c
index 1caa09d2b0ebef465863628252e1074900e46345..59e46aab28224ebfd75a35cbf8f22b2d1fd6336e 100644 (file)
--- a/src/pdumper.c
+++ b/src/pdumper.c
@@ -2449,7 +2449,6 @@ dump_symbol (struct dump_context *ctx,
   DUMP_FIELD_COPY (&out, symbol, u.s.trapped_write);
   DUMP_FIELD_COPY (&out, symbol, u.s.declared_special);
   DUMP_FIELD_COPY (&out, symbol, u.s.pinned);
-  DUMP_FIELD_COPY (&out, symbol, u.s.external);
   dump_field_lv (ctx, &out, symbol, &symbol->u.s.name, WEIGHT_STRONG);
   switch (symbol->u.s.redirect)
     {

diff --git a/src/pkg.c b/src/pkg.c
index 3d1a6dcf537c0948ffdd3dd4cf63f0182539c435..ace28ea1ae68d01eba380d0ecb8527e609ae625f 100644 (file)
--- a/src/pkg.c
+++ b/src/pkg.c
@@ -266,7 +266,6 @@ pkg_add_symbol (Lisp_Object symbol, Lisp_Object status, Lisp_Object package)
   eassert (SYMBOLP (symbol));
   eassert (SYMBOLP (status));
   eassert (PACKAGEP (package));
-  XSYMBOL (symbol)->u.s.external = EQ (package, Vkeyword_package);
   Fputhash (symbol, status, PACKAGE_SYMBOLS (package));
   return symbol;
 }