i sbcl --load a .lisp file containing the two folowing toplevels, only:
(asdf:oos 'asdf:load-op 'lispbuilder-sdl)
(let ((foo 1))
(sdl_videoinfo-flags foo))
here is the log:
[EMAIL PROTECTED]:~/tmp/testcases/lisp$ sbcl --load ab-sdl-image.lisp
This is SBCL 0.9.14, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.
SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.
; loading system definition from
; /mnt/etherstorm/exports/asdf/lispbuilder-sdl/lispbuilder-sdl.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM LISPBUILDER-SDL {A975921}> as LISPBUILDER-SDL
; loading system definition
from /mnt/etherstorm/exports/asdf/cffi/cffi.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM CFFI {AAD4729}> as CFFI
STYLE-WARNING: Undefined alien: "SDL_getenv"
STYLE-WARNING: Undefined alien: "SDL_putenv"
STYLE-WARNING: Undefined alien: "SDL_GetKeyRepeat"
; in: LAMBDA NIL
; (SDL_VIDEOINFO-FLAGS FOO)
;
; caught STYLE-WARNING:
; undefined function: SDL_VIDEOINFO-FLAGS
;
; caught STYLE-WARNING:
; This function is undefined:
; SDL_VIDEOINFO-FLAGS
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial
thread" {A818539}>:
Error during processing of --eval option (LOAD #P"ab-sdl-image.lisp"):
The function SDL_VIDEOINFO-FLAGS is undefined.
Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [CONTINUE] Ignore and continue with next --eval option.
1: [ABORT ] Skip rest of --eval options.
2: Skip to toplevel READ/EVAL/PRINT loop.
3: [QUIT ] Quit SBCL (calling #'QUIT, killing the process).
((LAMBDA (SB-IMPL::E)) #<UNDEFINED-FUNCTION SDL_VIDEOINFO-FLAGS
{AFDC2A1}>)
0]
But i look at sdl/sdl.lisp:
(defcstruct SDL_VideoInfo
(flags hardware-flags)
(video_mem :unsigned-int)
(vfmt :pointer)
(current_w :int) ;; New for SDL-1.2.11
(current_h :int)) ;; New for SDL-1.2.11
...and replacing the defcstruct with a cffi:defcstruct does not help.
There seems to be a conflict of certain sorts...
regards, Samium Gromoff
_______________________________________________
application-builder mailing list
application-builder@lispniks.com
http://www.lispniks.com/mailman/listinfo/application-builder
