0.6.12.48:

[sbcl.git] / src / runtime / interr.c

diff --git a/src/runtime/interr.c b/src/runtime/interr.c
index 7f60dde..b8a863f 100644 (file)
--- a/src/runtime/interr.c
+++ b/src/runtime/interr.c
@@ -162,6 +162,6 @@ lispobj debug_print(lispobj string)
        the stack before doing anything else here */
     char untouched[32];
     fprintf(stderr, "%s\n", 
-           (char *)(((struct vector *)PTR(string))->data),untouched);
+           (char *)(((struct vector *)native_pointer(string))->data),untouched);
     return NIL;
 }