X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fpurify.c;h=6f3bb4213377c7940b73883bb2bf33f60305f3a9;hb=5cd0fc84df83d1b3321b7fc969843207721de429;hp=35635ee1ada086c3dd31fedd29605eb0b186a15e;hpb=a3649ba68e298d9203e8bb1de5629ff788586fe1;p=sbcl.git

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index 35635ee..6f3bb42 100644
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -208,7 +208,7 @@ valid_dynamic_space_pointer(lispobj *pointer, lispobj *start_addr)
 	    || ((start_addr[0] & FIXNUM_TAG_MASK) == 0) /* fixnum */
 	    || (widetag_of(start_addr[0]) == CHARACTER_WIDETAG)
 #if N_WORD_BITS == 64
-	    || (widetag_of(start_addr[1]) == SINGLE_FLOAT_WIDETAG)
+	    || (widetag_of(start_addr[0]) == SINGLE_FLOAT_WIDETAG)
 #endif
 	    || (widetag_of(start_addr[0]) == UNBOUND_MARKER_WIDETAG))
 	   && (is_lisp_pointer(start_addr[1])