Little error at manual

Recently, I am studing ecl and reading. I find a error at CFFI example. In the page, write (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))) At last line, there are (sin 1.0d0) c-sin (- (sin 1.0d0) c-sin))), but I think that not you mean, it should be (cos 1.0d0) c-cos (- (cos 1.0d0) cos)))