From d44f33e60ae29996a1a01800cdff63ec433d3c0c Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Sun, 13 Jan 2008 03:59:54 +0000 Subject: [PATCH] 1.0.13.26: * sb-aclrepl: Display single-floats in IEEE-756 format for 64-bit platforms for consistency with 32-bit platforms. --- contrib/sb-aclrepl/inspect.lisp | 2 +- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp index 8ded127..071411a 100644 --- a/contrib/sb-aclrepl/inspect.lisp +++ b/contrib/sb-aclrepl/inspect.lisp @@ -665,7 +665,7 @@ cons cells and LIST-TYPE is :normal, :dotted, or :cyclic" ;; on 64-bit platform, single-floats are not boxed (description-maybe-internals "single-float ~W" (list object) "[#x~8,'0X]" - (sb-kernel:get-lisp-obj-address object))))) + (ash (sb-kernel:get-lisp-obj-address object) -32))))) (defmethod inspected-description ((object fixnum)) (description-maybe-internals diff --git a/version.lisp-expr b/version.lisp-expr index 83f0d21..18880e0 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.13.25" +"1.0.13.26" -- 1.7.10.4