X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fprint.c;h=6f3b5058ef1851295426d119ba02a4fa5212fafd;hb=a157ed0be79751f85b8243c06102eea95af06aa3;hp=833ec91d6098fd35fc8354756b45159a72d8252b;hpb=aecec1def1de06cf40003917e9091d3ffe1ba16b;p=sbcl.git

diff --git a/src/runtime/print.c b/src/runtime/print.c
index 833ec91..6f3b505 100644
--- a/src/runtime/print.c
+++ b/src/runtime/print.c
@@ -549,9 +549,17 @@ static void print_otherptr(lispobj obj)
 #ifdef COMPLEX_SINGLE_FLOAT_WIDETAG
             case COMPLEX_SINGLE_FLOAT_WIDETAG:
                 NEWLINE_OR_RETURN;
+#ifdef LISP_FEATURE_X86_64
+                printf("%g", ((struct complex_single_float *)native_pointer(obj))->data.data[0]);
+#else
                 printf("%g", ((struct complex_single_float *)native_pointer(obj))->real);
+#endif
                 NEWLINE_OR_RETURN;
+#ifdef LISP_FEATURE_X86_64
+                printf("%g", ((struct complex_single_float *)native_pointer(obj))->data.data[1]);
+#else
                 printf("%g", ((struct complex_single_float *)native_pointer(obj))->imag);
+#endif
                 break;
 #endif