From d33e712baf74fc969d1c34172b01f66a5f6bbab9 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Wed, 17 Oct 2007 17:04:56 +0000 Subject: [PATCH] Bug fix for CLISP Organization: Straylight/Edgeware From: espen --- gffi/memory.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- [mdw]