1 files changed, 6 insertions, 1 deletions

diff --git a/src/lread.c b/src/lread.c
index 07580d11d13..128b46aefef 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3805,7 +3805,12 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
               ptrdiff_t longhand_bytes = 0;
 
               Lisp_Object tem;
-              if (skip_shorthand)
+              if (skip_shorthand ||
+                  /* The following ASCII characters are used in the
+                     only "core" Emacs Lisp symbols that are
+                     exclusively comprised of 'symbol constituent'
+                     syntax. */
+                  strspn(read_buffer, "^*+-/<=>_|") >= nbytes)
                 tem = oblookup (obarray, read_buffer, nchars, nbytes);
               else
                 tem = oblookup_considering_shorthand (obarray, read_buffer,