X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fprint.c;h=46f2b2f4eb7e419a0a5931a9a59b1866dc01af4e;hb=d04b59670ab69405c4115ea3caac99fd62a4b7ab;hp=30e2669c8d8820f8cd622c51010baafbe90a50b9;hpb=457d80803848ccd73b28508177f1888ff66bc72f;p=sbcl.git

diff --git a/src/runtime/print.c b/src/runtime/print.c
index 30e2669..46f2b2f 100644
--- a/src/runtime/print.c
+++ b/src/runtime/print.c
@@ -491,11 +491,12 @@ static void print_otherptr(lispobj obj)
                 print_slots(symbol_slots, count, ptr);
                 break;
 
+#if N_WORD_BITS == 32
             case SINGLE_FLOAT_WIDETAG:
                 NEWLINE_OR_RETURN;
                 printf("%g", ((struct single_float *)native_pointer(obj))->value);
                 break;
-
+#endif
             case DOUBLE_FLOAT_WIDETAG:
                 NEWLINE_OR_RETURN;
                 printf("%g", ((struct double_float *)native_pointer(obj))->value);