Subject: CL-SDL fails to compile with SBCL
From: Stig E Sandoe <[email-masked]>
To: [email-masked]
Date: Fri, 14 Nov 2003 14:59:14 +0100

Package: cl-sdl
Version: 0.2.2

During installation I get a nice mail that looks like this, describing
the problem.  CLC+ASDF dies on any WARNing.

----
Subject: clc build failure of sdl for sbcl
From: [email-masked]

Hello

This is the clc-build-daemon reporting a build failure.

While recompiling package sdl for compiler sbcl I got the error code 1
If you want to retry the compilation and possibly report this as a bug
then please read /usr/share/doc/common-lisp-controller/REPORTING-BUGS

The command to retry the recompilation is:
clc-send-command --verbose remove sdl sbcl ; echo returns: $?
clc-send-command --verbose recompile sdl sbcl ; echo returns: $?

After this message I will append the last few lines of output.

Thanks for your attention
; 
; note: unable to
;         optimize
;       because:
;         could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN WARP-MOUSE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_WarpMouse" WARP-MOUSE): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN CREATE-CURSOR
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_CreateCursor" CREATE-CURSOR): 

; file: /usr/share/common-lisp/source/sdl/sdl/sdl.lisp
; in: DEF-FOREIGN-ROUTINE ("SDL_CreateCursor" CREATE-CURSOR)
;     (SDL-GL-UFFI-MACROS:DEF-FOREIGN-ROUTINE
;    ("SDL_CreateCursor" SDL::CREATE-CURSOR)
;    (:STRUCT-POINTER SDL::CURSOR)
;    (SDL::DATA (* SDL::UINT8))
;    (SDL::MASK (* SDL::UINT8))
;    (SDL::W SDL-GL-UFFI-MACROS:INT)
;    (SDL::H SDL-GL-UFFI-MACROS:INT)
;    (SDL::HOT-X SDL-GL-UFFI-MACROS:INT)
;    (SDL::HOT-Y SDL-GL-UFFI-MACROS:INT))
; --> PROGN UFFI:DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (STRUCT SDL::CURSOR # # # # # # #))>)
; 
; note: unable to
;         optimize
;       because:
;         could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN FREE-CURSOR
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_FreeCursor" FREE-CURSOR): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN SET-CURSOR
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_SetCursor" SET-CURSOR): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN GET-CURSOR
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_GetCursor" GET-CURSOR): 

; file: /usr/share/common-lisp/source/sdl/sdl/sdl.lisp
; in: DEF-FOREIGN-ROUTINE ("SDL_GetCursor" GET-CURSOR)
;     (SDL-GL-UFFI-MACROS:DEF-FOREIGN-ROUTINE ("SDL_GetCursor" SDL::GET-CURSOR)
;                                           (:STRUCT-POINTER SDL::CURSOR))
; --> PROGN UFFI:DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (STRUCT SDL::CURSOR # # # # # # #))>)
; 
; note: unable to
;         optimize
;       because:
;         could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN SHOW-CURSOR
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_ShowCursor" SHOW-CURSOR): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN GL-GET-PROC-ADDRESS1258
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_GL_GetProcAddress" GL-GET-PROC-ADDRESS): 

; file: /usr/share/common-lisp/source/sdl/sdl/sdl.lisp
; in: DEF-FOREIGN-ROUTINE ("SDL_GL_GetProcAddress" GL-GET-PROC-ADDRESS)
;     (SDL-GL-UFFI-MACROS:DEF-FOREIGN-ROUTINE
;    ("SDL_GL_GetProcAddress" SDL::GL-GET-PROC-ADDRESS)
;    (* SDL-GL-UFFI-MACROS:VOID)
;    (SDL::NAME SDL-GL-UFFI-MACROS:C-STRING))
; --> PROGN UFFI:DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;         optimize
;       because:
;         could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling top level form: 
; recognizing DEFUN GL-GET-PROC-ADDRESS
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_GL_GetProcAddress" GL-GET-PROC-ADDRESS): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN GL-GET-ATTRIBUTE-RAW
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_GL_GetAttribute" GL-GET-ATTRIBUTE-RAW): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN GL-GET-ATTRIBUTE
; compiling top level form: 
; compiling DEFUN GL-GET-ATTRIBUTE: 

; file: /usr/share/common-lisp/source/sdl/sdl/sdl.lisp
; in: DEFUN GL-GET-ATTRIBUTE
;     (SDL-GL-UFFI-MACROS:WITH-FOREIGN-OBJECTS ((SDL::RES SDL-GL-UFFI-MACROS:INT))
;                                            (SDL::GL-GET-ATTRIBUTE-RAW SDL::ATTR
;                                                                       SDL::RES)
;                                            (SDL-GL-UFFI-MACROS:DEREF-POINTER
;                                             SDL::RES
;                                             SDL-GL-UFFI-MACROS:INT))
; --> UFFI:WITH-FOREIGN-OBJECT WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET 
; --> MULTIPLE-VALUE-PROG1 SYMBOL-MACROLET LET ADDR 
; --> SB-ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN SB-C::VAR
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (SIGNED 32))>)
; 
; note: unable to
;         optimize
;       because:
;         could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN GL-SET-ATTRIBUTE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_GL_SetAttribute" GL-SET-ATTRIBUTE): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN GL-SWAP-BUFFERS
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_GL_SwapBuffers" GL-SWAP-BUFFERS): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN WM-SET-CAPTION1306
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_WM_SetCaption" WM-SET-CAPTION): 
; compiling top level form: 
; recognizing DEFUN WM-SET-CAPTION
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_WM_SetCaption" WM-SET-CAPTION): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN WM-SET-ICON
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_WM_SetIcon" WM-SET-ICON): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN WM-ICONIFY-WINDOW
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_WM_IconifyWindow" WM-ICONIFY-WINDOW): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN WM-TOGGLE-FULL-SCREEN
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_WM_ToggleFullScreen" WM-TOGGLE-FULL-SCREEN): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN WM-GRAB-INPUT
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_WM_GrabInput" WM-GRAB-INPUT): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN PUMP-EVENTS
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_PumpEvents" PUMP-EVENTS): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN PEEP-EVENTS
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_PeepEvents" PEEP-EVENTS): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN POLL-EVENT
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_PollEvent" POLL-EVENT): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN WAIT-EVENT
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_WaitEvent" WAIT-EVENT): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN PUSH-EVENT
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_PushEvent" PUSH-EVENT): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN EVENT-STATE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_EventState" EVENT-STATE): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN GET-KEY-STATE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_GetKeyState" GET-KEY-STATE): 

; file: /usr/share/common-lisp/source/sdl/sdl/sdl.lisp
; in: DEF-FOREIGN-ROUTINE ("SDL_GetKeyState" GET-KEY-STATE)
;     (SDL-GL-UFFI-MACROS:DEF-FOREIGN-ROUTINE
;    ("SDL_GetKeyState" SDL::GET-KEY-STATE)
;    (* SDL::UINT8)
;    (SDL::NUMKEYS (* SDL-GL-UFFI-MACROS:INT)))
; --> PROGN UFFI:DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (UNSIGNED 8))>)
; 
; note: unable to
;         optimize
;       because:
;         could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN GET-MOD-STATE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_GetModState" GET-MOD-STATE): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN SET-MOD-STATE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_SetModState" SET-MOD-STATE): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN GET-KEY-NAME1462
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_GetKeyName" GET-KEY-NAME): 
; compiling top level form: 
; recognizing DEFUN GET-KEY-NAME
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_GetKeyName" GET-KEY-NAME): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN ENABLE-UNICODE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_EnableUNICODE" ENABLE-UNICODE): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN ENABLE-KEY-REPEAT
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_EnableKeyRepeat" ENABLE-KEY-REPEAT): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN GET-APP-STATE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_GetAppState" GET-APP-STATE): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-EVENT-STATE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickEventState" JOYSTICK-EVENT-STATE): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN NUM-JOYSTICKS
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_NumJoysticks" NUM-JOYSTICKS): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-NAME1502
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickName" JOYSTICK-NAME): 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-NAME
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickName" JOYSTICK-NAME): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-OPEN
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickOpen" JOYSTICK-OPEN): 

; file: /usr/share/common-lisp/source/sdl/sdl/sdl.lisp
; in: DEF-FOREIGN-ROUTINE ("SDL_JoystickOpen" JOYSTICK-OPEN)
;     (SDL-GL-UFFI-MACROS:DEF-FOREIGN-ROUTINE
;    ("SDL_JoystickOpen" SDL::JOYSTICK-OPEN)
;    (:STRUCT-POINTER SDL::JOYSTICK)
;    (SDL::INDEX SDL-GL-UFFI-MACROS:INT))
; --> PROGN UFFI:DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (STRUCT SDL::JOYSTICK))>)
; 
; note: unable to
;         optimize
;       because:
;         could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-OPENED-P
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickOpened" JOYSTICK-OPENED-P): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-INDEX
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickIndex" JOYSTICK-INDEX): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-NUM-AXES
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickNumAxes" JOYSTICK-NUM-AXES): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-NUM-BALLS
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickNumBalls" JOYSTICK-NUM-BALLS): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-NUM-HATS
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickNumHats" JOYSTICK-NUM-HATS): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-NUM-BUTTONS
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickNumButtons" JOYSTICK-NUM-BUTTONS): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-UPDATE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickUpdate" JOYSTICK-UPDATE): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-GET-AXIS
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickGetAxis" JOYSTICK-GET-AXIS): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-GET-HAT
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickGetHat" JOYSTICK-GET-HAT): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-GET-BUTTON
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickGetButton" JOYSTICK-GET-BUTTON): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-GET-BALL
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickGetBall" JOYSTICK-GET-BALL): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN JOYSTICK-CLOSE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_JoystickClose" JOYSTICK-CLOSE): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_CDNumDrives" CD-NUM-DRIVES): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN CD-NAME1674
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_CDName" CD-NAME): 
; compiling top level form: 
; recognizing DEFUN CD-NAME
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_CDName" CD-NAME): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN CD-OPEN
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_CDOpen" CD-OPEN): 

; file: /usr/share/common-lisp/source/sdl/sdl/sdl.lisp
; in: DEF-FOREIGN-ROUTINE ("SDL_CDOpen" CD-OPEN)
;     (SDL-GL-UFFI-MACROS:DEF-FOREIGN-ROUTINE ("SDL_CDOpen" SDL::CD-OPEN)
;                                           (:STRUCT-POINTER SDL::CD)
;                                           (SDL::DRIVE SDL-GL-UFFI-MACROS:INT))
; --> PROGN UFFI:DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* (STRUCT SDL::CD # # # # # #))>)
; 
; note: unable to
;         optimize
;       because:
;         could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN CD-STATUS
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_CDStatus" CD-STATUS): 

; file: /usr/share/common-lisp/source/sdl/sdl/sdl.lisp
; in: DEF-FOREIGN-ROUTINE ("SDL_CDStatus" CD-STATUS)
;     (SDL-GL-UFFI-MACROS:DEF-FOREIGN-ROUTINE ("SDL_CDStatus" SDL::CD-STATUS)
;                                           SDL::CD-STATUS
;                                           (SDL::CDROM
;                                            (:STRUCT-POINTER SDL::CD)))
; --> PROGN UFFI:DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SDL::CD-STATUS
;                          (SDL::CDROM)
;                          (BLOCK SDL::CD-STATUS (WITH-ALIEN (#) (VALUES #))))
; 
; caught WARNING:
;   Duplicate definition for CD-STATUS found in one static unit (usually a
;   file).

; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN CD-PLAY
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_CDPlay" CD-PLAY): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN CD-PLAY-TRACKS
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_CDPlayTracks" CD-PLAY-TRACKS): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN CD-PAUSE
; compiling top level form: 
; compiling MACROLET ((FROB # #)): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN CD-RESUME
; compiling top level form: 
; compiling MACROLET ((FROB # #)): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN CD-STOP
; compiling top level form: 
; compiling MACROLET ((FROB # #)): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN CD-EJECT
; compiling top level form: 
; compiling MACROLET ((FROB # #)): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN CD-CLOSE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_CDClose" CD-CLOSE): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN GET-TICKS
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_GetTicks" GET-TICKS): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN DELAY
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_Delay" DELAY): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 
; recognizing DEFUN RW-FROM-FILE1814
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_RWFromFile" RW-FROM-FILE): 

; file: /usr/share/common-lisp/source/sdl/sdl/sdl.lisp
; in: DEF-FOREIGN-ROUTINE ("SDL_RWFromFile" RW-FROM-FILE)
;     (SDL-GL-UFFI-MACROS:DEF-FOREIGN-ROUTINE ("SDL_RWFromFile" SDL::RW-FROM-FILE)
;                                           SDL::RWOPS*
;                                           (SDL::FILE
;                                            SDL-GL-UFFI-MACROS:C-STRING)
;                                           (SDL::MODE
;                                            SDL-GL-UFFI-MACROS:C-STRING))
; --> PROGN UFFI:DEF-FUNCTION DEFINE-ALIEN-ROUTINE PROGN DEFUN PROGN 
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET SYMBOL-MACROLET VALUES PROG1 
; --> LET ALIEN-FUNCALL SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE
;                                     (* T)>)
; 
; note: unable to
;         optimize
;       because:
;         could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; compiling top level form: 
; recognizing DEFUN RW-FROM-FILE
; compiling top level form: 
; compiling DEF-FOREIGN-ROUTINE ("SDL_RWFromFile" RW-FROM-FILE): 
; compiling top level form: 
; compiling top level form: 
; compiling top level form: 

; /usr/lib/common-lisp/sbcl/sdl/sdl/sdl.fasl written
; compilation finished in 0:00:04
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {91B3C51}> on
   #<CL-SOURCE-FILE "sdl" {91AEAC9}>.
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 WARNING condition
;   printed 20 notes
Build error: erred while invoking #<COMPILE-OP NIL {91B3C51}> on
             #<CL-SOURCE-FILE "sdl" {91AEAC9}>
Build failure 
; 
---

-- 
Stig Erik Sandoe