[ab] SBCL 0.9.18 & SDL 1.2.11

[John Fred Connors]

Works fine here on Win32 - it compiles with a lot of performance notes - mostly due to the use of integer instead of fixunum or float instead of single-float or double-float. There also appears to be a typo in the examples.


; file: c:\home\johnc\clisp\lispbuilder-sdl\sdl\drawing-primitives.lisp
; in: DEFUN LISPBUILDER-SDL:DRAW-LINE-XY
;     (LET ((LISPBUILDER-SDL:X 0)
;         (LISPBUILDER-SDL:Y 0)
;         (LISPBUILDER-SDL::E 0)
;         (LISPBUILDER-SDL::DX 0)
;         (LISPBUILDER-SDL::DY 0)
;         (LISPBUILDER-SDL:COLOR
;          (LISPBUILDER-SDL:MAP-COLOR :COLOR LISPBUILDER-SDL:COLOR :SURFACE
;                                     LISPBUILDER-SDL::SURFACE)))
;     (DECLARE
;      (TYPE FIXNUM LISPBUILDER-SDL:X LISPBUILDER-SDL:Y LISPBUILDER-SDL:W
;       LISPBUILDER-SDL::DX LISPBUILDER-SDL::DY LISPBUILDER-SDL:COLOR))
;     (WHEN (> LISPBUILDER-SDL::X0 LISPBUILDER-SDL::X1)
;       (ROTATEF LISPBUILDER-SDL::X0 LISPBUILDER-SDL::X1)
;       (ROTATEF LISPBUILDER-SDL::Y0 LISPBUILDER-SDL::Y1))
;     (SETF LISPBUILDER-SDL::E 0)
;     (SETF LISPBUILDER-SDL:X LISPBUILDER-SDL::X0)
;     (SETF LISPBUILDER-SDL:Y LISPBUILDER-SDL::Y0)
;     (SETF LISPBUILDER-SDL::DX (- LISPBUILDER-SDL::X1 LISPBUILDER-SDL::X0))
;     (SETF LISPBUILDER-SDL::DY (- LISPBUILDER-SDL::Y1 LISPBUILDER-SDL::Y0))
;     (LISPBUILDER-SDL:WITH-POSSIBLE-LOCK-AND-UPDATE
;      (:SURFACE LISPBUILDER-SDL::SURFACE :CHECK-LOCK-P T :UPDATE-P
;       LISPBUILDER-SDL::UPDATE-P)
;      (IF (>= LISPBUILDER-SDL::DY 0)
;          (IF (>= LISPBUILDER-SDL::DX LISPBUILDER-SDL::DY)
;              (LOOP LISPBUILDER-SDL::FOR LISPBUILDER-SDL:X LISPBUILDER-SDL::FROM
;                    LISPBUILDER-SDL::X0 LISPBUILDER-SDL::TO LISPBUILDER-SDL::X1
;                    DO # #)
;              (LOOP LISPBUILDER-SDL::FOR LISPBUILDER-SDL:Y LISPBUILDER-SDL::FROM
;                    LISPBUILDER-SDL::Y0 LISPBUILDER-SDL::TO LISPBUILDER-SDL::Y1
;                    DO # #))
;          (IF (>= LISPBUILDER-SDL::DX #)
;              (LOOP LISPBUILDER-SDL::FOR LISPBUILDER-SDL:X LISPBUILDER-SDL::FROM
;                    LISPBUILDER-SDL::X0 LISPBUILDER-SDL::TO LISPBUILDER-SDL::X1
;                    DO # #)
;              (PROGN # # # # # #)))))
; 
; caught WARNING:
;   undefined variable: LISPBUILDER-SDL:W

; 
; caught WARNING:
;   This variable is undefined:
;     LISPBUILDER-SDL:W
; 
; compilation unit finished
;   caught 2 WARNING conditions
;   caught 6 STYLE-WARNING conditions
;   printed 313 notes

>From the warning, I'd guess somene typed a W instead of an E
in the type declaration. 


John Fred Connors:
Animation Programmer and all round cyber-dogsbody.
http://badbyteblues.blogspot.com
http://yagc.blogspot.com