doc: ffi: example: fix typo in the example.

Closes #212.
This commit is contained in:
Daniel Kochmański 2016-03-01 13:08:47 +01:00
parent 10bd3b613f
commit c4b14f8082

View file

@ -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>