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 _______________________________________________ application-builder mailing list application-builder@lispniks.com http://www.lispniks.com/mailman/listinfo/application-builder
