X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterr.c;h=b8a863f5077f23c59c4f2c39ab9737c38d281d52;hb=a1a2c079c7654defb618baad0dddcf0eaf2ce64f;hp=7f60ddeeee0e6bdc56412f086c7a9b8fd3d0b8a2;hpb=dfa55a883f94470267b626dae77ce7e7dfac3df6;p=sbcl.git

diff --git a/src/runtime/interr.c b/src/runtime/interr.c
index 7f60dde..b8a863f 100644
--- 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;
 }