From c4b14f808266bcddc7e2480e758da17d5ae7159b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Tue, 1 Mar 2016 13:08:47 +0100
Subject: [PATCH] doc: ffi: example: fix typo in the example.

Closes #212.
---
 doc/ffi.xmlf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/doc/ffi.xmlf b/doc/ffi.xmlf
index ebd34bd3e..0aa092506 100644
--- a/doc/ffi.xmlf
+++ b/doc/ffi.xmlf
@@ -305,7 +305,7 @@ Build and load this module with (compile-file "cffi.lsp" :load t)
 ;;
 (let ((c-cos (cffi:foreign-funcall "cos" :double 1.0d0 :double)))
    (format t "~%Lisp cos:~t~d~%C cos:~t~d~%Difference:~t~d"
-	(sin 1.0d0) c-sin (- (sin 1.0d0) c-sin)))
+	(cos 1.0d0) c-cos (- (cos 1.0d0) c-cos)))
 </programlisting>
   </section>