anchor.diff:  	   ((#-big-endian :big #+big-endian :little)
   	    (,set-swapped location offset value)
   	    value))))))
  +
  +#+cmu
  +(defmacro with-pinned-objects (objects &body body)
  +  (declare (ignore objects))
  +  `(without-gcing ,@body))
  +
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: memory.lisp,v 1.7 2007-12-11 12:01:34 espen Exp $
  
  
  (in-package "GFFI")
  
negative.code:    value))
  
  
  (defvar *memory-allocator* nil)
  (defvar *memory-deallocator* nil)
  
  (defun allocate-memory (size)
    (if *memory-allocator*
  