diff options
| author | Mattias Engdegård | 2024-01-18 18:48:12 +0100 |
|---|---|---|
| committer | Mattias Engdegård | 2024-01-18 18:57:03 +0100 |
| commit | e7a6ce847fd06c4f132bbac2f2fdc8474753ad3c (patch) | |
| tree | 5dd941050684c84453cbfc69564a8a7e2765d843 | |
| parent | ef01250ef9c22aa1ac2ecff3136aabf79b2a677b (diff) | |
| download | emacs-e7a6ce847fd06c4f132bbac2f2fdc8474753ad3c.tar.gz emacs-e7a6ce847fd06c4f132bbac2f2fdc8474753ad3c.zip | |
Don't use Qunbound as hash table key when printing (bug#68244)
This flaw could cause an assertion failure.
* src/print.c (PRINT_CIRCLE_CANDIDATE_P): Don't consider Qunbound a
print-circle candidate; it should never be seen by Lisp anyway.
| -rw-r--r-- | src/print.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/print.c b/src/print.c index 0899dcdeb03..61999c096aa 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -1311,7 +1311,8 @@ print (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag) | |||
| 1311 | || RECORDP (obj))) \ | 1311 | || RECORDP (obj))) \ |
| 1312 | || (! NILP (Vprint_gensym) \ | 1312 | || (! NILP (Vprint_gensym) \ |
| 1313 | && SYMBOLP (obj) \ | 1313 | && SYMBOLP (obj) \ |
| 1314 | && !SYMBOL_INTERNED_P (obj))) | 1314 | && !SYMBOL_INTERNED_P (obj) \ |
| 1315 | && !hash_unused_entry_key_p (obj))) | ||
| 1315 | 1316 | ||
| 1316 | /* The print preprocess stack, used to traverse data structures. */ | 1317 | /* The print preprocess stack, used to traverse data structures. */ |
| 1317 | 1318 | ||