From: espen <espen>
Date: Wed, 17 Oct 2007 17:04:56 +0000 (+0000)
Subject: Bug fix for CLISP
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/d33e712baf74fc969d1c34172b01f66a5f6bbab9

Bug fix for CLISP
---

diff --git a/gffi/memory.lisp b/gffi/memory.lisp
index c58b37a..c753434 100644
--- a/gffi/memory.lisp
+++ b/gffi/memory.lisp
@@ -20,7 +20,7 @@
 ;; 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.5 2007-09-07 07:28:42 espen Exp $
+;; $Id: memory.lisp,v 1.6 2007-10-17 17:04:56 espen Exp $
 
 
 (in-package "GFFI")
@@ -137,7 +137,7 @@ (declaim
  (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 
@@ -147,7 +147,7 @@ (declaim
 (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)
+   #+clisp(ffi:memory-as location 'ffi:uint16 offset)
    value))