1.0.42.11: SB-EXT:WORD for use with ATOMIC-INCF &co

 (Symbol previously known as SB-VM:WORD.)

 * Requiring users to #+ their way to (UNSIGNED-BYTE 32) and 64 is
   just mean and brittle.

diff --git a/NEWS b/NEWS
index b7fb281..ee7c8d0 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,7 @@
 ;;;; -*- coding: utf-8; fill-column: 78 -*-
 changes relative to sbcl-1.0.42
+  * convenience: SB-EXT:WORD type is provided for use with SB-EXT:ATOMIC-INCF
+    &co.
   * bug fix: DOTIMES accepted literal non-integer reals. (lp#619393, thanks to
     Roman Marynchak)
   * bug fix: WRITE-TO-STRING compiler macro binding special variable names,

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index b643193..dbb5a92 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -583,10 +583,11 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "*POSIX-ARGV*" "*CORE-PATHNAME*" "*RUNTIME-PATHNAME*"
                "POSIX-GETENV" "POSIX-ENVIRON"
 
-               ;; Atomic operations
+               ;; Atomic operations and types related to them
                "COMPARE-AND-SWAP"
                "ATOMIC-INCF"
                "ATOMIC-DECF"
+               "WORD"
 
                ;; Time related things
                "CALL-WITH-TIMING"
@@ -2469,6 +2470,7 @@ no guarantees of interface stability."
 structure representations"
       :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!ASSEM" "SB!C"
                  "SB!EXT" "SB!FASL" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!UNIX")
+      :reexport ("WORD")
       :export ("*ALLOC-SIGNAL*"
                "*ASSEMBLY-UNIT-LENGTH*"
                "*PRIMITIVE-OBJECTS*"
@@ -2720,7 +2722,7 @@ structure representations"
                "WEAK-POINTER-BROKEN-SLOT" "WEAK-POINTER-NEXT-SLOT"
                "WEAK-POINTER-SIZE" "WEAK-POINTER-WIDETAG"
                "WEAK-POINTER-VALUE-SLOT"
-               "WORD" "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS"
+               "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS"
                "WORD-REG-SC-NUMBER" "WORD-SHIFT"
                #!+win32 "CONTEXT-RESTORE-TRAP"
                "ZERO-SC-NUMBER"))

diff --git a/src/code/late-extensions.lisp b/src/code/late-extensions.lisp
index c4d59f4..0062618 100644 (file)
--- a/src/code/late-extensions.lisp
+++ b/src/code/late-extensions.lisp
@@ -226,7 +226,8 @@ PLACE.
 
 PLACE must be an accessor form whose CAR is the name of a DEFSTRUCT accessor
 whose declared type is (UNSIGNED-BYTE 32) on 32 bit platforms,
-and (UNSIGNED-BYTE 64) on 64 bit platforms.
+and (UNSIGNED-BYTE 64) on 64 bit platforms -- the type SB-EXT:WORD can be used
+for this purpose.
 
 DIFF defaults to 1, and must be a (SIGNED-BYTE 32) on 32 bit platforms,
 and (SIGNED-BYTE 64) on 64 bit platforms.
@@ -245,7 +246,8 @@ PLACE.
 
 PLACE must be an accessor form whose CAR is the name of a DEFSTRUCT accessor
 whose declared type is (UNSIGNED-BYTE 32) on 32 bit platforms,
-and (UNSIGNED-BYTE 64) on 64 bit platforms.
+and (UNSIGNED-BYTE 64) on 64 bit platforms -- the type SB-EXT:WORD can be used
+for this purpose.
 
 DIFF defaults to 1, and must be a (SIGNED-BYTE 32) on 32 bit platforms,
 and (SIGNED-BYTE 64) on 64 bit platforms.

diff --git a/version.lisp-expr b/version.lisp-expr
index 133d606..e692acf 100644 (file)
--- 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.42.10"
+"1.0.42.11"