From 18b115b1176f2a6d4a55333d227cd38bf877a7b8 Mon Sep 17 00:00:00 2001 Message-Id: <18b115b1176f2a6d4a55333d227cd38bf877a7b8.1714793963.git.mdw@distorted.org.uk> 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 3cad0ec..b3a8ecb 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]