anchor.diff:  ;; 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 $
  +;; $Id: memory.lisp,v 1.8 2008-04-29 22:11:35 espen Exp $
   
   
   (in-package "GFFI")
  
positive.code:    value))
  
  
  (defparameter *memory-allocator* nil)
  (defparameter *memory-deallocator* nil)
  
  (defun allocate-memory (size)
    (if *memory-allocator*
  
negative.code: 	   ((#-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))
  
  