From 57522083c49215cee67ddd85782b01872f4ec9ce Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Wed, 1 Sep 2010 09:15:14 +0000 Subject: [PATCH] 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. --- NEWS | 2 ++ package-data-list.lisp-expr | 6 ++++-- src/code/late-extensions.lisp | 6 ++++-- version.lisp-expr | 2 +- 4 files changed, 11 insertions(+), 5 deletions(-) diff --git a/NEWS b/NEWS index b7fb281..ee7c8d0 100644 --- 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 --- 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 --- 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 --- 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" -- 1.7.10.4