anchor.diff:   (inline ref-native-uint-16))
   (defun ref-native-uint-16 (location &optional (offset 0))
     #+(or cmu sbcl)(sap-ref-16 location offset)
  -  #+clisp(ffi:memory-as location 'ffi:int16 offset))
  +  #+clisp(ffi:memory-as location 'ffi:uint16 offset))
   
   (declaim 
    (ftype 
  
positive.code: (defun (setf ref-native-uint-16) (value location &optional (offset 0))
    (setf 
     #+(or cmu sbcl)(sap-ref-16 location offset)
     #+clisp(ffi:memory-as location 'ffi:int16 offset)
     value))
  
  
  
negative.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.6 2007-10-17 17:04:56 espen Exp $
  
  
  (in-package "GFFI")
  