Fixed typo affecting CLISP

diff --git a/gffi/memory.lisp b/gffi/memory.lisp
index b3a8ecb62125fa624c42ca59204fdb35c91209d8..b0fe510da53c7d90e2037ffcf8767406e6a851b2 100644 (file)
--- 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.
 
 ;; 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")
 
 
 (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
   #-(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))
   to)
 
 (defun clear-memory (from length &optional (offset 0))