1.0.7.37: fix non-x86oid builds

 * WITH-PINNED-OBJECTS needs to be a DEF!MACRO, not DEFMACRO. No SB!SYS prefix
   needed, as SB-VM uses SB-SYS.

 (Tested on only PPC/Darwin.)

diff --git a/src/compiler/alpha/macros.lisp b/src/compiler/alpha/macros.lisp
index 2132345..0982d6e 100644 (file)
--- a/src/compiler/alpha/macros.lisp
+++ b/src/compiler/alpha/macros.lisp
@@ -518,7 +518,7 @@
                                       ,lowtag) object))))
            (move value result))))))
 
-(defmacro sb!sys::with-pinned-objects ((&rest objects) &body body)
+(def!macro with-pinned-objects ((&rest objects) &body body)
   "Arrange with the garbage collector that the pages occupied by
 OBJECTS will not be moved in memory for the duration of BODY.
 Useful for e.g. foreign calls where another thread may trigger

diff --git a/src/compiler/hppa/macros.lisp b/src/compiler/hppa/macros.lisp
index 95f7563..5a28295 100644 (file)
--- a/src/compiler/hppa/macros.lisp
+++ b/src/compiler/hppa/macros.lisp
@@ -367,7 +367,7 @@
            (move value result))))))
 
 
-(defmacro sb!sys::with-pinned-objects ((&rest objects) &body body)
+(def!macro with-pinned-objects ((&rest objects) &body body)
   "Arrange with the garbage collector that the pages occupied by
 OBJECTS will not be moved in memory for the duration of BODY.
 Useful for e.g. foreign calls where another thread may trigger

diff --git a/src/compiler/mips/macros.lisp b/src/compiler/mips/macros.lisp
index e6316c0..ca9f359 100644 (file)
--- a/src/compiler/mips/macros.lisp
+++ b/src/compiler/mips/macros.lisp
@@ -434,7 +434,7 @@
            (move result value))))))
 
 
-(defmacro sb!sys::with-pinned-objects ((&rest objects) &body body)
+(def!macro with-pinned-objects ((&rest objects) &body body)
   "Arrange with the garbage collector that the pages occupied by
 OBJECTS will not be moved in memory for the duration of BODY.
 Useful for e.g. foreign calls where another thread may trigger

diff --git a/src/compiler/ppc/macros.lisp b/src/compiler/ppc/macros.lisp
index 7e9ace4..6eace04 100644 (file)
--- a/src/compiler/ppc/macros.lisp
+++ b/src/compiler/ppc/macros.lisp
@@ -340,7 +340,7 @@
        (inst andi. ,flag-tn alloc-tn 7)
        (inst twi :ne ,flag-tn 0))))
 
-(defmacro sb!sys::with-pinned-objects ((&rest objects) &body body)
+(def!macro with-pinned-objects ((&rest objects) &body body)
   "Arrange with the garbage collector that the pages occupied by
 OBJECTS will not be moved in memory for the duration of BODY.
 Useful for e.g. foreign calls where another thread may trigger

diff --git a/src/compiler/sparc/macros.lisp b/src/compiler/sparc/macros.lisp
index a453e2b..5b06d9f 100644 (file)
--- a/src/compiler/sparc/macros.lisp
+++ b/src/compiler/sparc/macros.lisp
@@ -238,7 +238,7 @@
         (inst t :ne pseudo-atomic-trap)))))
 
 
-(defmacro sb!sys::with-pinned-objects ((&rest objects) &body body)
+(def!macro with-pinned-objects ((&rest objects) &body body)
   "Arrange with the garbage collector that the pages occupied by
 OBJECTS will not be moved in memory for the duration of BODY.
 Useful for e.g. foreign calls where another thread may trigger

diff --git a/version.lisp-expr b/version.lisp-expr
index 8895fc4..3223755 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.7.36"
+"1.0.7.37"