[fetter-devel] various

[Kenny Tilton]

Kenny Tilton wrote:

> 3. (CFFI) As advertised in earlier epistles, these are coming from 
> somewhere:
>
> ; While compiling (:TOP-LEVEL-FORM "openal-library.lisp" 2333) in 
> C:\0dev\cl-openal\openal-library.lisp:
> Warning: :call-direct ignored; no argument types specified. 

(cffi:defcfun ("alutExit" alutexit) alvoid) expands to:

(PROGN (FF:DEF-FOREIGN-CALL (|%cffi-foreign-function/ALUTEXIT| 
"alutExit") NIL :RETURNING
                            (:VOID NULL) :CALL-DIRECT T :ARG-CHECKING 
NIL :STRINGS-CONVERT NIL)
       (DEFUN ALUTEXIT ()
         (CFFI::TRANSLATE-OBJECTS NIL NIL NIL ALVOID 
(|%cffi-foreign-function/ALUTEXIT|))))

I guess ACL is a little fussy with that message. Anyway, may as well 
clean that up on our end.

-- 
Kenny

Why Lisp? http://lisp.tech.coop/RtL%20Highlight%20Film

"I've wrestled with reality for 35 years, Doctor, and I'm happy to state I finally won out over it."
    Elwood P. Dowd, "Harvey", 1950