diff options
| -rw-r--r-- | src/print.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/print.c b/src/print.c index 5a0f7fe6220..76c648b9a2e 100644 --- a/src/print.c +++ b/src/print.c @@ -2085,6 +2085,15 @@ print_object (obj, printcharfun, escapeflag) PRINTCHAR ('>'); break; + case Lisp_Misc_Save_Value: + strout ("#<save_value ", -1, -1, printcharfun, 0); + sprintf(buf, "ptr=0x%08x int=%d", + (unsigned long) XSAVE_VALUE (obj)->pointer, + XSAVE_VALUE (obj)->integer); + strout (buf, -1, -1, printcharfun, 0); + PRINTCHAR ('>'); + break; + default: goto badtype; } |