X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/2c708568813055419a75f313819c8b3e94f32932..953030a3519ecb9d66d9f55d46f8c8b6906094ed:/gffi/memory.lisp

diff --git a/gffi/memory.lisp b/gffi/memory.lisp
index c58b37a..c73efbf 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.7 2007-12-11 12:01:34 espen Exp $
 
 
 (in-package "GFFI")
@@ -137,7 +137,7 @@
  (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 @@
 (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))
 
 
@@ -277,7 +277,7 @@
   #-(or cmu sbcl)
   (loop
    for offset below length
-   do (setf (ref-uint-88 to offset) (ref-uint-8 from offset)))
+   do (setf (ref-uint-8 to offset) (ref-uint-8 from offset)))
   to)
 
 (defun clear-memory (from length &optional (offset 0))