From b3f44d33e4adf3e5ec725232d5368f8dfa5b18c0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 11 Mar 2016 14:13:01 +0100
Subject: [PATCH] ffi: fix typo (grr)

---
 src/lsp/ffi.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/ffi.lsp b/src/lsp/ffi.lsp
index 93791ac4f..3f50e3caf 100644
--- a/src/lsp/ffi.lsp
+++ b/src/lsp/ffi.lsp
@@ -335,7 +335,7 @@ Returns the address as an integer of a pointer."
 Returns the object to which a pointer points."
   ;; FIXME! No checking!
   (setf ftype (%convert-to-ffi-type ftype))
-  (cond ((foreign-elt-type-p type)
+  (cond ((foreign-elt-type-p ftype)
          (si::foreign-data-ref-elt ptr 0 ftype))
         ((atom ftype)
          (error "Unknown foreign primitive type: ~A" ftype))