From: espen <espen>
Date: Tue, 11 Dec 2007 12:01:34 +0000 (+0000)
Subject: Fixed typo affecting CLISP
X-Git-Tag: clg-0-93~47
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/d9ca4f3b5cc4aca973a0056ce6a8689209d4f885

Fixed typo affecting CLISP
---

diff --git a/gffi/memory.lisp b/gffi/memory.lisp
index b3a8ecb..b0fe510 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.6 2007/10/17 17:04:56 espen Exp $
+;; $Id: memory.lisp,v 1.7 2007/12/11 12:01:34 espen Exp $
 
 
 (in-package "GFFI")
@@ -277,7 +277,7 @@ (defun copy-memory (from length &optional (to (allocate-memory length)))
   #-(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))