Hi, I'm considering using lisbuilder libs for one of my projects; it works fine for the moment, but SBCL 1.0.28 signals lot of warnings.
While compiling lisbuilder-sdl:
STYLE-WARNING: Undefined alien: "SDL_getenv"
STYLE-WARNING: Undefined alien: "SDL_putenv"
; file: /home/galdor/prog/lot/ext/lispbuilder-sdl/sdl/sdl-util.lisp
; in: DEFUN FLOOD-FILL-STACK-*
; (RETURN-FROM LISPBUILDER-SDL:FLOOD-FILL-STACK-* NIL)
;
; note: deleting unreachable code
;
; note: deleting unreachable code
;
; note: deleting unreachable code
; compiling (DEFUN PRINT-SURFACE-INFO ...)
STYLE-WARNING: Implicitly creating new generic function AUDIO-SPEC.
STYLE-WARNING: Implicitly creating new generic function
SAMPLE-FREQUENCY.
STYLE-WARNING: Implicitly creating new generic function AUDIO-FORMAT.
STYLE-WARNING: Implicitly creating new generic function OUTPUT-CHANNELS.
STYLE-WARNING: Implicitly creating new generic function AUDIO-SILENCE.
STYLE-WARNING: Implicitly creating new generic function
AUDIO-BUFFER-SIZE.
STYLE-WARNING:
Implicitly creating new generic function
AUDIO-BUFFER-SIZE-CALCULATED.
STYLE-WARNING: Implicitly creating new generic function SPEC-CALLBACK.
STYLE-WARNING: Implicitly creating new generic function SPEC-USER-DATA.
STYLE-WARNING: Implicitly creating new generic function COPY-AUDIO.
STYLE-WARNING: Implicitly creating new generic function
REGISTER-AUDIO-FINISHED.
STYLE-WARNING:
Implicitly creating new generic function UNREGISTER-AUDIO-FINISHED.
STYLE-WARNING: Implicitly creating new generic function
AUDIO-FINISHED-CALLBACK.
STYLE-WARNING: Implicitly creating new generic function _PLAY-AUDIO_.
STYLE-WARNING: Implicitly creating new generic function REWIND-AUDIO.
STYLE-WARNING: Implicitly creating new generic function _PAUSE-AUDIO_.
STYLE-WARNING: Implicitly creating new generic function _RESUME-AUDIO_.
STYLE-WARNING: Implicitly creating new generic function HALT-AUDIO.
STYLE-WARNING: Implicitly creating new generic function AUDIO-HALTED-P.
STYLE-WARNING: Implicitly creating new generic function
_AUDIO-PAUSED-P_.
STYLE-WARNING: Implicitly creating new generic function
_AUDIO-PLAYING-P_.
STYLE-WARNING: Implicitly creating new generic function POST-PROCESS.
; compiling (DEFUN PLAY-AUDIO ...)
; file: /home/galdor/prog/lot/ext/lispbuilder-sdl/sdl/mixer.lisp
; in: DEFUN PLAY-AUDIO
; (DEFUN LISPBUILDER-SDL:PLAY-AUDIO
; (&OPTIONAL LISPBUILDER-SDL::OBJ &KEY LOOP
LISPBUILDER-SDL::POS)
; (UNLESS LISPBUILDER-SDL::OBJ
; (SETF LISPBUILDER-SDL::OBJ LISPBUILDER-SDL:*MIXER*))
; (LISPBUILDER-SDL::_PLAY-AUDIO_ LISPBUILDER-SDL::OBJ :LOOP
LOOP :POS
; LISPBUILDER-SDL::POS))
; --> PROGN EVAL-WHEN
; ==>
; (SB-IMPL::%DEFUN 'LISPBUILDER-SDL:PLAY-AUDIO
; (SB-INT:NAMED-LAMBDA LISPBUILDER-SDL:PLAY-AUDIO
; (&OPTIONAL
LISPBUILDER-SDL::OBJ &KEY
; LOOP LISPBUILDER-SDL::POS)
; (BLOCK
LISPBUILDER-SDL:PLAY-AUDIO
; (UNLESS LISPBUILDER-SDL::OBJ
; (SETF LISPBUILDER-SDL::OBJ
;
LISPBUILDER-SDL:*MIXER*))
;
(LISPBUILDER-SDL::_PLAY-AUDIO_
; LISPBUILDER-SDL::OBJ :LOOP
LOOP :POS
; LISPBUILDER-SDL::POS)))
; NIL 'NIL (SB-C:SOURCE-LOCATION))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL OBJ
&KEY LOOP POS)
While compiling a simple test:
; in: DEFUN ZONE-SHOW
; (LISPBUILDER-SDL:WITH-EVENTS NIL (:QUIT-EVENT NIL T))
; --> LET SETF SETQ THE LAMBDA
; ==>
; #'(LAMBDA () (DECLARE (IGNORABLE LISPBUILDER-SDL:RENDER-STATE)))
;
; caught STYLE-WARNING:
; declaring unknown variable LISPBUILDER-SDL:RENDER-STATE to be
ignored
The code:
(defun zone-show (zone)
"Show a zone in a SDL window."
(with-slots (name width height squares) zone
(let* ((dw (* width 16))
(dh (* height 16)))
(sdl:with-init (sdl:sdl-init-video)
(sdl:window dw dh :title-caption (format nil "Zone: ~a" name))
(sdl:with-events ()
(:quit-event () t))))))
It's not that important, since the test works anyway, but I thought it
may be useful to inform you about it :)
Keep on the good work!
--
Nicolas Martyanoff
http://codemore.org
[email protected]
pgpHzi0xDjYu1.pgp
Description: PGP signature
_______________________________________________ application-builder mailing list [email protected] http://www.lispniks.com/mailman/listinfo/application-builder
