mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-18 23:32:17 -08:00
parent
10bd3b613f
commit
c4b14f8082
1 changed files with 1 additions and 1 deletions
|
|
@ -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>
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue