xlyb on sbcl-0.9.9-darwin-ppc - Details

Version:0.1
Description:A persistence glue layer for CLX
Started at:2006-04-16 02:07:49
Ended at:2006-04-16 02:12:09
Elapsed time (seconds):260
Depends On:clx
Most recent change:2004-06-17 00:42:06
Most recent file:/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/xlyb_0.1/xlyb.lisp

REPL Output

;;; ASDF-INSTALL: Downloading 8091 bytes from http://www.hexapodia.net/src/xlyb.tar.gz to /Users/gwking/temporary/asdf-test/XLYB.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/XLYB.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
xlyb_0.1/README
xlyb_0.1/xlyb.asd
xlyb_0.1/mapfns.lisp
xlyb_0.1/package.lisp
xlyb_0.1/wrappers.lisp
xlyb_0.1/xlyb.lisp

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/xlyb_0.1/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/xlyb_0.1/" ;;; ASDF-INSTALL: Downloading package CLX, required by xlyb

;;; ASDF-INSTALL: Downloading 438168 bytes from http://ftp.linux.org.uk/pub/lisp/sbcl/clx_0.7.3.tar.gz to /Users/gwking/temporary/asdf-test/clx.asdf-install-tmp ...

;;; ASDF-INSTALL: Installing /Users/gwking/temporary/asdf-test/clx.asdf-install-tmp in /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/, /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site-systems/
clx_0.7.3/
clx_0.7.3/debug/
clx_0.7.3/debug/util.lisp
clx_0.7.3/debug/trace.lisp
clx_0.7.3/debug/debug.lisp
clx_0.7.3/debug/event-test.lisp
clx_0.7.3/debug/keytrans.lisp
clx_0.7.3/debug/describe.lisp
clx_0.7.3/demo/
clx_0.7.3/demo/beziertest.lisp
clx_0.7.3/demo/bezier.lisp
clx_0.7.3/demo/zoid.lisp
clx_0.7.3/demo/menu.lisp
clx_0.7.3/demo/hello.lisp
clx_0.7.3/demo/clx-demos.lisp
clx_0.7.3/demo/mandel.lisp
clx_0.7.3/demo/clclock.lisp
clx_0.7.3/demo/clipboard.lisp
clx_0.7.3/demo/gl-test.lisp
clx_0.7.3/test/
clx_0.7.3/test/trapezoid.lisp
clx_0.7.3/test/image.lisp
clx_0.7.3/sockcl.lisp
clx_0.7.3/CHANGES
clx_0.7.3/NEWS
clx_0.7.3/text.lisp
clx_0.7.3/generalock.lisp
clx_0.7.3/translate.lisp
clx_0.7.3/socket.c
clx_0.7.3/excldefsys.lisp
clx_0.7.3/resource.lisp
clx_0.7.3/requests.lisp
clx_0.7.3/provide.lisp
clx_0.7.3/package.lisp
clx_0.7.3/xrender.lisp
clx_0.7.3/manager.lisp
clx_0.7.3/keysyms.lisp
clx_0.7.3/input.lisp
clx_0.7.3/graphics.lisp
clx_0.7.3/excldep.lisp
clx_0.7.3/fonts.lisp
clx_0.7.3/exclMakefile
clx_0.7.3/excldep.c
clx_0.7.3/exclREADME
clx_0.7.3/manual/
clx_0.7.3/manual/clx.texinfo
clx_0.7.3/exclcmac.lisp
clx_0.7.3/display.lisp
clx_0.7.3/attributes.lisp
clx_0.7.3/cmudep.lisp
clx_0.7.3/bufmac.lisp
clx_0.7.3/buffer.lisp
clx_0.7.3/README
clx_0.7.3/clx-module.lisp
clx_0.7.3/defsystem.lisp
clx_0.7.3/macros.lisp
clx_0.7.3/dep-openmcl.lisp
clx_0.7.3/build-clx.lisp
clx_0.7.3/depdefs.lisp
clx_0.7.3/clx.lisp
clx_0.7.3/gcontext.lisp
clx_0.7.3/image.lisp
clx_0.7.3/dependent.lisp
clx_0.7.3/README-R5
clx_0.7.3/clx.asd
clx_0.7.3/shape.lisp
clx_0.7.3/xvidmode.lisp
clx_0.7.3/glx.lisp
clx_0.7.3/gl.lisp
clx_0.7.3/dpms.lisp
clx_0.7.3/dep-allegro.lisp

#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/" 
#P"/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/" 
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/package.lisp" (written 14 JUL 2005 09:24:44 AM):
; compiling (IN-PACKAGE :COMMON-LISP-USER)
; compiling (DEFPACKAGE XLIB ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/depdefs.lisp" (written 27 MAR 2006 07:17:43 PM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DECLAIM (DECLARATION CLX-VALUES))
; compiling (DECLAIM (DECLARATION ARGLIST))
; compiling (DECLAIM (DECLARATION INDENTATION))
; compiling (DEFMACRO WITH-VECTOR ...)
; compiling (DEFMACRO WITHIN-DEFINITION ...)
; compiling (DEFCONSTANT +CLX-CACHED-TYPES+ ...)
; compiling (DEFMACRO RESOURCE-ID-MAP-TEST ...)
; compiling (DEFMACRO ATOM-CACHE-MAP-TEST ...)
; compiling (DEFMACRO KEYSYM->CHARACTER-MAP-TEST ...)
; compiling (ECASE SB-C:*BACKEND-BYTE-ORDER* ...)
; compiling (DEFTYPE BUFFER-BYTES ...)
; compiling (DEFTYPE ARRAY-INDEX ...)
; compiling (DEFUN MAKE-INDEX-TYPED ...)
; compiling (DEFUN MAKE-INDEX-OP ...)
; compiling (DEFMACRO INDEX+ ...)
; compiling (DEFMACRO INDEX-LOGAND ...)
; compiling (DEFMACRO INDEX-LOGIOR ...)
; compiling (DEFMACRO INDEX- ...)
; compiling (DEFMACRO INDEX* ...)
; compiling (DEFMACRO INDEX1+ ...)
; compiling (DEFMACRO INDEX1- ...)
; compiling (DEFMACRO INDEX-INCF ...)
; compiling (DEFMACRO INDEX-DECF ...)
; compiling (DEFMACRO INDEX-MIN ...)
; compiling (DEFMACRO INDEX-MAX ...)
; compiling (DEFMACRO INDEX-FLOOR ...)
; compiling (DEFMACRO INDEX-CEILING ...)
; compiling (DEFMACRO INDEX-TRUNCATE ...)
; compiling (DEFMACRO INDEX-MOD ...)
; compiling (DEFMACRO INDEX-ASH ...)
; compiling (DEFMACRO INDEX-PLUSP ...)
; compiling (DEFMACRO INDEX-ZEROP ...)
; compiling (DEFMACRO INDEX-EVENP ...)
; compiling (DEFMACRO INDEX-ODDP ...)
; compiling (DEFMACRO INDEX> ...)
; compiling (DEFMACRO INDEX= ...)
; compiling (DEFMACRO INDEX< ...)
; compiling (DEFMACRO INDEX>= ...)
; compiling (DEFMACRO INDEX<= ...)
; compiling (DEFCONSTANT +REPLYSIZE+ ...)
; compiling (DEFVAR *EMPTY-BYTES* ...)
; compiling (DECLAIM (TYPE BUFFER-BYTES ...))
; compiling (DEFSTRUCT (REPLY-BUFFER # ...) ...)
; compiling (DEFCONSTANT +BUFFER-TEXT16-SIZE+ ...)
; compiling (DEFTYPE BUFFER-TEXT16 ...)
; compiling (DEFPARAMETER *XLIB-PACKAGE* ...)
; compiling (DEFUN XINTERN ...)
; compiling (DEFPARAMETER *KEYWORD-PACKAGE* ...)
; compiling (DEFUN KINTERN ...)
; compiling (DEFVAR *DEF-CLX-CLASS-USE-DEFCLASS* ...)
; compiling (DEFMACRO DEF-CLX-CLASS ...)
; compiling (DEF-CLX-CLASS (BUFFER # ...) ...)
; compiling (DEFCONSTANT +IMAGE-BIT-LSB-FIRST-P+ ...)
; compiling (DEFCONSTANT +IMAGE-BYTE-LSB-FIRST-P+ ...)
; compiling (DEFCONSTANT +IMAGE-UNIT+ ...)
; compiling (DEFCONSTANT +IMAGE-PAD+ ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/depdefs.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/clx.lisp" (written 26 AUG 2005 05:36:12 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (PUSHNEW :CLX ...)
; compiling (PUSHNEW :XLIB ...)
; compiling (DEFPARAMETER *VERSION* ...)
; compiling (PUSHNEW :CLX-MIT-R4 ...)
; compiling (PUSHNEW :CLX-MIT-R5 ...)
; compiling (DEFPARAMETER *PROTOCOL-MAJOR-VERSION* ...)
; compiling (DEFPARAMETER *PROTOCOL-MINOR-VERSION* ...)
; compiling (DEFPARAMETER *X-TCP-PORT* ...)
; compiling (DEFTYPE GENERALIZED-BOOLEAN ...)
; compiling (DEFTYPE CARD32 ...)
; compiling (DEFTYPE CARD29 ...)
; compiling (DEFTYPE CARD24 ...)
; compiling (DEFTYPE INT32 ...)
; compiling (DEFTYPE CARD16 ...)
; compiling (DEFTYPE INT16 ...)
; compiling (DEFTYPE CARD8 ...)
; compiling (DEFTYPE INT8 ...)
; compiling (DEFTYPE CARD4 ...)
; compiling (DEFTYPE RGB-VAL ...)
; compiling (DEFTYPE ANGLE ...)
; compiling (DEFTYPE MASK32 ...)
; compiling (DEFTYPE MASK16 ...)
; compiling (DEFTYPE PIXEL ...)
; compiling (DEFTYPE IMAGE-DEPTH ...)
; compiling (DEFTYPE RESOURCE-ID ...)
; compiling (DEFTYPE KEYSYM ...)
; compiling (DEF-CLX-CLASS (COLOR # ...) ...)
; compiling (DEFUN PRINT-COLOR ...)
; compiling (DEFUN MAKE-COLOR ...)
; compiling (DEFUN COLOR-RGB ...)
; compiling (DEF-CLX-CLASS (BITMAP-FORMAT # ...) ...)
; compiling (DEFUN PRINT-BITMAP-FORMAT ...)
; compiling (DEF-CLX-CLASS (PIXMAP-FORMAT # ...) ...)
; compiling (DEFUN PRINT-PIXMAP-FORMAT ...)
; compiling (DEFPARAMETER *ATOM-CACHE-SIZE* ...)
; compiling (DEFPARAMETER *RESOURCE-ID-MAP-SIZE* ...)
; compiling (DEF-CLX-CLASS (DISPLAY # ...) ...)
; compiling (DEFUN PRINT-DISPLAY-NAME ...)
; compiling (DEFUN PRINT-DISPLAY ...)
; compiling (DEF-CLX-CLASS (DRAWABLE # ...) ...)
; compiling (DEFUN PRINT-DRAWABLE ...)
; compiling (DEF-CLX-CLASS (WINDOW # ...))
; compiling (DEF-CLX-CLASS (PIXMAP # ...))
; compiling (DEF-CLX-CLASS (VISUAL-INFO # ...) ...)
; compiling (DEFUN PRINT-VISUAL-INFO ...)
; compiling (DEF-CLX-CLASS (COLORMAP # ...) ...)
; compiling (DEFUN PRINT-COLORMAP ...)
; compiling (DEF-CLX-CLASS (CURSOR # ...) ...)
; compiling (DEFUN PRINT-CURSOR ...)
; compiling (DEFTYPE XATOM ...)
; compiling (DEFCONSTANT +PREDEFINED-ATOMS+ ...)
; compiling (DEFTYPE STRINGABLE ...)
; compiling (DEFTYPE FONTABLE ...)
; compiling (DEFTYPE TIMESTAMP ...)
; compiling (DEFCONSTANT +BIT-GRAVITY-VECTOR+ ...)
; compiling (DEFTYPE BIT-GRAVITY ...)
; compiling (DEFCONSTANT +WIN-GRAVITY-VECTOR+ ...)
; compiling (DEFPARAMETER *PROTOCOL-FAMILIES* ...)
; compiling (DEFTYPE WIN-GRAVITY ...)
; compiling (DEFTYPE GRAB-STATUS ...)
; compiling (DEFTYPE ALIST ...)
; compiling (DEFTYPE CLX-LIST ...)
; compiling (DEFTYPE CLX-SEQUENCE ...)
; compiling (DEFTYPE REPEAT-SEQ ...)
; compiling (DEFTYPE POINT-SEQ ...)
; compiling (DEFTYPE SEG-SEQ ...)
; compiling (DEFTYPE RECT-SEQ ...)
; compiling (DEFTYPE ARC-SEQ ...)
; compiling (DEFTYPE GCONTEXT-STATE ...)
; compiling (DEF-CLX-CLASS (GCONTEXT # ...) ...)
; compiling (DEFUN PRINT-GCONTEXT ...)
; compiling (DEFCONSTANT +EVENT-MASK-VECTOR+ ...)
; compiling (DEFTYPE EVENT-MASK-CLASS ...)
; compiling (DEFTYPE EVENT-MASK ...)
; compiling (DEFCONSTANT +POINTER-EVENT-MASK-VECTOR+ ...)
; compiling (DEFTYPE POINTER-EVENT-MASK-CLASS ...)
; compiling (DEFTYPE POINTER-EVENT-MASK ...)
; compiling (DEFCONSTANT +DEVICE-EVENT-MASK-VECTOR+ ...)
; compiling (DEFTYPE DEVICE-EVENT-MASK-CLASS ...)
; compiling (DEFTYPE DEVICE-EVENT-MASK ...)
; compiling (DEFCONSTANT +STATE-MASK-VECTOR+ ...)
; compiling (DEFTYPE MODIFIER-KEY ...)
; compiling (DEFTYPE MODIFIER-MASK ...)
; compiling (DEFTYPE STATE-MASK-KEY ...)
; compiling (DEFCONSTANT +GCONTEXT-COMPONENTS+ ...)
; compiling (DEFTYPE GCONTEXT-KEY ...)
; compiling (DEFTYPE EVENT-KEY ...)
; compiling (DEFTYPE ERROR-KEY ...)
; compiling (DEFTYPE DRAW-DIRECTION ...)
; compiling (DEFCONSTANT +BOOLE-VECTOR+ ...)
; compiling (DEFTYPE BOOLE-CONSTANT ...)
; compiling (DEF-CLX-CLASS (SCREEN # ...) ...)
; compiling (DEFUN PRINT-SCREEN ...)
; compiling (DEFUN SCREEN-ROOT-VISUAL ...)
; compiling (DEFTYPE FONT-PROPS ...)
; compiling (DEF-CLX-CLASS (FONT-INFO # ...) ...)
; compiling (DEF-CLX-CLASS (FONT # ...) ...)
; compiling (DEFUN PRINT-FONT ...)
; compiling (DEFUN FONT-ID ...)
; compiling (DEFUN FONT-FONT-INFO ...)
; compiling (DEFUN FONT-CHAR-INFOS ...)
; compiling (DEFUN MAKE-FONT ...)
; compiling (MAKE-FONT-INFO-ACCESSORS IGNORE ...)
; compiling (DEFUN FONT-PROPERTY ...)
; compiling (MAKE-MUMBLE-EQUAL WINDOW)
; compiling (MAKE-MUMBLE-EQUAL PIXMAP)
; compiling (MAKE-MUMBLE-EQUAL CURSOR)
; compiling (MAKE-MUMBLE-EQUAL FONT)
; compiling (MAKE-MUMBLE-EQUAL GCONTEXT)
; compiling (MAKE-MUMBLE-EQUAL COLORMAP)
; compiling (MAKE-MUMBLE-EQUAL DRAWABLE)
; compiling (DEFUN ENCODE-MASK ...)
; compiling (DEFUN DECODE-MASK ...)
; compiling (DEFUN ENCODE-EVENT-MASK ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/clx.lisp
; in: DEFUN ENCODE-EVENT-MASK
;     (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK)
; ==>
;   XLIB:EVENT-MASK
; 
; note: deleting unreachable code

; compiling (DEFUN MAKE-EVENT-MASK ...)
; compiling (DEFUN MAKE-EVENT-KEYS ...)
; compiling (DEFUN ENCODE-DEVICE-EVENT-MASK ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/clx.lisp
; in: DEFUN ENCODE-DEVICE-EVENT-MASK
;     (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK)
; ==>
;   XLIB:DEVICE-EVENT-MASK
; 
; note: deleting unreachable code

; compiling (DEFUN ENCODE-MODIFIER-MASK ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/clx.lisp
; in: DEFUN ENCODE-MODIFIER-MASK
;     (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK)
; ==>
;   XLIB:MODIFIER-MASK
; 
; note: deleting unreachable code

; compiling (DEFUN ENCODE-STATE-MASK ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/clx.lisp
; in: DEFUN ENCODE-STATE-MASK
;     (XLIB::X-TYPE-ERROR XLIB::STATE-MASK
;                       '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY)))
; ==>
;   XLIB::STATE-MASK
; 
; note: deleting unreachable code

; compiling (DEFUN MAKE-STATE-MASK ...)
; compiling (DEFUN MAKE-STATE-KEYS ...)
; compiling (DEFUN ENCODE-POINTER-EVENT-MASK ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/clx.lisp
; in: DEFUN ENCODE-POINTER-EVENT-MASK
;     (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK)
; ==>
;   XLIB:POINTER-EVENT-MASK
; 
; note: deleting unreachable code

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/clx.fasl written
; compilation finished in 0:00:16
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dependent.lisp" (written 14 JUL 2005 10:11:42 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (PROCLAIM (QUOTE #))
; compiling (DEFPARAMETER *OUTPUT-BUFFER-SIZE* ...)
; compiling (DEFPARAMETER *REPLY-TIMEOUT* ...)
; compiling (DEFCONSTANT +WORD-0+ ...)
; compiling (DEFCONSTANT +WORD-1+ ...)
; compiling (DEFCONSTANT +LONG-0+ ...)
; compiling (DEFCONSTANT +LONG-1+ ...)
; compiling (DEFCONSTANT +LONG-2+ ...)
; compiling (DEFCONSTANT +LONG-3+ ...)
; compiling (DEFCONSTANT +BUFFER-SPEED+ ...)
; compiling (DEFCONSTANT +BUFFER-SAFETY+ ...)
; compiling (DEFCONSTANT +BUFFER-DEBUG+ ...)
; compiling (DEFUN DECLARE-BUFMAC ...)
; compiling (DEFUN DECLARE-BUFFUN ...)
; compiling (DECLAIM (INLINE CARD8->INT8 ...))
; compiling (DEFUN CARD8->INT8 ...)
; compiling (DEFUN INT8->CARD8 ...)
; compiling (DEFUN CARD16->INT16 ...)
; compiling (DEFUN INT16->CARD16 ...)
; compiling (DEFUN CARD32->INT32 ...)
; compiling (DEFUN INT32->CARD32 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dependent.lisp
; in: DEFUN INT32->CARD32
;     (LDB (BYTE 32 0) XLIB::X)
; --> SB-KERNEL:%LDB 
; ==>
;   (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).

; compiling (DECLAIM (INLINE AREF-CARD8 ...))
; compiling (DEFUN AREF-CARD8 ...)
; compiling (DEFUN ASET-CARD8 ...)
; compiling (DEFUN AREF-INT8 ...)
; compiling (DEFUN ASET-INT8 ...)
; compiling (DEFUN AREF-CARD16 ...)
; compiling (DEFUN ASET-CARD16 ...)
; compiling (DEFUN AREF-INT16 ...)
; compiling (DEFUN ASET-INT16 ...)
; compiling (DEFUN AREF-CARD32 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dependent.lisp
; in: DEFUN AREF-CARD32
;     (DEFUN XLIB::AREF-CARD32 (XLIB::A XLIB::I)
;     (DECLARE (TYPE XLIB::BUFFER-BYTES XLIB::A) (TYPE XLIB:ARRAY-INDEX XLIB::I))
;     (DECLARE (XLIB::CLX-VALUES XLIB:CARD32))
;     (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1)))
;     (THE XLIB:CARD32
;          (LOGIOR (THE XLIB:CARD32 (ASH # 24))
;                  (THE XLIB:CARD29 (ASH # 16))
;                  (THE XLIB:CARD16 (ASH # 8))
;                  (THE XLIB:CARD8 (AREF XLIB::A #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA XLIB::AREF-CARD32
;                          (XLIB::A XLIB::I)
;                          (DECLARE (TYPE XLIB::BUFFER-BYTES XLIB::A)
;                                   (TYPE XLIB:ARRAY-INDEX XLIB::I))
;                          (DECLARE (XLIB::CLX-VALUES XLIB:CARD32))
;                          (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1)))
;                          (BLOCK XLIB::AREF-CARD32
;                            (THE XLIB:CARD32
;                                 (LOGIOR (THE XLIB:CARD32 #)
;                                         (THE XLIB:CARD29 #)
;                                         (THE XLIB:CARD16 #)
;                                         (THE XLIB:CARD8 #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN ASET-CARD32 ...)
; compiling (DEFUN AREF-INT32 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dependent.lisp
; in: DEFUN AREF-INT32
;     (DEFUN XLIB::AREF-INT32 (XLIB::A XLIB::I)
;     (DECLARE (TYPE XLIB::BUFFER-BYTES XLIB::A) (TYPE XLIB:ARRAY-INDEX XLIB::I))
;     (DECLARE (XLIB::CLX-VALUES XLIB:INT32))
;     (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1)))
;     (THE XLIB:INT32
;          (LOGIOR (THE XLIB:INT32 (ASH # 24))
;                  (THE XLIB:CARD29 (ASH # 16))
;                  (THE XLIB:CARD16 (ASH # 8))
;                  (THE XLIB:CARD8 (AREF XLIB::A #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA XLIB::AREF-INT32
;                          (XLIB::A XLIB::I)
;                          (DECLARE (TYPE XLIB::BUFFER-BYTES XLIB::A)
;                                   (TYPE XLIB:ARRAY-INDEX XLIB::I))
;                          (DECLARE (XLIB::CLX-VALUES XLIB:INT32))
;                          (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1)))
;                          (BLOCK XLIB::AREF-INT32
;                            (THE XLIB:INT32
;                                 (LOGIOR (THE XLIB:INT32 #)
;                                         (THE XLIB:CARD29 #)
;                                         (THE XLIB:CARD16 #)
;                                         (THE XLIB:CARD8 #)))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN ASET-INT32 ...)
; compiling (DEFUN AREF-CARD29 ...)
; compiling (DEFUN ASET-CARD29 ...)
; compiling (DEFSETF AREF-CARD8 ...)
; compiling (DEFSETF AREF-INT8 ...)
; compiling (DEFSETF AREF-CARD16 ...)
; compiling (DEFSETF AREF-INT16 ...)
; compiling (DEFSETF AREF-CARD32 ...)
; compiling (DEFSETF AREF-INT32 ...)
; compiling (DEFSETF AREF-CARD29 ...)
; compiling (DEFUN RGB-VAL->CARD16 ...)
; compiling (DEFUN CARD16->RGB-VAL ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dependent.lisp
; in: DEFUN CARD16->RGB-VAL
;     (DEFUN XLIB::CARD16->RGB-VAL (XLIB::VALUE)
;     (DECLARE (TYPE XLIB:CARD16 XLIB::VALUE))
;     (DECLARE (XLIB::CLX-VALUES SHORT-FLOAT))
;     (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1)))
;     (THE SHORT-FLOAT (* (THE XLIB:CARD16 XLIB::VALUE) 1.5259022e-5)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA XLIB::CARD16->RGB-VAL
;                          (XLIB::VALUE)
;                          (DECLARE (TYPE XLIB:CARD16 XLIB::VALUE))
;                          (DECLARE (XLIB::CLX-VALUES SHORT-FLOAT))
;                          (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1)))
;                          (BLOCK XLIB::CARD16->RGB-VAL
;                            (THE SHORT-FLOAT
;                                 (* (THE XLIB:CARD16 XLIB::VALUE)
;                                    1.5259022e-5))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; compiling (DEFUN RADIANS->INT16 ...)
; compiling (DEFUN INT16->RADIANS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dependent.lisp
; in: DEFUN INT16->RADIANS
;     (DEFUN XLIB::INT16->RADIANS (XLIB::VALUE)
;     (DECLARE (TYPE XLIB:INT16 XLIB::VALUE))
;     (DECLARE (XLIB::CLX-VALUES SHORT-FLOAT))
;     (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1)))
;     (THE SHORT-FLOAT (* (THE XLIB:INT16 XLIB::VALUE) 2.727077e-4)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA XLIB::INT16->RADIANS
;                          (XLIB::VALUE)
;                          (DECLARE (TYPE XLIB:INT16 XLIB::VALUE))
;                          (DECLARE (XLIB::CLX-VALUES SHORT-FLOAT))
;                          (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1)))
;                          (BLOCK XLIB::INT16->RADIANS
;                            (THE SHORT-FLOAT
;                                 (* (THE XLIB:INT16 XLIB::VALUE) 2.727077e-4))))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; compiling (DEFTYPE ANGLE ...)
; compiling (DEFUN ANGLEP ...)
; compiling (DECLAIM (INLINE CHAR->CARD8 ...))
; compiling (CHAR-TRANSLATORS)
; compiling (DEFUN MAKE-PROCESS-LOCK ...)
; compiling (DEFMACRO HOLDING-LOCK ...)
; compiling (DEFMACRO WITHOUT-ABORTS ...)
; compiling (DEFUN PROCESS-BLOCK ...)
; compiling (DECLAIM (INLINE PROCESS-WAKEUP))
; compiling (DEFUN PROCESS-WAKEUP ...)
; compiling (DECLAIM (INLINE CURRENT-PROCESS))
; compiling (DEFUN CURRENT-PROCESS ...)
; compiling (DEFMACRO WITHOUT-INTERRUPTS ...)
; compiling (DEFVAR *WITHOUT-INTERRUPTS-SIC-LOCK* ...)
; compiling (DEFMACRO WITHOUT-INTERRUPTS ...)
; compiling (DEFVAR *CONDITIONAL-STORE-LOCK* ...)
; compiling (DEFMACRO CONDITIONAL-STORE ...)
; compiling (DEFMACRO WRAP-BUF-OUTPUT ...)
; compiling (DEFMACRO WRAP-BUF-INPUT ...)
; compiling (DEFCONSTANT +X-UNIX-SOCKET-PATH+ ...)
; compiling (DEFUN OPEN-X-STREAM ...)
; compiling (DEFUN BUFFER-READ-DEFAULT ...)
; compiling (DEFUN BUFFER-WRITE-DEFAULT ...)
; compiling (DEFUN BUFFER-FORCE-OUTPUT-DEFAULT ...)
; compiling (DEFUN BUFFER-CLOSE-DEFAULT ...)
; compiling (DEFUN BUFFER-INPUT-WAIT-DEFAULT ...)
; compiling (DEFUN BUFFER-LISTEN-DEFAULT ...)
; compiling (DEFMACRO WITH-STACK-LIST ...)
; compiling (DEFMACRO WITH-STACK-LIST* ...)
; compiling (DECLAIM (INLINE BUFFER-REPLACE))
; compiling (DEFUN BUFFER-REPLACE ...)
; compiling (DEFMACRO WITH-GCONTEXT-BINDINGS ...)
; compiling (DEFCONSTANT +TYPE-CHECK?+ ...)
; compiling (DEFMACRO TYPE? ...)
; compiling (DEFUN X-TYPE-ERROR ...)
; compiling (DEFUN DEFAULT-ERROR-HANDLER ...)
; compiling (DEFUN X-ERROR ...)
; compiling (DEFUN X-CERROR ...)
; compiling (DEFINE-CONDITION X-ERROR ...)
; compiling (DEFUN HOST-ADDRESS ...)
; compiling (DEFMACRO USE-CLOSURES ...)
; compiling (DEFUN CLX-MACROEXPAND ...)
; compiling (DEFUN GETENV ...)
; compiling (DEFUN GET-HOST-NAME ...)
; compiling (DEFUN HOMEDIR-FILE-PATHNAME ...)
; compiling (DEFUN DEFAULT-RESOURCES-PATHNAME ...)
; compiling (DEFUN RESOURCES-PATHNAME ...)
; compiling (DEFUN AUTHORITY-PATHNAME ...)
; compiling (DEFUN GET-DEFAULT-DISPLAY ...)
; compiling (DEFUN GC-CLEANUP ...)
; compiling (DEFUN DEFAULT-KEYSYM-TRANSLATE ...)
; compiling (DEFTYPE PIXARRAY-1-ELEMENT-TYPE ...)
; compiling (DEFTYPE PIXARRAY-4-ELEMENT-TYPE ...)
; compiling (DEFTYPE PIXARRAY-8-ELEMENT-TYPE ...)
; compiling (DEFTYPE PIXARRAY-16-ELEMENT-TYPE ...)
; compiling (DEFTYPE PIXARRAY-24-ELEMENT-TYPE ...)
; compiling (DEFTYPE PIXARRAY-32-ELEMENT-TYPE ...)
; compiling (DEFTYPE PIXARRAY-1 ...)
; compiling (DEFTYPE PIXARRAY-4 ...)
; compiling (DEFTYPE PIXARRAY-8 ...)
; compiling (DEFTYPE PIXARRAY-16 ...)
; compiling (DEFTYPE PIXARRAY-24 ...)
; compiling (DEFTYPE PIXARRAY-32 ...)
; compiling (DEFTYPE PIXARRAY ...)
; compiling (DEFTYPE BITMAP ...)
; compiling (DEFMACRO WITH-UNDERLYING-SIMPLE-VECTOR ...)
; compiling (DEFMACRO READ-IMAGE-LOAD-BYTE ...)
; compiling (DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ...)
; compiling (DEFMACRO WRITE-IMAGE-LOAD-BYTE ...)
; compiling (DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ...)
; compiling (DEFUN FAST-READ-PIXARRAY-24 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dependent.lisp
; in: DEFUN FAST-READ-PIXARRAY-24
;     (XLIB::READ-IMAGE-ASSEMBLE-BYTES
;    (AREF XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::I 0))
;    (AREF XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::I 1))
;    (AREF XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::I 2)))
; --> THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; compiling (DEFUN PIXARRAY-ELEMENT-SIZE ...)
; compiling (DEFUN COPY-BIT-RECT ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dependent.lisp
; in: DEFUN COPY-BIT-RECT
;     (SB-KERNEL:WITH-ARRAY-DATA
;    ((XLIB::SDATA XLIB::SOURCE) (XLIB::SSTART) (XLIB::SEND))
;    (DECLARE (IGNORE XLIB::SEND))
;    (SB-KERNEL:WITH-ARRAY-DATA
;     ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) (XLIB::DEND))
;     (DECLARE (IGNORE XLIB::DEND))
;     (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART)))
;     (DO ((XLIB::SRC-IDX # #)
;          (XLIB::DEST-IDX # #)
;          (COUNT XLIB::HEIGHT #))
;         ((ZEROP COUNT))
;       (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT))
;       (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA
;                                XLIB::SRC-IDX
;                                XLIB::DDATA
;                                XLIB::DEST-IDX
;                                XLIB::WIDTH))))
; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; ==>
;   (SB-KERNEL:%WITH-ARRAY-DATA #:ONCE-ONLY-1069
;                               #:ONCE-ONLY-1070
;                               #:ONCE-ONLY-1071)
; 
; note: unable to
;   inline non-SIMPLE-vector-handling logic
; due to type uncertainty:
;   The first argument is a ARRAY, not a (OR VECTOR SIMPLE-ARRAY).

;     (SB-KERNEL:WITH-ARRAY-DATA
;    ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) (XLIB::DEND))
;    (DECLARE (IGNORE XLIB::DEND))
;    (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART)))
;    (DO ((XLIB::SRC-IDX (XLIB::INDEX+ # XLIB::SX #)
;                        (XLIB::INDEX+ XLIB::SRC-IDX XLIB::SOURCE-WIDTH))
;         (XLIB::DEST-IDX (XLIB::INDEX+ # XLIB::DX #)
;                         (XLIB::INDEX+ XLIB::DEST-IDX XLIB::DEST-WIDTH))
;         (COUNT XLIB::HEIGHT (1- COUNT)))
;        ((ZEROP COUNT))
;      (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT))
;      (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA
;                               XLIB::SRC-IDX
;                               XLIB::DDATA
;                               XLIB::DEST-IDX
;                               XLIB::WIDTH)))
; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF 
; ==>
;   (SB-KERNEL:%WITH-ARRAY-DATA #:ONCE-ONLY-1075
;                               #:ONCE-ONLY-1076
;                               #:ONCE-ONLY-1077)
; 
; note: unable to
;   inline non-SIMPLE-vector-handling logic
; due to type uncertainty:
;   The first argument is a ARRAY, not a (OR VECTOR SIMPLE-ARRAY).

; compiling (DEFUN FAST-READ-PIXARRAY-USING-BITBLT ...)
; compiling (DEFUN FAST-READ-PIXARRAY ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dependent.lisp
; in: DEFUN FAST-READ-PIXARRAY
;     (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF
;                                 XLIB::BOFFSET
;                                 XLIB:PIXARRAY
;                                 XLIB::X
;                                 XLIB::Y
;                                 XLIB::WIDTH
;                                 XLIB::HEIGHT
;                                 XLIB::PADDED-BYTES-PER-LINE
;                                 XLIB::BITS-PER-PIXEL
;                                 FUNCTION
;                                 XLIB::UNIT
;                                 ...)
; ==>
;   XLIB::BBUF
; 
; note: deleting unreachable code

; compiling (DEFUN FAST-WRITE-PIXARRAY-24 ...)
; compiling (DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dependent.lisp
; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT
;     (ARRAY-DIMENSION XLIB:PIXARRAY 1)
; 
; note: unable to
;   optimize
; because:
;   The array dimensions are unknown; must call ARRAY-DIMENSION at runtime.

; compiling (DEFUN FAST-WRITE-PIXARRAY ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dependent.lisp
; in: DEFUN FAST-WRITE-PIXARRAY
;     (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF
;                                  XLIB::BOFFSET
;                                  XLIB:PIXARRAY
;                                  XLIB::X
;                                  XLIB::Y
;                                  XLIB::WIDTH
;                                  XLIB::HEIGHT
;                                  XLIB::PADDED-BYTES-PER-LINE
;                                  XLIB::BITS-PER-PIXEL
;                                  FUNCTION
;                                  XLIB::+IMAGE-UNIT+
;                                  ...)
; ==>
;   XLIB::BBUF
; 
; note: deleting unreachable code

; compiling (DEFUN FAST-COPY-PIXARRAY ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dependent.fasl written
; compilation finished in 0:00:07
STYLE-WARNING: redefining DECLARE-BUFMAC in DEFUN
STYLE-WARNING: redefining DECLARE-BUFFUN in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/macros.lisp" (written 14 JUL 2005 09:24:44 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFMACRO TYPE-CHECK ...); in: LAMBDA NIL
;     'UNLESS
; 
; note: deleting unreachable code

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/macros.lisp
; in: DEFMACRO TYPE-CHECK
;     'UNLESS
; 
; note: deleting unreachable code

; compiling (DEFVAR *REQUIRED-ARG-DUMMY*)
; compiling (DEFMACRO REQUIRED-ARG ...)
; compiling (DEFMACRO LROUND ...)
; compiling (DEFMACRO WROUND ...)
; compiling (DEFUN INDEX-INCREMENT ...)
; compiling (DEFUN GETIFY ...)
; compiling (DEFUN PUTIFY ...)
; compiling (DEFMACRO DEFINE-ACCESSOR ...); in: LAMBDA NIL
;     (LET ((XLIB::PREDICATING-PUT (THIRD XLIB::GET-PUT-MACROS)))
;     (WHEN XLIB::PREDICATING-PUT
;       `((SETF (GET ',XLIB::NAME 'XLIB::PREDICATING-PUT) T)
;         (DEFMACRO ,(XLIB::PUTIFY XLIB::NAME T) ,(CAR XLIB::PREDICATING-PUT)
;           ,@(CDR XLIB::PREDICATING-PUT)))))
; 
; note: deleting unreachable code

;     'SETF
; 
; note: deleting unreachable code

;     (LET ((XLIB::PREDICATING-PUT (THIRD XLIB::GET-PUT-MACROS)))
;     (WHEN XLIB::PREDICATING-PUT
;       `((SETF (GET ',XLIB::NAME 'XLIB::PREDICATING-PUT) T)
;         (DEFMACRO ,(XLIB::PUTIFY XLIB::NAME T) ,(CAR XLIB::PREDICATING-PUT)
;           ,@(CDR XLIB::PREDICATING-PUT)))))
; 
; note: deleting unreachable code

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/macros.lisp
; in: DEFMACRO DEFINE-ACCESSOR
;     (LET ((XLIB::PREDICATING-PUT (THIRD XLIB::GET-PUT-MACROS)))
;     (WHEN XLIB::PREDICATING-PUT
;       `((SETF (GET ',XLIB::NAME 'XLIB::PREDICATING-PUT) T)
;         (DEFMACRO ,(XLIB::PUTIFY XLIB::NAME T) ,(CAR XLIB::PREDICATING-PUT)
;           ,@(CDR XLIB::PREDICATING-PUT)))))
; 
; note: deleting unreachable code

;     'SETF
; 
; note: deleting unreachable code

;     (LET ((XLIB::PREDICATING-PUT (THIRD XLIB::GET-PUT-MACROS)))
;     (WHEN XLIB::PREDICATING-PUT
;       `((SETF (GET ',XLIB::NAME 'XLIB::PREDICATING-PUT) T)
;         (DEFMACRO ,(XLIB::PUTIFY XLIB::NAME T) ,(CAR XLIB::PREDICATING-PUT)
;           ,@(CDR XLIB::PREDICATING-PUT)))))
; 
; note: deleting unreachable code

; compiling (DEFINE-ACCESSOR CARD32 ...)
; compiling (DEFINE-ACCESSOR CARD29 ...)
; compiling (DEFINE-ACCESSOR CARD16 ...)
; compiling (DEFINE-ACCESSOR CARD8 ...)
; compiling (DEFINE-ACCESSOR INTEGER ...)
; compiling (DEFINE-ACCESSOR INT16 ...)
; compiling (DEFINE-ACCESSOR RGB-VAL ...)
; compiling (DEFINE-ACCESSOR ANGLE ...)
; compiling (DEFINE-ACCESSOR BIT ...)
; compiling (DEFINE-ACCESSOR BOOLEAN ...)
; compiling (DEFINE-ACCESSOR DRAWABLE ...)
; compiling (DEFINE-ACCESSOR WINDOW ...)
; compiling (DEFINE-ACCESSOR PIXMAP ...)
; compiling (DEFINE-ACCESSOR GCONTEXT ...)
; compiling (DEFINE-ACCESSOR CURSOR ...)
; compiling (DEFINE-ACCESSOR COLORMAP ...)
; compiling (DEFINE-ACCESSOR FONT ...)
; compiling (DEFINE-ACCESSOR KEYWORD ...)
; compiling (DEFINE-ACCESSOR RESOURCE-ID ...)
; compiling (DEFINE-ACCESSOR RESOURCE-ID-OR-NIL ...)
; compiling (DEFMACRO CHAR-INFO-GET ...)
; compiling (DEFINE-ACCESSOR MEMBER8 ...)
; compiling (DEFINE-ACCESSOR MEMBER16 ...)
; compiling (DEFINE-ACCESSOR MEMBER ...)
; compiling (DEFTYPE MEMBER-VECTOR ...)
; compiling (DEFINE-ACCESSOR MEMBER-VECTOR ...)
; compiling (DEFINE-ACCESSOR MEMBER16-VECTOR ...)
; compiling (DEFINE-ACCESSOR MEMBER8-VECTOR ...)
; compiling (DEFINE-ACCESSOR BOOLE-CONSTANT ...)
; compiling (DEFINE-ACCESSOR NULL ...)
; compiling (DEFINE-ACCESSOR PAD8 ...)
; compiling (DEFINE-ACCESSOR PAD16 ...)
; compiling (DEFINE-ACCESSOR BIT-VECTOR256 ...)
; compiling (DEFINE-ACCESSOR STRING ...)
; compiling (DEFINE-ACCESSOR SEQUENCE ...)
; compiling (DEFMACRO CLIENT-MESSAGE-EVENT-GET-SEQUENCE ...)
; compiling (DEFMACRO CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ...)
; compiling (DEFINE-ACCESSOR CLIENT-MESSAGE-SEQUENCE ...)
; compiling (DEFINE-ACCESSOR CODE ...)
; compiling (DEFINE-ACCESSOR LENGTH ...)
; compiling (DEFTYPE DATA ...)
; compiling (DEFINE-ACCESSOR DATA ...)
; compiling (DEFMACRO OR-EXPAND ...)
; compiling (DEFINE-ACCESSOR OR ...); in: LAMBDA NIL
;     'T
; 
; note: deleting unreachable code

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/macros.lisp
; in: DEFINE-ACCESSOR OR
;     'T
; 
; note: deleting unreachable code

; compiling (SETF (GET # ...) ...)
; compiling (DEFUN MASK-GET ...)
; compiling (DEFUN MASK-PUT ...)
; compiling (DEFINE-ACCESSOR PROGN ...)
; compiling (DEFMACRO CHECK-PUT ...)
; compiling (DEFUN GET-PUT-ITEMS ...)
; compiling (DEFMACRO WITH-BUFFER-REQUEST-INTERNAL ...)
; compiling (DEFMACRO WITH-BUFFER-REQUEST ...)
; compiling (DEFMACRO WITH-BUFFER-REQUEST-AND-REPLY ...)
; compiling (DEFMACRO COMPARE-REQUEST ...)
; compiling (DEFMACRO PUT-ITEMS ...)
; compiling (DEFMACRO DECODE-TYPE ...)
; compiling (DEFMACRO ENCODE-TYPE ...)
; compiling (DEFMACRO SET-DECODE-TYPE ...)
; compiling (DEFSETF DECODE-TYPE ...)
; compiling (DEFCONSTANT +X-CREATEWINDOW+ ...)
; compiling (DEFCONSTANT +X-CHANGEWINDOWATTRIBUTES+ ...)
; compiling (DEFCONSTANT +X-GETWINDOWATTRIBUTES+ ...)
; compiling (DEFCONSTANT +X-DESTROYWINDOW+ ...)
; compiling (DEFCONSTANT +X-DESTROYSUBWINDOWS+ ...)
; compiling (DEFCONSTANT +X-CHANGESAVESET+ ...)
; compiling (DEFCONSTANT +X-REPARENTWINDOW+ ...)
; compiling (DEFCONSTANT +X-MAPWINDOW+ ...)
; compiling (DEFCONSTANT +X-MAPSUBWINDOWS+ ...)
; compiling (DEFCONSTANT +X-UNMAPWINDOW+ ...)
; compiling (DEFCONSTANT +X-UNMAPSUBWINDOWS+ ...)
; compiling (DEFCONSTANT +X-CONFIGUREWINDOW+ ...)
; compiling (DEFCONSTANT +X-CIRCULATEWINDOW+ ...)
; compiling (DEFCONSTANT +X-GETGEOMETRY+ ...)
; compiling (DEFCONSTANT +X-QUERYTREE+ ...)
; compiling (DEFCONSTANT +X-INTERNATOM+ ...)
; compiling (DEFCONSTANT +X-GETATOMNAME+ ...)
; compiling (DEFCONSTANT +X-CHANGEPROPERTY+ ...)
; compiling (DEFCONSTANT +X-DELETEPROPERTY+ ...)
; compiling (DEFCONSTANT +X-GETPROPERTY+ ...)
; compiling (DEFCONSTANT +X-LISTPROPERTIES+ ...)
; compiling (DEFCONSTANT +X-SETSELECTIONOWNER+ ...)
; compiling (DEFCONSTANT +X-GETSELECTIONOWNER+ ...)
; compiling (DEFCONSTANT +X-CONVERTSELECTION+ ...)
; compiling (DEFCONSTANT +X-SENDEVENT+ ...)
; compiling (DEFCONSTANT +X-GRABPOINTER+ ...)
; compiling (DEFCONSTANT +X-UNGRABPOINTER+ ...)
; compiling (DEFCONSTANT +X-GRABBUTTON+ ...)
; compiling (DEFCONSTANT +X-UNGRABBUTTON+ ...)
; compiling (DEFCONSTANT +X-CHANGEACTIVEPOINTERGRAB+ ...)
; compiling (DEFCONSTANT +X-GRABKEYBOARD+ ...)
; compiling (DEFCONSTANT +X-UNGRABKEYBOARD+ ...)
; compiling (DEFCONSTANT +X-GRABKEY+ ...)
; compiling (DEFCONSTANT +X-UNGRABKEY+ ...)
; compiling (DEFCONSTANT +X-ALLOWEVENTS+ ...)
; compiling (DEFCONSTANT +X-GRABSERVER+ ...)
; compiling (DEFCONSTANT +X-UNGRABSERVER+ ...)
; compiling (DEFCONSTANT +X-QUERYPOINTER+ ...)
; compiling (DEFCONSTANT +X-GETMOTIONEVENTS+ ...)
; compiling (DEFCONSTANT +X-TRANSLATECOORDS+ ...)
; compiling (DEFCONSTANT +X-WARPPOINTER+ ...)
; compiling (DEFCONSTANT +X-SETINPUTFOCUS+ ...)
; compiling (DEFCONSTANT +X-GETINPUTFOCUS+ ...)
; compiling (DEFCONSTANT +X-QUERYKEYMAP+ ...)
; compiling (DEFCONSTANT +X-OPENFONT+ ...)
; compiling (DEFCONSTANT +X-CLOSEFONT+ ...)
; compiling (DEFCONSTANT +X-QUERYFONT+ ...)
; compiling (DEFCONSTANT +X-QUERYTEXTEXTENTS+ ...)
; compiling (DEFCONSTANT +X-LISTFONTS+ ...)
; compiling (DEFCONSTANT +X-LISTFONTSWITHINFO+ ...)
; compiling (DEFCONSTANT +X-SETFONTPATH+ ...)
; compiling (DEFCONSTANT +X-GETFONTPATH+ ...)
; compiling (DEFCONSTANT +X-CREATEPIXMAP+ ...)
; compiling (DEFCONSTANT +X-FREEPIXMAP+ ...)
; compiling (DEFCONSTANT +X-CREATEGC+ ...)
; compiling (DEFCONSTANT +X-CHANGEGC+ ...)
; compiling (DEFCONSTANT +X-COPYGC+ ...)
; compiling (DEFCONSTANT +X-SETDASHES+ ...)
; compiling (DEFCONSTANT +X-SETCLIPRECTANGLES+ ...)
; compiling (DEFCONSTANT +X-FREEGC+ ...)
; compiling (DEFCONSTANT +X-CLEARTOBACKGROUND+ ...)
; compiling (DEFCONSTANT +X-COPYAREA+ ...)
; compiling (DEFCONSTANT +X-COPYPLANE+ ...)
; compiling (DEFCONSTANT +X-POLYPOINT+ ...)
; compiling (DEFCONSTANT +X-POLYLINE+ ...)
; compiling (DEFCONSTANT +X-POLYSEGMENT+ ...)
; compiling (DEFCONSTANT +X-POLYRECTANGLE+ ...)
; compiling (DEFCONSTANT +X-POLYARC+ ...)
; compiling (DEFCONSTANT +X-FILLPOLY+ ...)
; compiling (DEFCONSTANT +X-POLYFILLRECTANGLE+ ...)
; compiling (DEFCONSTANT +X-POLYFILLARC+ ...)
; compiling (DEFCONSTANT +X-PUTIMAGE+ ...)
; compiling (DEFCONSTANT +X-GETIMAGE+ ...)
; compiling (DEFCONSTANT +X-POLYTEXT8+ ...)
; compiling (DEFCONSTANT +X-POLYTEXT16+ ...)
; compiling (DEFCONSTANT +X-IMAGETEXT8+ ...)
; compiling (DEFCONSTANT +X-IMAGETEXT16+ ...)
; compiling (DEFCONSTANT +X-CREATECOLORMAP+ ...)
; compiling (DEFCONSTANT +X-FREECOLORMAP+ ...)
; compiling (DEFCONSTANT +X-COPYCOLORMAPANDFREE+ ...)
; compiling (DEFCONSTANT +X-INSTALLCOLORMAP+ ...)
; compiling (DEFCONSTANT +X-UNINSTALLCOLORMAP+ ...)
; compiling (DEFCONSTANT +X-LISTINSTALLEDCOLORMAPS+ ...)
; compiling (DEFCONSTANT +X-ALLOCCOLOR+ ...)
; compiling (DEFCONSTANT +X-ALLOCNAMEDCOLOR+ ...)
; compiling (DEFCONSTANT +X-ALLOCCOLORCELLS+ ...)
; compiling (DEFCONSTANT +X-ALLOCCOLORPLANES+ ...)
; compiling (DEFCONSTANT +X-FREECOLORS+ ...)
; compiling (DEFCONSTANT +X-STORECOLORS+ ...)
; compiling (DEFCONSTANT +X-STORENAMEDCOLOR+ ...)
; compiling (DEFCONSTANT +X-QUERYCOLORS+ ...)
; compiling (DEFCONSTANT +X-LOOKUPCOLOR+ ...)
; compiling (DEFCONSTANT +X-CREATECURSOR+ ...)
; compiling (DEFCONSTANT +X-CREATEGLYPHCURSOR+ ...)
; compiling (DEFCONSTANT +X-FREECURSOR+ ...)
; compiling (DEFCONSTANT +X-RECOLORCURSOR+ ...)
; compiling (DEFCONSTANT +X-QUERYBESTSIZE+ ...)
; compiling (DEFCONSTANT +X-QUERYEXTENSION+ ...)
; compiling (DEFCONSTANT +X-LISTEXTENSIONS+ ...)
; compiling (DEFCONSTANT +X-SETKEYBOARDMAPPING+ ...)
; compiling (DEFCONSTANT +X-GETKEYBOARDMAPPING+ ...)
; compiling (DEFCONSTANT +X-CHANGEKEYBOARDCONTROL+ ...)
; compiling (DEFCONSTANT +X-GETKEYBOARDCONTROL+ ...)
; compiling (DEFCONSTANT +X-BELL+ ...)
; compiling (DEFCONSTANT +X-CHANGEPOINTERCONTROL+ ...)
; compiling (DEFCONSTANT +X-GETPOINTERCONTROL+ ...)
; compiling (DEFCONSTANT +X-SETSCREENSAVER+ ...)
; compiling (DEFCONSTANT +X-GETSCREENSAVER+ ...)
; compiling (DEFCONSTANT +X-CHANGEHOSTS+ ...)
; compiling (DEFCONSTANT +X-LISTHOSTS+ ...)
; compiling (DEFCONSTANT +X-CHANGEACCESSCONTROL+ ...)
; compiling (DEFCONSTANT +X-CHANGECLOSEDOWNMODE+ ...)
; compiling (DEFCONSTANT +X-KILLCLIENT+ ...)
; compiling (DEFCONSTANT +X-ROTATEPROPERTIES+ ...)
; compiling (DEFCONSTANT +X-FORCESCREENSAVER+ ...)
; compiling (DEFCONSTANT +X-SETPOINTERMAPPING+ ...)
; compiling (DEFCONSTANT +X-GETPOINTERMAPPING+ ...)
; compiling (DEFCONSTANT +X-SETMODIFIERMAPPING+ ...)
; compiling (DEFCONSTANT +X-GETMODIFIERMAPPING+ ...)
; compiling (DEFCONSTANT +X-NOOPERATION+ ...)
; compiling (DEFMACRO THREADED-ATOMIC-PUSH ...)
; compiling (DEFMACRO THREADED-ATOMIC-POP ...)
; compiling (DEFMACRO THREADED-NCONC ...)
; compiling (DEFMACRO THREADED-PUSH ...)
; compiling (DEFMACRO THREADED-POP ...)
; compiling (DEFMACRO THREADED-ENQUEUE ...)
; compiling (DEFMACRO THREADED-DEQUEUE ...)
; compiling (DEFMACRO THREADED-REQUEUE ...)
; compiling (DEFMACRO THREADED-DOLIST ...)
; compiling (DEFMACRO THREADED-DELETE ...)
; compiling (DEFMACRO THREADED-LENGTH ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/macros.fasl written
; compilation finished in 0:00:09
STYLE-WARNING: redefining GETIFY in DEFUN
STYLE-WARNING: redefining PUTIFY in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/bufmac.lisp" (written 14 JUL 2005 09:24:43 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFMACRO WRITE-CARD8 ...)
; compiling (DEFMACRO WRITE-INT8 ...)
; compiling (DEFMACRO WRITE-CARD16 ...)
; compiling (DEFMACRO WRITE-INT16 ...)
; compiling (DEFMACRO WRITE-CARD32 ...)
; compiling (DEFMACRO WRITE-INT32 ...)
; compiling (DEFMACRO WRITE-CARD29 ...)
; compiling (DEFMACRO WRITE-CHAR2B ...)
; compiling (DEFMACRO SET-BUFFER-OFFSET ...)
; compiling (DEFMACRO ADVANCE-BUFFER-OFFSET ...)
; compiling (DEFMACRO WITH-BUFFER-OUTPUT ...)
; compiling (DEFMACRO WRITING-BUFFER-CHUNKS ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/bufmac.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp" (written 14 JUL 2005 09:24:44 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFCONSTANT +REQUESTSIZE+ ...)
; compiling (DEFMACRO WITH-BUFFER ...)
; compiling (DEFUN WITH-BUFFER-FUNCTION ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WITH-BUFFER-FUNCTION
;     (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T)
;                      (FUNCALL FUNCTION))
; --> MACROLET LET XLIB::HOLDING-LOCK IF HANDLER-CASE BLOCK LET TAGBODY 
; --> HANDLER-BIND LET MULTIPLE-VALUE-PROG1 PROGN RETURN-FROM WITH-TIMEOUT IF 
; ==>
;   (> XLIB::TIMEOUT 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a REAL, not a FLOAT.
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

; compiling (DEFMACRO READ-CARD8 ...)
; compiling (DEFMACRO READ-INT8 ...)
; compiling (DEFMACRO READ-CARD16 ...)
; compiling (DEFMACRO READ-INT16 ...)
; compiling (DEFMACRO READ-CARD32 ...)
; compiling (DEFMACRO READ-INT32 ...)
; compiling (DEFMACRO READ-CARD29 ...)
; compiling (DEFMACRO EVENT-CODE ...)
; compiling (DEFMACRO READING-EVENT ...)
; compiling (DEFMACRO WITH-BUFFER-INPUT ...)
; compiling (DEFUN MAKE-BUFFER ...)
; compiling (DEFUN MAKE-REPLY-BUFFER ...)
; compiling (DEFUN BUFFER-ENSURE-SIZE ...)
; compiling (DEFUN BUFFER-PAD-REQUEST ...)
; compiling (DECLAIM (INLINE BUFFER-NEW-REQUEST-NUMBER))
; compiling (DEFUN BUFFER-NEW-REQUEST-NUMBER ...)
; compiling (DEFUN WITH-BUFFER-REQUEST-FUNCTION ...)
; compiling (DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ...)
; compiling (DEFSTRUCT (PENDING-COMMAND # ...) ...)
; compiling (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ...)
; compiling (DEFUN BUFFER-WRITE ...)
; compiling (DEFUN BUFFER-FLUSH ...)
; compiling (DEFMACRO WITH-BUFFER-FLUSH-INHIBITED ...)
; compiling (DEFUN BUFFER-FORCE-OUTPUT ...)
; compiling (DEFUN CLOSE-BUFFER ...)
; compiling (DEFUN BUFFER-INPUT ...)
; compiling (DEFUN BUFFER-INPUT-WAIT ...)
; compiling (DEFUN BUFFER-LISTEN ...)
; compiling (DEFUN READ-SEQUENCE-STRING ...)
; compiling (DEFUN READ-SEQUENCE-CHAR ...)
; compiling (DEFUN READ-LIST-CARD8 ...)
; compiling (DEFUN READ-LIST-CARD8-WITH-TRANSFORM ...)
; compiling (DEFUN READ-SIMPLE-ARRAY-CARD8 ...)
; compiling (DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ...)
; compiling (DEFUN READ-VECTOR-CARD8 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN READ-VECTOR-CARD8
;     (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX))
; --> SB-KERNEL:%ASET LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM
;     (SETF (AREF XLIB::DATA XLIB::J)
;           (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX)))
; --> SB-KERNEL:%ASET LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN READ-SEQUENCE-CARD8 ...)
; compiling (DEFUN READ-SEQUENCE-INT8 ...)
; compiling (DEFUN READ-LIST-CARD16 ...)
; compiling (DEFUN READ-LIST-CARD16-WITH-TRANSFORM ...)
; compiling (DEFUN READ-SIMPLE-ARRAY-CARD16 ...)
; compiling (DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ...)
; compiling (DEFUN READ-VECTOR-CARD16 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN READ-VECTOR-CARD16
;     (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX))
; --> SB-KERNEL:%ASET LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM
;     (SETF (AREF XLIB::DATA XLIB::J)
;           (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX)))
; --> SB-KERNEL:%ASET LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN READ-SEQUENCE-CARD16 ...)
; compiling (DEFUN READ-SEQUENCE-INT16 ...)
; compiling (DEFUN READ-LIST-CARD32 ...)
; compiling (DEFUN READ-LIST-CARD32-WITH-TRANSFORM ...)
; compiling (DEFUN READ-SIMPLE-ARRAY-CARD32 ...)
; compiling (DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ...)
; compiling (DEFUN READ-VECTOR-CARD32 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN READ-VECTOR-CARD32
;     (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX))
; --> SB-KERNEL:%ASET LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM
;     (SETF (AREF XLIB::DATA XLIB::J)
;           (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX)))
; --> SB-KERNEL:%ASET LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN READ-SEQUENCE-CARD32 ...)
; compiling (DEFUN READ-SEQUENCE-INT32 ...)
; compiling (DEFUN WRITE-SEQUENCE-CHAR ...)
; compiling (DEFUN WRITE-LIST-CARD8 ...)
; compiling (DEFUN WRITE-LIST-CARD8-WITH-TRANSFORM ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD8 ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ...)
; compiling (DEFUN WRITE-VECTOR-CARD8 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-VECTOR-CARD8
;     (AREF XLIB::DATA XLIB::INDEX)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM
;     (AREF XLIB::DATA XLIB::INDEX)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN WRITE-SEQUENCE-CARD8 ...)
; compiling (DEFUN WRITE-SEQUENCE-INT8 ...)
; compiling (DEFUN WRITE-LIST-CARD16 ...)
; compiling (DEFUN WRITE-LIST-CARD16-WITH-TRANSFORM ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD16 ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ...)
; compiling (DEFUN WRITE-VECTOR-CARD16 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-VECTOR-CARD16
;     (AREF XLIB::DATA XLIB::INDEX)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM
;     (AREF XLIB::DATA XLIB::INDEX)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN WRITE-SEQUENCE-CARD16 ...)
; compiling (DEFUN WRITE-LIST-INT16 ...)
; compiling (DEFUN WRITE-LIST-INT16-WITH-TRANSFORM ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-INT16 ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ...)
; compiling (DEFUN WRITE-VECTOR-INT16 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-VECTOR-INT16
;     (AREF XLIB::DATA XLIB::INDEX)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM
;     (AREF XLIB::DATA XLIB::INDEX)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN WRITE-SEQUENCE-INT16 ...)
; compiling (DEFUN WRITE-LIST-CARD32 ...)
; compiling (DEFUN WRITE-LIST-CARD32-WITH-TRANSFORM ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD32 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-SIMPLE-ARRAY-CARD32
;     (XLIB::WRITE-CARD32 XLIB::J (AREF XLIB::DATA XLIB::INDEX))
; ==>
;   (XLIB::ASET-CARD32 (THE XLIB:CARD32 (AREF XLIB::DATA XLIB::INDEX))
;                      XLIB::BUFFER-BBUF
;                      (XLIB::INDEX+ XLIB::BUFFER-BOFFSET XLIB::J))
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM
;     (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX))
; ==>
;   (SB-C::%FUNCALL FUNCTION #:G3845)
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFUN WRITE-VECTOR-CARD32 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-VECTOR-CARD32
;     (AREF XLIB::DATA XLIB::INDEX)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM
;     (AREF XLIB::DATA XLIB::INDEX)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN WRITE-SEQUENCE-CARD32 ...)
; compiling (DEFUN WRITE-SEQUENCE-INT32 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-SEQUENCE-INT32
;     (XLIB::INT32->CARD32 (THE XLIB:INT32 (FUNCALL XLIB::TRANSFORM XLIB::X)))
; --> BLOCK THE LDB SB-KERNEL:%LDB 
; ==>
;   (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
;       The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).

; compiling (DEFUN READ-BITVECTOR256 ...)
; compiling (DEFUN WRITE-BITVECTOR256 ...)
; compiling (DEFUN WRITE-LIST-CHAR2B ...)
; compiling (DEFUN WRITE-LIST-CHAR2B-WITH-TRANSFORM ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ...)
; compiling (DEFUN WRITE-VECTOR-CHAR2B ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-VECTOR-CHAR2B
;     (AREF XLIB::DATA XLIB::INDEX)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.lisp
; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM
;     (AREF XLIB::DATA XLIB::INDEX)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN WRITE-SEQUENCE-CHAR2B ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/buffer.fasl written
; compilation finished in 0:00:08
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/display.lisp" (written 26 AUG 2005 06:13:28 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFPARAMETER *KNOWN-AUTHORIZATIONS* ...)
; compiling (DEFUN READ-XAUTH-ENTRY ...)
; compiling (DEFUN GET-BEST-AUTHORIZATION ...)
; compiling (DEFUN INITIALIZE-RESOURCE-ALLOCATOR ...)
; compiling (DEFUN RESOURCEALLOC ...)
; compiling (DEFMACRO ALLOCATE-RESOURCE-ID ...)
; compiling (DEFMACRO DEALLOCATE-RESOURCE-ID ...)
; compiling (DEFUN DEALLOCATE-RESOURCE-ID-INTERNAL ...)
; compiling (DEFUN LOOKUP-RESOURCE-ID ...)
; compiling (DEFUN SAVE-ID ...); in: LAMBDA (#:WHOLE350 #:ENVIRONMENT351)
;     (MEMBER TYPE '(XLIB:WINDOW XLIB:PIXMAP))
; ==>
;   TYPE
; 
; note: deleting unreachable code

;     'XLIB::TYPE?
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     'T
; 
; note: deleting unreachable code
; compiling (GENERATE-LOOKUP-FUNCTIONS IGNORE ...)
; compiling (DEFUN ID-ATOM ...)
; compiling (DEFUN ATOM-ID ...)
; compiling (DEFUN SET-ATOM-ID ...)
; compiling (DEFSETF ATOM-ID ...)
; compiling (DEFUN INITIALIZE-PREDEFINED-ATOMS ...)
; compiling (DEFUN VISUAL-INFO ...)
; compiling (DEFMACRO WITH-DISPLAY ...)
; compiling (DEFMACRO WITH-EVENT-QUEUE ...)
; compiling (DEFUN WITH-EVENT-QUEUE-FUNCTION ...)
; compiling (DEFMACRO WITH-EVENT-QUEUE-INTERNAL ...)
; compiling (DEFUN OPEN-DEFAULT-DISPLAY ...)
; compiling (DEFUN OPEN-DISPLAY ...)
; compiling (DEFUN DISPLAY-FORCE-OUTPUT ...)
; compiling (DEFUN CLOSE-DISPLAY ...)
; compiling (DEFUN DISPLAY-CONNECT ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/display.lisp
; in: DEFUN DISPLAY-CONNECT
;     (LENGTH XLIB::AUTHORIZATION-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH XLIB::AUTHORIZATION-DATA)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH XLIB::AUTHORIZATION-NAME)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DEFUN DISPLAY-PROTOCOL-VERSION ...)
; compiling (DEFUN DISPLAY-VENDOR ...)
; compiling (DEFUN DISPLAY-NSCREENS ...)
; compiling (DEFVAR *INSIDE-DISPLAY-AFTER-FUNCTION* ...)
; compiling (DEFUN DISPLAY-INVOKE-AFTER-FUNCTION ...)
; compiling (DEFUN DISPLAY-FINISH-OUTPUT ...)
; compiling (DEFPARAMETER *REQUEST-NAMES* ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/display.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gcontext.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFCONSTANT +GCONTEXT-FAST-CHANGE-LENGTH+ ...)
; compiling (DEF-GC-INTERNALS IGNORE ...)
; compiling (DEFTYPE GCMASK ...)
; compiling (DEFTYPE XGCMASK ...)
; compiling (DEFSTRUCT (GCONTEXT-EXTENSION # ...) ...)
; compiling (DEFVAR *GCONTEXT-EXTENSIONS* ...)
; compiling (DEFVAR *GCONTEXT-LOCAL-STATE-CACHE* ...)
; compiling (DEFMACRO GCONTEXT-STATE-NEXT ...)
; compiling (DEFUN ALLOCATE-GCONTEXT-STATE ...)
; compiling (DEFUN DEALLOCATE-GCONTEXT-STATE ...)
; compiling (DEFVAR *TEMP-GCONTEXT-CACHE* ...)
; compiling (DEFUN ALLOCATE-TEMP-GCONTEXT ...)
; compiling (DEFUN DEALLOCATE-TEMP-GCONTEXT ...)
; compiling (DEFMACRO XGCMASK->GCMASK ...)
; compiling (DEFMACRO ACCESS-GCONTEXT ...)
; compiling (DEFMACRO MODIFY-GCONTEXT ...)
; compiling (DEFMACRO DEF-GC-ACCESSOR ...)
; compiling (DEFMACRO INCF-INTERNAL-TIMESTAMP ...)
; compiling (DEF-GC-ACCESSOR FUNCTION ...)
; compiling (DEF-GC-ACCESSOR PLANE-MASK ...)
; compiling (DEF-GC-ACCESSOR FOREGROUND ...)
; compiling (DEF-GC-ACCESSOR BACKGROUND ...)
; compiling (DEF-GC-ACCESSOR LINE-WIDTH ...)
; compiling (DEF-GC-ACCESSOR LINE-STYLE ...)
; compiling (DEF-GC-ACCESSOR CAP-STYLE ...)
; compiling (DEF-GC-ACCESSOR JOIN-STYLE ...)
; compiling (DEF-GC-ACCESSOR FILL-STYLE ...)
; compiling (DEF-GC-ACCESSOR FILL-RULE ...)
; compiling (DEF-GC-ACCESSOR TILE ...)
; compiling (DEF-GC-ACCESSOR STIPPLE ...)
; compiling (DEF-GC-ACCESSOR TS-X ...)
; compiling (DEF-GC-ACCESSOR TS-Y ...)
; compiling (DEF-GC-ACCESSOR SUBWINDOW-MODE ...)
; compiling (DEF-GC-ACCESSOR EXPOSURES ...)
; compiling (DEF-GC-ACCESSOR CLIP-X ...)
; compiling (DEF-GC-ACCESSOR CLIP-Y ...)
; compiling (DEF-GC-ACCESSOR DASH-OFFSET ...)
; compiling (DEF-GC-ACCESSOR ARC-MODE ...)
; compiling (DEFUN GCONTEXT-CLIP-MASK ...)
; compiling (DEFSETF GCONTEXT-CLIP-MASK ...)
; compiling (DEFUN SET-GCONTEXT-CLIP-MASK ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gcontext.lisp
; in: DEFUN SET-GCONTEXT-CLIP-MASK
;     (XLIB::X-TYPE-ERROR XLIB::CLIP-MASK
;                       '(OR (MEMBER :NONE) XLIB:PIXMAP XLIB:RECT-SEQ))
; ==>
;   XLIB::CLIP-MASK
; 
; note: deleting unreachable code

;     '(OR (MEMBER :NONE) XLIB:PIXMAP XLIB:RECT-SEQ)
; 
; note: deleting unreachable code

; compiling (DEFUN GCONTEXT-DASHES ...)
; compiling (DEFSETF GCONTEXT-DASHES ...)
; compiling (DEFUN SET-GCONTEXT-DASHES ...)
; compiling (DEFUN GCONTEXT-FONT ...)
; compiling (DEFSETF GCONTEXT-FONT ...)
; compiling (DEFUN SET-GCONTEXT-FONT ...)
; compiling (DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gcontext.lisp
; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL
;     (LENGTH XLIB::LOCAL-DASH)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+)
;                              (XLIB:GCONTEXT XLIB:GCONTEXT)
;                              (XLIB:CARD16
;                               (OR
;                                (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET
;                                 XLIB::LOCAL-STATE)
;                                0)
;                               (LENGTH XLIB::LOCAL-DASH))
;                              ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH))
; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS 
; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET 
; --> LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::LOCAL-DASH)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR), not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS VECTOR), not a VECTOR.

;     (EQL (SVREF XLIB::SERVER-STATE XLIB::I)
;        (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a SINGLE-FLOAT.
;   The second argument is a T, not a SINGLE-FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a T, not a DOUBLE-FLOAT.
;   The second argument is a T, not a DOUBLE-FLOAT.

;     (FUNCALL (XLIB::GCONTEXT-EXTENSION-SET-FUNCTION (CAR XLIB::EXTENSION))
;            XLIB:GCONTEXT
;            XLIB::LOCAL)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

;     (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETCLIPRECTANGLES+)
;                              (XLIB::DATA (FIRST XLIB::LOCAL-CLIP))
;                              (XLIB:GCONTEXT XLIB:GCONTEXT)
;                              (XLIB:CARD16
;                               (OR
;                                (XLIB::GCONTEXT-INTERNAL-CLIP-X
;                                 XLIB::LOCAL-STATE)
;                                0)
;                               (OR
;                                (XLIB::GCONTEXT-INTERNAL-CLIP-Y
;                                 XLIB::LOCAL-STATE)
;                                0))
;                              ((SEQUENCE :FORMAT XLIB:INT16)
;                               (SECOND XLIB::LOCAL-CLIP)))
; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS 
; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET 
; --> LET* XLIB::CHECK-PUT LET XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::.VALUE.)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (EQL (SVREF XLIB::SERVER-STATE XLIB::I)
;        (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I)))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a T, not a FIXNUM.

;     (EQL (THE (OR NULL XLIB:CARD32) (SVREF XLIB::SERVER-STATE XLIB::I))
;        (SETQ XLIB::LOCAL
;                (THE (OR NULL XLIB:CARD32) (SVREF XLIB::LOCAL-STATE XLIB::I))))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM.
;       The second argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM.

; compiling (DEFUN FORCE-GCONTEXT-CHANGES ...)
; compiling (DEFMACRO WITH-GCONTEXT ...)
; compiling (DEFUN COPY-GCONTEXT-LOCAL-STATE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gcontext.lisp
; in: DEFUN COPY-GCONTEXT-LOCAL-STATE
;     (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT)
; --> FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

;     (- XLIB::*GCONTEXT-DATA-LENGTH*)
; ==>
;   (SB-KERNEL:%NEGATE XLIB::*GCONTEXT-DATA-LENGTH*)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (ELT XLIB::*GCONTEXT-EXTENSIONS* XLIB::I)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

;     (FUNCALL XLIB::COPY-FUNCTION
;            XLIB:GCONTEXT
;            XLIB::TEMP-GC
;            (SVREF XLIB::LOCAL-STATE
;                   (XLIB::INDEX+ XLIB::I XLIB::*GCONTEXT-DATA-LENGTH*)))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

;     (- XLIB::*GCONTEXT-DATA-LENGTH*)
; ==>
;   (SB-KERNEL:%NEGATE XLIB::*GCONTEXT-DATA-LENGTH*)
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).

;     (ASH XLIB::EXTENSION-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The second argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

;     (ASH BIT -1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       unable to do inline constant ASH (cost 4) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; compiling (DEFUN RESTORE-GCONTEXT-TEMP-STATE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gcontext.lisp
; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE
;     (- XLIB::*GCONTEXT-DATA-LENGTH*)
; ==>
;   (SB-KERNEL:%NEGATE XLIB::*GCONTEXT-DATA-LENGTH*)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).

;     (FUNCALL XLIB::COPY-FUNCTION
;            XLIB::TEMP-GC
;            XLIB:GCONTEXT
;            (SVREF XLIB::LOCAL-STATE XLIB::I))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

;     (- XLIB::*GCONTEXT-DATA-LENGTH*)
; ==>
;   (SB-KERNEL:%NEGATE XLIB::*GCONTEXT-DATA-LENGTH*)
; 
; note: forced to do static-fun %Negate (cost 52)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 32) arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).

;     (ASH XLIB::TEMP-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The second argument is a INTEGER, not a (UNSIGNED-BYTE 29).
;       The result is a (VALUES UNSIGNED-BYTE
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The second argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES UNSIGNED-BYTE
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

;     (ASH BIT -1)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       unable to do inline constant ASH (cost 4) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; compiling (DEFUN CREATE-GCONTEXT ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gcontext.lisp
; in: DEFUN CREATE-GCONTEXT
;     (EQL XLIB::LOCAL
;        (THE (OR NULL XLIB:CARD32) (SVREF XLIB::SERVER-STATE XLIB::I)))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM.
;       The second argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM.

; compiling (DEFUN COPY-GCONTEXT-COMPONENTS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gcontext.lisp
; in: DEFUN COPY-GCONTEXT-COMPONENTS
;     (FIND XLIB::KEY
;         XLIB::*GCONTEXT-EXTENSIONS*
;         :KEY
;         #'XLIB::GCONTEXT-EXTENSION-NAME)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET 
; ==>
;   (SB-KERNEL:%FIND-POSITION SB-C::ITEM
;                             SEQUENCE
;                             SB-C::FROM-END
;                             SB-C::START
;                             SB-C::END
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
;                                                                     SB-C::TEST-NOT))
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a VECTOR.

;     (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION SB-C::ITEM
;                             SEQUENCE
;                             SB-C::FROM-END
;                             SB-C::START
;                             SB-C::END
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
;                                                                     SB-C::TEST-NOT))
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a VECTOR.

;     (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION)
;            XLIB::SRC
;            XLIB::DST
;            (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC)
;                   (XLIB::INDEX+
;                    (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*)
;                    XLIB::*GCONTEXT-DATA-LENGTH*)))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

; compiling (DEFUN COPY-GCONTEXT ...)
; compiling (DEFUN FREE-GCONTEXT ...)
; compiling (DEFMACRO DEFINE-GCONTEXT-ACCESSOR ...)
; compiling (DEFUN ADD-GCONTEXT-EXTENSION ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gcontext.fasl written
; compilation finished in 0:00:12
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/input.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFVAR *EVENT-FREE-LIST* ...)
; compiling (DEFCONSTANT +MAX-EVENTS+ ...)
; compiling (DEFVAR *EVENT-KEY-VECTOR* ...)
; compiling (DEFVAR *EVENT-MACRO-VECTOR* ...)
; compiling (DEFVAR *EVENT-HANDLER-VECTOR* ...)
; compiling (DEFVAR *EVENT-SEND-VECTOR* ...)
; compiling (DEFUN ALLOCATE-EVENT ...)
; compiling (DEFUN DEALLOCATE-EVENT ...)
; compiling (DEFPARAMETER *FIRST-EXTENSION-EVENT-CODE* ...)
; compiling (DEFVAR *EXTENSIONS* ...)
; compiling (DEFMACRO DEFINE-EXTENSION ...)
; compiling (DEFUN CANONICALIZE-EVENT-NAME ...)
; compiling (DEFUN ALLOCATE-EXTENSION-EVENT-CODE ...)
; compiling (DEFUN GET-INTERNAL-EVENT-CODE ...)
; compiling (DEFUN GET-EXTERNAL-EVENT-CODE ...)
; compiling (DEFMACRO EXTENSION-OPCODE ...)
; compiling (DEFUN INITIALIZE-EXTENSIONS ...)
; compiling (DEFVAR *PENDING-COMMAND-FREE-LIST* ...)
; compiling (DEFUN START-PENDING-COMMAND ...)
; compiling (DEFUN STOP-PENDING-COMMAND ...)
; compiling (DEFVAR *REPLY-BUFFER-FREE-LISTS* ...)
; compiling (DEFUN ALLOCATE-REPLY-BUFFER ...)
; compiling (DEFUN DEALLOCATE-REPLY-BUFFER ...)
; compiling (DEFUN READ-ERROR-INPUT ...)
; compiling (DEFUN READ-REPLY-INPUT ...)
; compiling (DEFUN READ-EVENT-INPUT ...)
; compiling (DEFUN NOTE-INPUT-COMPLETE ...)
; compiling (DEFUN READ-INPUT ...)
; compiling (DEFUN REPORT-ASYNCHRONOUS-ERRORS ...)
; compiling (DEFUN WAIT-FOR-EVENT ...)
; compiling (DEFUN READ-REPLY ...)
; compiling (DEFUN EVENT-LISTEN ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/input.lisp
; in: DEFUN EVENT-LISTEN
;     (XLIB::DISPLAY-NEW-EVENTS XLIB:DISPLAY)
; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   XLIB:DISPLAY
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (XLIB::WITH-EVENT-QUEUE-INTERNAL (XLIB:DISPLAY :TIMEOUT XLIB::TIMEOUT)
;                                    (XLIB::THREADED-LENGTH
;                                     (XLIB::DISPLAY-NEW-EVENTS XLIB:DISPLAY)
;                                     XLIB::REPLY-NEXT
;                                     XLIB::REPLY-BUFFER))
; --> LET XLIB::HOLDING-LOCK IF HANDLER-CASE BLOCK LET TAGBODY HANDLER-BIND LET 
; --> MULTIPLE-VALUE-PROG1 PROGN RETURN-FROM WITH-TIMEOUT IF > 
; ==>
;   XLIB::TIMEOUT
; 
; note: deleting unreachable code

;     (XLIB::DISPLAY-NEW-EVENTS XLIB:DISPLAY)
; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   XLIB:DISPLAY
; 
; note: deleting unreachable code

;     (XLIB::WITH-EVENT-QUEUE-INTERNAL (XLIB:DISPLAY :TIMEOUT XLIB::TIMEOUT)
;                                    (XLIB::THREADED-LENGTH
;                                     (XLIB::DISPLAY-NEW-EVENTS XLIB:DISPLAY)
;                                     XLIB::REPLY-NEXT
;                                     XLIB::REPLY-BUFFER))
; --> LET XLIB::HOLDING-LOCK IF HANDLER-CASE BLOCK LET TAGBODY HANDLER-BIND LET 
; --> MULTIPLE-VALUE-PROG1 PROGN RETURN-FROM WITH-TIMEOUT IF LET SCHEDULE-TIMER 
; ==>
;   XLIB::TIMEOUT
; 
; note: deleting unreachable code

;     (XLIB::DISPLAY-NEW-EVENTS XLIB:DISPLAY)
; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   XLIB:DISPLAY
; 
; note: deleting unreachable code

; compiling (DEFUN QUEUE-EVENT ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/input.lisp
; in: DEFUN QUEUE-EVENT
;     (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE)
;          XLIB:DISPLAY
;          XLIB::ARGS)
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

; compiling (DEFUN ENQUEUE-EVENT ...)
; compiling (DEFMACRO DEFINE-EVENT ...)
; compiling (DEFINE-EVENT :KEY-PRESS ...)
; compiling (DEFINE-EVENT :KEY-RELEASE ...)
; compiling (DEFINE-EVENT :BUTTON-PRESS ...)
; compiling (DEFINE-EVENT :BUTTON-RELEASE ...)
; compiling (DEFINE-EVENT :MOTION-NOTIFY ...)
; compiling (DEFINE-EVENT :ENTER-NOTIFY ...)
; compiling (DEFINE-EVENT :LEAVE-NOTIFY ...)
; compiling (DEFINE-EVENT :FOCUS-IN ...)
; compiling (DEFINE-EVENT :FOCUS-OUT ...)
; compiling (DEFINE-EVENT :KEYMAP-NOTIFY ...)
; compiling (DEFINE-EVENT :EXPOSURE ...)
; compiling (DEFINE-EVENT :GRAPHICS-EXPOSURE ...)
; compiling (DEFINE-EVENT :NO-EXPOSURE ...)
; compiling (DEFINE-EVENT :VISIBILITY-NOTIFY ...)
; compiling (DEFINE-EVENT :CREATE-NOTIFY ...)
; compiling (DEFINE-EVENT :DESTROY-NOTIFY ...)
; compiling (DEFINE-EVENT :UNMAP-NOTIFY ...)
; compiling (DEFINE-EVENT :MAP-NOTIFY ...)
; compiling (DEFINE-EVENT :MAP-REQUEST ...)
; compiling (DEFINE-EVENT :REPARENT-NOTIFY ...)
; compiling (DEFINE-EVENT :CONFIGURE-NOTIFY ...)
; compiling (DEFINE-EVENT :CONFIGURE-REQUEST ...)
; compiling (DEFINE-EVENT :GRAVITY-NOTIFY ...)
; compiling (DEFINE-EVENT :RESIZE-REQUEST ...)
; compiling (DEFINE-EVENT :CIRCULATE-NOTIFY ...)
; compiling (DEFINE-EVENT :CIRCULATE-REQUEST ...)
; compiling (DEFINE-EVENT :PROPERTY-NOTIFY ...)
; compiling (DEFINE-EVENT :SELECTION-CLEAR ...)
; compiling (DEFINE-EVENT :SELECTION-REQUEST ...)
; compiling (DEFINE-EVENT :SELECTION-NOTIFY ...)
; compiling (DEFINE-EVENT :COLORMAP-NOTIFY ...)
; compiling (DEFINE-EVENT :CLIENT-MESSAGE ...)
; compiling (DEFINE-EVENT :MAPPING-NOTIFY ...)
; compiling (DEFMACRO DECLARE-EVENT ...)
; compiling (DEFUN CHECK-CONSISTENCY ...)
; compiling (DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE ...) ...)
; compiling (DECLARE-EVENT :MOTION-NOTIFY ...)
; compiling (DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY) ...)
; compiling (DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ...)
; compiling (DECLARE-EVENT :KEYMAP-NOTIFY ...)
; compiling (DECLARE-EVENT :EXPOSURE ...)
; compiling (DECLARE-EVENT :GRAPHICS-EXPOSURE ...)
; compiling (DECLARE-EVENT :NO-EXPOSURE ...)
; compiling (DECLARE-EVENT :VISIBILITY-NOTIFY ...)
; compiling (DECLARE-EVENT :CREATE-NOTIFY ...)
; compiling (DECLARE-EVENT :DESTROY-NOTIFY ...)
; compiling (DECLARE-EVENT :UNMAP-NOTIFY ...)
; compiling (DECLARE-EVENT :MAP-NOTIFY ...)
; compiling (DECLARE-EVENT :MAP-REQUEST ...)
; compiling (DECLARE-EVENT :REPARENT-NOTIFY ...)
; compiling (DECLARE-EVENT :CONFIGURE-NOTIFY ...)
; compiling (DECLARE-EVENT :CONFIGURE-REQUEST ...)
; compiling (DECLARE-EVENT :GRAVITY-NOTIFY ...)
; compiling (DECLARE-EVENT :RESIZE-REQUEST ...)
; compiling (DECLARE-EVENT :CIRCULATE-NOTIFY ...)
; compiling (DECLARE-EVENT :CIRCULATE-REQUEST ...)
; compiling (DECLARE-EVENT :PROPERTY-NOTIFY ...)
; compiling (DECLARE-EVENT :SELECTION-CLEAR ...)
; compiling (DECLARE-EVENT :SELECTION-REQUEST ...)
; compiling (DECLARE-EVENT :SELECTION-NOTIFY ...)
; compiling (DECLARE-EVENT :COLORMAP-NOTIFY ...)
; compiling (DECLARE-EVENT :CLIENT-MESSAGE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/input.lisp
; in: DECLARE-EVENT :CLIENT-MESSAGE
;     (XLIB:DECLARE-EVENT :CLIENT-MESSAGE
;                       (XLIB::DATA FORMAT)
;                       (XLIB:CARD16 SEQUENCE)
;                       (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW))
;                       (KEYWORD TYPE)
;                       ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA))
; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK XLIB::READING-EVENT 
; --> XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL 
; --> XLIB::CLIENT-MESSAGE-SEQUENCE-GET XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE 
; --> LET* 
; ==>
;   (MAKE-ARRAY (CEILING 160 FORMAT) :ELEMENT-TYPE `(UNSIGNED-BYTE ,FORMAT))
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK XLIB::READING-EVENT 
; --> XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL 
; --> XLIB::CLIENT-MESSAGE-SEQUENCE-GET XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE 
; --> LET* DO BLOCK LET TAGBODY TAGBODY CASE LET COND IF PROGN SETF 
; --> SB-KERNEL:%ASET LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK XLIB::READING-EVENT 
; --> XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL 
; --> XLIB::CLIENT-MESSAGE-SEQUENCE-GET XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE 
; --> LET* DO BLOCK LET TAGBODY TAGBODY CASE LET COND IF COND IF PROGN SETF 
; --> SB-KERNEL:%ASET LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK XLIB::READING-EVENT 
; --> XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL 
; --> XLIB::CLIENT-MESSAGE-SEQUENCE-GET XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE 
; --> LET* DO BLOCK LET TAGBODY TAGBODY CASE LET COND IF COND IF COND IF PROGN 
; --> SETF SB-KERNEL:%ASET LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CLIENT-MESSAGE-SEQUENCE-PUT 
; --> XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ECASE LET COND IF PROGN 
; --> XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN LET 
; ==>
;   (LENGTH XLIB::DATA)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CLIENT-MESSAGE-SEQUENCE-PUT 
; --> XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ECASE LET COND IF COND IF PROGN 
; --> XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 MIN LET 
; ==>
;   (LENGTH XLIB::DATA)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CLIENT-MESSAGE-SEQUENCE-PUT 
; --> XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ECASE LET COND IF COND IF COND IF 
; --> PROGN XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN LET 
; ==>
;   (LENGTH XLIB::DATA)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DECLARE-EVENT :MAPPING-NOTIFY ...)
; compiling (DEFUN EVENT-LOOP-SETUP ...)
; compiling (DEFUN EVENT-LOOP-STEP-BEFORE ...)
; compiling (DEFUN DEQUEUE-EVENT ...)
; compiling (DEFUN EVENT-LOOP-STEP-AFTER ...)
; compiling (DEFMACRO EVENT-LOOP ...)
; compiling (DEFUN DISCARD-CURRENT-EVENT ...)
; compiling (DEFUN PROCESS-EVENT ...)
; compiling (DEFUN MAKE-EVENT-HANDLERS ...)
; compiling (DEFUN EVENT-HANDLER ...)
; compiling (DEFUN SET-EVENT-HANDLER ...)
; compiling (DEFSETF EVENT-HANDLER ...)
; compiling (DEFMACRO EVENT-CASE ...)
; compiling (DEFMACRO EVENT-COND ...)
; compiling (DEFUN GET-EVENT-CODE ...)
; compiling (DEFUN UNIVERSAL-EVENT-GET-MACRO ...)
; compiling (DEFMACRO EVENT-DISPATCH ...)
; compiling (DEFMACRO BINDING-EVENT-VALUES ...)
; compiling (DEFPARAMETER *XERROR-VECTOR* ...)
; compiling (DEFUN MAKE-ERROR ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/input.lisp
; in: DEFUN MAKE-ERROR
;     (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION)
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

; compiling (DEFUN REPORT-ERROR ...)
; compiling (DEFUN REQUEST-NAME ...)
; compiling (DEFUN REPORT-REQUEST-ERROR ...)
; compiling (DEFINE-CONDITION REQUEST-ERROR ...)
; compiling (DEFINE-CONDITION RESOURCE-ERROR ...)
; compiling (DEFINE-CONDITION UNKNOWN-ERROR ...)
; compiling (DEFINE-CONDITION ACCESS-ERROR ...)
; compiling (DEFINE-CONDITION ALLOC-ERROR ...)
; compiling (DEFINE-CONDITION ATOM-ERROR ...)
; compiling (DEFINE-CONDITION COLORMAP-ERROR ...)
; compiling (DEFINE-CONDITION CURSOR-ERROR ...)
; compiling (DEFINE-CONDITION DRAWABLE-ERROR ...)
; compiling (DEFINE-CONDITION FONT-ERROR ...)
; compiling (DEFINE-CONDITION GCONTEXT-ERROR ...)
; compiling (DEFINE-CONDITION ID-CHOICE-ERROR ...)
; compiling (DEFINE-CONDITION ILLEGAL-REQUEST-ERROR ...)
; compiling (DEFINE-CONDITION LENGTH-ERROR ...)
; compiling (DEFINE-CONDITION MATCH-ERROR ...)
; compiling (DEFINE-CONDITION NAME-ERROR ...)
; compiling (DEFINE-CONDITION PIXMAP-ERROR ...)
; compiling (DEFINE-CONDITION VALUE-ERROR ...)
; compiling (DEFINE-CONDITION WINDOW-ERROR ...)
; compiling (DEFINE-CONDITION IMPLEMENTATION-ERROR ...)
; compiling (DEFINE-CONDITION X-TYPE-ERROR ...)
; compiling (DEFINE-CONDITION CLOSED-DISPLAY ...)
; compiling (DEFINE-CONDITION LOOKUP-ERROR ...)
; compiling (DEFINE-CONDITION CONNECTION-FAILURE ...)
; compiling (DEFINE-CONDITION REPLY-LENGTH-ERROR ...)
; compiling (DEFINE-CONDITION REPLY-TIMEOUT ...)
; compiling (DEFINE-CONDITION SEQUENCE-ERROR ...)
; compiling (DEFINE-CONDITION UNEXPECTED-REPLY ...)
; compiling (DEFINE-CONDITION MISSING-PARAMETER ...)
; compiling (DEFINE-CONDITION INVALID-FONT ...)
; compiling (DEFINE-CONDITION DEVICE-BUSY ...)
; compiling (DEFINE-CONDITION UNIMPLEMENTED-EVENT ...)
; compiling (DEFINE-CONDITION UNDEFINED-EVENT ...)
; compiling (DEFINE-CONDITION ABSENT-EXTENSION ...)
; compiling (DEFINE-CONDITION INCONSISTENT-PARAMETERS ...)
; compiling (DEFUN GET-ERROR-KEY ...)
; compiling (DEFMACRO DEFINE-ERROR ...)
; compiling (DEFUN DECODE-CORE-ERROR ...)
; compiling (DEFUN DECODE-RESOURCE-ERROR ...)
; compiling (DEFINE-ERROR UNKNOWN-ERROR ...)
; compiling (DEFINE-ERROR REQUEST-ERROR ...)
; compiling (DEFINE-ERROR VALUE-ERROR ...)
; compiling (DEFINE-ERROR WINDOW-ERROR ...)
; compiling (DEFINE-ERROR PIXMAP-ERROR ...)
; compiling (DEFINE-ERROR ATOM-ERROR ...)
; compiling (DEFINE-ERROR CURSOR-ERROR ...)
; compiling (DEFINE-ERROR FONT-ERROR ...)
; compiling (DEFINE-ERROR MATCH-ERROR ...)
; compiling (DEFINE-ERROR DRAWABLE-ERROR ...)
; compiling (DEFINE-ERROR ACCESS-ERROR ...)
; compiling (DEFINE-ERROR ALLOC-ERROR ...)
; compiling (DEFINE-ERROR COLORMAP-ERROR ...)
; compiling (DEFINE-ERROR GCONTEXT-ERROR ...)
; compiling (DEFINE-ERROR ID-CHOICE-ERROR ...)
; compiling (DEFINE-ERROR NAME-ERROR ...)
; compiling (DEFINE-ERROR LENGTH-ERROR ...)
; compiling (DEFINE-ERROR IMPLEMENTATION-ERROR ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/input.fasl written
; compilation finished in 0:00:16
STYLE-WARNING: redefining CANONICALIZE-EVENT-NAME in DEFUN
STYLE-WARNING: redefining ALLOCATE-EXTENSION-EVENT-CODE in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/requests.lisp" (written 14 JUL 2005 09:24:44 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFUN CREATE-WINDOW ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/requests.lisp
; in: DEFUN CREATE-WINDOW
;     (XLIB::X-TYPE-ERROR XLIB::BACKGROUND
;                       '(OR NULL
;                            (MEMBER :NONE :PARENT-RELATIVE)
;                            INTEGER
;                            XLIB:PIXMAP))
; ==>
;   XLIB::BACKGROUND
; 
; note: deleting unreachable code

;     '(OR NULL (MEMBER :COPY) INTEGER XLIB:PIXMAP)
; 
; note: deleting unreachable code

;     '(OR NULL (MEMBER :NONE :PARENT-RELATIVE) INTEGER XLIB:PIXMAP)
; 
; note: deleting unreachable code

;     (XLIB::X-TYPE-ERROR XLIB::BORDER
;                       '(OR NULL (MEMBER :COPY) INTEGER XLIB:PIXMAP))
; ==>
;   XLIB::BORDER
; 
; note: deleting unreachable code

;     (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+)
;                              (XLIB::DATA XLIB::DEPTH)
;                              (XLIB:RESOURCE-ID XLIB::WID)
;                              (XLIB:WINDOW XLIB::PARENT)
;                              (XLIB:INT16 XLIB::X XLIB::Y)
;                              (XLIB:CARD16 XLIB::WIDTH
;                                           XLIB::HEIGHT
;                                           XLIB::BORDER-WIDTH)
;                              ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY)
;                               CLASS)
;                              (XLIB:RESOURCE-ID
;                               (COND ((EQ XLIB::VISUAL :COPY) 0)
;                                     ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID)
;                                      XLIB::VISUAL)
;                                     (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL))))
;                              (XLIB::MASK
;                               (XLIB:CARD32 XLIB::BACK-PIXMAP
;                                            XLIB::BACK-PIXEL
;                                            XLIB::BORDER-PIXMAP
;                                            XLIB::BORDER-PIXEL)
;                               ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+)
;                                XLIB:BIT-GRAVITY)
;                               ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+)
;                                XLIB::GRAVITY)
;                               ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS)
;                                XLIB::BACKING-STORE)
;                               (XLIB:CARD32 XLIB::BACKING-PLANES
;                                            XLIB::BACKING-PIXEL)
;                               ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT
;                                XLIB::SAVE-UNDER)
;                               (XLIB:CARD32 XLIB:EVENT-MASK
;                                            XLIB::DO-NOT-PROPAGATE-MASK)
;                               ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP)
;                               ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR)))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS COND IF PROGN SETQ THE 
; ==>
;   (LOGIOR XLIB::%MASK 2)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 4)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 8)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 16)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 32)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 64)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 128)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 256)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 512)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 1024)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 2048)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 4096)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 8192)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 16384)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; compiling (DEFUN DESTROY-WINDOW ...)
; compiling (DEFUN DESTROY-SUBWINDOWS ...)
; compiling (DEFUN ADD-TO-SAVE-SET ...)
; compiling (DEFUN REMOVE-FROM-SAVE-SET ...)
; compiling (DEFUN REPARENT-WINDOW ...)
; compiling (DEFUN MAP-WINDOW ...)
; compiling (DEFUN MAP-SUBWINDOWS ...)
; compiling (DEFUN UNMAP-WINDOW ...)
; compiling (DEFUN UNMAP-SUBWINDOWS ...)
; compiling (DEFUN CIRCULATE-WINDOW-UP ...)
; compiling (DEFUN CIRCULATE-WINDOW-DOWN ...)
; compiling (DEFUN QUERY-TREE ...)
; compiling (DEFUN INTERN-ATOM ...)
; compiling (DEFUN FIND-ATOM ...)
; compiling (DEFUN ATOM-NAME ...)
; compiling (DEFUN LOOKUP-XATOM ...)
; compiling (DEFUN CHANGE-PROPERTY ...)
; compiling (DEFUN DELETE-PROPERTY ...)
; compiling (DEFUN GET-PROPERTY ...)
; compiling (DEFUN ROTATE-PROPERTIES ...)
; compiling (DEFUN LIST-PROPERTIES ...)
; compiling (DEFUN SELECTION-OWNER ...)
; compiling (DEFUN SET-SELECTION-OWNER ...)
; compiling (DEFSETF SELECTION-OWNER ...)
; compiling (DEFUN CONVERT-SELECTION ...)
; compiling (DEFUN SEND-EVENT ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/requests.lisp
; in: DEFUN SEND-EVENT
;     (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE)
;          XLIB:DISPLAY
;          XLIB::ARGS)
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE))
; 
; note: unable to
;   optimize away possible call to FDEFINITION at runtime
; due to type uncertainty:
;   The first argument is a (OR FUNCTION SYMBOL), not a FUNCTION.

; compiling (DEFUN GRAB-POINTER ...)
; compiling (DEFUN UNGRAB-POINTER ...)
; compiling (DEFUN GRAB-BUTTON ...)
; compiling (DEFUN UNGRAB-BUTTON ...)
; compiling (DEFUN CHANGE-ACTIVE-POINTER-GRAB ...)
; compiling (DEFUN GRAB-KEYBOARD ...)
; compiling (DEFUN UNGRAB-KEYBOARD ...)
; compiling (DEFUN GRAB-KEY ...)
; compiling (DEFUN UNGRAB-KEY ...)
; compiling (DEFUN ALLOW-EVENTS ...)
; compiling (DEFUN GRAB-SERVER ...)
; compiling (DEFUN UNGRAB-SERVER ...)
; compiling (DEFMACRO WITH-SERVER-GRABBED ...)
; compiling (DEFUN QUERY-POINTER ...)
; compiling (DEFUN POINTER-POSITION ...)
; compiling (DEFUN GLOBAL-POINTER-POSITION ...)
; compiling (DEFUN MOTION-EVENTS ...)
; compiling (DEFUN TRANSLATE-COORDINATES ...)
; compiling (DEFUN WARP-POINTER ...)
; compiling (DEFUN WARP-POINTER-RELATIVE ...)
; compiling (DEFUN WARP-POINTER-IF-INSIDE ...)
; compiling (DEFUN WARP-POINTER-RELATIVE-IF-INSIDE ...)
; compiling (DEFUN SET-INPUT-FOCUS ...)
; compiling (DEFUN INPUT-FOCUS ...)
; compiling (DEFUN QUERY-KEYMAP ...)
; compiling (DEFUN CREATE-PIXMAP ...)
; compiling (DEFUN FREE-PIXMAP ...)
; compiling (DEFUN CLEAR-AREA ...)
; compiling (DEFUN COPY-AREA ...)
; compiling (DEFUN COPY-PLANE ...)
; compiling (DEFUN CREATE-COLORMAP ...)
; compiling (DEFUN FREE-COLORMAP ...)
; compiling (DEFUN COPY-COLORMAP-AND-FREE ...)
; compiling (DEFUN INSTALL-COLORMAP ...)
; compiling (DEFUN UNINSTALL-COLORMAP ...)
; compiling (DEFUN INSTALLED-COLORMAPS ...)
; compiling (DEFUN ALLOC-COLOR ...)
; compiling (DEFUN ALLOC-COLOR-CELLS ...)
; compiling (DEFUN ALLOC-COLOR-PLANES ...)
; compiling (DEFUN FREE-COLORS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/requests.lisp
; in: DEFUN FREE-COLORS
;     (XLIB::WITH-BUFFER-REQUEST
;    ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) XLIB::+X-FREECOLORS+)
;    (XLIB:COLORMAP XLIB:COLORMAP)
;    (XLIB:CARD32 XLIB::PLANE-MASK)
;    (SEQUENCE XLIB::PIXELS))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::PIXELS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DEFUN STORE-COLOR ...)
; compiling (DEFUN STORE-COLORS ...)
; compiling (DEFUN QUERY-COLORS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/requests.lisp
; in: DEFUN QUERY-COLORS
;     (XLIB::WITH-BUFFER-REQUEST-AND-REPLY
;    (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL :SIZES (8 16))
;    ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS))
;    (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #)))
;      (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+)
;      (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE)
;        (SETF (ELT SEQUENCE XLIB::I) (XLIB:MAKE-COLOR :RED # :GREEN # :BLUE #))
;        (XLIB::ADVANCE-BUFFER-OFFSET 8))))
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET 
; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::PIXELS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH SEQUENCE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS
;                               NULL
;                               (SIMPLE-ARRAY * (*))), not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS NULL (SIMPLE-ARRAY * (*))), not a VECTOR.

;     (SETF (ELT SEQUENCE XLIB::I)
;           (XLIB:MAKE-COLOR :RED
;                            (XLIB::RGB-VAL-GET 0)
;                            :GREEN
;                            (XLIB::RGB-VAL-GET 2)
;                            :BLUE
;                            (XLIB::RGB-VAL-GET 4)))
; ==>
;   (SB-KERNEL:%SETELT SEQUENCE
;                      XLIB::I
;                      (XLIB:MAKE-COLOR :RED
;                                       (XLIB::RGB-VAL-GET 0)
;                                       :GREEN
;                                       (XLIB::RGB-VAL-GET 2)
;                                       :BLUE
;                                       (XLIB::RGB-VAL-GET 4)))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS
;                               NULL
;                               (SIMPLE-ARRAY * (*))), not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS NULL (SIMPLE-ARRAY * (*))), not a LIST.

; compiling (DEFUN LOOKUP-COLOR ...)
; compiling (DEFUN CREATE-CURSOR ...)
; compiling (DEFUN CREATE-GLYPH-CURSOR ...)
; compiling (DEFUN FREE-CURSOR ...)
; compiling (DEFUN RECOLOR-CURSOR ...)
; compiling (DEFUN QUERY-BEST-CURSOR ...)
; compiling (DEFUN QUERY-BEST-TILE ...)
; compiling (DEFUN QUERY-BEST-STIPPLE ...)
; compiling (DEFUN QUERY-EXTENSION ...)
; compiling (DEFUN LIST-EXTENSIONS ...)
; compiling (DEFUN CHANGE-KEYBOARD-CONTROL ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/requests.lisp
; in: DEFUN CHANGE-KEYBOARD-CONTROL
;     (XLIB::WITH-BUFFER-REQUEST
;    (XLIB:DISPLAY XLIB::+X-CHANGEKEYBOARDCONTROL+ :SIZES (32))
;    (XLIB::MASK
;     (INTEGER XLIB::KEY-CLICK-PERCENT
;              XLIB::BELL-PERCENT
;              XLIB::BELL-PITCH
;              XLIB::BELL-DURATION)
;     (XLIB:CARD32 XLIB::LED)
;     ((MEMBER :OFF :ON) XLIB::LED-MODE)
;     (XLIB:CARD32 XLIB::KEY)
;     ((MEMBER :OFF :ON :DEFAULT) XLIB::AUTO-REPEAT-MODE)))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS COND IF PROGN SETQ THE 
; ==>
;   (LOGIOR XLIB::%MASK 2)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 4)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 8)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 16)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 32)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 64)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; ==>
;   (LOGIOR XLIB::%MASK 128)
; 
; note: forced to do static-fun Two-arg-ior (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; compiling (DEFUN KEYBOARD-CONTROL ...)
; compiling (DEFUN BELL ...)
; compiling (DEFUN POINTER-MAPPING ...)
; compiling (DEFUN SET-POINTER-MAPPING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/requests.lisp
; in: DEFUN SET-POINTER-MAPPING
;     (LENGTH MAP)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (XLIB::WITH-BUFFER-REQUEST-AND-REPLY
;    (XLIB:DISPLAY XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8)
;    ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP))
;    (VALUES (XLIB::BOOLEAN-GET 1)))
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET 
; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH MAP)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DEFSETF POINTER-MAPPING ...)
; compiling (DEFUN CHANGE-POINTER-CONTROL ...)
; compiling (DEFUN POINTER-CONTROL ...)
; compiling (DEFUN SET-SCREEN-SAVER ...)
; compiling (DEFUN SCREEN-SAVER ...)
; compiling (DEFUN ACTIVATE-SCREEN-SAVER ...)
; compiling (DEFUN RESET-SCREEN-SAVER ...)
; compiling (DEFUN ADD-ACCESS-HOST ...)
; compiling (DEFUN REMOVE-ACCESS-HOST ...)
; compiling (DEFUN CHANGE-ACCESS-HOST ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/requests.lisp
; in: DEFUN CHANGE-ACCESS-HOST
;     (LENGTH XLIB::ADDRESS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+)
;                              ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P)
;                              (XLIB:CARD8
;                               (XLIB::ENCODE-TYPE
;                                (OR NULL
;                                    (MEMBER :INTERNET :DECNET :CHAOS)
;                                    XLIB:CARD32)
;                                XLIB::FAMILY))
;                              (XLIB:CARD16 (LENGTH XLIB::ADDRESS))
;                              ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::ADDRESS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DEFUN ACCESS-HOSTS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/requests.lisp
; in: DEFUN ACCESS-HOSTS
;     (SETF (ELT SEQUENCE XLIB::I)
;           (CONS
;            (IF (< XLIB::FAMILY 3)
;                (SVREF '#(:INTERNET :DECNET :CHAOS) XLIB::FAMILY)
;                XLIB::FAMILY)
;            (XLIB::SEQUENCE-GET :LENGTH
;                                XLIB::LEN
;                                :FORMAT
;                                XLIB:CARD8
;                                :RESULT-TYPE
;                                'LIST
;                                :INDEX
;                                (+ XLIB::BUFFER-BOFFSET 4))))
; ==>
;   (SB-KERNEL:%SETELT SEQUENCE
;                      XLIB::I
;                      (CONS
;                       (IF (< XLIB::FAMILY 3)
;                           (SVREF '#(:INTERNET :DECNET :CHAOS) XLIB::FAMILY)
;                           XLIB::FAMILY)
;                       (XLIB::SEQUENCE-GET :LENGTH
;                                           XLIB::LEN
;                                           :FORMAT
;                                           XLIB:CARD8
;                                           :RESULT-TYPE
;                                           'LIST
;                                           :INDEX
;                                           (+ XLIB::BUFFER-BOFFSET 4))))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS
;                               NULL
;                               (SIMPLE-ARRAY * (*))), not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR CONS NULL (SIMPLE-ARRAY * (*))), not a LIST.

; compiling (DEFUN ACCESS-CONTROL ...)
; compiling (DEFUN SET-ACCESS-CONTROL ...)
; compiling (DEFSETF ACCESS-CONTROL ...)
; compiling (DEFUN CLOSE-DOWN-MODE ...)
; compiling (DEFUN SET-CLOSE-DOWN-MODE ...)
; compiling (DEFSETF CLOSE-DOWN-MODE ...)
; compiling (DEFUN KILL-CLIENT ...)
; compiling (DEFUN KILL-TEMPORARY-CLIENTS ...)
; compiling (DEFUN NO-OPERATION ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/requests.fasl written
; compilation finished in 0:00:22
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/fonts.lisp" (written 14 JUL 2005 09:24:44 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFTYPE CHAR-INFO-VEC ...)
; compiling (DEF-CHAR-INFO-ACCESSORS IGNORE ...)
; compiling (DEFUN OPEN-FONT ...)
; compiling (DEFUN OPEN-FONT-INTERNAL ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/fonts.lisp
; in: DEFUN OPEN-FONT-INTERNAL
;     (LENGTH XLIB::NAME-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL
;                               (VECTOR CHARACTER)
;                               (VECTOR NIL)
;                               BASE-STRING), not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL
;                               (VECTOR CHARACTER)
;                               (VECTOR NIL)
;                               BASE-STRING), not a VECTOR.

;     (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+)
;                              (XLIB:RESOURCE-ID XLIB::ID)
;                              (XLIB:CARD16 (LENGTH XLIB::NAME-STRING))
;                              (XLIB::PAD16 NIL)
;                              (STRING XLIB::NAME-STRING))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::STRING-PUT LET 
; ==>
;   (LENGTH XLIB::NAME-STRING)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL
;                               (VECTOR CHARACTER)
;                               (VECTOR NIL)
;                               BASE-STRING), not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR NULL
;                               (VECTOR CHARACTER)
;                               (VECTOR NIL)
;                               BASE-STRING), not a VECTOR.

; compiling (DEFUN DISCARD-FONT-INFO ...)
; compiling (DEFUN QUERY-FONT ...)
; compiling (DEFUN CLOSE-FONT ...)
; compiling (DEFUN LIST-FONT-NAMES ...)
; compiling (DEFUN LIST-FONTS ...)
; compiling (DEFUN FONT-PATH ...)
; compiling (DEFUN SET-FONT-PATH ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/fonts.lisp
; in: DEFUN SET-FONT-PATH
;     (ELT XLIB::PATHS XLIB::I)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a LIST.

; compiling (DEFSETF FONT-PATH ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/fonts.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/graphics.lisp" (written 14 JUL 2005 09:24:44 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFVAR *INHIBIT-APPENDING* ...)
; compiling (DEFUN DRAW-POINT ...)
; compiling (DEFUN DRAW-POINTS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/graphics.lisp
; in: DEFUN DRAW-POINTS
;     (XLIB::WITH-BUFFER-REQUEST
;    ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) XLIB::+X-POLYPOINT+ :GC-FORCE
;     XLIB:GCONTEXT)
;    ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P)
;    (XLIB:DRAWABLE XLIB:DRAWABLE)
;    (XLIB:GCONTEXT XLIB:GCONTEXT)
;    ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::POINTS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DEFUN DRAW-LINE ...)
; compiling (DEFUN DRAW-LINES ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/graphics.lisp
; in: DEFUN DRAW-LINES
;     (XLIB::WITH-BUFFER-REQUEST
;    ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) XLIB::+X-POLYLINE+ :GC-FORCE
;     XLIB:GCONTEXT)
;    ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P)
;    (XLIB:DRAWABLE XLIB:DRAWABLE)
;    (XLIB:GCONTEXT XLIB:GCONTEXT)
;    ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::POINTS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DEFUN FILL-POLYGON ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/graphics.lisp
; in: DEFUN FILL-POLYGON
;     (XLIB::WITH-BUFFER-REQUEST
;    ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) XLIB::+X-FILLPOLY+ :GC-FORCE
;     XLIB:GCONTEXT)
;    (XLIB:DRAWABLE XLIB:DRAWABLE)
;    (XLIB:GCONTEXT XLIB:GCONTEXT)
;    ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE)
;    (BOOLEAN XLIB::RELATIVE-P)
;    ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::POINTS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DEFUN DRAW-SEGMENTS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/graphics.lisp
; in: DEFUN DRAW-SEGMENTS
;     (XLIB::WITH-BUFFER-REQUEST
;    ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) XLIB::+X-POLYSEGMENT+ :GC-FORCE
;     XLIB:GCONTEXT)
;    (XLIB:DRAWABLE XLIB:DRAWABLE)
;    (XLIB:GCONTEXT XLIB:GCONTEXT)
;    ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::SEGMENTS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DEFUN DRAW-RECTANGLE ...)
; compiling (DEFUN DRAW-RECTANGLES ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/graphics.lisp
; in: DEFUN DRAW-RECTANGLES
;     (XLIB::WITH-BUFFER-REQUEST
;    ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE)
;     (IF XLIB::FILL-P XLIB::+X-POLYFILLRECTANGLE+ XLIB::+X-POLYRECTANGLE+)
;     :GC-FORCE XLIB:GCONTEXT)
;    (XLIB:DRAWABLE XLIB:DRAWABLE)
;    (XLIB:GCONTEXT XLIB:GCONTEXT)
;    ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::RECTANGLES)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DEFUN DRAW-ARC ...)
; compiling (DEFUN DRAW-ARCS-LIST ...)
; compiling (DEFUN DRAW-ARCS-VECTOR ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/graphics.lisp
; in: DEFUN DRAW-ARCS-VECTOR
;     (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0))
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1))
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2))
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3))
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4))
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5))
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN DRAW-ARCS ...)
; compiling (DEFUN PUT-RAW-IMAGE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/graphics.lisp
; in: DEFUN PUT-RAW-IMAGE
;     (XLIB::WITH-BUFFER-REQUEST
;    ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) XLIB::+X-PUTIMAGE+ :GC-FORCE
;     XLIB:GCONTEXT)
;    ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT)
;    (XLIB:DRAWABLE XLIB:DRAWABLE)
;    (XLIB:GCONTEXT XLIB:GCONTEXT)
;    (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)
;    (XLIB:INT16 XLIB::X XLIB::Y)
;    (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH)
;    (XLIB::PAD16 NIL)
;    ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::DATA)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DEFUN GET-RAW-IMAGE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/graphics.lisp
; in: DEFUN GET-RAW-IMAGE
;     (* 4 (XLIB::CARD32-GET 4))
; --> * 
; ==>
;   (ASH SB-C::X 2)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 17179869181)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 17179869181)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/graphics.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/text.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFPARAMETER *MAX-STRING-SIZE* ...)
; compiling (DEFTYPE TRANSLATION-FUNCTION ...)
; compiling (DEFUN TRANSLATE-DEFAULT ...)
; compiling (DEFUN TEXT-EXTENTS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/text.lisp
; in: DEFUN TEXT-EXTENTS
;     (LENGTH SEQUENCE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (MAX XLIB::RIGHT-BEARING (THE XLIB:INT32 XLIB::R))
; --> LET LET IF 
; ==>
;   SB-C::MAXREST
; 
; note: doing signed word to integer coercion (cost 20)

;     (MIN XLIB::LEFT-BEARING (THE XLIB:INT32 XLIB::L))
; --> LET LET IF 
; ==>
;   SB-C::MINREST
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFUN TEXT-WIDTH ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/text.lisp
; in: DEFUN TEXT-WIDTH
;     (LENGTH SEQUENCE)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (INCF XLIB::WIDTH
;         (IF
;          (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT)
;              (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT))
;          (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT
;                                    XLIB::WBUF
;                                    0
;                                    XLIB::BUF-END
;                                    :WIDTH-ONLY)
;          (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END)))
; --> LET* 
; ==>
;   (+ XLIB::WIDTH #:G276)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES (SIGNED-BYTE 32)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (INCF XLIB::WIDTH (THE XLIB:INT32 XLIB::NEW-FONT))
; --> LET* 
; ==>
;   (SETQ XLIB::WIDTH #:G273)
; 
; note: doing signed word to integer coercion (cost 20) to WIDTH

; compiling (DEFUN TEXT-EXTENTS-SERVER ...)
; compiling (DEFUN TEXT-WIDTH-SERVER ...)
; compiling (DEFUN TEXT-EXTENTS-LOCAL ...)
; compiling (DEFTYPE INDEX-SIZE ...)
; compiling (DEFUN DRAW-GLYPH ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/text.lisp
; in: DEFUN DRAW-GLYPH
;     (LDB (BYTE 8 0) ELT)
; --> SB-KERNEL:%LDB 
; ==>
;   (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (LDB (BYTE 8 8) ELT)
; --> SB-KERNEL:%LDB LOGAND 
; ==>
;   (ASH INT (- SB-C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       unable to do inline constant ASH (cost 4) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; --> SB-KERNEL:%LDB 
; ==>
;   (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

; compiling (DEFUN DRAW-GLYPHS ...)
; compiling (DEFUN DRAW-GLYPHS8 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/text.lisp
; in: DEFUN DRAW-GLYPHS8
;     (INCF XLIB::BOFFSET (XLIB::INDEX+ XLIB::DST-CHUNK 2))
; --> LET* 
; ==>
;   (SETQ XLIB::BOFFSET #:G1156)
; 
; note: doing signed word to integer coercion (cost 20) to BOFFSET

;     (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH)
; --> LET* 
; ==>
;   (SETQ XLIB::OVERALL-WIDTH #:G1147)
; 
; note: doing signed word to integer coercion (cost 20) to OVERALL-WIDTH

; compiling (DEFUN DRAW-GLYPHS16 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/text.lisp
; in: DEFUN DRAW-GLYPHS16
;     (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH)
; --> LET* 
; ==>
;   (SETQ XLIB::OVERALL-WIDTH #:G1371)
; 
; note: doing signed word to integer coercion (cost 20) to OVERALL-WIDTH

; compiling (DEFUN DRAW-IMAGE-GLYPH ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/text.lisp
; in: DEFUN DRAW-IMAGE-GLYPH
;     (LDB (BYTE 8 0) ELT)
; --> SB-KERNEL:%LDB 
; ==>
;   (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

;     (LDB (BYTE 8 8) ELT)
; --> SB-KERNEL:%LDB LOGAND 
; ==>
;   (ASH INT (- SB-C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       unable to do inline constant ASH (cost 4) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES INTEGER
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; --> SB-KERNEL:%LDB 
; ==>
;   (LOGAND (ASH INT (- SB-C::POSN)) (ASH 4294967295 (- SB-C::SIZE 32)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum logical op (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline (unsigned-byte 32) logical op (cost 2) because:
;       The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
;       etc.

; compiling (DEFUN DRAW-IMAGE-GLYPHS ...)
; compiling (DEFUN DRAW-IMAGE-GLYPHS8 ...)
; compiling (DEFUN DRAW-IMAGE-GLYPHS16 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/text.lisp
; in: DEFUN DRAW-IMAGE-GLYPHS16
;     (XLIB::LROUND (XLIB::INDEX+ 16 (XLIB::INDEX-ASH XLIB::CHUNK 1)))
; --> THE 
; ==>
;   (LOGAND (XLIB::INDEX+ (XLIB::INDEX+ 16 (XLIB::INDEX-ASH XLIB::CHUNK 1)) 3) -4)
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; compiling (DEFUN DISPLAY-KEYCODE-RANGE ...)
; compiling (DEFUN SET-MODIFIER-MAPPING ...)
; compiling (DEFUN MODIFIER-MAPPING ...)
; compiling (DEFUN CHANGE-KEYBOARD-MAPPING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/text.lisp
; in: DEFUN CHANGE-KEYBOARD-MAPPING
;     (AREF XLIB::KEYSYMS XLIB::I XLIB::J)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFUN KEYBOARD-MAPPING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/text.lisp
; in: DEFUN KEYBOARD-MAPPING
;     (MAKE-ARRAY
;    `(,(XLIB::INDEX+ XLIB::START XLIB::KEYCODE-COUNT)
;      ,XLIB::KEYSYMS-PER-KEYCODE)
;    :ELEMENT-TYPE
;    'XLIB:KEYSYM
;    :INITIAL-ELEMENT
;    0)
; ==>
;   (MAKE-ARRAY SB-C::DIMS :ELEMENT-TYPE '(UNSIGNED-BYTE 32))
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a INTEGER.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870911) CONS NULL), not a LIST.

;     (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4)))
; --> SB-KERNEL:%ASET LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE)
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (1+ XLIB::I)
; ==>
;   (+ XLIB::I 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/text.fasl written
; compilation finished in 0:00:06
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/attributes.lisp" (written 14 JUL 2005 09:24:44 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFCONSTANT +ATTRIBUTE-SIZE+ ...)
; compiling (DEFCONSTANT +GEOMETRY-SIZE+ ...)
; compiling (DEFCONSTANT +CONTEXT-SIZE+ ...)
; compiling (DEFVAR *WINDOW-ATTRIBUTES* ...)
; compiling (DEFVAR *CONTEXT-FREE-LIST* ...)
; compiling (DEFUN ALLOCATE-CONTEXT ...)
; compiling (DEFUN DEALLOCATE-CONTEXT ...)
; compiling (DEFMACRO STATE-ATTRIBUTES ...)
; compiling (DEFMACRO STATE-ATTRIBUTE-CHANGES ...)
; compiling (DEFMACRO STATE-GEOMETRY ...)
; compiling (DEFMACRO STATE-GEOMETRY-CHANGES ...)
; compiling (DEFMACRO DRAWABLE-EQUAL-FUNCTION ...); in: LAMBDA NIL
;     ''XLIB:DRAWABLE-EQUAL
; 
; note: deleting unreachable code

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/attributes.lisp
; in: DEFMACRO DRAWABLE-EQUAL-FUNCTION
;     ''XLIB:DRAWABLE-EQUAL
; 
; note: deleting unreachable code

; compiling (DEFMACRO WINDOW-EQUAL-FUNCTION ...); in: LAMBDA NIL
;     ''XLIB:DRAWABLE-EQUAL
; 
; note: deleting unreachable code

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/attributes.lisp
; in: DEFMACRO WINDOW-EQUAL-FUNCTION
;     ''XLIB:DRAWABLE-EQUAL
; 
; note: deleting unreachable code

; compiling (DEFMACRO WITH-STATE ...)
; compiling (DEFUN CLEANUP-STATE-ENTRY ...)
; compiling (DEFUN CHANGE-WINDOW-ATTRIBUTE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/attributes.lisp
; in: DEFUN CHANGE-WINDOW-ATTRIBUTE
;     (ASH 1 NUMBER)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (INTEGER 1)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER 1)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; compiling (DEFUN CHANGE-DRAWABLE-GEOMETRY ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/attributes.lisp
; in: DEFUN CHANGE-DRAWABLE-GEOMETRY
;     (ASH 1 NUMBER)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (INTEGER 1)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER 1)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; compiling (DEFUN GET-WINDOW-ATTRIBUTES-BUFFER ...)
; compiling (DEFUN GET-DRAWABLE-GEOMETRY-BUFFER ...)
; compiling (DEFUN PUT-WINDOW-ATTRIBUTE-CHANGES ...)
; compiling (DEFUN PUT-DRAWABLE-GEOMETRY-CHANGES ...)
; compiling (DEFMACRO WITH-ATTRIBUTES ...)
; compiling (DEFMACRO WITH-GEOMETRY ...)
; compiling (DEFUN WINDOW-VISUAL ...)
; compiling (DEFUN WINDOW-VISUAL-INFO ...)
; compiling (DEFUN WINDOW-CLASS ...)
; compiling (DEFUN SET-WINDOW-BACKGROUND ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/attributes.lisp
; in: DEFUN SET-WINDOW-BACKGROUND
;     (XLIB::X-TYPE-ERROR XLIB::BACKGROUND
;                       '(OR (MEMBER :NONE :PARENT-RELATIVE) INTEGER XLIB:PIXMAP))
; ==>
;   XLIB::BACKGROUND
; 
; note: deleting unreachable code

;     '(OR (MEMBER :NONE :PARENT-RELATIVE) INTEGER XLIB:PIXMAP)
; 
; note: deleting unreachable code

; compiling (DEFSETF WINDOW-BACKGROUND ...)
; compiling (DEFUN SET-WINDOW-BORDER ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/attributes.lisp
; in: DEFUN SET-WINDOW-BORDER
;     (XLIB::X-TYPE-ERROR XLIB::BORDER '(OR (MEMBER :COPY) INTEGER XLIB:PIXMAP))
; ==>
;   XLIB::BORDER
; 
; note: deleting unreachable code

;     '(OR (MEMBER :COPY) INTEGER XLIB:PIXMAP)
; 
; note: deleting unreachable code

; compiling (DEFSETF WINDOW-BORDER ...)
; compiling (DEFUN WINDOW-BIT-GRAVITY ...)
; compiling (DEFUN SET-WINDOW-BIT-GRAVITY ...)
; compiling (DEFSETF WINDOW-BIT-GRAVITY ...)
; compiling (DEFUN WINDOW-GRAVITY ...)
; compiling (DEFUN SET-WINDOW-GRAVITY ...)
; compiling (DEFSETF WINDOW-GRAVITY ...)
; compiling (DEFUN WINDOW-BACKING-STORE ...)
; compiling (DEFUN SET-WINDOW-BACKING-STORE ...)
; compiling (DEFSETF WINDOW-BACKING-STORE ...)
; compiling (DEFUN WINDOW-BACKING-PLANES ...)
; compiling (DEFUN SET-WINDOW-BACKING-PLANES ...)
; compiling (DEFSETF WINDOW-BACKING-PLANES ...)
; compiling (DEFUN WINDOW-BACKING-PIXEL ...)
; compiling (DEFUN SET-WINDOW-BACKING-PIXEL ...)
; compiling (DEFSETF WINDOW-BACKING-PIXEL ...)
; compiling (DEFUN WINDOW-SAVE-UNDER ...)
; compiling (DEFUN SET-WINDOW-SAVE-UNDER ...)
; compiling (DEFSETF WINDOW-SAVE-UNDER ...)
; compiling (DEFUN WINDOW-OVERRIDE-REDIRECT ...)
; compiling (DEFUN SET-WINDOW-OVERRIDE-REDIRECT ...)
; compiling (DEFSETF WINDOW-OVERRIDE-REDIRECT ...)
; compiling (DEFUN WINDOW-EVENT-MASK ...)
; compiling (DEFSETF WINDOW-EVENT-MASK ...)
; compiling (DEFUN WINDOW-DO-NOT-PROPAGATE-MASK ...)
; compiling (DEFSETF WINDOW-DO-NOT-PROPAGATE-MASK ...)
; compiling (DEFUN WINDOW-COLORMAP ...)
; compiling (DEFUN SET-WINDOW-COLORMAP ...)
; compiling (DEFSETF WINDOW-COLORMAP ...)
; compiling (DEFUN WINDOW-CURSOR ...)
; compiling (DEFUN SET-WINDOW-CURSOR ...)
; compiling (DEFSETF WINDOW-CURSOR ...)
; compiling (DEFUN WINDOW-COLORMAP-INSTALLED-P ...)
; compiling (DEFUN WINDOW-ALL-EVENT-MASKS ...)
; compiling (DEFUN WINDOW-MAP-STATE ...)
; compiling (DEFUN DRAWABLE-ROOT ...)
; compiling (DEFUN DRAWABLE-X ...)
; compiling (DEFUN SET-DRAWABLE-X ...)
; compiling (DEFSETF DRAWABLE-X ...)
; compiling (DEFUN DRAWABLE-Y ...)
; compiling (DEFUN SET-DRAWABLE-Y ...)
; compiling (DEFSETF DRAWABLE-Y ...)
; compiling (DEFUN DRAWABLE-WIDTH ...)
; compiling (DEFUN SET-DRAWABLE-WIDTH ...)
; compiling (DEFSETF DRAWABLE-WIDTH ...)
; compiling (DEFUN DRAWABLE-HEIGHT ...)
; compiling (DEFUN SET-DRAWABLE-HEIGHT ...)
; compiling (DEFSETF DRAWABLE-HEIGHT ...)
; compiling (DEFUN DRAWABLE-DEPTH ...)
; compiling (DEFUN DRAWABLE-BORDER-WIDTH ...)
; compiling (DEFUN SET-DRAWABLE-BORDER-WIDTH ...)
; compiling (DEFSETF DRAWABLE-BORDER-WIDTH ...)
; compiling (DEFUN SET-WINDOW-PRIORITY ...)
; compiling (DEFSETF WINDOW-PRIORITY ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/attributes.fasl written
; compilation finished in 0:00:04
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/translate.lisp" (written 14 JUL 2005 09:24:44 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFVAR *KEYSYM-SETS* ...)
; compiling (DEFUN DEFINE-KEYSYM-SET ...)
; compiling (DEFUN KEYSYM-SET ...)
; compiling (DEFMACRO KEYSYM ...)
; compiling (DEFVAR *KEYSYM->CHARACTER-MAP* ...)
; compiling (DEFMACRO KEYSYM-MAPPING-OBJECT ...)
; compiling (DEFMACRO KEYSYM-MAPPING-TRANSLATE ...)
; compiling (DEFMACRO KEYSYM-MAPPING-LOWERCASE ...)
; compiling (DEFMACRO KEYSYM-MAPPING-MODIFIERS ...)
; compiling (DEFMACRO KEYSYM-MAPPING-MASK ...)
; compiling (DEFVAR *DEFAULT-KEYSYM-TRANSLATE-MASK* ...)
; compiling (DEFUN DEFINE-KEYSYM ...)
; compiling (DEFUN UNDEFINE-KEYSYM ...)
; compiling (DEFUN KEYSYM-DOWNCASE ...)
; compiling (DEFUN KEYSYM-UPPERCASE-ALPHABETIC-P ...)
; compiling (DEFUN CHARACTER->KEYSYMS ...)
; compiling (DEFCONSTANT CHARACTER-SET-SWITCH-KEYSYM ...)
; compiling (DEFCONSTANT LEFT-SHIFT-KEYSYM ...)
; compiling (DEFCONSTANT RIGHT-SHIFT-KEYSYM ...)
; compiling (DEFCONSTANT LEFT-CONTROL-KEYSYM ...)
; compiling (DEFCONSTANT RIGHT-CONTROL-KEYSYM ...)
; compiling (DEFCONSTANT CAPS-LOCK-KEYSYM ...)
; compiling (DEFCONSTANT SHIFT-LOCK-KEYSYM ...)
; compiling (DEFCONSTANT LEFT-META-KEYSYM ...)
; compiling (DEFCONSTANT RIGHT-META-KEYSYM ...)
; compiling (DEFCONSTANT LEFT-ALT-KEYSYM ...)
; compiling (DEFCONSTANT RIGHT-ALT-KEYSYM ...)
; compiling (DEFCONSTANT LEFT-SUPER-KEYSYM ...)
; compiling (DEFCONSTANT RIGHT-SUPER-KEYSYM ...)
; compiling (DEFCONSTANT LEFT-HYPER-KEYSYM ...)
; compiling (DEFCONSTANT RIGHT-HYPER-KEYSYM ...)
; compiling (DEFUN DISPLAY-KEYBOARD-MAPPING ...)
; compiling (DEFUN KEYCODE->KEYSYM ...)
; compiling (DEFUN KEYSYM->CHARACTER ...)
; compiling (DEFUN MAPPING-MATCHES-P ...)
; compiling (DEFUN DEFAULT-KEYSYM-INDEX ...)
; compiling (DEFUN KEYSYM-SHIFT-P ...)
; compiling (DEFUN KEYCODE->CHARACTER ...)
; compiling (DEFUN GET-DISPLAY-MODIFIER-MAPPING ...)
; compiling (DEFUN STATE-KEYSYMP ...)
; compiling (DEFUN MAPPING-NOTIFY ...)
; compiling (DEFUN KEYSYM-IN-MAP-P ...)
; compiling (DEFUN CHARACTER-IN-MAP-P ...)
; compiling (DEFUN KEYSYM->KEYCODES ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/translate.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/keysyms.lisp" (written 27 MAR 2006 07:17:43 PM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFINE-KEYSYM-SET :LATIN-1 ...)
; compiling (DEFINE-KEYSYM-SET :LATIN-2 ...)
; compiling (DEFINE-KEYSYM-SET :LATIN-3 ...)
; compiling (DEFINE-KEYSYM-SET :LATIN-4 ...)
; compiling (DEFINE-KEYSYM-SET :KANA ...)
; compiling (DEFINE-KEYSYM-SET :ARABIC ...)
; compiling (DEFINE-KEYSYM-SET :CYRILLIC ...)
; compiling (DEFINE-KEYSYM-SET :GREEK ...)
; compiling (DEFINE-KEYSYM-SET :TECH ...)
; compiling (DEFINE-KEYSYM-SET :SPECIAL ...)
; compiling (DEFINE-KEYSYM-SET :PUBLISH ...)
; compiling (DEFINE-KEYSYM-SET :APL ...)
; compiling (DEFINE-KEYSYM-SET :HEBREW ...)
; compiling (DEFINE-KEYSYM-SET :THAI ...)
; compiling (DEFINE-KEYSYM-SET :KOREAN ...)
; compiling (DEFINE-KEYSYM-SET :LATIN-5 ...)
; compiling (DEFINE-KEYSYM-SET :LATIN-6 ...)
; compiling (DEFINE-KEYSYM-SET :LATIN-7 ...)
; compiling (DEFINE-KEYSYM-SET :LATIN-8 ...)
; compiling (DEFINE-KEYSYM-SET :LATIN-9 ...)
; compiling (DEFINE-KEYSYM-SET :CURRENCY ...)
; compiling (DEFINE-KEYSYM-SET :|3270| ...)
; compiling (DEFINE-KEYSYM-SET :XKB ...)
; compiling (DEFINE-KEYSYM-SET :KEYBOARD ...)
; compiling (DEFINE-KEYSYM :CHARACTER-SET-SWITCH ...)
; compiling (DEFINE-KEYSYM :LEFT-SHIFT ...)
; compiling (DEFINE-KEYSYM :RIGHT-SHIFT ...)
; compiling (DEFINE-KEYSYM :LEFT-CONTROL ...)
; compiling (DEFINE-KEYSYM :RIGHT-CONTROL ...)
; compiling (DEFINE-KEYSYM :CAPS-LOCK ...)
; compiling (DEFINE-KEYSYM :SHIFT-LOCK ...)
; compiling (DEFINE-KEYSYM :LEFT-META ...)
; compiling (DEFINE-KEYSYM :RIGHT-META ...)
; compiling (DEFINE-KEYSYM :LEFT-ALT ...)
; compiling (DEFINE-KEYSYM :RIGHT-ALT ...)
; compiling (DEFINE-KEYSYM :LEFT-SUPER ...)
; compiling (DEFINE-KEYSYM :RIGHT-SUPER ...)
; compiling (DEFINE-KEYSYM :LEFT-HYPER ...)
; compiling (DEFINE-KEYSYM :RIGHT-HYPER ...)
; compiling (DEFINE-KEYSYM #\  ...)
; compiling (DEFINE-KEYSYM #\! ...)
; compiling (DEFINE-KEYSYM #\" ...)
; compiling (DEFINE-KEYSYM #\# ...)
; compiling (DEFINE-KEYSYM #\$ ...)
; compiling (DEFINE-KEYSYM #\% ...)
; compiling (DEFINE-KEYSYM #\& ...)
; compiling (DEFINE-KEYSYM #\' ...)
; compiling (DEFINE-KEYSYM #\( ...)
; compiling (DEFINE-KEYSYM #\) ...)
; compiling (DEFINE-KEYSYM #\* ...)
; compiling (DEFINE-KEYSYM #\+ ...)
; compiling (DEFINE-KEYSYM #\, ...)
; compiling (DEFINE-KEYSYM #\- ...)
; compiling (DEFINE-KEYSYM #\. ...)
; compiling (DEFINE-KEYSYM #\/ ...)
; compiling (DEFINE-KEYSYM #\0 ...)
; compiling (DEFINE-KEYSYM #\1 ...)
; compiling (DEFINE-KEYSYM #\2 ...)
; compiling (DEFINE-KEYSYM #\3 ...)
; compiling (DEFINE-KEYSYM #\4 ...)
; compiling (DEFINE-KEYSYM #\5 ...)
; compiling (DEFINE-KEYSYM #\6 ...)
; compiling (DEFINE-KEYSYM #\7 ...)
; compiling (DEFINE-KEYSYM #\8 ...)
; compiling (DEFINE-KEYSYM #\9 ...)
; compiling (DEFINE-KEYSYM #\: ...)
; compiling (DEFINE-KEYSYM #\; ...)
; compiling (DEFINE-KEYSYM #\< ...)
; compiling (DEFINE-KEYSYM #\= ...)
; compiling (DEFINE-KEYSYM #\> ...)
; compiling (DEFINE-KEYSYM #\? ...)
; compiling (DEFINE-KEYSYM #\@ ...)
; compiling (DEFINE-KEYSYM #\A ...)
; compiling (DEFINE-KEYSYM #\B ...)
; compiling (DEFINE-KEYSYM #\C ...)
; compiling (DEFINE-KEYSYM #\D ...)
; compiling (DEFINE-KEYSYM #\E ...)
; compiling (DEFINE-KEYSYM #\F ...)
; compiling (DEFINE-KEYSYM #\G ...)
; compiling (DEFINE-KEYSYM #\H ...)
; compiling (DEFINE-KEYSYM #\I ...)
; compiling (DEFINE-KEYSYM #\J ...)
; compiling (DEFINE-KEYSYM #\K ...)
; compiling (DEFINE-KEYSYM #\L ...)
; compiling (DEFINE-KEYSYM #\M ...)
; compiling (DEFINE-KEYSYM #\N ...)
; compiling (DEFINE-KEYSYM #\O ...)
; compiling (DEFINE-KEYSYM #\P ...)
; compiling (DEFINE-KEYSYM #\Q ...)
; compiling (DEFINE-KEYSYM #\R ...)
; compiling (DEFINE-KEYSYM #\S ...)
; compiling (DEFINE-KEYSYM #\T ...)
; compiling (DEFINE-KEYSYM #\U ...)
; compiling (DEFINE-KEYSYM #\V ...)
; compiling (DEFINE-KEYSYM #\W ...)
; compiling (DEFINE-KEYSYM #\X ...)
; compiling (DEFINE-KEYSYM #\Y ...)
; compiling (DEFINE-KEYSYM #\Z ...)
; compiling (DEFINE-KEYSYM #\[ ...)
; compiling (DEFINE-KEYSYM #\\ ...)
; compiling (DEFINE-KEYSYM #\] ...)
; compiling (DEFINE-KEYSYM #\^ ...)
; compiling (DEFINE-KEYSYM #\_ ...)
; compiling (DEFINE-KEYSYM #\` ...)
; compiling (DEFINE-KEYSYM #\a ...)
; compiling (DEFINE-KEYSYM #\b ...)
; compiling (DEFINE-KEYSYM #\c ...)
; compiling (DEFINE-KEYSYM #\d ...)
; compiling (DEFINE-KEYSYM #\e ...)
; compiling (DEFINE-KEYSYM #\f ...)
; compiling (DEFINE-KEYSYM #\g ...)
; compiling (DEFINE-KEYSYM #\h ...)
; compiling (DEFINE-KEYSYM #\i ...)
; compiling (DEFINE-KEYSYM #\j ...)
; compiling (DEFINE-KEYSYM #\k ...)
; compiling (DEFINE-KEYSYM #\l ...)
; compiling (DEFINE-KEYSYM #\m ...)
; compiling (DEFINE-KEYSYM #\n ...)
; compiling (DEFINE-KEYSYM #\o ...)
; compiling (DEFINE-KEYSYM #\p ...)
; compiling (DEFINE-KEYSYM #\q ...)
; compiling (DEFINE-KEYSYM #\r ...)
; compiling (DEFINE-KEYSYM #\s ...)
; compiling (DEFINE-KEYSYM #\t ...)
; compiling (DEFINE-KEYSYM #\u ...)
; compiling (DEFINE-KEYSYM #\v ...)
; compiling (DEFINE-KEYSYM #\w ...)
; compiling (DEFINE-KEYSYM #\x ...)
; compiling (DEFINE-KEYSYM #\y ...)
; compiling (DEFINE-KEYSYM #\z ...)
; compiling (DEFINE-KEYSYM #\{ ...)
; compiling (DEFINE-KEYSYM #\| ...)
; compiling (DEFINE-KEYSYM #\} ...)
; compiling (DEFINE-KEYSYM #\~ ...)
; compiling (DEFINE-KEYSYM #\Rubout ...)
; compiling (DEFINE-KEYSYM #\Tab ...)
; compiling (DEFINE-KEYSYM #\Newline ...)
; compiling (DEFINE-KEYSYM #\Page ...)
; compiling (DEFINE-KEYSYM #\Return ...)
; compiling (DEFINE-KEYSYM #\Backspace ...)
; compiling (DO (#) ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/keysyms.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/manager.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFUN WM-NAME ...)
; compiling (DEFSETF WM-NAME ...)
; compiling (DEFUN SET-STRING-PROPERTY ...)
; compiling (DEFUN WM-ICON-NAME ...)
; compiling (DEFSETF WM-ICON-NAME ...)
; compiling (DEFUN WM-CLIENT-MACHINE ...)
; compiling (DEFSETF WM-CLIENT-MACHINE ...)
; compiling (DEFUN GET-WM-CLASS ...)
; compiling (DEFUN SET-WM-CLASS ...)
; compiling (DEFUN WM-COMMAND ...)
; compiling (DEFSETF WM-COMMAND ...)
; compiling (DEFUN SET-WM-COMMAND ...)
; compiling (DEF-CLX-CLASS (WM-HINTS) ...)
; compiling (DEFUN WM-HINTS ...)
; compiling (DEFSETF WM-HINTS ...)
; compiling (DEFUN SET-WM-HINTS ...)
; compiling (DEFUN DECODE-WM-HINTS ...)
; compiling (DEFUN ENCODE-WM-HINTS ...)
; compiling (DEF-CLX-CLASS (WM-SIZE-HINTS) ...)
; compiling (DEFUN WM-NORMAL-HINTS ...)
; compiling (DEFSETF WM-NORMAL-HINTS ...)
; compiling (DEFUN SET-WM-NORMAL-HINTS ...)
; compiling (DEFUN WM-ZOOM-HINTS ...)
; compiling (DEFSETF WM-ZOOM-HINTS ...)
; compiling (DEFUN SET-WM-ZOOM-HINTS ...)
; compiling (DEFUN DECODE-WM-SIZE-HINTS ...)
; compiling (DEFUN ENCODE-WM-SIZE-HINTS ...)
; compiling (DEFUN ICON-SIZES ...)
; compiling (DEFSETF ICON-SIZES ...)
; compiling (DEFUN SET-ICON-SIZES ...)
; compiling (DEFUN WM-PROTOCOLS ...)
; compiling (DEFSETF WM-PROTOCOLS ...)
; compiling (DEFUN SET-WM-PROTOCOLS ...)
; compiling (DEFUN WM-COLORMAP-WINDOWS ...)
; compiling (DEFSETF WM-COLORMAP-WINDOWS ...)
; compiling (DEFUN SET-WM-COLORMAP-WINDOWS ...)
; compiling (DEFUN TRANSIENT-FOR ...)
; compiling (DEFSETF TRANSIENT-FOR ...)
; compiling (DEFUN SET-TRANSIENT-FOR ...)
; compiling (DEFUN SET-WM-PROPERTIES ...)
; compiling (DEFUN SET-STANDARD-PROPERTIES ...)
; compiling (DEFUN ICONIFY-WINDOW ...)
; compiling (DEFUN WITHDRAW-WINDOW ...)
; compiling (DEF-CLX-CLASS (STANDARD-COLORMAP # ...) ...)
; compiling (DEFUN RGB-COLORMAPS ...)
; compiling (DEFSETF RGB-COLORMAPS ...)
; compiling (DEFUN SET-RGB-COLORMAPS ...)
; compiling (DEFUN GET-STANDARD-COLORMAP ...)
; compiling (DEFUN SET-STANDARD-COLORMAP ...)
; compiling (DEFUN CUT-BUFFER ...)
; compiling (DEFUN (SETF CUT-BUFFER) ...)
; compiling (DEFUN ROTATE-CUT-BUFFERS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/manager.lisp
; in: DEFUN ROTATE-CUT-BUFFERS
;     (SETF (XLIB:CUT-BUFFER XLIB:DISPLAY :BUFFER XLIB::I) "")
; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL 
; ==>
;   (#<SB-C::GLOBAL-VAR
;      :%SOURCE-NAME (SETF XLIB:CUT-BUFFER)
;      :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION # #)>
;      :WHERE-FROM :DEFINED
;      :KIND :GLOBAL-FUNCTION {40ED6609}>
;    #:G3150 #:G3153 #:G3152 #:G3151)
; 
; note: The third argument (in keyword position) is not a constant.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/manager.fasl written
; compilation finished in 0:00:07
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/image.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFMACRO WITH-IMAGE-DATA-BUFFER ...)
; compiling (DEF-CLX-CLASS (IMAGE # ...) ...)
; compiling (DEFMACRO IMAGE-NAME ...)
; compiling (DEFMACRO IMAGE-X-HOT ...)
; compiling (DEFMACRO IMAGE-Y-HOT ...)
; compiling (DEFMACRO IMAGE-RED-MASK ...)
; compiling (DEFMACRO IMAGE-BLUE-MASK ...)
; compiling (DEFMACRO IMAGE-GREEN-MASK ...)
; compiling (DEFUN PRINT-IMAGE ...)
; compiling (DEFCONSTANT +EMPTY-DATA-X+ ...)
; compiling (DEFCONSTANT +EMPTY-DATA-Z+ ...)
; compiling (DEF-CLX-CLASS (IMAGE-X # ...) ...)
; compiling (DEF-CLX-CLASS (IMAGE-XY # ...) ...)
; compiling (DEF-CLX-CLASS (IMAGE-Z # ...) ...)
; compiling (DEFUN CREATE-IMAGE ...)
; compiling (DEFUN IMAGE-NOSWAP ...)
; compiling (DEFUN IMAGE-SWAP-TWO-BYTES ...)
; compiling (DEFUN IMAGE-SWAP-THREE-BYTES ...)
; compiling (DEFUN IMAGE-SWAP-FOUR-BYTES ...)
; compiling (DEFUN IMAGE-SWAP-WORDS ...)
; compiling (DEFUN IMAGE-SWAP-NIBBLES ...)
; compiling (DEFUN IMAGE-SWAP-NIBBLES-LEFT ...)
; compiling (DEFCONSTANT +IMAGE-BYTE-REVERSE+ ...)
; compiling (DEFUN IMAGE-SWAP-BITS ...)
; compiling (DEFUN IMAGE-SWAP-BITS-AND-TWO-BYTES ...)
; compiling (DEFUN IMAGE-SWAP-BITS-AND-FOUR-BYTES ...)
; compiling (DEFUN IMAGE-SWAP-BITS-AND-WORDS ...)
; compiling (DEFCONSTANT +IMAGE-SWAP-FUNCTION+ ...)
; compiling (DEFCONSTANT +IMAGE-SWAP-LSB-FIRST-P+ ...)
; compiling (DEFUN IMAGE-SWAP-FUNCTION ...)
; compiling (DEFUN READ-PIXARRAY-1 ...)
; compiling (DEFUN READ-PIXARRAY-4 ...)
; compiling (DEFUN READ-PIXARRAY-8 ...)
; compiling (DEFUN READ-PIXARRAY-16 ...)
; compiling (DEFUN READ-PIXARRAY-24 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/image.lisp
; in: DEFUN READ-PIXARRAY-24
;     (XLIB::READ-IMAGE-ASSEMBLE-BYTES
;    (AREF XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::I 0))
;    (AREF XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::I 1))
;    (AREF XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::I 2)))
; --> THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; compiling (DEFUN READ-PIXARRAY-32 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/image.lisp
; in: DEFUN READ-PIXARRAY-32
;     (XLIB::READ-IMAGE-ASSEMBLE-BYTES
;    (AREF XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::I 0))
;    (AREF XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::I 1))
;    (AREF XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::I 2))
;    (AREF XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::I 3)))
; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; --> THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; compiling (DEFUN READ-PIXARRAY-INTERNAL ...)
; compiling (DEFUN READ-PIXARRAY ...)
; compiling (DEFUN READ-XY-FORMAT-IMAGE-X ...)
; compiling (DEFUN READ-Z-FORMAT-IMAGE-X ...)
; compiling (DEFUN READ-IMAGE-XY ...)
; compiling (DEFUN READ-IMAGE-Z ...)
; compiling (DEFUN GET-IMAGE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/image.lisp
; in: DEFUN GET-IMAGE
;     (FIND XLIB::DEPTH
;         (XLIB:DISPLAY-PIXMAP-FORMATS XLIB:DISPLAY)
;         :KEY
;         #'XLIB:PIXMAP-FORMAT-DEPTH)
; --> NTH-VALUE MULTIPLE-VALUE-BIND LET 
; ==>
;   (SB-KERNEL:%FIND-POSITION SB-C::ITEM
;                             SEQUENCE
;                             SB-C::FROM-END
;                             SB-C::START
;                             SB-C::END
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
;                                                                     SB-C::TEST-NOT))
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a VECTOR.

;     (SETF (XLIB:IMAGE-BLUE-MASK XLIB:IMAGE)
;           (XLIB:VISUAL-INFO-BLUE-MASK XLIB:VISUAL-INFO))
; --> LET* MULTIPLE-VALUE-BIND LET LET 
; ==>
;   (SB-IMPL::%PUTF (XLIB:IMAGE-PLIST #:G3266) #:G3268 #:G3267)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SETF (XLIB:IMAGE-GREEN-MASK XLIB:IMAGE)
;           (XLIB:VISUAL-INFO-GREEN-MASK XLIB:VISUAL-INFO))
; --> LET* MULTIPLE-VALUE-BIND LET LET 
; ==>
;   (SB-IMPL::%PUTF (XLIB:IMAGE-PLIST #:G3260) #:G3262 #:G3261)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (SETF (XLIB:IMAGE-RED-MASK XLIB:IMAGE)
;           (XLIB:VISUAL-INFO-RED-MASK XLIB:VISUAL-INFO))
; --> LET* MULTIPLE-VALUE-BIND LET LET 
; ==>
;   (SB-IMPL::%PUTF (XLIB:IMAGE-PLIST #:G3254) #:G3256 #:G3255)
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFUN WRITE-PIXARRAY-1 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/image.lisp
; in: DEFUN WRITE-PIXARRAY-1
;     (XLIB::WRITE-IMAGE-ASSEMBLE-BYTES
;    (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 0))
;    (IF (XLIB::INDEX> XLIB::RIGHT-BITS 1)
;        (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 1))
;        0)
;    (IF (XLIB::INDEX> XLIB::RIGHT-BITS 2)
;        (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 2))
;        0)
;    (IF (XLIB::INDEX> XLIB::RIGHT-BITS 3)
;        (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 3))
;        0)
;    (IF (XLIB::INDEX> XLIB::RIGHT-BITS 4)
;        (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 4))
;        0)
;    (IF (XLIB::INDEX> XLIB::RIGHT-BITS 5)
;        (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 5))
;        0)
;    (IF (XLIB::INDEX> XLIB::RIGHT-BITS 6)
;        (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 6))
;        0)
;    0)
; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE 
; --> DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET 
; --> LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE 
; --> DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE 
; --> DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET 
; --> LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).

; --> THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).

;     (XLIB::WRITE-IMAGE-ASSEMBLE-BYTES
;    (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 0))
;    (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 1))
;    (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 2))
;    (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 3))
;    (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 4))
;    (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 5))
;    (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 6))
;    (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 7)))
; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE 
; --> DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET 
; --> LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE 
; --> DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE 
; --> DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET 
; --> LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).

; --> THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: forced to do static-fun Two-arg-and (cost 53)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       unable to do inline (signed-byte 32) arithmetic (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE 
; --> DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET 
; --> LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE 
; --> DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE 
; --> DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET 
; --> LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; --> THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

;     (XLIB::WRITE-IMAGE-ASSEMBLE-BYTES
;    (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 0))
;    (IF (XLIB::INDEX> XLIB::RIGHT-BITS 1)
;        (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 1))
;        0)
;    (IF (XLIB::INDEX> XLIB::RIGHT-BITS 2)
;        (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 2))
;        0)
;    (IF (XLIB::INDEX> XLIB::RIGHT-BITS 3)
;        (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 3))
;        0)
;    (IF (XLIB::INDEX> XLIB::RIGHT-BITS 4)
;        (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 4))
;        0)
;    (IF (XLIB::INDEX> XLIB::RIGHT-BITS 5)
;        (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 5))
;        0)
;    (IF (XLIB::INDEX> XLIB::RIGHT-BITS 6)
;        (AREF ARRAY XLIB::Y (XLIB::INDEX+ XLIB::X 6))
;        0)
;    0)
; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE 
; --> DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET 
; --> LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE 
; --> DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE 
; --> DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET 
; --> LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; --> THE DPB SB-KERNEL:%DPB THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; --> THE DPB SB-KERNEL:%DPB LET LOGIOR 
; ==>
;   (LOGAND INT (LOGNOT (ASH SB-C::MASK SB-C::POSN)))
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of static-fun Two-arg-and

; compiling (DEFUN WRITE-PIXARRAY-4 ...)
; compiling (DEFUN WRITE-PIXARRAY-8 ...)
; compiling (DEFUN WRITE-PIXARRAY-16 ...)
; compiling (DEFUN WRITE-PIXARRAY-24 ...)
; compiling (DEFUN WRITE-PIXARRAY-32 ...)
; compiling (DEFUN WRITE-PIXARRAY-INTERNAL ...)
; compiling (DEFUN WRITE-PIXARRAY ...)
; compiling (DEFUN WRITE-XY-FORMAT-IMAGE-X-DATA ...)
; compiling (DEFUN WRITE-XY-FORMAT-IMAGE-X ...)
; compiling (DEFUN WRITE-Z-FORMAT-IMAGE-X-DATA ...)
; compiling (DEFUN WRITE-Z-FORMAT-IMAGE-X ...)
; compiling (DEFUN WRITE-IMAGE-XY ...)
; compiling (DEFUN WRITE-IMAGE-Z ...)
; compiling (DEFUN PUT-IMAGE ...)
; compiling (DEFUN XY-FORMAT-IMAGE-X->IMAGE-X ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/image.lisp
; in: DEFUN XY-FORMAT-IMAGE-X->IMAGE-X
;     (LET* ((XLIB::PADDED-X
;           (XLIB::INDEX+ XLIB::X (XLIB::IMAGE-X-LEFT-PAD XLIB:IMAGE)))
;          (XLIB::LEFT-PAD (XLIB::INDEX-MOD XLIB::PADDED-X 8))
;          (XLIB::X (XLIB::INDEX- XLIB::PADDED-X XLIB::LEFT-PAD))
;          (XLIB::UNIT (XLIB::IMAGE-X-UNIT XLIB:IMAGE))
;          (XLIB::BYTE-LSB-FIRST-P (XLIB::IMAGE-X-BYTE-LSB-FIRST-P XLIB:IMAGE))
;          (XLIB::BIT-LSB-FIRST-P (XLIB::IMAGE-X-BIT-LSB-FIRST-P XLIB:IMAGE))
;          (XLIB::PAD (XLIB::IMAGE-X-PAD XLIB:IMAGE))
;          (XLIB::PADDED-WIDTH
;           (XLIB::INDEX* (XLIB::INDEX-CEILING # XLIB::PAD) XLIB::PAD))
;          (XLIB::PADDED-BYTES-PER-LINE
;           (XLIB::INDEX-CEILING XLIB::PADDED-WIDTH 8))
;          (XLIB::PADDED-BYTES-PER-PLANE
;           (XLIB::INDEX* XLIB::PADDED-BYTES-PER-LINE XLIB::HEIGHT))
;          (LENGTH
;           (XLIB::INDEX* XLIB::PADDED-BYTES-PER-PLANE
;                         (XLIB:IMAGE-DEPTH XLIB:IMAGE)))
;          (XLIB::OBUF (MAKE-ARRAY LENGTH :ELEMENT-TYPE 'XLIB:CARD8)))
;     (DECLARE (TYPE XLIB:CARD16 XLIB::X)
;              (TYPE XLIB:CARD8 XLIB::LEFT-PAD)
;              (TYPE (MEMBER 8 16 32) XLIB::UNIT XLIB::PAD)
;              (TYPE XLIB:ARRAY-INDEX
;                    XLIB::PADDED-WIDTH
;                    XLIB::PADDED-BYTES-PER-LINE
;                    XLIB::PADDED-BYTES-PER-PLANE
;                    LENGTH)
;              (TYPE XLIB::BUFFER-BYTES XLIB::OBUF))
;     (DOTIMES (XLIB::PLANE (XLIB:IMAGE-DEPTH XLIB:IMAGE))
;       (LET ((XLIB::DATA-START #) (XLIB::OBUF-START #))
;         (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::DATA-START XLIB::OBUF-START))
;         (XLIB::WRITE-XY-FORMAT-IMAGE-X-DATA (XLIB::IMAGE-X-DATA XLIB:IMAGE)
;                                             XLIB::OBUF
;                                             XLIB::DATA-START
;                                             XLIB::OBUF-START
;                                             XLIB::X
;                                             XLIB::Y
;                                             XLIB::WIDTH
;                                             XLIB::HEIGHT
;                                             (XLIB::IMAGE-X-BYTES-PER-LINE
;                                              XLIB:IMAGE)
;                                             XLIB::PADDED-BYTES-PER-LINE
;                                             XLIB::UNIT
;                                             ...)))
;     (XLIB:CREATE-IMAGE :WIDTH
;                        XLIB::WIDTH
;                        :HEIGHT
;                        XLIB::HEIGHT
;                        :DEPTH
;                        (XLIB:IMAGE-DEPTH XLIB:IMAGE)
;                        :DATA
;                        XLIB::OBUF
;                        :FORMAT
;                        (XLIB::IMAGE-X-FORMAT XLIB:IMAGE)
;                        :BITS-PER-PIXEL
;                        ...))
; 
; note: deleting unreachable code

; compiling (DEFUN Z-FORMAT-IMAGE-X->IMAGE-X ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/image.lisp
; in: DEFUN Z-FORMAT-IMAGE-X->IMAGE-X
;     (LET* ((XLIB::PADDED-X
;           (XLIB::INDEX+ XLIB::X (XLIB::IMAGE-X-LEFT-PAD XLIB:IMAGE)))
;          (XLIB::LEFT-PAD
;           (IF (XLIB::INDEX= # 1) (XLIB::INDEX-MOD XLIB::PADDED-X 8) 0))
;          (XLIB::X (XLIB::INDEX- XLIB::PADDED-X XLIB::LEFT-PAD))
;          (XLIB::BITS-PER-PIXEL (XLIB::IMAGE-X-BITS-PER-PIXEL XLIB:IMAGE))
;          (XLIB::UNIT (XLIB::IMAGE-X-UNIT XLIB:IMAGE))
;          (XLIB::BYTE-LSB-FIRST-P (XLIB::IMAGE-X-BYTE-LSB-FIRST-P XLIB:IMAGE))
;          (XLIB::BIT-LSB-FIRST-P (XLIB::IMAGE-X-BIT-LSB-FIRST-P XLIB:IMAGE))
;          (XLIB::PAD (XLIB::IMAGE-X-PAD XLIB:IMAGE))
;          (XLIB::BITS-PER-LINE
;           (XLIB::INDEX* (XLIB::INDEX+ XLIB::WIDTH XLIB::LEFT-PAD)
;                         XLIB::BITS-PER-PIXEL))
;          (XLIB::PADDED-BITS-PER-LINE
;           (XLIB::INDEX* (XLIB::INDEX-CEILING XLIB::BITS-PER-LINE XLIB::PAD)
;                         XLIB::PAD))
;          (XLIB::PADDED-BYTES-PER-LINE
;           (XLIB::INDEX-CEILING XLIB::PADDED-BITS-PER-LINE 8))
;          (XLIB::PADDED-BYTES-PER-PLANE
;           (XLIB::INDEX* XLIB::PADDED-BYTES-PER-LINE XLIB::HEIGHT))
;          ...)
;     (DECLARE (TYPE XLIB:CARD16 XLIB::X)
;              (TYPE XLIB:CARD8 XLIB::LEFT-PAD)
;              (TYPE (MEMBER 8 16 32) XLIB::UNIT XLIB::PAD)
;              (TYPE XLIB:ARRAY-INDEX
;                    XLIB::BITS-PER-PIXEL
;                    XLIB::PADDED-BYTES-PER-LINE
;                    XLIB::PADDED-BYTES-PER-PLANE
;                    LENGTH)
;              (TYPE XLIB::BUFFER-BYTES XLIB::OBUF))
;     (XLIB::WRITE-Z-FORMAT-IMAGE-X-DATA (XLIB::IMAGE-X-DATA XLIB:IMAGE)
;                                        XLIB::OBUF
;                                        0
;                                        0
;                                        XLIB::X
;                                        XLIB::Y
;                                        XLIB::WIDTH
;                                        XLIB::HEIGHT
;                                        (XLIB::IMAGE-X-BYTES-PER-LINE
;                                         XLIB:IMAGE)
;                                        XLIB::PADDED-BYTES-PER-LINE
;                                        XLIB::BITS-PER-PIXEL
;                                        ...)
;     (XLIB:CREATE-IMAGE :WIDTH
;                        XLIB::WIDTH
;                        :HEIGHT
;                        XLIB::HEIGHT
;                        :DEPTH
;                        (XLIB:IMAGE-DEPTH XLIB:IMAGE)
;                        :DATA
;                        XLIB::OBUF
;                        :FORMAT
;                        :Z-PIXMAP
;                        :BITS-PER-PIXEL
;                        ...))
; 
; note: deleting unreachable code

; compiling (DEFUN IMAGE-X->IMAGE-X ...)
; compiling (DEFUN IMAGE-X->IMAGE-XY ...)
; compiling (DEFUN IMAGE-X->IMAGE-Z ...)
; compiling (DEFUN COPY-PIXARRAY ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/image.lisp
; in: DEFUN COPY-PIXARRAY
;     (MAKE-ARRAY (LIST XLIB::HEIGHT XLIB::PADDED-WIDTH)
;               :ELEMENT-TYPE
;               (ARRAY-ELEMENT-TYPE ARRAY))
; 
; note: unable to
;   optimize
; because:
;   The element-type is not constant; cannot open code array creation.

; compiling (DEFUN IMAGE-XY->IMAGE-X ...)
; compiling (DEFUN IMAGE-XY->IMAGE-XY ...)
; compiling (DEFUN IMAGE-XY->IMAGE-Z ...)
; compiling (DEFUN IMAGE-Z->IMAGE-X ...)
; compiling (DEFUN IMAGE-Z->IMAGE-XY ...)
; compiling (DEFUN IMAGE-Z->IMAGE-Z ...)
; compiling (DEFUN COPY-IMAGE ...)
; compiling (DEFUN READ-BITMAP-FILE ...)
; compiling (DEFUN WRITE-BITMAP-FILE ...)
; compiling (DEFUN BITMAP-IMAGE ...)
; compiling (DEFUN IMAGE-PIXMAP ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/image.fasl written
; compilation finished in 0:00:13
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/resource.lisp" (written 14 JUL 2005 09:24:43 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFSTRUCT (RESOURCE-DATABASE # ...) ...)
; compiling (DEFUN PRINT-RESOURCE-DATABASE ...)
; compiling (DEFUN MAKE-RESOURCE-DATABASE ...)
; compiling (DEFUN RESOURCE-DATABASE-TIMESTAMP ...)
; compiling (DEFUN INCF-RESOURCE-DATABASE-TIMESTAMP ...)
; compiling (DEFUN PRINT-DB ...)
; compiling (DEFPARAMETER *UPPERCASE-RESOURCE-SYMBOLS* ...)
; compiling (DEFUN RESOURCE-KEY ...)
; compiling (DEFUN STRINGABLE-EQUAL ...)
; compiling (DEFUN ADD-RESOURCE ...)
; compiling (DEFUN DELETE-RESOURCE ...)
; compiling (DEFUN DELETE-RESOURCE-INTERNAL ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/resource.lisp
; in: DEFUN DELETE-RESOURCE-INTERNAL
;     (SETQ XLIB::LOOSE-P NIL)
; 
; note: deleting unreachable code

; compiling (DEFUN GET-RESOURCE ...)
; compiling (DEFUN GET-ENTRY-LOOKUP ...)
; compiling (DEFUN GET-ENTRY ...)
; compiling (DEFUN GET-SEARCH-RESOURCE ...)
; compiling (DEFVAR *GET-TABLE-RESULT*)
; compiling (DEFUN GET-SEARCH-TABLE ...)
; compiling (DEFUN GET-TABLES-LOOKUP ...)
; compiling (DEFUN GET-TABLES ...)
; compiling (DEFUN MAP-RESOURCE ...)
; compiling (DEFUN MERGE-RESOURCES ...)
; compiling (DEFUN CHAR-MEMQ ...)
; compiling (DEFMACRO RESOURCE-WITH-OPEN-FILE ...)
; compiling (DEFUN READ-RESOURCES ...)
; compiling (DEFUN PARSE-RESOURCE ...)
; compiling (DEFUN WRITE-RESOURCES ...)
; compiling (DEFUN WM-RESOURCES ...)
; compiling (DEFUN SET-WM-RESOURCES ...)
; compiling (DEFUN ROOT-RESOURCES ...)
; compiling (DEFUN SET-ROOT-RESOURCES ...)
; compiling (DEFSETF ROOT-RESOURCES ...)
; compiling (DEFUN INITIALIZE-RESOURCE-DATABASE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/resource.fasl written
; compilation finished in 0:00:03
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/shape.lisp" (written 14 JUL 2005 09:24:44 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (EXPORT (QUOTE #) ...)
; compiling (DEFINE-EXTENSION "SHAPE" ...)
; compiling (DECLARE-EVENT :SHAPE-NOTIFY ...)
; compiling (DEFUN ENCODE-SHAPE-KIND ...)
; compiling (DEFUN ENCODE-SHAPE-OPERATION ...)
; compiling (DEFUN ENCODE-SHAPE-RECTANGLE-ORDERING ...)
; compiling (DEFUN SHAPE-QUERY-VERSION ...)
; compiling (DEFUN SHAPE-RECTANGLES ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/shape.lisp
; in: DEFUN SHAPE-RECTANGLES
;     (XLIB::WITH-BUFFER-REQUEST
;    (XLIB:DISPLAY (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE"))
;    (XLIB::DATA 1)
;    (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION))
;    (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND))
;    (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING))
;    (XLIB:CARD8 0)
;    (XLIB:WINDOW XLIB:WINDOW)
;    (XLIB:INT16 XLIB::X-OFFSET)
;    (XLIB:INT16 XLIB::Y-OFFSET)
;    ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::RECTANGLES)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DEFUN SHAPE-MASK ...)
; compiling (DEFUN SHAPE-COMBINE ...)
; compiling (DEFUN SHAPE-OFFSET ...)
; compiling (DEFUN SHAPE-QUERY-EXTENTS ...)
; compiling (DEFUN SHAPE-SELECT-INPUT ...)
; compiling (DEFUN SHAPE-INPUT-SELECTED-P ...)
; compiling (DEFUN SHAPE-GET-RECTANGLES ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/shape.lisp
; in: DEFUN SHAPE-GET-RECTANGLES
;     (* 4 (XLIB::CARD32-GET 8))
; --> * 
; ==>
;   (ASH SB-C::X 2)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (MOD 17179869181)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (MOD 17179869181)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/shape.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/xvidmode.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (EXPORT (QUOTE #) ...)
; compiling (DEFCONSTANT +XF86VIDMODE-MAJOR-VERSION+ ...)
; compiling (DEFCONSTANT +XF86VIDMODE-MINOR-VERSION+ ...)
; compiling (DEFCONSTANT +QUERY-VERSION+ ...)
; compiling (DEFCONSTANT +GET-MODE-LINE+ ...)
; compiling (DEFCONSTANT +MOD-MODE-LINE+ ...)
; compiling (DEFCONSTANT +SWITCH-MODE+ ...)
; compiling (DEFCONSTANT +GET-MONITOR+ ...)
; compiling (DEFCONSTANT +LOCK-MODE-SWITCH+ ...)
; compiling (DEFCONSTANT +GET-ALL-MODE-LINES+ ...)
; compiling (DEFCONSTANT +ADD-MODE-LINE+ ...)
; compiling (DEFCONSTANT +DELETE-MODE-LINE+ ...)
; compiling (DEFCONSTANT +VALIDATE-MODE-LINE+ ...)
; compiling (DEFCONSTANT +SWITCH-TO-MODE+ ...)
; compiling (DEFCONSTANT +GET-VIEWPORT+ ...)
; compiling (DEFCONSTANT +SET-VIEWPORT+ ...)
; compiling (DEFCONSTANT +GET-DOT-CLOCKS+ ...)
; compiling (DEFCONSTANT +SET-CLIENT-VERSION+ ...)
; compiling (DEFCONSTANT +SET-GAMMA+ ...)
; compiling (DEFCONSTANT +GET-GAMMA+ ...)
; compiling (DEFCONSTANT +GET-GAMMA-RAMP+ ...)
; compiling (DEFCONSTANT +SET-GAMMA-RAMP+ ...)
; compiling (DEFCONSTANT +GET-GAMMA-RAMP-SIZE+ ...)
; compiling (DEFCONSTANT +GET-PERMISIONS+ ...)
; compiling (DEFINE-EXTENSION "XFree86-VidModeExtension" ...)
; compiling (DEFINE-CONDITION XF86-VIDMODE-BAD-CLOCK ...)
; compiling (DEFINE-CONDITION XF86-VIDMODE-BAD-HTIMINGS ...)
; compiling (DEFINE-CONDITION XF86-VIDMODE-BAD-VTIMINGS ...)
; compiling (DEFINE-CONDITION XF86-VIDMODE-MODE-UNSUITABLE ...)
; compiling (DEFINE-CONDITION XF86-VIDMODE-EXTENSION-DISABLED ...)
; compiling (DEFINE-CONDITION XF86-VIDMODE-CLIENT-NOT-LOCAL ...)
; compiling (DEFINE-CONDITION XF86-VIDMODE-ZOOM-LOCKED ...)
; compiling (DEFINE-ERROR XF86-VIDMODE-BAD-CLOCK ...)
; compiling (DEFINE-ERROR XF86-VIDMODE-BAD-HTIMINGS ...)
; compiling (DEFINE-ERROR XF86-VIDMODE-BAD-VTIMINGS ...)
; compiling (DEFINE-ERROR XF86-VIDMODE-MODE-UNSUITABLE ...)
; compiling (DEFINE-ERROR XF86-VIDMODE-EXTENSION-DISABLED ...)
; compiling (DEFINE-ERROR XF86-VIDMODE-CLIENT-NOT-LOCAL ...)
; compiling (DEFINE-ERROR XF86-VIDMODE-ZOOM-LOCKED ...)
; compiling (DECLARE-EVENT :XFREE86-VIDMODE-NOTIFY ...)
; compiling (DEFSTRUCT MODE-INFO ...)
; compiling (DEFMACRO VIDMODE-OPCODE ...)
; compiling (DECLAIM (INLINE SCREEN-POSITION))
; compiling (DEFUN SCREEN-POSITION ...)
; compiling (DEFUN XFREE86-VIDMODE-QUERY-VERSION ...)
; compiling (DEFUN XFREE86-VIDMODE-SET-CLIENT-VERSION ...)
; compiling (DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ...)
; compiling (DEFUN XFREE86-VIDMODE-MOD-MODE-LINE ...)
; compiling (DEFUN XFREE86-VIDMODE-GET-MODE-LINE ...)
; compiling (DEFUN XFREE86-VIDMODE-GET-ALL-MODE-LINES ...)
; compiling (DEFUN XFREE86-VIDMODE-ADD-MODE-LINE ...)
; compiling (DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ...)
; compiling (DEFCONSTANT +MODE-STATUS+ ...)
; compiling (DEFUN DECODE-STATUS-MODE ...)
; compiling (DEFUN XFREE86-VIDMODE-VALIDATE-MODE-LINE ...)
; compiling (DEFUN XFREE86-VIDMODE-GET-GAMMA ...)
; compiling (DEFUN XFREE86-VIDMODE-SET-GAMMA ...)
; compiling (DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ...)
; compiling (DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ...)
; compiling (DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP-SIZE ...)
; compiling (DEFUN XFREE86-VIDMODE-LOCK-MODE-SWITCH ...)
; compiling (DEFUN XFREE86-VIDMODE-SWITCH-TO-MODE ...)
; compiling (DEFUN XFREE86-VIDMODE-SWITCH-MODE ...)
; compiling (DEFUN XFREE86-VIDMODE-SELECT-NEXT-MODE ...)
; compiling (DEFUN XFREE86-VIDMODE-SELECT-PREV-MODE ...)
; compiling (DEFUN XFREE86-VIDMODE-GET-MONITOR ...)
; compiling (DEFUN XFREE86-VIDMODE-GET-VIEWPORT ...)
; compiling (DEFUN XFREE86-VIDMODE-SET-VIEWPORT ...)
; compiling (DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ...)
; compiling (DEFUN MODE-INFO->V-CARD16 ...)
; compiling (DECLAIM (INLINE __CARD32->CARD16__))
; compiling (DEFUN __CARD32->CARD16__ ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/xvidmode.fasl written
; compilation finished in 0:00:06
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/xrender.lisp" (written 27 MAR 2006 07:17:43 PM):
; compiling (IN-PACKAGE :XLIB)
; compiling (EXPORT (QUOTE #))
; compiling (PUSHNEW :CLX-EXT-RENDER ...)
; compiling (DEFINE-EXTENSION "RENDER")
; compiling (DEFCONSTANT +X-RENDERQUERYVERSION+ ...)
; compiling (DEFCONSTANT +X-RENDERQUERYPICTFORMATS+ ...)
; compiling (DEFCONSTANT +X-RENDERQUERYPICTINDEXVALUES+ ...)
; compiling (DEFCONSTANT +X-RENDERQUERYDITHERS+ ...)
; compiling (DEFCONSTANT +X-RENDERCREATEPICTURE+ ...)
; compiling (DEFCONSTANT +X-RENDERCHANGEPICTURE+ ...)
; compiling (DEFCONSTANT +X-RENDERSETPICTURECLIPRECTANGLES+ ...)
; compiling (DEFCONSTANT +X-RENDERFREEPICTURE+ ...)
; compiling (DEFCONSTANT +X-RENDERCOMPOSITE+ ...)
; compiling (DEFCONSTANT +X-RENDERSCALE+ ...)
; compiling (DEFCONSTANT +X-RENDERTRAPEZOIDS+ ...)
; compiling (DEFCONSTANT +X-RENDERTRIANGLES+ ...)
; compiling (DEFCONSTANT +X-RENDERTRISTRIP+ ...)
; compiling (DEFCONSTANT +X-RENDERTRIFAN+ ...)
; compiling (DEFCONSTANT +X-RENDERCOLORTRAPEZOIDS+ ...)
; compiling (DEFCONSTANT +X-RENDERCOLORTRIANGLES+ ...)
; compiling (DEFCONSTANT +X-RENDERTRANSFORM+ ...)
; compiling (DEFCONSTANT +X-RENDERCREATEGLYPHSET+ ...)
; compiling (DEFCONSTANT +X-RENDERREFERENCEGLYPHSET+ ...)
; compiling (DEFCONSTANT +X-RENDERFREEGLYPHSET+ ...)
; compiling (DEFCONSTANT +X-RENDERADDGLYPHS+ ...)
; compiling (DEFCONSTANT +X-RENDERADDGLYPHSFROMPICTURE+ ...)
; compiling (DEFCONSTANT +X-RENDERFREEGLYPHS+ ...)
; compiling (DEFCONSTANT +X-RENDERCOMPOSITEGLYPHS8+ ...)
; compiling (DEFCONSTANT +X-RENDERCOMPOSITEGLYPHS16+ ...)
; compiling (DEFCONSTANT +X-RENDERCOMPOSITEGLYPHS32+ ...)
; compiling (DEFCONSTANT +X-RENDERFILLRECTANGLES+ ...)
; compiling (DEFCONSTANT +X-RENDERCREATECURSOR+ ...)
; compiling (DEFCONSTANT +X-RENDERSETPICTURETRANSFORM+ ...)
; compiling (DEFCONSTANT +X-RENDERQUERYFILTERS+ ...)
; compiling (DEFCONSTANT +X-RENDERSETPICTUREFILTER+ ...)
; compiling (DEFCONSTANT +X-RENDERCREATEANIMCURSOR+ ...)
; compiling (DEFSTRUCT RENDER-INFO ...)
; compiling (DEFUN DISPLAY-RENDER-INFO ...)
; compiling (DEFUN (SETF DISPLAY-RENDER-INFO) ...)
; compiling (DEFUN ENSURE-RENDER-INITIALIZED ...)
; compiling (DEFUN FIND-MATCHING-PICTURE-FORMATS ...)
; compiling (DEFUN FIND-WINDOW-PICTURE-FORMAT ...)
; compiling (DEFINE-ACCESSOR PICTURE ...)
; compiling (DEFINE-ACCESSOR GLYPH-SET ...)
; compiling (DEFSTRUCT PICTURE-FORMAT ...)
; compiling (DEFMETHOD PRINT-OBJECT ...)
; compiling (DEFINE-ACCESSOR PICTURE-FORMAT ...)
; compiling (DEFINE-ACCESSOR RENDER-OP ...)
; compiling (DEFTYPE RENDER-OP ...)
; compiling (DEF-CLX-CLASS (PICTURE #) ...)
; compiling (DEFUN PICTURE-DRAWABLE ...)
; compiling (DEFUN %RENDER-CHANGE-PICTURE-CLIP-RECTANGLES ...)
; compiling (FOO (# REPEAT ...) ...)
; compiling (DEFUN RENDER-FREE-PICTURE ...)
; compiling (DEFUN RENDER-FREE-GLYPH-SET ...)
; compiling (DEFUN RENDER-QUERY-VERSION ...)
; compiling (DEFUN RENDER-QUERY-PICTURE-FORMATS ...)
; compiling (DEFUN RENDER-FILL-RECTANGLE ...)
; compiling (DEFUN RENDER-TRIANGLES-1 ...)
; compiling (DEFUN RENDER-SET-PICTURE-TRANSFORM ...)
; compiling (DEFUN RENDER-QUERY-FILTERS ...)
; compiling (DEFUN RENDER-SET-FILTER ...)
; compiling (DEFUN RENDER-TRAPEZOIDS-1 ...)
; compiling (DEFUN RENDER-COMPOSITE ...)
; compiling (DEF-CLX-CLASS (GLYPH-SET #) ...)
; compiling (DEFUN RENDER-CREATE-GLYPH-SET ...)
; compiling (DEFUN RENDER-REFERENCE-GLYPH-SET ...)
; compiling (DEFUN RENDER-COMPOSITE-GLYPHS-8 ...)
; compiling (DEFMACRO %RENDER-COMPOSITE-GLYPHS ...)
; compiling (DEFUN RENDER-COMPOSITE-GLYPHS ...)
; compiling (DEFUN RENDER-ADD-GLYPH ...)
; compiling (DEFUN RENDER-ADD-GLYPH-FROM-PICTURE ...)
; compiling (DEFUN RENDER-FREE-GLYPHS ...)
; compiling (DEFUN RENDER-CREATE-CURSOR ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/xrender.fasl written
; compilation finished in 0:00:13
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/glx.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (DEFPACKAGE :GLX ...)
; compiling (IN-PACKAGE :GLX)
; compiling (DECLAIM (OPTIMIZE # ...))
; compiling (DEFINE-EXTENSION "GLX" ...)
; compiling (DEFCONSTANT +RENDER+ ...)
; compiling (DEFCONSTANT +CREATE-CONTEXT+ ...)
; compiling (DEFCONSTANT +DESTROY-CONTEXT+ ...)
; compiling (DEFCONSTANT +MAKE-CURRENT+ ...)
; compiling (DEFCONSTANT +IS-DIRECT+ ...)
; compiling (DEFCONSTANT +QUERY-VERSION+ ...)
; compiling (DEFCONSTANT +WAIT-GL+ ...)
; compiling (DEFCONSTANT +WAIT-X+ ...)
; compiling (DEFCONSTANT +COPY-CONTEXT+ ...)
; compiling (DEFCONSTANT +SWAP-BUFFERS+ ...)
; compiling (DEFCONSTANT +GET-VISUAL-CONFIGS+ ...)
; compiling (DEFCONSTANT +DESTROY-GLX-PIXMAP+ ...)
; compiling (DEFCONSTANT +QUERY-SERVER-STRING+ ...)
; compiling (DEFCONSTANT +CLIENT-INFO+ ...)
; compiling (DEFCONSTANT +GET-FB-CONFIGS+ ...)
; compiling (DEFCONSTANT +QUERY-CONTEXT+ ...)
; compiling (DEFCONSTANT +GET-DRAWABLE-ATTRIBUTES+ ...)
; compiling (DEFCONSTANT +VENDOR+ ...)
; compiling (DEFCONSTANT +VERSION+ ...)
; compiling (DEFCONSTANT +EXTENSIONS+ ...)
; compiling (DEFTYPE ATTRIBUTE-PAIR ...)
; compiling (DEFTYPE BITFIELD ...)
; compiling (DEFTYPE BOOL32 ...)
; compiling (DEFTYPE ENUM ...)
; compiling (DEFTYPE FBCONFIGID ...)
; compiling (DEFTYPE FLOAT32 ...)
; compiling (DEFTYPE FLOAT64 ...)
; compiling (DEFTYPE CONTEXT-TAG ...)
; compiling (DEFTYPE GLX-PIXMAP ...)
; compiling (DEFTYPE GLX-PBUFFER ...)
; compiling (DEFTYPE GLX-RENDER-COMMAND ...)
; compiling (DEFTYPE GLX-WINDOW ...)
; compiling (DEF-CLX-CLASS (CONTEXT # ...) ...)
; compiling (DEFUN PRINT-CONTEXT ...)
; compiling (DEF-CLX-CLASS (VISUAL # ...) ...)
; compiling (DEFUN PRINT-VISUAL ...)
; compiling (DEFCONSTANT +DAMAGED+ ...)
; compiling (DEFCONSTANT +SAVED+ ...)
; compiling (DEFCONSTANT +WINDOW+ ...)
; compiling (DEFCONSTANT +PBUFFER+ ...)
; compiling (DECLARE-EVENT :GLX-PBUFFER-CLOBBER ...)
; compiling (DEFINE-CONDITION BAD-CONTEXT ...)
; compiling (DEFINE-CONDITION BAD-CONTEXT-STATE ...)
; compiling (DEFINE-CONDITION BAD-DRAWABLE ...)
; compiling (DEFINE-CONDITION BAD-PIXMAP ...)
; compiling (DEFINE-CONDITION BAD-CONTEXT-TAG ...)
; compiling (DEFINE-CONDITION BAD-CURRENT-WINDOW ...)
; compiling (DEFINE-CONDITION BAD-RENDER-REQUEST ...)
; compiling (DEFINE-CONDITION BAD-LARGE-REQUEST ...)
; compiling (DEFINE-CONDITION UNSUPPORTED-PRIVATE-REQUEST ...)
; compiling (DEFINE-CONDITION BAD-FB-CONFIG ...)
; compiling (DEFINE-CONDITION BAD-PBUFFER ...)
; compiling (DEFINE-CONDITION BAD-CURRENT-DRAWABLE ...)
; compiling (DEFINE-CONDITION BAD-WINDOW ...)
; compiling (DEFINE-ERROR BAD-CONTEXT ...)
; compiling (DEFINE-ERROR BAD-CONTEXT-STATE ...)
; compiling (DEFINE-ERROR BAD-DRAWABLE ...)
; compiling (DEFINE-ERROR BAD-PIXMAP ...)
; compiling (DEFINE-ERROR BAD-CONTEXT-TAG ...)
; compiling (DEFINE-ERROR BAD-CURRENT-WINDOW ...)
; compiling (DEFINE-ERROR BAD-RENDER-REQUEST ...)
; compiling (DEFINE-ERROR BAD-LARGE-REQUEST ...)
; compiling (DEFINE-ERROR UNSUPPORTED-PRIVATE-REQUEST ...)
; compiling (DEFINE-ERROR BAD-FB-CONFIG ...)
; compiling (DEFINE-ERROR BAD-PBUFFER ...)
; compiling (DEFINE-ERROR BAD-CURRENT-DRAWABLE ...)
; compiling (DEFINE-ERROR BAD-WINDOW ...)
; compiling (DEFUN QUERY-VERSION ...)
; compiling (DEFUN QUERY-SERVER-STRING ...)
; compiling (DEFUN CLIENT-INFO ...)
; compiling (DEFUN MAKE-CONTEXT ...)
; compiling (DEFUN CREATE-CONTEXT ...)
; compiling (DEFVAR *CURRENT-CONTEXT* ...)
; compiling (DEFUN DESTROY-CONTEXT ...)
; compiling (DEFUN IS-DIRECT ...)
; compiling (DEFUN QUERY-CONTEXT ...)
; compiling (DEFUN GET-DRAWABLE-ATTRIBUTES ...)
; compiling (DEFUN MAKE-CURRENT ...)
; compiling (GENERATE-CONFIG-PROPERTIES)
; compiling (DEFUN MAKE-VISUAL ...)
; compiling (DEFUN VISUAL-ATTRIBUTE ...)
; compiling (DEFUN GET-VISUAL-CONFIGS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/glx.lisp
; in: DEFUN GET-VISUAL-CONFIGS
;     (LOOP GLX::REPEAT
;         (/ (- GLX::NUM-PROPERTIES GLX::NUM-ORDERED) 2)
;         GLX::COLLECTING
;         (CONS (XLIB::CARD32-GET (INCF GLX::INDEX 4))
;               (XLIB::CARD32-GET (INCF GLX::INDEX 4))))
; --> BLOCK LET CEILING 
; ==>
;   (CEILING (/ (- GLX::NUM-PROPERTIES GLX::NUM-ORDERED) 2) 1)
; 
; note: unable to
;   convert division by 2^k to shift
; due to type uncertainty:
;   The first argument is a (RATIONAL -536870909/2 536870911/2), not a INTEGER.

; compiling (DEFUN CHOOSE-VISUAL ...)
; compiling (DEFUN RENDER ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/glx.lisp
; in: DEFUN RENDER
;     (XLIB::ASET-CARD32 (GLX::CONTEXT-TAG GLX::CTX) GLX::RBUF 4)
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFUN SWAP-BUFFERS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/glx.lisp
; in: DEFUN SWAP-BUFFERS
;     (XLIB::WITH-BUFFER-REQUEST
;    (XLIB:DISPLAY (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
;    (XLIB::DATA GLX::+SWAP-BUFFERS+)
;    (XLIB:CARD32 (GLX::CONTEXT-TAG GLX::CTX))
;    (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID (GLX::CONTEXT-DRAWABLE GLX::CTX))))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT 
; --> XLIB::WRITE-CARD32 
; ==>
;   (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.)
;                      XLIB::BUFFER-BBUF
;                      (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFUN WAIT-GL ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/glx.lisp
; in: DEFUN WAIT-GL
;     (XLIB::WITH-BUFFER-REQUEST
;    (XLIB:DISPLAY (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
;    (XLIB::DATA GLX::+WAIT-GL+)
;    (XLIB:CARD32 (GLX::CONTEXT-TAG GLX::CTX)))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT 
; --> XLIB::WRITE-CARD32 
; ==>
;   (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.)
;                      XLIB::BUFFER-BBUF
;                      (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFUN WAIT-X ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/glx.lisp
; in: DEFUN WAIT-X
;     (XLIB::WITH-BUFFER-REQUEST
;    (XLIB:DISPLAY (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
;    (XLIB::DATA GLX::+WAIT-X+)
;    (XLIB:CARD32 (GLX::CONTEXT-TAG GLX::CTX)))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT 
; --> XLIB::WRITE-CARD32 
; ==>
;   (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.)
;                      XLIB::BUFFER-BBUF
;                      (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
; 
; note: doing unsigned word to integer coercion (cost 20)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/glx.fasl written
; compilation finished in 0:00:09
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp" (written 10 JAN 2006 05:30:09 PM):
; compiling (DEFPACKAGE :GL ...)
; compiling (IN-PACKAGE :GL)
; compiling (DEFCONSTANT +GET-STRING+ ...)
; compiling (DEFCONSTANT +NEW-LIST+ ...)
; compiling (DEFCONSTANT +END-LIST+ ...)
; compiling (DEFCONSTANT +GEN-LISTS+ ...)
; compiling (DEFCONSTANT +FINISH+ ...)
; compiling (DEFCONSTANT +DISABLE+ ...)
; compiling (DEFCONSTANT +ENABLE+ ...)
; compiling (DEFCONSTANT +FLUSH+ ...)
; compiling (DEFCONSTANT +FALSE+ ...)
; compiling (DEFCONSTANT +TRUE+ ...)
; compiling (DEFCONSTANT +BYTE+ ...)
; compiling (DEFCONSTANT +UNSIGNED-BYTE+ ...)
; compiling (DEFCONSTANT +SHORT+ ...)
; compiling (DEFCONSTANT +UNSIGNED-SHORT+ ...)
; compiling (DEFCONSTANT +INT+ ...)
; compiling (DEFCONSTANT +UNSIGNED-INT+ ...)
; compiling (DEFCONSTANT +FLOAT+ ...)
; compiling (DEFCONSTANT +DOUBLE+ ...)
; compiling (DEFCONSTANT +2-BYTES+ ...)
; compiling (DEFCONSTANT +3-BYTES+ ...)
; compiling (DEFCONSTANT +4-BYTES+ ...)
; compiling (DEFCONSTANT +POINTS+ ...)
; compiling (DEFCONSTANT +LINES+ ...)
; compiling (DEFCONSTANT +LINE-LOOP+ ...)
; compiling (DEFCONSTANT +LINE-STRIP+ ...)
; compiling (DEFCONSTANT +TRIANGLES+ ...)
; compiling (DEFCONSTANT +TRIANGLE-STRIP+ ...)
; compiling (DEFCONSTANT +TRIANGLE-FAN+ ...)
; compiling (DEFCONSTANT +QUADS+ ...)
; compiling (DEFCONSTANT +QUAD-STRIP+ ...)
; compiling (DEFCONSTANT +POLYGON+ ...)
; compiling (DEFCONSTANT +VERTEX-ARRAY+ ...)
; compiling (DEFCONSTANT +NORMAL-ARRAY+ ...)
; compiling (DEFCONSTANT +COLOR-ARRAY+ ...)
; compiling (DEFCONSTANT +INDEX-ARRAY+ ...)
; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY+ ...)
; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY+ ...)
; compiling (DEFCONSTANT +VERTEX-ARRAY-SIZE+ ...)
; compiling (DEFCONSTANT +VERTEX-ARRAY-TYPE+ ...)
; compiling (DEFCONSTANT +VERTEX-ARRAY-STRIDE+ ...)
; compiling (DEFCONSTANT +NORMAL-ARRAY-TYPE+ ...)
; compiling (DEFCONSTANT +NORMAL-ARRAY-STRIDE+ ...)
; compiling (DEFCONSTANT +COLOR-ARRAY-SIZE+ ...)
; compiling (DEFCONSTANT +COLOR-ARRAY-TYPE+ ...)
; compiling (DEFCONSTANT +COLOR-ARRAY-STRIDE+ ...)
; compiling (DEFCONSTANT +INDEX-ARRAY-TYPE+ ...)
; compiling (DEFCONSTANT +INDEX-ARRAY-STRIDE+ ...)
; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-SIZE+ ...)
; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-TYPE+ ...)
; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-STRIDE+ ...)
; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-STRIDE+ ...)
; compiling (DEFCONSTANT +VERTEX-ARRAY-POINTER+ ...)
; compiling (DEFCONSTANT +NORMAL-ARRAY-POINTER+ ...)
; compiling (DEFCONSTANT +COLOR-ARRAY-POINTER+ ...)
; compiling (DEFCONSTANT +INDEX-ARRAY-POINTER+ ...)
; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-POINTER+ ...)
; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-POINTER+ ...)
; compiling (DEFCONSTANT +V2F+ ...)
; compiling (DEFCONSTANT +V3F+ ...)
; compiling (DEFCONSTANT +C4UB-V2F+ ...)
; compiling (DEFCONSTANT +C4UB-V3F+ ...)
; compiling (DEFCONSTANT +C3F-V3F+ ...)
; compiling (DEFCONSTANT +N3F-V3F+ ...)
; compiling (DEFCONSTANT +C4F-N3F-V3F+ ...)
; compiling (DEFCONSTANT +T2F-V3F+ ...)
; compiling (DEFCONSTANT +T4F-V4F+ ...)
; compiling (DEFCONSTANT +T2F-C4UB-V3F+ ...)
; compiling (DEFCONSTANT +T2F-C3F-V3F+ ...)
; compiling (DEFCONSTANT +T2F-N3F-V3F+ ...)
; compiling (DEFCONSTANT +T2F-C4F-N3F-V3F+ ...)
; compiling (DEFCONSTANT +T4F-C4F-N3F-V4F+ ...)
; compiling (DEFCONSTANT +MATRIX-MODE+ ...)
; compiling (DEFCONSTANT +MODELVIEW+ ...)
; compiling (DEFCONSTANT +PROJECTION+ ...)
; compiling (DEFCONSTANT +TEXTURE+ ...)
; compiling (DEFCONSTANT +POINT-SMOOTH+ ...)
; compiling (DEFCONSTANT +POINT-SIZE+ ...)
; compiling (DEFCONSTANT +POINT-SIZE-GRANULARITY+ ...)
; compiling (DEFCONSTANT +POINT-SIZE-RANGE+ ...)
; compiling (DEFCONSTANT +LINE-SMOOTH+ ...)
; compiling (DEFCONSTANT +LINE-STIPPLE+ ...)
; compiling (DEFCONSTANT +LINE-STIPPLE-PATTERN+ ...)
; compiling (DEFCONSTANT +LINE-STIPPLE-REPEAT+ ...)
; compiling (DEFCONSTANT +LINE-WIDTH+ ...)
; compiling (DEFCONSTANT +LINE-WIDTH-GRANULARITY+ ...)
; compiling (DEFCONSTANT +LINE-WIDTH-RANGE+ ...)
; compiling (DEFCONSTANT +POINT+ ...)
; compiling (DEFCONSTANT +LINE+ ...)
; compiling (DEFCONSTANT +FILL+ ...)
; compiling (DEFCONSTANT +CW+ ...)
; compiling (DEFCONSTANT +CCW+ ...)
; compiling (DEFCONSTANT +FRONT+ ...)
; compiling (DEFCONSTANT +BACK+ ...)
; compiling (DEFCONSTANT +POLYGON-MODE+ ...)
; compiling (DEFCONSTANT +POLYGON-SMOOTH+ ...)
; compiling (DEFCONSTANT +POLYGON-STIPPLE+ ...)
; compiling (DEFCONSTANT +EDGE-FLAG+ ...)
; compiling (DEFCONSTANT +CULL-FACE+ ...)
; compiling (DEFCONSTANT +CULL-FACE-MODE+ ...)
; compiling (DEFCONSTANT +FRONT-FACE+ ...)
; compiling (DEFCONSTANT +POLYGON-OFFSET-FACTOR+ ...)
; compiling (DEFCONSTANT +POLYGON-OFFSET-UNITS+ ...)
; compiling (DEFCONSTANT +POLYGON-OFFSET-POINT+ ...)
; compiling (DEFCONSTANT +POLYGON-OFFSET-LINE+ ...)
; compiling (DEFCONSTANT +POLYGON-OFFSET-FILL+ ...)
; compiling (DEFCONSTANT +COMPILE+ ...)
; compiling (DEFCONSTANT +COMPILE-AND-EXECUTE+ ...)
; compiling (DEFCONSTANT +LIST-BASE+ ...)
; compiling (DEFCONSTANT +LIST-INDEX+ ...)
; compiling (DEFCONSTANT +LIST-MODE+ ...)
; compiling (DEFCONSTANT +NEVER+ ...)
; compiling (DEFCONSTANT +LESS+ ...)
; compiling (DEFCONSTANT +EQUAL+ ...)
; compiling (DEFCONSTANT +LEQUAL+ ...)
; compiling (DEFCONSTANT +GREATER+ ...)
; compiling (DEFCONSTANT +NOTEQUAL+ ...)
; compiling (DEFCONSTANT +GEQUAL+ ...)
; compiling (DEFCONSTANT +ALWAYS+ ...)
; compiling (DEFCONSTANT +DEPTH-TEST+ ...)
; compiling (DEFCONSTANT +DEPTH-BITS+ ...)
; compiling (DEFCONSTANT +DEPTH-CLEAR-VALUE+ ...)
; compiling (DEFCONSTANT +DEPTH-FUNC+ ...)
; compiling (DEFCONSTANT +DEPTH-RANGE+ ...)
; compiling (DEFCONSTANT +DEPTH-WRITEMASK+ ...)
; compiling (DEFCONSTANT +DEPTH-COMPONENT+ ...)
; compiling (DEFCONSTANT +LIGHTING+ ...)
; compiling (DEFCONSTANT +LIGHT0+ ...)
; compiling (DEFCONSTANT +LIGHT1+ ...)
; compiling (DEFCONSTANT +LIGHT2+ ...)
; compiling (DEFCONSTANT +LIGHT3+ ...)
; compiling (DEFCONSTANT +LIGHT4+ ...)
; compiling (DEFCONSTANT +LIGHT5+ ...)
; compiling (DEFCONSTANT +LIGHT6+ ...)
; compiling (DEFCONSTANT +LIGHT7+ ...)
; compiling (DEFCONSTANT +SPOT-EXPONENT+ ...)
; compiling (DEFCONSTANT +SPOT-CUTOFF+ ...)
; compiling (DEFCONSTANT +CONSTANT-ATTENUATION+ ...)
; compiling (DEFCONSTANT +LINEAR-ATTENUATION+ ...)
; compiling (DEFCONSTANT +QUADRATIC-ATTENUATION+ ...)
; compiling (DEFCONSTANT +AMBIENT+ ...)
; compiling (DEFCONSTANT +DIFFUSE+ ...)
; compiling (DEFCONSTANT +SPECULAR+ ...)
; compiling (DEFCONSTANT +SHININESS+ ...)
; compiling (DEFCONSTANT +EMISSION+ ...)
; compiling (DEFCONSTANT +POSITION+ ...)
; compiling (DEFCONSTANT +SPOT-DIRECTION+ ...)
; compiling (DEFCONSTANT +AMBIENT-AND-DIFFUSE+ ...)
; compiling (DEFCONSTANT +COLOR-INDEXES+ ...)
; compiling (DEFCONSTANT +LIGHT-MODEL-TWO-SIDE+ ...)
; compiling (DEFCONSTANT +LIGHT-MODEL-LOCAL-VIEWER+ ...)
; compiling (DEFCONSTANT +LIGHT-MODEL-AMBIENT+ ...)
; compiling (DEFCONSTANT +FRONT-AND-BACK+ ...)
; compiling (DEFCONSTANT +SHADE-MODEL+ ...)
; compiling (DEFCONSTANT +FLAT+ ...)
; compiling (DEFCONSTANT +SMOOTH+ ...)
; compiling (DEFCONSTANT +COLOR-MATERIAL+ ...)
; compiling (DEFCONSTANT +COLOR-MATERIAL-FACE+ ...)
; compiling (DEFCONSTANT +COLOR-MATERIAL-PARAMETER+ ...)
; compiling (DEFCONSTANT +NORMALIZE+ ...)
; compiling (DEFCONSTANT +CLIP-PLANE0+ ...)
; compiling (DEFCONSTANT +CLIP-PLANE1+ ...)
; compiling (DEFCONSTANT +CLIP-PLANE2+ ...)
; compiling (DEFCONSTANT +CLIP-PLANE3+ ...)
; compiling (DEFCONSTANT +CLIP-PLANE4+ ...)
; compiling (DEFCONSTANT +CLIP-PLANE5+ ...)
; compiling (DEFCONSTANT +ACCUM-RED-BITS+ ...)
; compiling (DEFCONSTANT +ACCUM-GREEN-BITS+ ...)
; compiling (DEFCONSTANT +ACCUM-BLUE-BITS+ ...)
; compiling (DEFCONSTANT +ACCUM-ALPHA-BITS+ ...)
; compiling (DEFCONSTANT +ACCUM-CLEAR-VALUE+ ...)
; compiling (DEFCONSTANT +ACCUM+ ...)
; compiling (DEFCONSTANT +ADD+ ...)
; compiling (DEFCONSTANT +LOAD+ ...)
; compiling (DEFCONSTANT +MULT+ ...)
; compiling (DEFCONSTANT +RETURN+ ...)
; compiling (DEFCONSTANT +ALPHA-TEST+ ...)
; compiling (DEFCONSTANT +ALPHA-TEST-REF+ ...)
; compiling (DEFCONSTANT +ALPHA-TEST-FUNC+ ...)
; compiling (DEFCONSTANT +BLEND+ ...)
; compiling (DEFCONSTANT +BLEND-SRC+ ...)
; compiling (DEFCONSTANT +BLEND-DST+ ...)
; compiling (DEFCONSTANT +ZERO+ ...)
; compiling (DEFCONSTANT +ONE+ ...)
; compiling (DEFCONSTANT +SRC-COLOR+ ...)
; compiling (DEFCONSTANT +ONE-MINUS-SRC-COLOR+ ...)
; compiling (DEFCONSTANT +DST-COLOR+ ...)
; compiling (DEFCONSTANT +ONE-MINUS-DST-COLOR+ ...)
; compiling (DEFCONSTANT +SRC-ALPHA+ ...)
; compiling (DEFCONSTANT +ONE-MINUS-SRC-ALPHA+ ...)
; compiling (DEFCONSTANT +DST-ALPHA+ ...)
; compiling (DEFCONSTANT +ONE-MINUS-DST-ALPHA+ ...)
; compiling (DEFCONSTANT +SRC-ALPHA-SATURATE+ ...)
; compiling (DEFCONSTANT +CONSTANT-COLOR+ ...)
; compiling (DEFCONSTANT +ONE-MINUS-CONSTANT-COLOR+ ...)
; compiling (DEFCONSTANT +CONSTANT-ALPHA+ ...)
; compiling (DEFCONSTANT +ONE-MINUS-CONSTANT-ALPHA+ ...)
; compiling (DEFCONSTANT +FEEDBACK+ ...)
; compiling (DEFCONSTANT +RENDER+ ...)
; compiling (DEFCONSTANT +SELECT+ ...)
; compiling (DEFCONSTANT +2D+ ...)
; compiling (DEFCONSTANT +3D+ ...)
; compiling (DEFCONSTANT +3D-COLOR+ ...)
; compiling (DEFCONSTANT +3D-COLOR-TEXTURE+ ...)
; compiling (DEFCONSTANT +4D-COLOR-TEXTURE+ ...)
; compiling (DEFCONSTANT +POINT-TOKEN+ ...)
; compiling (DEFCONSTANT +LINE-TOKEN+ ...)
; compiling (DEFCONSTANT +LINE-RESET-TOKEN+ ...)
; compiling (DEFCONSTANT +POLYGON-TOKEN+ ...)
; compiling (DEFCONSTANT +BITMAP-TOKEN+ ...)
; compiling (DEFCONSTANT +DRAW-PIXEL-TOKEN+ ...)
; compiling (DEFCONSTANT +COPY-PIXEL-TOKEN+ ...)
; compiling (DEFCONSTANT +PASS-THROUGH-TOKEN+ ...)
; compiling (DEFCONSTANT +FEEDBACK-BUFFER-POINTER+ ...)
; compiling (DEFCONSTANT +FEEDBACK-BUFFER-SIZE+ ...)
; compiling (DEFCONSTANT +FEEDBACK-BUFFER-TYPE+ ...)
; compiling (DEFCONSTANT +SELECTION-BUFFER-POINTER+ ...)
; compiling (DEFCONSTANT +SELECTION-BUFFER-SIZE+ ...)
; compiling (DEFCONSTANT +FOG+ ...)
; compiling (DEFCONSTANT +FOG-MODE+ ...)
; compiling (DEFCONSTANT +FOG-DENSITY+ ...)
; compiling (DEFCONSTANT +FOG-COLOR+ ...)
; compiling (DEFCONSTANT +FOG-INDEX+ ...)
; compiling (DEFCONSTANT +FOG-START+ ...)
; compiling (DEFCONSTANT +FOG-END+ ...)
; compiling (DEFCONSTANT +LINEAR+ ...)
; compiling (DEFCONSTANT +EXP+ ...)
; compiling (DEFCONSTANT +EXP2+ ...)
; compiling (DEFCONSTANT +LOGIC-OP+ ...)
; compiling (DEFCONSTANT +INDEX-LOGIC-OP+ ...)
; compiling (DEFCONSTANT +COLOR-LOGIC-OP+ ...)
; compiling (DEFCONSTANT +LOGIC-OP-MODE+ ...)
; compiling (DEFCONSTANT +CLEAR+ ...)
; compiling (DEFCONSTANT +SET+ ...)
; compiling (DEFCONSTANT +COPY+ ...)
; compiling (DEFCONSTANT +COPY-INVERTED+ ...)
; compiling (DEFCONSTANT +NOOP+ ...)
; compiling (DEFCONSTANT +INVERT+ ...)
; compiling (DEFCONSTANT +AND+ ...)
; compiling (DEFCONSTANT +NAND+ ...)
; compiling (DEFCONSTANT +OR+ ...)
; compiling (DEFCONSTANT +NOR+ ...)
; compiling (DEFCONSTANT +XOR+ ...)
; compiling (DEFCONSTANT +EQUIV+ ...)
; compiling (DEFCONSTANT +AND-REVERSE+ ...)
; compiling (DEFCONSTANT +AND-INVERTED+ ...)
; compiling (DEFCONSTANT +OR-REVERSE+ ...)
; compiling (DEFCONSTANT +OR-INVERTED+ ...)
; compiling (DEFCONSTANT +STENCIL-TEST+ ...)
; compiling (DEFCONSTANT +STENCIL-WRITEMASK+ ...)
; compiling (DEFCONSTANT +STENCIL-BITS+ ...)
; compiling (DEFCONSTANT +STENCIL-FUNC+ ...)
; compiling (DEFCONSTANT +STENCIL-VALUE-MASK+ ...)
; compiling (DEFCONSTANT +STENCIL-REF+ ...)
; compiling (DEFCONSTANT +STENCIL-FAIL+ ...)
; compiling (DEFCONSTANT +STENCIL-PASS-DEPTH-PASS+ ...)
; compiling (DEFCONSTANT +STENCIL-PASS-DEPTH-FAIL+ ...)
; compiling (DEFCONSTANT +STENCIL-CLEAR-VALUE+ ...)
; compiling (DEFCONSTANT +STENCIL-INDEX+ ...)
; compiling (DEFCONSTANT +KEEP+ ...)
; compiling (DEFCONSTANT +REPLACE+ ...)
; compiling (DEFCONSTANT +INCR+ ...)
; compiling (DEFCONSTANT +DECR+ ...)
; compiling (DEFCONSTANT +NONE+ ...)
; compiling (DEFCONSTANT +LEFT+ ...)
; compiling (DEFCONSTANT +RIGHT+ ...)
; compiling (DEFCONSTANT +FRONT-LEFT+ ...)
; compiling (DEFCONSTANT +FRONT-RIGHT+ ...)
; compiling (DEFCONSTANT +BACK-LEFT+ ...)
; compiling (DEFCONSTANT +BACK-RIGHT+ ...)
; compiling (DEFCONSTANT +AUX0+ ...)
; compiling (DEFCONSTANT +AUX1+ ...)
; compiling (DEFCONSTANT +AUX2+ ...)
; compiling (DEFCONSTANT +AUX3+ ...)
; compiling (DEFCONSTANT +COLOR-INDEX+ ...)
; compiling (DEFCONSTANT +RED+ ...)
; compiling (DEFCONSTANT +GREEN+ ...)
; compiling (DEFCONSTANT +BLUE+ ...)
; compiling (DEFCONSTANT +ALPHA+ ...)
; compiling (DEFCONSTANT +LUMINANCE+ ...)
; compiling (DEFCONSTANT +LUMINANCE-ALPHA+ ...)
; compiling (DEFCONSTANT +ALPHA-BITS+ ...)
; compiling (DEFCONSTANT +RED-BITS+ ...)
; compiling (DEFCONSTANT +GREEN-BITS+ ...)
; compiling (DEFCONSTANT +BLUE-BITS+ ...)
; compiling (DEFCONSTANT +INDEX-BITS+ ...)
; compiling (DEFCONSTANT +SUBPIXEL-BITS+ ...)
; compiling (DEFCONSTANT +AUX-BUFFERS+ ...)
; compiling (DEFCONSTANT +READ-BUFFER+ ...)
; compiling (DEFCONSTANT +DRAW-BUFFER+ ...)
; compiling (DEFCONSTANT +DOUBLEBUFFER+ ...)
; compiling (DEFCONSTANT +STEREO+ ...)
; compiling (DEFCONSTANT +BITMAP+ ...)
; compiling (DEFCONSTANT +COLOR+ ...)
; compiling (DEFCONSTANT +DEPTH+ ...)
; compiling (DEFCONSTANT +STENCIL+ ...)
; compiling (DEFCONSTANT +DITHER+ ...)
; compiling (DEFCONSTANT +RGB+ ...)
; compiling (DEFCONSTANT +RGBA+ ...)
; compiling (DEFCONSTANT +MAX-LIST-NESTING+ ...)
; compiling (DEFCONSTANT +MAX-ATTRIB-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +MAX-MODELVIEW-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +MAX-NAME-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +MAX-PROJECTION-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +MAX-TEXTURE-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +MAX-EVAL-ORDER+ ...)
; compiling (DEFCONSTANT +MAX-LIGHTS+ ...)
; compiling (DEFCONSTANT +MAX-CLIP-PLANES+ ...)
; compiling (DEFCONSTANT +MAX-TEXTURE-SIZE+ ...)
; compiling (DEFCONSTANT +MAX-PIXEL-MAP-TABLE+ ...)
; compiling (DEFCONSTANT +MAX-VIEWPORT-DIMS+ ...)
; compiling (DEFCONSTANT +MAX-CLIENT-ATTRIB-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +ATTRIB-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +CLIENT-ATTRIB-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +COLOR-CLEAR-VALUE+ ...)
; compiling (DEFCONSTANT +COLOR-WRITEMASK+ ...)
; compiling (DEFCONSTANT +CURRENT-INDEX+ ...)
; compiling (DEFCONSTANT +CURRENT-COLOR+ ...)
; compiling (DEFCONSTANT +CURRENT-NORMAL+ ...)
; compiling (DEFCONSTANT +CURRENT-RASTER-COLOR+ ...)
; compiling (DEFCONSTANT +CURRENT-RASTER-DISTANCE+ ...)
; compiling (DEFCONSTANT +CURRENT-RASTER-INDEX+ ...)
; compiling (DEFCONSTANT +CURRENT-RASTER-POSITION+ ...)
; compiling (DEFCONSTANT +CURRENT-RASTER-TEXTURE-COORDS+ ...)
; compiling (DEFCONSTANT +CURRENT-RASTER-POSITION-VALID+ ...)
; compiling (DEFCONSTANT +CURRENT-TEXTURE-COORDS+ ...)
; compiling (DEFCONSTANT +INDEX-CLEAR-VALUE+ ...)
; compiling (DEFCONSTANT +INDEX-MODE+ ...)
; compiling (DEFCONSTANT +INDEX-WRITEMASK+ ...)
; compiling (DEFCONSTANT +MODELVIEW-MATRIX+ ...)
; compiling (DEFCONSTANT +MODELVIEW-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +NAME-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +PROJECTION-MATRIX+ ...)
; compiling (DEFCONSTANT +PROJECTION-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +RENDER-MODE+ ...)
; compiling (DEFCONSTANT +RGBA-MODE+ ...)
; compiling (DEFCONSTANT +TEXTURE-MATRIX+ ...)
; compiling (DEFCONSTANT +TEXTURE-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +VIEWPORT+ ...)
; compiling (DEFCONSTANT +AUTO-NORMAL+ ...)
; compiling (DEFCONSTANT +MAP1-COLOR-4+ ...)
; compiling (DEFCONSTANT +MAP1-GRID-DOMAIN+ ...)
; compiling (DEFCONSTANT +MAP1-GRID-SEGMENTS+ ...)
; compiling (DEFCONSTANT +MAP1-INDEX+ ...)
; compiling (DEFCONSTANT +MAP1-NORMAL+ ...)
; compiling (DEFCONSTANT +MAP1-TEXTURE-COORD-1+ ...)
; compiling (DEFCONSTANT +MAP1-TEXTURE-COORD-2+ ...)
; compiling (DEFCONSTANT +MAP1-TEXTURE-COORD-3+ ...)
; compiling (DEFCONSTANT +MAP1-TEXTURE-COORD-4+ ...)
; compiling (DEFCONSTANT +MAP1-VERTEX-3+ ...)
; compiling (DEFCONSTANT +MAP1-VERTEX-4+ ...)
; compiling (DEFCONSTANT +MAP2-COLOR-4+ ...)
; compiling (DEFCONSTANT +MAP2-GRID-DOMAIN+ ...)
; compiling (DEFCONSTANT +MAP2-GRID-SEGMENTS+ ...)
; compiling (DEFCONSTANT +MAP2-INDEX+ ...)
; compiling (DEFCONSTANT +MAP2-NORMAL+ ...)
; compiling (DEFCONSTANT +MAP2-TEXTURE-COORD-1+ ...)
; compiling (DEFCONSTANT +MAP2-TEXTURE-COORD-2+ ...)
; compiling (DEFCONSTANT +MAP2-TEXTURE-COORD-3+ ...)
; compiling (DEFCONSTANT +MAP2-TEXTURE-COORD-4+ ...)
; compiling (DEFCONSTANT +MAP2-VERTEX-3+ ...)
; compiling (DEFCONSTANT +MAP2-VERTEX-4+ ...)
; compiling (DEFCONSTANT +COEFF+ ...)
; compiling (DEFCONSTANT +DOMAIN+ ...)
; compiling (DEFCONSTANT +ORDER+ ...)
; compiling (DEFCONSTANT +FOG-HINT+ ...)
; compiling (DEFCONSTANT +LINE-SMOOTH-HINT+ ...)
; compiling (DEFCONSTANT +PERSPECTIVE-CORRECTION-HINT+ ...)
; compiling (DEFCONSTANT +POINT-SMOOTH-HINT+ ...)
; compiling (DEFCONSTANT +POLYGON-SMOOTH-HINT+ ...)
; compiling (DEFCONSTANT +DONT-CARE+ ...)
; compiling (DEFCONSTANT +FASTEST+ ...)
; compiling (DEFCONSTANT +NICEST+ ...)
; compiling (DEFCONSTANT +SCISSOR-TEST+ ...)
; compiling (DEFCONSTANT +SCISSOR-BOX+ ...)
; compiling (DEFCONSTANT +MAP-COLOR+ ...)
; compiling (DEFCONSTANT +MAP-STENCIL+ ...)
; compiling (DEFCONSTANT +INDEX-SHIFT+ ...)
; compiling (DEFCONSTANT +INDEX-OFFSET+ ...)
; compiling (DEFCONSTANT +RED-SCALE+ ...)
; compiling (DEFCONSTANT +RED-BIAS+ ...)
; compiling (DEFCONSTANT +GREEN-SCALE+ ...)
; compiling (DEFCONSTANT +GREEN-BIAS+ ...)
; compiling (DEFCONSTANT +BLUE-SCALE+ ...)
; compiling (DEFCONSTANT +BLUE-BIAS+ ...)
; compiling (DEFCONSTANT +ALPHA-SCALE+ ...)
; compiling (DEFCONSTANT +ALPHA-BIAS+ ...)
; compiling (DEFCONSTANT +DEPTH-SCALE+ ...)
; compiling (DEFCONSTANT +DEPTH-BIAS+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-S-TO-S-SIZE+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-I-SIZE+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-R-SIZE+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-G-SIZE+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-B-SIZE+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-A-SIZE+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-R-TO-R-SIZE+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-G-TO-G-SIZE+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-B-TO-B-SIZE+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-A-TO-A-SIZE+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-S-TO-S+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-I+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-R+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-G+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-B+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-A+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-R-TO-R+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-G-TO-G+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-B-TO-B+ ...)
; compiling (DEFCONSTANT +PIXEL-MAP-A-TO-A+ ...)
; compiling (DEFCONSTANT +PACK-ALIGNMENT+ ...)
; compiling (DEFCONSTANT +PACK-LSB-FIRST+ ...)
; compiling (DEFCONSTANT +PACK-ROW-LENGTH+ ...)
; compiling (DEFCONSTANT +PACK-SKIP-PIXELS+ ...)
; compiling (DEFCONSTANT +PACK-SKIP-ROWS+ ...)
; compiling (DEFCONSTANT +PACK-SWAP-BYTES+ ...)
; compiling (DEFCONSTANT +UNPACK-ALIGNMENT+ ...)
; compiling (DEFCONSTANT +UNPACK-LSB-FIRST+ ...)
; compiling (DEFCONSTANT +UNPACK-ROW-LENGTH+ ...)
; compiling (DEFCONSTANT +UNPACK-SKIP-PIXELS+ ...)
; compiling (DEFCONSTANT +UNPACK-SKIP-ROWS+ ...)
; compiling (DEFCONSTANT +UNPACK-SWAP-BYTES+ ...)
; compiling (DEFCONSTANT +ZOOM-X+ ...)
; compiling (DEFCONSTANT +ZOOM-Y+ ...)
; compiling (DEFCONSTANT +TEXTURE-ENV+ ...)
; compiling (DEFCONSTANT +TEXTURE-ENV-MODE+ ...)
; compiling (DEFCONSTANT +TEXTURE-1D+ ...)
; compiling (DEFCONSTANT +TEXTURE-2D+ ...)
; compiling (DEFCONSTANT +TEXTURE-WRAP-S+ ...)
; compiling (DEFCONSTANT +TEXTURE-WRAP-T+ ...)
; compiling (DEFCONSTANT +TEXTURE-MAG-FILTER+ ...)
; compiling (DEFCONSTANT +TEXTURE-MIN-FILTER+ ...)
; compiling (DEFCONSTANT +TEXTURE-ENV-COLOR+ ...)
; compiling (DEFCONSTANT +TEXTURE-GEN-S+ ...)
; compiling (DEFCONSTANT +TEXTURE-GEN-T+ ...)
; compiling (DEFCONSTANT +TEXTURE-GEN-MODE+ ...)
; compiling (DEFCONSTANT +TEXTURE-BORDER-COLOR+ ...)
; compiling (DEFCONSTANT +TEXTURE-WIDTH+ ...)
; compiling (DEFCONSTANT +TEXTURE-HEIGHT+ ...)
; compiling (DEFCONSTANT +TEXTURE-BORDER+ ...)
; compiling (DEFCONSTANT +TEXTURE-COMPONENTS+ ...)
; compiling (DEFCONSTANT +TEXTURE-RED-SIZE+ ...)
; compiling (DEFCONSTANT +TEXTURE-GREEN-SIZE+ ...)
; compiling (DEFCONSTANT +TEXTURE-BLUE-SIZE+ ...)
; compiling (DEFCONSTANT +TEXTURE-ALPHA-SIZE+ ...)
; compiling (DEFCONSTANT +TEXTURE-LUMINANCE-SIZE+ ...)
; compiling (DEFCONSTANT +TEXTURE-INTENSITY-SIZE+ ...)
; compiling (DEFCONSTANT +NEAREST-MIPMAP-NEAREST+ ...)
; compiling (DEFCONSTANT +NEAREST-MIPMAP-LINEAR+ ...)
; compiling (DEFCONSTANT +LINEAR-MIPMAP-NEAREST+ ...)
; compiling (DEFCONSTANT +LINEAR-MIPMAP-LINEAR+ ...)
; compiling (DEFCONSTANT +OBJECT-LINEAR+ ...)
; compiling (DEFCONSTANT +OBJECT-PLANE+ ...)
; compiling (DEFCONSTANT +EYE-LINEAR+ ...)
; compiling (DEFCONSTANT +EYE-PLANE+ ...)
; compiling (DEFCONSTANT +SPHERE-MAP+ ...)
; compiling (DEFCONSTANT +DECAL+ ...)
; compiling (DEFCONSTANT +MODULATE+ ...)
; compiling (DEFCONSTANT +NEAREST+ ...)
; compiling (DEFCONSTANT +REPEAT+ ...)
; compiling (DEFCONSTANT +CLAMP+ ...)
; compiling (DEFCONSTANT +S+ ...)
; compiling (DEFCONSTANT +T+ ...)
; compiling (DEFCONSTANT +R+ ...)
; compiling (DEFCONSTANT +Q+ ...)
; compiling (DEFCONSTANT +TEXTURE-GEN-R+ ...)
; compiling (DEFCONSTANT +TEXTURE-GEN-Q+ ...)
; compiling (DEFCONSTANT +PROXY-TEXTURE-1D+ ...)
; compiling (DEFCONSTANT +PROXY-TEXTURE-2D+ ...)
; compiling (DEFCONSTANT +TEXTURE-PRIORITY+ ...)
; compiling (DEFCONSTANT +TEXTURE-RESIDENT+ ...)
; compiling (DEFCONSTANT +TEXTURE-BINDING-1D+ ...)
; compiling (DEFCONSTANT +TEXTURE-BINDING-2D+ ...)
; compiling (DEFCONSTANT +TEXTURE-INTERNAL-FORMAT+ ...)
; compiling (DEFCONSTANT +PACK-SKIP-IMAGES+ ...)
; compiling (DEFCONSTANT +PACK-IMAGE-HEIGHT+ ...)
; compiling (DEFCONSTANT +UNPACK-SKIP-IMAGES+ ...)
; compiling (DEFCONSTANT +UNPACK-IMAGE-HEIGHT+ ...)
; compiling (DEFCONSTANT +TEXTURE-3D+ ...)
; compiling (DEFCONSTANT +PROXY-TEXTURE-3D+ ...)
; compiling (DEFCONSTANT +TEXTURE-DEPTH+ ...)
; compiling (DEFCONSTANT +TEXTURE-WRAP-R+ ...)
; compiling (DEFCONSTANT +MAX-3D-TEXTURE-SIZE+ ...)
; compiling (DEFCONSTANT +TEXTURE-BINDING-3D+ ...)
; compiling (DEFCONSTANT +ALPHA4+ ...)
; compiling (DEFCONSTANT +ALPHA8+ ...)
; compiling (DEFCONSTANT +ALPHA12+ ...)
; compiling (DEFCONSTANT +ALPHA16+ ...)
; compiling (DEFCONSTANT +LUMINANCE4+ ...)
; compiling (DEFCONSTANT +LUMINANCE8+ ...)
; compiling (DEFCONSTANT +LUMINANCE12+ ...)
; compiling (DEFCONSTANT +LUMINANCE16+ ...)
; compiling (DEFCONSTANT +LUMINANCE4-ALPHA4+ ...)
; compiling (DEFCONSTANT +LUMINANCE6-ALPHA2+ ...)
; compiling (DEFCONSTANT +LUMINANCE8-ALPHA8+ ...)
; compiling (DEFCONSTANT +LUMINANCE12-ALPHA4+ ...)
; compiling (DEFCONSTANT +LUMINANCE12-ALPHA12+ ...)
; compiling (DEFCONSTANT +LUMINANCE16-ALPHA16+ ...)
; compiling (DEFCONSTANT +INTENSITY+ ...)
; compiling (DEFCONSTANT +INTENSITY4+ ...)
; compiling (DEFCONSTANT +INTENSITY8+ ...)
; compiling (DEFCONSTANT +INTENSITY12+ ...)
; compiling (DEFCONSTANT +INTENSITY16+ ...)
; compiling (DEFCONSTANT +R3-G3-B2+ ...)
; compiling (DEFCONSTANT +RGB4+ ...)
; compiling (DEFCONSTANT +RGB5+ ...)
; compiling (DEFCONSTANT +RGB8+ ...)
; compiling (DEFCONSTANT +RGB10+ ...)
; compiling (DEFCONSTANT +RGB12+ ...)
; compiling (DEFCONSTANT +RGB16+ ...)
; compiling (DEFCONSTANT +RGBA2+ ...)
; compiling (DEFCONSTANT +RGBA4+ ...)
; compiling (DEFCONSTANT +RGB5-A1+ ...)
; compiling (DEFCONSTANT +RGBA8+ ...)
; compiling (DEFCONSTANT +RGB10-A2+ ...)
; compiling (DEFCONSTANT +RGBA12+ ...)
; compiling (DEFCONSTANT +RGBA16+ ...)
; compiling (DEFCONSTANT +VENDOR+ ...)
; compiling (DEFCONSTANT +RENDERER+ ...)
; compiling (DEFCONSTANT +VERSION+ ...)
; compiling (DEFCONSTANT +EXTENSIONS+ ...)
; compiling (DEFCONSTANT +NO-ERROR+ ...)
; compiling (DEFCONSTANT +INVALID-VALUE+ ...)
; compiling (DEFCONSTANT +INVALID-ENUM+ ...)
; compiling (DEFCONSTANT +INVALID-OPERATION+ ...)
; compiling (DEFCONSTANT +STACK-OVERFLOW+ ...)
; compiling (DEFCONSTANT +STACK-UNDERFLOW+ ...)
; compiling (DEFCONSTANT +OUT-OF-MEMORY+ ...)
; compiling (DEFCONSTANT +RESCALE-NORMAL+ ...)
; compiling (DEFCONSTANT +CLAMP-TO-EDGE+ ...)
; compiling (DEFCONSTANT +MAX-ELEMENTS-VERTICES+ ...)
; compiling (DEFCONSTANT +MAX-ELEMENTS-INDICES+ ...)
; compiling (DEFCONSTANT +BGR+ ...)
; compiling (DEFCONSTANT +BGRA+ ...)
; compiling (DEFCONSTANT +UNSIGNED-BYTE-3-3-2+ ...)
; compiling (DEFCONSTANT +UNSIGNED-BYTE-2-3-3-REV+ ...)
; compiling (DEFCONSTANT +UNSIGNED-SHORT-5-6-5+ ...)
; compiling (DEFCONSTANT +UNSIGNED-SHORT-5-6-5-REV+ ...)
; compiling (DEFCONSTANT +UNSIGNED-SHORT-4-4-4-4+ ...)
; compiling (DEFCONSTANT +UNSIGNED-SHORT-4-4-4-4-REV+ ...)
; compiling (DEFCONSTANT +UNSIGNED-SHORT-5-5-5-1+ ...)
; compiling (DEFCONSTANT +UNSIGNED-SHORT-1-5-5-5-REV+ ...)
; compiling (DEFCONSTANT +UNSIGNED-INT-8-8-8-8+ ...)
; compiling (DEFCONSTANT +UNSIGNED-INT-8-8-8-8-REV+ ...)
; compiling (DEFCONSTANT +UNSIGNED-INT-10-10-10-2+ ...)
; compiling (DEFCONSTANT +UNSIGNED-INT-2-10-10-10-REV+ ...)
; compiling (DEFCONSTANT +LIGHT-MODEL-COLOR-CONTROL+ ...)
; compiling (DEFCONSTANT +SINGLE-COLOR+ ...)
; compiling (DEFCONSTANT +SEPARATE-SPECULAR-COLOR+ ...)
; compiling (DEFCONSTANT +TEXTURE-MIN-LOD+ ...)
; compiling (DEFCONSTANT +TEXTURE-MAX-LOD+ ...)
; compiling (DEFCONSTANT +TEXTURE-BASE-LEVEL+ ...)
; compiling (DEFCONSTANT +TEXTURE-MAX-LEVEL+ ...)
; compiling (DEFCONSTANT +SMOOTH-POINT-SIZE-RANGE+ ...)
; compiling (DEFCONSTANT +SMOOTH-POINT-SIZE-GRANULARITY+ ...)
; compiling (DEFCONSTANT +SMOOTH-LINE-WIDTH-RANGE+ ...)
; compiling (DEFCONSTANT +SMOOTH-LINE-WIDTH-GRANULARITY+ ...)
; compiling (DEFCONSTANT +ALIASED-POINT-SIZE-RANGE+ ...)
; compiling (DEFCONSTANT +ALIASED-LINE-WIDTH-RANGE+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE+ ...)
; compiling (DEFCONSTANT +POST-CONVOLUTION-COLOR-TABLE+ ...)
; compiling (DEFCONSTANT +POST-COLOR-MATRIX-COLOR-TABLE+ ...)
; compiling (DEFCONSTANT +PROXY-COLOR-TABLE+ ...)
; compiling (DEFCONSTANT +PROXY-POST-CONVOLUTION-COLOR-TABLE+ ...)
; compiling (DEFCONSTANT +PROXY-POST-COLOR-MATRIX-COLOR-TABLE+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-SCALE+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-BIAS+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-FORMAT+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-WIDTH+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-RED-SIZE+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-GREEN-SIZE+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-BLUE-SIZE+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-ALPHA-SIZE+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-LUMINANCE-SIZE+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-INTENSITY-SIZE+ ...)
; compiling (DEFCONSTANT +CONVOLUTION-1D+ ...)
; compiling (DEFCONSTANT +CONVOLUTION-2D+ ...)
; compiling (DEFCONSTANT +SEPARABLE-2D+ ...)
; compiling (DEFCONSTANT +CONVOLUTION-BORDER-MODE+ ...)
; compiling (DEFCONSTANT +CONVOLUTION-FILTER-SCALE+ ...)
; compiling (DEFCONSTANT +CONVOLUTION-FILTER-BIAS+ ...)
; compiling (DEFCONSTANT +REDUCE+ ...)
; compiling (DEFCONSTANT +CONVOLUTION-FORMAT+ ...)
; compiling (DEFCONSTANT +CONVOLUTION-WIDTH+ ...)
; compiling (DEFCONSTANT +CONVOLUTION-HEIGHT+ ...)
; compiling (DEFCONSTANT +MAX-CONVOLUTION-WIDTH+ ...)
; compiling (DEFCONSTANT +MAX-CONVOLUTION-HEIGHT+ ...)
; compiling (DEFCONSTANT +POST-CONVOLUTION-RED-SCALE+ ...)
; compiling (DEFCONSTANT +POST-CONVOLUTION-GREEN-SCALE+ ...)
; compiling (DEFCONSTANT +POST-CONVOLUTION-BLUE-SCALE+ ...)
; compiling (DEFCONSTANT +POST-CONVOLUTION-ALPHA-SCALE+ ...)
; compiling (DEFCONSTANT +POST-CONVOLUTION-RED-BIAS+ ...)
; compiling (DEFCONSTANT +POST-CONVOLUTION-GREEN-BIAS+ ...)
; compiling (DEFCONSTANT +POST-CONVOLUTION-BLUE-BIAS+ ...)
; compiling (DEFCONSTANT +POST-CONVOLUTION-ALPHA-BIAS+ ...)
; compiling (DEFCONSTANT +CONSTANT-BORDER+ ...)
; compiling (DEFCONSTANT +REPLICATE-BORDER+ ...)
; compiling (DEFCONSTANT +CONVOLUTION-BORDER-COLOR+ ...)
; compiling (DEFCONSTANT +COLOR-MATRIX+ ...)
; compiling (DEFCONSTANT +COLOR-MATRIX-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +MAX-COLOR-MATRIX-STACK-DEPTH+ ...)
; compiling (DEFCONSTANT +POST-COLOR-MATRIX-RED-SCALE+ ...)
; compiling (DEFCONSTANT +POST-COLOR-MATRIX-GREEN-SCALE+ ...)
; compiling (DEFCONSTANT +POST-COLOR-MATRIX-BLUE-SCALE+ ...)
; compiling (DEFCONSTANT +POST-COLOR-MATRIX-ALPHA-SCALE+ ...)
; compiling (DEFCONSTANT +POST-COLOR-MATRIX-RED-BIAS+ ...)
; compiling (DEFCONSTANT +POST-COLOR-MATRIX-GREEN-BIAS+ ...)
; compiling (DEFCONSTANT +POST-COLOR-MATRIX-BLUE-BIAS+ ...)
; compiling (DEFCONSTANT +POST-COLOR-MATRIX-ALPHA-BIAS+ ...)
; compiling (DEFCONSTANT +HISTOGRAM+ ...)
; compiling (DEFCONSTANT +PROXY-HISTOGRAM+ ...)
; compiling (DEFCONSTANT +HISTOGRAM-WIDTH+ ...)
; compiling (DEFCONSTANT +HISTOGRAM-FORMAT+ ...)
; compiling (DEFCONSTANT +HISTOGRAM-RED-SIZE+ ...)
; compiling (DEFCONSTANT +HISTOGRAM-GREEN-SIZE+ ...)
; compiling (DEFCONSTANT +HISTOGRAM-BLUE-SIZE+ ...)
; compiling (DEFCONSTANT +HISTOGRAM-ALPHA-SIZE+ ...)
; compiling (DEFCONSTANT +HISTOGRAM-LUMINANCE-SIZE+ ...)
; compiling (DEFCONSTANT +HISTOGRAM-SINK+ ...)
; compiling (DEFCONSTANT +MINMAX+ ...)
; compiling (DEFCONSTANT +MINMAX-FORMAT+ ...)
; compiling (DEFCONSTANT +MINMAX-SINK+ ...)
; compiling (DEFCONSTANT +TABLE-TOO-LARGE+ ...)
; compiling (DEFCONSTANT +BLEND-EQUATION+ ...)
; compiling (DEFCONSTANT +MIN+ ...)
; compiling (DEFCONSTANT +MAX+ ...)
; compiling (DEFCONSTANT +FUNC-ADD+ ...)
; compiling (DEFCONSTANT +FUNC-SUBTRACT+ ...)
; compiling (DEFCONSTANT +FUNC-REVERSE-SUBTRACT+ ...)
; compiling (DEFCONSTANT +CURRENT-BIT+ ...)
; compiling (DEFCONSTANT +POINT-BIT+ ...)
; compiling (DEFCONSTANT +LINE-BIT+ ...)
; compiling (DEFCONSTANT +POLYGON-BIT+ ...)
; compiling (DEFCONSTANT +POLYGON-STIPPLE-BIT+ ...)
; compiling (DEFCONSTANT +PIXEL-MODE-BIT+ ...)
; compiling (DEFCONSTANT +LIGHTING-BIT+ ...)
; compiling (DEFCONSTANT +FOG-BIT+ ...)
; compiling (DEFCONSTANT +DEPTH-BUFFER-BIT+ ...)
; compiling (DEFCONSTANT +ACCUM-BUFFER-BIT+ ...)
; compiling (DEFCONSTANT +STENCIL-BUFFER-BIT+ ...)
; compiling (DEFCONSTANT +VIEWPORT-BIT+ ...)
; compiling (DEFCONSTANT +TRANSFORM-BIT+ ...)
; compiling (DEFCONSTANT +ENABLE-BIT+ ...)
; compiling (DEFCONSTANT +COLOR-BUFFER-BIT+ ...)
; compiling (DEFCONSTANT +HINT-BIT+ ...)
; compiling (DEFCONSTANT +EVAL-BIT+ ...)
; compiling (DEFCONSTANT +LIST-BIT+ ...)
; compiling (DEFCONSTANT +TEXTURE-BIT+ ...)
; compiling (DEFCONSTANT +SCISSOR-BIT+ ...)
; compiling (DEFCONSTANT +ALL-ATTRIB-BITS+ ...)
; compiling (DEFCONSTANT +CLIENT-PIXEL-STORE-BIT+ ...)
; compiling (DEFCONSTANT +CLIENT-VERTEX-ARRAY-BIT+ ...)
; compiling (DEFCONSTANT +CLIENT-ALL-ATTRIB-BITS+ ...)
; compiling (DEFCONSTANT +ARB-MULTITEXTURE+ ...)
; compiling (DEFCONSTANT +TEXTURE0-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE1-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE2-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE3-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE4-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE5-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE6-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE7-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE8-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE9-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE10-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE11-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE12-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE13-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE14-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE15-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE16-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE17-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE18-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE19-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE20-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE21-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE22-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE23-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE24-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE25-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE26-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE27-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE28-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE29-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE30-ARB+ ...)
; compiling (DEFCONSTANT +TEXTURE31-ARB+ ...)
; compiling (DEFCONSTANT +ACTIVE-TEXTURE-ARB+ ...)
; compiling (DEFCONSTANT +CLIENT-ACTIVE-TEXTURE-ARB+ ...)
; compiling (DEFCONSTANT +MAX-TEXTURE-UNITS-ARB+ ...)
; compiling (DEFCONSTANT +EXT-ABGR+ ...)
; compiling (DEFCONSTANT +ABGR-EXT+ ...)
; compiling (DEFCONSTANT +EXT-BLEND-COLOR+ ...)
; compiling (DEFCONSTANT +CONSTANT-COLOR-EXT+ ...)
; compiling (DEFCONSTANT +ONE-MINUS-CONSTANT-COLOR-EXT+ ...)
; compiling (DEFCONSTANT +CONSTANT-ALPHA-EXT+ ...)
; compiling (DEFCONSTANT +ONE-MINUS-CONSTANT-ALPHA-EXT+ ...)
; compiling (DEFCONSTANT +BLEND-COLOR-EXT+ ...)
; compiling (DEFCONSTANT +EXT-POLYGON-OFFSET+ ...)
; compiling (DEFCONSTANT +POLYGON-OFFSET-EXT+ ...)
; compiling (DEFCONSTANT +POLYGON-OFFSET-FACTOR-EXT+ ...)
; compiling (DEFCONSTANT +POLYGON-OFFSET-BIAS-EXT+ ...)
; compiling (DEFCONSTANT +EXT-TEXTURE3D+ ...)
; compiling (DEFCONSTANT +PACK-SKIP-IMAGES-EXT+ ...)
; compiling (DEFCONSTANT +PACK-IMAGE-HEIGHT-EXT+ ...)
; compiling (DEFCONSTANT +UNPACK-SKIP-IMAGES-EXT+ ...)
; compiling (DEFCONSTANT +UNPACK-IMAGE-HEIGHT-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-3D-EXT+ ...)
; compiling (DEFCONSTANT +PROXY-TEXTURE-3D-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-DEPTH-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-WRAP-R-EXT+ ...)
; compiling (DEFCONSTANT +MAX-3D-TEXTURE-SIZE-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-3D-BINDING-EXT+ ...)
; compiling (DEFCONSTANT +EXT-TEXTURE-OBJECT+ ...)
; compiling (DEFCONSTANT +TEXTURE-PRIORITY-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-RESIDENT-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-1D-BINDING-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-2D-BINDING-EXT+ ...)
; compiling (DEFCONSTANT +EXT-RESCALE-NORMAL+ ...)
; compiling (DEFCONSTANT +RESCALE-NORMAL-EXT+ ...)
; compiling (DEFCONSTANT +EXT-VERTEX-ARRAY+ ...)
; compiling (DEFCONSTANT +VERTEX-ARRAY-EXT+ ...)
; compiling (DEFCONSTANT +NORMAL-ARRAY-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-ARRAY-EXT+ ...)
; compiling (DEFCONSTANT +INDEX-ARRAY-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-EXT+ ...)
; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-EXT+ ...)
; compiling (DEFCONSTANT +VERTEX-ARRAY-SIZE-EXT+ ...)
; compiling (DEFCONSTANT +VERTEX-ARRAY-TYPE-EXT+ ...)
; compiling (DEFCONSTANT +VERTEX-ARRAY-STRIDE-EXT+ ...)
; compiling (DEFCONSTANT +VERTEX-ARRAY-COUNT-EXT+ ...)
; compiling (DEFCONSTANT +NORMAL-ARRAY-TYPE-EXT+ ...)
; compiling (DEFCONSTANT +NORMAL-ARRAY-STRIDE-EXT+ ...)
; compiling (DEFCONSTANT +NORMAL-ARRAY-COUNT-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-ARRAY-SIZE-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-ARRAY-TYPE-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-ARRAY-STRIDE-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-ARRAY-COUNT-EXT+ ...)
; compiling (DEFCONSTANT +INDEX-ARRAY-TYPE-EXT+ ...)
; compiling (DEFCONSTANT +INDEX-ARRAY-STRIDE-EXT+ ...)
; compiling (DEFCONSTANT +INDEX-ARRAY-COUNT-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-SIZE-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-TYPE-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-STRIDE-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-COUNT-EXT+ ...)
; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-STRIDE-EXT+ ...)
; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-COUNT-EXT+ ...)
; compiling (DEFCONSTANT +VERTEX-ARRAY-POINTER-EXT+ ...)
; compiling (DEFCONSTANT +NORMAL-ARRAY-POINTER-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-ARRAY-POINTER-EXT+ ...)
; compiling (DEFCONSTANT +INDEX-ARRAY-POINTER-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-POINTER-EXT+ ...)
; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-POINTER-EXT+ ...)
; compiling (DEFCONSTANT +SGIS-TEXTURE-EDGE-CLAMP+ ...)
; compiling (DEFCONSTANT +CLAMP-TO-EDGE-SGIS+ ...)
; compiling (DEFCONSTANT +EXT-BLEND-MINMAX+ ...)
; compiling (DEFCONSTANT +FUNC-ADD-EXT+ ...)
; compiling (DEFCONSTANT +MIN-EXT+ ...)
; compiling (DEFCONSTANT +MAX-EXT+ ...)
; compiling (DEFCONSTANT +BLEND-EQUATION-EXT+ ...)
; compiling (DEFCONSTANT +EXT-BLEND-SUBTRACT+ ...)
; compiling (DEFCONSTANT +FUNC-SUBTRACT-EXT+ ...)
; compiling (DEFCONSTANT +FUNC-REVERSE-SUBTRACT-EXT+ ...)
; compiling (DEFCONSTANT +EXT-BLEND-LOGIC-OP+ ...)
; compiling (DEFCONSTANT +EXT-POINT-PARAMETERS+ ...)
; compiling (DEFCONSTANT +POINT-SIZE-MIN-EXT+ ...)
; compiling (DEFCONSTANT +POINT-SIZE-MAX-EXT+ ...)
; compiling (DEFCONSTANT +POINT-FADE-THRESHOLD-SIZE-EXT+ ...)
; compiling (DEFCONSTANT +DISTANCE-ATTENUATION-EXT+ ...)
; compiling (DEFCONSTANT +EXT-PALETTED-TEXTURE+ ...)
; compiling (DEFCONSTANT +TABLE-TOO-LARGE-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-FORMAT-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-WIDTH-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-RED-SIZE-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-GREEN-SIZE-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-BLUE-SIZE-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-ALPHA-SIZE-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-LUMINANCE-SIZE-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-TABLE-INTENSITY-SIZE-EXT+ ...)
; compiling (DEFCONSTANT +TEXTURE-INDEX-SIZE-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-INDEX1-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-INDEX2-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-INDEX4-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-INDEX8-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-INDEX12-EXT+ ...)
; compiling (DEFCONSTANT +COLOR-INDEX16-EXT+ ...)
; compiling (DEFCONSTANT +EXT-CLIP-VOLUME-HINT+ ...)
; compiling (DEFCONSTANT +CLIP-VOLUME-CLIPPING-HINT-EXT+ ...)
; compiling (DEFCONSTANT +EXT-COMPILED-VERTEX-ARRAY+ ...)
; compiling (DEFCONSTANT +ARRAY-ELEMENT-LOCK-FIRST-EXT+ ...)
; compiling (DEFCONSTANT +ARRAY-ELEMENT-LOCK-COUNT-EXT+ ...)
; compiling (DEFCONSTANT +HP-OCCLUSION-TEST+ ...)
; compiling (DEFCONSTANT +OCCLUSION-TEST-HP+ ...)
; compiling (DEFCONSTANT +OCCLUSION-TEST-RESULT-HP+ ...)
; compiling (DEFCONSTANT +EXT-SHARED-TEXTURE-PALETTE+ ...)
; compiling (DEFCONSTANT +SHARED-TEXTURE-PALETTE-EXT+ ...)
; compiling (DEFCONSTANT +EXT-STENCIL-WRAP+ ...)
; compiling (DEFCONSTANT +INCR-WRAP-EXT+ ...)
; compiling (DEFCONSTANT +DECR-WRAP-EXT+ ...)
; compiling (DEFCONSTANT +NV-TEXGEN-REFLECTION+ ...)
; compiling (DEFCONSTANT +NORMAL-MAP-NV+ ...)
; compiling (DEFCONSTANT +REFLECTION-MAP-NV+ ...)
; compiling (DEFCONSTANT +EXT-TEXTURE-ENV-ADD+ ...)
; compiling (DEFCONSTANT +MESA-WINDOW-POS+ ...)
; compiling (DEFCONSTANT +MESA-RESIZE-BUFFERS+ ...)
; compiling (DEFTYPE BOOL ...)
; compiling (DEFTYPE FLOAT32 ...)
; compiling (DEFTYPE FLOAT64 ...)
; compiling (DECLAIM (INLINE ASET-FLOAT32 ...))
; compiling (DEFUN ASET-FLOAT32 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFUN ASET-FLOAT64 ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFUN BYTE-WIDTH ...)
; compiling (DEFUN SETTER ...)
; compiling (DEFUN SEQUENCE-SETTER ...)
; compiling (DEFMACRO DEFINE-SEQUENCE-SETTER ...)
; compiling (DEFINE-SEQUENCE-SETTER INT8); in: LAMBDA NIL
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFMACRO DEFINE-SEQUENCE-SETTER
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFINE-SEQUENCE-SETTER INT16); in: LAMBDA NIL
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFMACRO DEFINE-SEQUENCE-SETTER
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFINE-SEQUENCE-SETTER INT32); in: LAMBDA NIL
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFMACRO DEFINE-SEQUENCE-SETTER
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFINE-SEQUENCE-SETTER BOOL); in: LAMBDA NIL
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFMACRO DEFINE-SEQUENCE-SETTER
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFINE-SEQUENCE-SETTER CARD8); in: LAMBDA NIL
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFMACRO DEFINE-SEQUENCE-SETTER
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFINE-SEQUENCE-SETTER CARD16); in: LAMBDA NIL
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFMACRO DEFINE-SEQUENCE-SETTER
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFINE-SEQUENCE-SETTER CARD32); in: LAMBDA NIL
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFMACRO DEFINE-SEQUENCE-SETTER
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; compiling (DEFINE-SEQUENCE-SETTER FLOAT32); in: LAMBDA NIL
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (GL::ASET-FLOAT32 GL::N
;                     GL::BUFFER
;                     (THE XLIB:ARRAY-INDEX (+ GL::START GL::OFFSET)))
; --> BLOCK LET 
; ==>
;   (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

;     (GL::ASET-FLOAT32 (SVREF GL::SEQ GL::I)
;                     GL::BUFFER
;                     (THE XLIB:ARRAY-INDEX (+ GL::START (* GL::I 4))))
; --> BLOCK LET 
; ==>
;   (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

;     (GL::ASET-FLOAT32 (AREF GL::SEQ GL::I)
;                     GL::BUFFER
;                     (THE XLIB:ARRAY-INDEX (+ GL::START (* GL::I 4))))
; --> BLOCK LET 
; ==>
;   (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFMACRO DEFINE-SEQUENCE-SETTER
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-SEQUENCE-SETTER FLOAT64); in: LAMBDA NIL
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

;     (GL::ASET-FLOAT64 GL::N
;                     GL::BUFFER
;                     (THE XLIB:ARRAY-INDEX (+ GL::START GL::OFFSET)))
; --> BLOCK LET 
; ==>
;   (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

; ==>
;   (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (GL::ASET-FLOAT64 (SVREF GL::SEQ GL::I)
;                     GL::BUFFER
;                     (THE XLIB:ARRAY-INDEX (+ GL::START (* GL::I 8))))
; --> BLOCK LET 
; ==>
;   (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

; ==>
;   (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (GL::ASET-FLOAT64 (AREF GL::SEQ GL::I)
;                     GL::BUFFER
;                     (THE XLIB:ARRAY-INDEX (+ GL::START (* GL::I 8))))
; --> BLOCK LET 
; ==>
;   (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

; ==>
;   (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFMACRO DEFINE-SEQUENCE-SETTER
;     (LENGTH GL::SEQ)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

;     (AREF GL::SEQ GL::I)
; --> LET* 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to
;   avoid runtime dispatch on array element type
; because:
;   Upgraded element type of array is not known at compile time.

; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFUN MAKE-ARGSPECS ...)
; compiling (DEFUN BYTE-WIDTH-CALCULATION ...)
; compiling (DEFUN COMPOSITE-ARGS ...)
; compiling (DEFUN MAKE-SETTER-FORMS ...)
; compiling (DEFMACRO DEFINE-RENDERING-COMMAND ...)
; compiling (DEFUN GET-STRING ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN GET-STRING
;     (XLIB::WITH-BUFFER-REQUEST-AND-REPLY
;    (XLIB:DISPLAY (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX") NIL)
;    ((XLIB::DATA GL::+GET-STRING+) (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX))
;     (XLIB:CARD32 GL::NAME))
;    (LET* ((LENGTH (XLIB::CARD32-GET 12))
;           (GL::BYTES
;            (XLIB::SEQUENCE-GET :FORMAT
;                                XLIB:CARD8
;                                :RESULT-TYPE
;                                '#
;                                :INDEX
;                                32
;                                :LENGTH
;                                LENGTH)))
;      (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) GL::BYTES)
;               (TYPE FIXNUM LENGTH))
;      (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR GL::BYTES)))
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET 
; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT 
; --> XLIB::WRITE-CARD32 
; ==>
;   (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.)
;                      XLIB::BUFFER-BBUF
;                      (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND ACCUM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND ACTIVE-TEXTURE-ARB ...)
; compiling (DEFINE-RENDERING-COMMAND ALPHA-FUNC ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND BEGIN ...)
; compiling (DEFINE-RENDERING-COMMAND BIND-TEXTURE ...)
; compiling (DEFINE-RENDERING-COMMAND BLEND-COLOR ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND BLEND-EQUOTION ...)
; compiling (DEFINE-RENDERING-COMMAND BLEND-FUNC ...)
; compiling (DEFINE-RENDERING-COMMAND CALL-LIST ...)
; compiling (DEFINE-RENDERING-COMMAND CLEAR ...)
; compiling (DEFINE-RENDERING-COMMAND CLEAR-ACCUM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND CLEAR-COLOR ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND CLEAR-DEPTH ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND CLEAR-INDEX ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND CLEAR-STENCIL ...)
; compiling (DEFINE-RENDERING-COMMAND CLIP-PLANE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND COLOR-3B ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-3D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND COLOR-3F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND COLOR-3I ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-3S ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-3UB ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-3UI ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-3US ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-4B ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-4D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND COLOR-4F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND COLOR-4I ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-4S ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-4UB ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-4UI ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-4US ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-MASK ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-MATERIAL ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-TABLE-PARAMETER-FV ...)
; compiling (DEFINE-RENDERING-COMMAND COLOR-TABLE-PARAMETER-IV ...)
; compiling (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-FV ...)
; compiling (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-I ...)
; compiling (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-IV ...)
; compiling (DEFINE-RENDERING-COMMAND COPY-COLOR-SUB-TABLE ...)
; compiling (DEFINE-RENDERING-COMMAND COPY-COLOR-TABLE ...)
; compiling (DEFINE-RENDERING-COMMAND COPY-CONVOLUTION-FILTER-ID ...)
; compiling (DEFINE-RENDERING-COMMAND COPY-CONVOLUTION-FILTER-2D ...)
; compiling (DEFINE-RENDERING-COMMAND COPY-PIXELS ...)
; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-IMAGE-1D ...)
; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-IMAGE-2D ...)
; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-SUB-IMAGE-1D ...)
; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-SUB-IMAGE-2D ...)
; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-SUB-IMAGE-3D ...)
; compiling (DEFINE-RENDERING-COMMAND CULL-FACE ...)
; compiling (DEFINE-RENDERING-COMMAND DEPTH-FUNC ...)
; compiling (DEFINE-RENDERING-COMMAND DEPTH-MASK ...)
; compiling (DEFINE-RENDERING-COMMAND DEPTH-RANGE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND DRAW-BUFFER ...)
; compiling (DEFINE-RENDERING-COMMAND EDGE-FLAG-V ...)
; compiling (DEFINE-RENDERING-COMMAND END ...)
; compiling (DEFINE-RENDERING-COMMAND EVAL-COORD-1D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND EVAL-COORD-1F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND EVAL-COORD-2D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND EVAL-COORD-2F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND EVAL-MESH-1 ...)
; compiling (DEFINE-RENDERING-COMMAND EVAL-MESH-2 ...)
; compiling (DEFINE-RENDERING-COMMAND EVAL-POINT-1 ...)
; compiling (DEFINE-RENDERING-COMMAND EVAL-POINT-2 ...)
; compiling (DEFINE-RENDERING-COMMAND FOG-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND FOG-FV ...)
; compiling (DEFINE-RENDERING-COMMAND FOG-I ...)
; compiling (DEFINE-RENDERING-COMMAND FOG-IV ...)
; compiling (DEFINE-RENDERING-COMMAND FRONT-FACE ...)
; compiling (DEFINE-RENDERING-COMMAND FRUSTUM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND HINT ...)
; compiling (DEFINE-RENDERING-COMMAND HISTOGRAM ...)
; compiling (DEFINE-RENDERING-COMMAND INDEX-MASK ...)
; compiling (DEFINE-RENDERING-COMMAND INDEX-D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND INDEX-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND INDEX-I ...)
; compiling (DEFINE-RENDERING-COMMAND INDEX-S ...)
; compiling (DEFINE-RENDERING-COMMAND INDEX-UB ...)
; compiling (DEFINE-RENDERING-COMMAND INIT-NAMES ...)
; compiling (DEFINE-RENDERING-COMMAND LIGHT-MODEL-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND LIGHT-MODEL-FV ...)
; compiling (DEFINE-RENDERING-COMMAND LIGHT-MODEL-I ...)
; compiling (DEFINE-RENDERING-COMMAND LIGHT-MODEL-IV ...)
; compiling (DEFINE-RENDERING-COMMAND LIGHT-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND LIGHT-FV ...)
; compiling (DEFINE-RENDERING-COMMAND LIGHT-I ...)
; compiling (DEFINE-RENDERING-COMMAND LIGHT-IV ...)
; compiling (DEFINE-RENDERING-COMMAND LINE-STIPPLE ...)
; compiling (DEFINE-RENDERING-COMMAND LINE-WIDTH ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND LIST-BASE ...)
; compiling (DEFINE-RENDERING-COMMAND LOAD-IDENTITY ...)
; compiling (DEFINE-RENDERING-COMMAND LOAD-MATRIX-D ...)
; compiling (DEFINE-RENDERING-COMMAND LOAD-MATRIX-F ...)
; compiling (DEFINE-RENDERING-COMMAND LOAD-NAME ...)
; compiling (DEFINE-RENDERING-COMMAND LOGIC-OP ...)
; compiling (DEFINE-RENDERING-COMMAND MAP-GRID-1D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MAP-GRID-1F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MAP-GRID-2D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MAP-GRID-2F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MATERIAL-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MATERIAL-FV ...)
; compiling (DEFINE-RENDERING-COMMAND MATERIAL-I ...)
; compiling (DEFINE-RENDERING-COMMAND MATERIAL-IV ...)
; compiling (DEFINE-RENDERING-COMMAND MATRIX-MODE ...)
; compiling (DEFINE-RENDERING-COMMAND MINMAX ...)
; compiling (DEFINE-RENDERING-COMMAND MULT-MATRIX-D ...)
; compiling (DEFINE-RENDERING-COMMAND MULT-MATRIX-F ...)
; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1D-ARB ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1F-ARB ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1I-ARB ...)
; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1S-ARB ...)
; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2D-ARB ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2F-ARB ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2I-ARB ...)
; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2S-ARB ...)
; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3D-ARB ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3F-ARB ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3I-ARB ...)
; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3S-ARB ...)
; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4D-ARB ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4F-ARB ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4I-ARB ...)
; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4S-ARB ...)
; compiling (DEFINE-RENDERING-COMMAND NORMAL-3B ...)
; compiling (DEFINE-RENDERING-COMMAND NORMAL-3D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND NORMAL-3F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND NORMAL-3I ...)
; compiling (DEFINE-RENDERING-COMMAND NORMAL-3S ...)
; compiling (DEFINE-RENDERING-COMMAND ORTHO ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND PASS-THROUGH ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND PIXEL-TRANSFER-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND PIXEL-TRANSFER-I ...)
; compiling (DEFINE-RENDERING-COMMAND PIXEL-ZOOM ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND POINT-SIZE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND POLYGON-MODE ...)
; compiling (DEFINE-RENDERING-COMMAND POLYGON-OFFSET ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND POP-ATTRIB ...)
; compiling (DEFINE-RENDERING-COMMAND POP-MATRIX ...)
; compiling (DEFINE-RENDERING-COMMAND POP-NAME ...)
; compiling (DEFINE-RENDERING-COMMAND PRIORITIZE-TEXTURES ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFINE-RENDERING-COMMAND PRIORITIZE-TEXTURES
;     (GL::DEFINE-RENDERING-COMMAND GL::PRIORITIZE-TEXTURES
;                                 4118
;                                 (GL::N XLIB:INT32)
;                                 (GL::TEXTURES (LIST XLIB:CARD32 GL::N))
;                                 (GL::PRIORITIES (LIST GL::FLOAT32 GL::N)))
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET* + * CEILING + + + * * 
; ==>
;   (ASH SB-C::X 2)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8589934592 8589934588)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER -8589934592 8589934588)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET* + * CEILING + + + 
; ==>
;   (+ SB-C::Y 4)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -8589934592 8589934588), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8589934588 8589934592)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -8589934592 8589934588), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8589934588 8589934592)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET* + * CEILING + + * * 
; ==>
;   (ASH SB-C::X 2)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
;       The result is a (VALUES (INTEGER -8589934592 8589934588)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (INTEGER -8589934592 8589934588)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET* + * CEILING + 
; ==>
;   (+ (+ 4 (* 4 GL::N)) (* 4 GL::N))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -8589934588 8589934592), not a FIXNUM.
;       The second argument is a (INTEGER -8589934592 8589934588), not a FIXNUM.
;       The result is a (VALUES (INTEGER -17179869180 17179869180)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do safe inline fixnum arithmetic (cost 4) because:
;       The first argument is a (INTEGER -8589934588 8589934592), not a FIXNUM.
;       The second argument is a (INTEGER -8589934592 8589934588), not a FIXNUM.
;       The result is a (VALUES (INTEGER -17179869180 17179869180)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET* + * CEILING LET 
; ==>
;   (+ SB-C::X 3)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -17179869180 17179869180), not a FIXNUM.
;       The result is a (VALUES (INTEGER -17179869177 17179869183)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -17179869180 17179869180), not a FIXNUM.
;       The result is a (VALUES (INTEGER -17179869177 17179869183)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET* + * CEILING LET VALUES 
; ==>
;   (ASH SB-C::X -2)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER -17179869177
;                                        17179869183), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 4294967295)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       unable to do inline constant ASH (cost 4) because:
;       The first argument is a (INTEGER -17179869177
;                                        17179869183), not a (UNSIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -4294967295 4294967295)
;                               &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET* + * * 
; ==>
;   (ASH SB-C::X 2)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a (INTEGER -4294967295 4294967295), not a FIXNUM.
;       The result is a (VALUES (INTEGER -17179869180 17179869180)
;                               &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a (INTEGER -4294967295
;                                        4294967295), not a (SIGNED-BYTE 32).
;       The result is a (VALUES (INTEGER -17179869180 17179869180)
;                               &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
;                                                         &REST
;                                                         T).
;       etc.

; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET* + 
; ==>
;   (+ SB-C::Y 4)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER -17179869180 17179869180), not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER -17179869180 17179869180), not a FIXNUM.
;       etc.

; compiling (DEFINE-RENDERING-COMMAND PUSH-ATTRIB ...)
; compiling (DEFINE-RENDERING-COMMAND PUSH-MATRIX ...)
; compiling (DEFINE-RENDERING-COMMAND PUSH-NAME ...)
; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-2D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-2F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-2I ...)
; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-2S ...)
; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-3D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-3F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-3I ...)
; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-3S ...)
; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-4D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-4F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-4I ...)
; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-4S ...)
; compiling (DEFINE-RENDERING-COMMAND READ-BUFFER ...)
; compiling (DEFINE-RENDERING-COMMAND RECT-D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND RECT-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND RECT-I ...)
; compiling (DEFINE-RENDERING-COMMAND RECT-S ...)
; compiling (DEFINE-RENDERING-COMMAND RESET-HISTOGRAM ...)
; compiling (DEFINE-RENDERING-COMMAND RESET-MINMAX ...)
; compiling (DEFINE-RENDERING-COMMAND ROTATE-D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND ROTATE-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND SCALE-D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND SCALE-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND SCISSOR ...)
; compiling (DEFINE-RENDERING-COMMAND SHADE-MODEL ...)
; compiling (DEFINE-RENDERING-COMMAND STENCIL-FUNC ...)
; compiling (DEFINE-RENDERING-COMMAND STENCIL-MASK ...)
; compiling (DEFINE-RENDERING-COMMAND STENCIL-OP ...)
; compiling (DEFINE-RENDERING-COMMAND TEX-ENV-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND TEX-ENV-FV ...)
; compiling (DEFINE-RENDERING-COMMAND TEX-ENV-I ...)
; compiling (DEFINE-RENDERING-COMMAND TEX-ENV-IV ...)
; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-DV ...)
; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-FV ...)
; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-I ...)
; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-IV ...)
; compiling (DEFINE-RENDERING-COMMAND TEX-PARAMETER-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND TEX-PARAMETER-FV ...)
; compiling (DEFINE-RENDERING-COMMAND TEX-PARAMETER-I ...)
; compiling (DEFINE-RENDERING-COMMAND TEX-PARAMETER-IV ...)
; compiling (DEFINE-RENDERING-COMMAND TRANSLATE-D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND TRANSLATE-F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND VERTEX-2D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND VERTEX-2F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND VERTEX-2I ...)
; compiling (DEFINE-RENDERING-COMMAND VERTEX-2S ...)
; compiling (DEFINE-RENDERING-COMMAND VERTEX-3D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND VERTEX-3F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND VERTEX-3I ...)
; compiling (DEFINE-RENDERING-COMMAND VERTEX-3S ...)
; compiling (DEFINE-RENDERING-COMMAND VERTEX-4D ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT64
;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::LOW ARRAY GL::INDEX)
; 
; note: doing unsigned word to integer coercion (cost 20)

;     (XLIB::ASET-CARD32 GL::HIGH ARRAY (THE XLIB:ARRAY-INDEX (+ GL::INDEX 4)))
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND VERTEX-4F ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ASET-FLOAT32
;     (XLIB::ASET-CARD32 GL::BITS ARRAY GL::INDEX)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)
; 
; note: doing signed word to integer coercion (cost 20)

; compiling (DEFINE-RENDERING-COMMAND VERTEX-4I ...)
; compiling (DEFINE-RENDERING-COMMAND VERTEX-4S ...)
; compiling (DEFINE-RENDERING-COMMAND VIEWPORT ...)
; compiling (DEFUN NEW-LIST ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN NEW-LIST
;     (XLIB::WITH-BUFFER-REQUEST
;    (XLIB:DISPLAY (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
;    (XLIB::DATA GL::+NEW-LIST+)
;    (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX))
;    (XLIB:CARD32 LIST)
;    (XLIB:CARD32 GL::MODE))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT 
; --> XLIB::WRITE-CARD32 
; ==>
;   (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.)
;                      XLIB::BUFFER-BBUF
;                      (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFUN GEN-LISTS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN GEN-LISTS
;     (XLIB::WITH-BUFFER-REQUEST-AND-REPLY
;    (XLIB:DISPLAY (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX") NIL)
;    ((XLIB::DATA GL::+GEN-LISTS+) (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX))
;     (INTEGER GL::RANGE))
;    (XLIB::CARD32-GET 8))
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET 
; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT 
; --> XLIB::WRITE-CARD32 
; ==>
;   (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.)
;                      XLIB::BUFFER-BBUF
;                      (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFUN END-LIST ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN END-LIST
;     (XLIB::WITH-BUFFER-REQUEST
;    (XLIB:DISPLAY (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
;    (XLIB::DATA GL::+END-LIST+)
;    (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX)))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT 
; --> XLIB::WRITE-CARD32 
; ==>
;   (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.)
;                      XLIB::BUFFER-BBUF
;                      (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFUN ENABLE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN ENABLE
;     (XLIB::WITH-BUFFER-REQUEST-AND-REPLY
;    (XLIB:DISPLAY (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX") NIL)
;    ((XLIB::DATA GL::+ENABLE+) (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX))
;     (XLIB:CARD32 GL::CAP)))
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET 
; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT 
; --> XLIB::WRITE-CARD32 
; ==>
;   (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.)
;                      XLIB::BUFFER-BBUF
;                      (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFUN FLUSH ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN FLUSH
;     (XLIB::WITH-BUFFER-REQUEST
;    (XLIB:DISPLAY (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
;    (XLIB::DATA GL::+FLUSH+)
;    (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX)))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT 
; --> XLIB::WRITE-CARD32 
; ==>
;   (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.)
;                      XLIB::BUFFER-BBUF
;                      (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
; 
; note: doing unsigned word to integer coercion (cost 20)

; compiling (DEFUN FINISH ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.lisp
; in: DEFUN FINISH
;     (XLIB::WITH-BUFFER-REQUEST-AND-REPLY
;    (XLIB:DISPLAY (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX") NIL)
;    ((XLIB::DATA GL::+FINISH+) (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX))))
; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET 
; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT 
; --> XLIB::WRITE-CARD32 
; ==>
;   (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.)
;                      XLIB::BUFFER-BBUF
;                      (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
; 
; note: doing unsigned word to integer coercion (cost 20)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/gl.fasl written
; compilation finished in 0:00:19
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dpms.lisp" (written 10 JAN 2006 05:30:09 PM):
; compiling (DEFPACKAGE :DPMS ...)
; compiling (IN-PACKAGE :DPMS)
; compiling (DEFINE-EXTENSION "DPMS")
; compiling (DEFMACRO DPMS-OPCODE ...)
; compiling (DEFCONSTANT +GET-VERSION+ ...)
; compiling (DEFCONSTANT +CAPABLE+ ...)
; compiling (DEFCONSTANT +GET-TIMEOUTS+ ...)
; compiling (DEFCONSTANT +SET-TIMEOUTS+ ...)
; compiling (DEFCONSTANT +ENABLE+ ...)
; compiling (DEFCONSTANT +DISABLE+ ...)
; compiling (DEFCONSTANT +FORCE-LEVEL+ ...)
; compiling (DEFCONSTANT +INFO+ ...)
; compiling (DEFUN DPMS-GET-VERSION ...)
; compiling (DEFUN DPMS-CAPABLE ...)
; compiling (DEFUN DPMS-GET-TIMEOUTS ...)
; compiling (DEFUN DPMS-SET-TIMEOUTS ...)
; compiling (DEFUN DPMS-ENABLE ...)
; compiling (DEFUN DPMS-DISABLE ...)
; compiling (DEFUN DPMS-FORCE-LEVEL ...)
; compiling (DEFUN DPMS-INFO ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/dpms.fasl written
; compilation finished in 0:00:02
STYLE-WARNING: redefining BYTE-WIDTH in DEFUN
STYLE-WARNING: redefining SETTER in DEFUN
STYLE-WARNING: redefining SEQUENCE-SETTER in DEFUN
STYLE-WARNING: redefining SSET-INT8 in DEFUN
STYLE-WARNING: redefining SSET-INT16 in DEFUN
STYLE-WARNING: redefining SSET-INT32 in DEFUN
STYLE-WARNING: redefining SSET-BOOL in DEFUN
STYLE-WARNING: redefining SSET-CARD8 in DEFUN
STYLE-WARNING: redefining SSET-CARD16 in DEFUN
STYLE-WARNING: redefining SSET-CARD32 in DEFUN
STYLE-WARNING: redefining SSET-FLOAT32 in DEFUN
STYLE-WARNING: redefining SSET-FLOAT64 in DEFUN
STYLE-WARNING: redefining MAKE-ARGSPECS in DEFUN
STYLE-WARNING: redefining BYTE-WIDTH-CALCULATION in DEFUN
STYLE-WARNING: redefining COMPOSITE-ARGS in DEFUN
STYLE-WARNING: redefining MAKE-SETTER-FORMS in DEFUN
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/bezier.lisp" (written 14 JUL 2005 09:24:43 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (EXPORT (QUOTE DRAW-CURVES))
; compiling (DEFINE-EXTENSION "bezier")
; compiling (DEFUN DRAW-CURVES ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/bezier.lisp
; in: DEFUN DRAW-CURVES
;     (XLIB::WITH-BUFFER-REQUEST
;    (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT)
;    ((XLIB::DATA XLIB:CARD8) 1)
;    (XLIB:DRAWABLE XLIB:DRAWABLE)
;    (XLIB:GCONTEXT XLIB:GCONTEXT)
;    ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::POINTS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/bezier.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/beziertest.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFUN BEZIER-TEST ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/beziertest.lisp
; in: DEFUN BEZIER-TEST
;     (ZEROP COUNT)
; ==>
;   (= COUNT 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/beziertest.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/clclock.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (DEFPACKAGE "XCLCLOCK" ...)
; compiling (IN-PACKAGE "XCLCLOCK")
; compiling (DEFVAR *DISPLAY* ...)
; compiling (DEFVAR *SCREEN* ...)
; compiling (DEFVAR *COLORMAP* ...)
; compiling (DEFVAR *FONT* ...)
; compiling (DEFVAR *WIN*)
; compiling (MULTIPLE-VALUE-BIND (WIDTH ASCENT) ...)
; compiling (DEFVAR *GCONTEXT* ...)
; compiling (DEFVAR *BACKGROUND* ...)
; compiling (DEFVAR *PALETTE* ...)
; compiling (DEFVAR *BLACK* ...)
; compiling (DEFUN ROMANIZE ...)
; compiling (DEFUN CLOCK-STRING ...)
; compiling (DEFUN UPDATE-CLOCKFACE ...)
; compiling (DEFUN CLOCK ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/clclock.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/clipboard.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (DEFPACKAGE "CLIPBOARD" ...)
; compiling (IN-PACKAGE "CLIPBOARD")
; compiling (DEFVAR *WINDOW*)
; compiling (DEFVAR *TIME*)
; compiling (DEFVAR *DISPLAY*)
; compiling (DEFUN OWNSELECT ...)
; compiling (DEFUN DESELECT ...)
; compiling (DEFUN ASK-PASTE ...)
; compiling (DEFUN RECV-PASTE ...)
; compiling (DEFUN SEND-COPY ...)
; compiling (DEFUN MAIN ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/clipboard.lisp
; in: DEFUN MAIN
;     (XLIB:EVENT-CASE (CLIPBOARD::*DISPLAY*)
;                    (:BUTTON-PRESS (CLIPBOARD::CODE TIME)
;                                   (FORMAT T "~&ButtonPress~%")
;                                   (FINISH-OUTPUT)
;                                   (CASE CLIPBOARD::CODE
;                                     (1
;                                      (SETF CLIPBOARD::*TIME* TIME)
;                                      (CLIPBOARD::OWNSELECT))
;                                     (2 (CLIPBOARD::ASK-PASTE))
;                                     (3 (CLIPBOARD::DESELECT))))
;                    (:CLIENT-MESSAGE NIL
;                                     (FORMAT T "~&ClientMessage~%")
;                                     (FINISH-OUTPUT))
;                    (:SELECTION-CLEAR (CLIPBOARD::SELECTION)
;                                      (FORMAT T
;                                              "~&SelectionClear ~S~%"
;                                              CLIPBOARD::SELECTION)
;                                      (FINISH-OUTPUT))
;                    (:SELECTION-NOTIFY
;                     (CLIPBOARD::SELECTION CLIPBOARD::TARGET
;                                           CLIPBOARD::PROPERTY)
;                     (FORMAT T
;                             "~&SelectionNotify ~S ~S ~S~%"
;                             CLIPBOARD::SELECTION
;                             CLIPBOARD::TARGET
;                             CLIPBOARD::PROPERTY)
;                     (FINISH-OUTPUT)
;                     (UNLESS (EQ CLIPBOARD::PROPERTY NIL)
;                       (CLIPBOARD::RECV-PASTE CLIPBOARD::PROPERTY))
;                     (XLIB:DISPLAY-FINISH-OUTPUT CLIPBOARD::*DISPLAY*))
;                    (:SELECTION-REQUEST
;                     (CLIPBOARD::SELECTION CLIPBOARD::TARGET
;                                           CLIPBOARD::PROPERTY
;                                           CLIPBOARD::REQUESTOR
;                                           TIME)
;                     (FORMAT T
;                             "~&SelectionRequest ~S ~S ~S~%"
;                             CLIPBOARD::SELECTION
;                             CLIPBOARD::TARGET
;                             CLIPBOARD::PROPERTY)
;                     (FINISH-OUTPUT)
;                     (CLIPBOARD::SEND-COPY CLIPBOARD::SELECTION
;                                           CLIPBOARD::TARGET
;                                           CLIPBOARD::PROPERTY
;                                           CLIPBOARD::REQUESTOR
;                                           TIME)
;                     (XLIB:DISPLAY-FINISH-OUTPUT CLIPBOARD::*DISPLAY*))
;                    (:PROPERTY-NOTIFY (ATOM CLIPBOARD::STATE)
;                                      (FORMAT T
;                                              "~&PropertyNotify ~S ~S~%"
;                                              ATOM
;                                              CLIPBOARD::STATE)
;                                      (FINISH-OUTPUT)))
; --> XLIB:EVENT-COND LET XLIB::EVENT-LOOP LET XLIB:WITH-EVENT-QUEUE MACROLET 
; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION PROGV LET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LOOP BLOCK TAGBODY PROGN 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET UNWIND-PROTECT FLET 
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP 
; --> RETURN-FROM PROGN LET XLIB::EVENT-DISPATCH XLIB::READING-EVENT 
; --> XLIB::WITH-BUFFER-INPUT LET LET* LET CASE LET COND IF PROGN 
; --> XLIB::BINDING-EVENT-VALUES LET LET LET MACROLET IF ZEROP 
; ==>
;   (= #:G2207 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> XLIB:EVENT-COND LET XLIB::EVENT-LOOP LET XLIB:WITH-EVENT-QUEUE MACROLET 
; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION PROGV LET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LOOP BLOCK TAGBODY PROGN 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET UNWIND-PROTECT FLET 
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP 
; --> RETURN-FROM PROGN LET XLIB::EVENT-DISPATCH XLIB::READING-EVENT 
; --> XLIB::WITH-BUFFER-INPUT LET LET* LET CASE LET COND IF COND IF COND IF 
; --> COND IF PROGN XLIB::BINDING-EVENT-VALUES LET LET LET MACROLET IF ZEROP 
; ==>
;   (= #:G6123 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> XLIB:EVENT-COND LET XLIB::EVENT-LOOP LET XLIB:WITH-EVENT-QUEUE MACROLET 
; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION PROGV LET UNWIND-PROTECT 
; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LOOP BLOCK TAGBODY PROGN 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET UNWIND-PROTECT FLET 
; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP 
; --> RETURN-FROM PROGN LET XLIB::EVENT-DISPATCH XLIB::READING-EVENT 
; --> XLIB::WITH-BUFFER-INPUT LET LET* LET CASE LET COND IF COND IF COND IF 
; --> COND IF COND IF PROGN XLIB::BINDING-EVENT-VALUES LET LET LET MACROLET IF 
; --> ZEROP 
; ==>
;   (= #:G5980 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= #:G5979 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/clipboard.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/clx-demos.lisp" (written 27 MAR 2006 07:17:43 PM):
; compiling (DEFPACKAGE :DEMOS ...)
; compiling (IN-PACKAGE :DEMOS)
; compiling (DEFPARAMETER *DEMOS* ...)
; compiling (DEFVAR *DISPLAY* ...)
; compiling (DEFVAR *SCREEN* ...)
; compiling (DEFVAR *ROOT* ...)
; compiling (DEFVAR *BLACK-PIXEL* ...)
; compiling (DEFVAR *WHITE-PIXEL* ...)
; compiling (DEFVAR *WINDOW* ...)
; compiling (DEFMACRO DEFDEMO ...)
; compiling (DEFUN DO-ALL-DEMOS ...)
; compiling (DEFVAR *NAME-TO-FUNCTION* ...)
; compiling (DEFVAR *KEYWORD-PACKAGE* ...)
; compiling (DEFUN DEMO ...)
; compiling (DEFUN FULL-WINDOW-STATE ...)
; compiling (DEFUN GREYNETIC ...)
; compiling (DEFVAR *GREYNETIC-PIXMAP-ARRAY* ...)
; compiling (DEFUN GREYNETIC-PIXMAPPER ...)
; compiling (DEFSTRUCT QIX ...)
; compiling (DEFUN CONSTRUCT-QIX ...)
; compiling (DEFUN MAKE-CIRCULAR-LIST ...)
; compiling (DEFUN QIX ...)
; compiling (DEFDEMO QIX-DEMO ...)
; compiling (DEFCONSTANT D360 ...)
; compiling (DEFCONSTANT D270 ...)
; compiling (DEFCONSTANT D180 ...)
; compiling (DEFCONSTANT D90 ...)
; compiling (DEFCONSTANT VECMAX ...)
; compiling (DEFPARAMETER SIN-ARRAY ...)
; compiling (DEFMACRO PSIN ...)
; compiling (DEFMACRO PCOS ...)
; compiling (DEFMACRO HIGH-16BITS-* ...)
; compiling (DEFUN COMPLETE ...)
; compiling (DEFPARAMETER CONTINUOUS ...)
; compiling (DEFPARAMETER STYINC ...)
; compiling (DEFPARAMETER PETINC ...)
; compiling (DEFPARAMETER SCALFAC-FAC ...)
; compiling (DEFUN PETAL ...)
; compiling (DEFDEMO PETAL-DEMO ...)
; compiling (DEFPARAMETER DISK-THICKNESS ...)
; compiling (DEFPARAMETER DISK-SPACING ...)
; compiling (DEFVAR *HORIZONTAL-VELOCITY* ...)
; compiling (DEFVAR *VERTICAL-VELOCITY* ...)
; compiling (DEFVAR *HANOI-WINDOW* ...)
; compiling (DEFVAR *HANOI-WINDOW-HEIGHT* ...)
; compiling (DEFVAR *TRANSFER-HEIGHT* ...)
; compiling (DEFVAR *HANOI-GCONTEXT* ...)
; compiling (DEFSTRUCT DISK ...)
; compiling (DEFSTRUCT NEEDLE ...)
; compiling (DEFUN NEEDLE-TOP-HEIGHT ...)
; compiling (DEFVAR AVAILABLE-DISKS ...)
; compiling (DEFVAR NEEDLE-1 ...)
; compiling (DEFVAR NEEDLE-2 ...)
; compiling (DEFVAR NEEDLE-3 ...)
; compiling (DEFMACRO INVERT-RECTANGLE ...)
; compiling (DEFMACRO UPDATE-SCREEN ...)
; compiling (DEFUN SLIDE-UP ...)
; compiling (DEFUN SLIDE-DOWN ...)
; compiling (DEFUN LIFT-DISK ...)
; compiling (DEFUN DROP-DISK ...)
; compiling (DEFUN DROP-INITIAL-DISK ...)
; compiling (DEFUN SLIDE-RIGHT ...)
; compiling (DEFUN SLIDE-LEFT ...)
; compiling (DEFUN TRANSFER-DISK ...)
; compiling (DEFUN MOVE-ONE-DISK ...)
; compiling (DEFUN MOVE-N-DISKS ...)
; compiling (DEFUN HANOI ...)
; compiling (DEFDEMO SLOW-HANOI-DEMO ...)
; compiling (DEFDEMO FAST-HANOI-DEMO ...)
; compiling (DEFUN BOUNCE-WINDOW ...)
; compiling (DEFDEMO SHOVE-BOUNCE-DEMO ...)
; compiling (DEFDEMO BOUNCE-DEMO ...)
; compiling (DEFUN RECURRENCE ...)
; compiling (DEFUN DRAW-PPICT ...)
; compiling (DEFDEMO RECURRENCE-DEMO ...)
; compiling (DEFMACRO RECT-X ...)
; compiling (DEFMACRO RECT-Y ...)
; compiling (DEFMACRO RECT-WIDTH ...)
; compiling (DEFMACRO RECT-HEIGHT ...)
; compiling (DEFUN PLAID ...)
; compiling (DEFDEMO PLAID-DEMO ...)
; compiling (DEFVAR *BALL-SIZE-X* ...)
; compiling (DEFVAR *BALL-SIZE-Y* ...)
; compiling (DEFMACRO XOR-BALL ...)
; compiling (DEFCONSTANT BBALL-GRAVITY ...)
; compiling (DEFCONSTANT MAXIMUM-X-DRIFT ...)
; compiling (DEFVAR *MAX-BBALL-X*)
; compiling (DEFVAR *MAX-BBALL-Y*)
; compiling (DEFSTRUCT BALL ...)
; compiling (DEFUN GET-BOUNCE-IMAGE ...)
; compiling (DEFUN BOUNCE-1-BALL ...)
; compiling (DEFUN BOUNCE-BALLS ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/clx-demos.fasl written
; compilation finished in 0:00:05
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/gl-test.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (DEFPACKAGE :GL-TEST ...)
; compiling (IN-PACKAGE :GL-TEST)
; compiling (DEFUN TEST ...)
; compiling (DEFUN NO-FLOATS ...)
; compiling (DEFUN ANIM ...)
; compiling (DEFUN ANIM/LIST ...)
; compiling (DEFCONSTANT +PI+ ...)
; compiling (DECLAIM (TYPE SINGLE-FLOAT ...))
; compiling (DEFUN GEAR ...)
; compiling (DEFUN DRAW ...)
; compiling (DEFUN RESHAPE ...)
; compiling (DEFUN INIT ...)
; compiling (DEFUN GEARS* ...)
; compiling (DEFUN GEARS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/gl-test.lisp
; in: DEFUN GEARS
;     (GL-TEST::RESHAPE GL-TEST::WIDTH GL-TEST::HEIGHT)
; 
; note: deleting unreachable code

;     (FORMAT T "Key pressed: ~S~%" GL-TEST::CODE)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (GL-TEST::RESHAPE GL-TEST::WIDTH GL-TEST::HEIGHT)
; 
; note: deleting unreachable code

;     (FORMAT T "Key pressed: ~S~%" GL-TEST::CODE)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/gl-test.fasl written
; compilation finished in 0:00:02
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/mandel.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (DEFPACKAGE "XMANDEL" ...)
; compiling (IN-PACKAGE "XMANDEL")
; compiling (DEFVAR *DISPLAY* ...)
; compiling (DEFVAR *SCREEN* ...)
; compiling (DEFVAR *BACKING-STORE* ...)
; compiling (DEFVAR *COLMAP* ...)
; compiling (DEFVAR *HELPWIN* ...)
; compiling (DEFVAR *ZOOM-TABLE* ...)
; compiling (DEFVAR *ZOOMCOLMAP* ...)
; compiling (DEFVAR *WHITE* ...)
; compiling (DEFVAR *WINMAP* ...)
; compiling (DEFVAR *TEXTMAP* ...)
; compiling (DEFVAR *MODSTATE* ...)
; compiling (DECLAIM (LIST *MODSTATE*))
; compiling (DEFUN MAKE-SHIFT-FOO ...)
; compiling (DEFSTRUCT (MANDEL-SQUARE #) ...)
; compiling (DEFUN MAKE-QUEUE ...)
; compiling (DEFCLASS QUEUE ...)
; compiling (DEFCLASS OUT-QUEUE ...)
; compiling (DEFVAR *SYSQUEUE* ...)
; compiling (DEFGENERIC EMPTY-P ...)
; compiling (DEFGENERIC EMPTY ...)
; compiling (DEFGENERIC EMPTY-WIN ...)
; compiling (DEFGENERIC ENQUEUE ...)
; compiling (DEFGENERIC QUEUE-PUSH ...)
; compiling (DEFGENERIC DEQUEUE ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY-P ...)
; compiling (DEFMETHOD EMPTY ...)
; compiling (DEFMETHOD EMPTY ...)
; compiling (DEFMETHOD EMPTY ...)
; compiling (DEFMETHOD EMPTY-WIN ...)
; compiling (DEFMETHOD ENQUEUE ...)
; compiling (DEFMETHOD ENQUEUE ...)
; compiling (DEFMETHOD QUEUE-PUSH ...)
; compiling (DEFMETHOD QUEUE-PUSH ...)
; compiling (DEFMETHOD DEQUEUE ...)
; compiling (DEFMETHOD DEQUEUE ...)
; compiling (DEFUN ITER ...)
; compiling (DEFCLASS ZOOMER ...)
; compiling (DEFUN INIT-COLOURS ...)
; compiling (DEFMACRO MODCOL ...)
; compiling (DEFUN PLOT ...)
; compiling (DEFUN DISPLAY-HELP ...)
; compiling (DEFUN REPAINT-WINDOW ...)
; compiling (DEFUN FILL-SQUARE ...)
; compiling (DEFUN MAKE-SQUARE ...)
; compiling (DEFUN MANDEL-WIN ...)
; compiling (DEFUN NEW-WINDOW ...)
; compiling (DEFUN FILL-SQUARE-P ...)
; compiling (DEFMACRO Z ...)
; compiling (DEFUN DRAW-SQUARE ...)
; compiling (DEFUN CREATE-ZOOM ...)
; compiling (DEFUN UPDATE-ZOOM ...)
; compiling (DEFUN FINISH-ZOOM ...)
; compiling (DEFUN DO-ZOOM ...)
; compiling (DEFUN QUIT-WINDOW ...)
; compiling (DEFUN EVENT-LOOP ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/mandel.lisp
; in: DEFUN EVENT-LOOP
;     (XMANDEL::CREATE-ZOOM XMANDEL::WINDOW XMANDEL::X XMANDEL::Y XMANDEL::CODE)
; 
; note: deleting unreachable code

;     (XMANDEL::FINISH-ZOOM XMANDEL::WINDOW XMANDEL::X XMANDEL::Y XMANDEL::CODE)
; ==>
;   XMANDEL::WINDOW
; 
; note: deleting unreachable code

;     (XMANDEL::UPDATE-ZOOM XMANDEL::WINDOW XMANDEL::X XMANDEL::Y XMANDEL::CODE)
; ==>
;   XMANDEL::X
; 
; note: deleting unreachable code

;     (XMANDEL::REPAINT-WINDOW XMANDEL::WINDOW
;                            XMANDEL::X
;                            XMANDEL::Y
;                            (1- (+ XMANDEL::X XMANDEL::WIDTH))
;                            (1- (+ XMANDEL::Y XMANDEL::HEIGHT)))
; ==>
;   XMANDEL::X
; 
; note: deleting unreachable code

;     (XMANDEL::QUIT-WINDOW XMANDEL::WINDOW)
; 
; note: deleting unreachable code

;     (XLIB:KEYSYM->CHARACTER XMANDEL::*DISPLAY*
;                           (XLIB:KEYCODE->KEYSYM XMANDEL::*DISPLAY*
;                                                 XMANDEL::CODE
;                                                 (XMANDEL::MAKE-SHIFT-FOO)))
; ==>
;   XMANDEL::*DISPLAY*
; 
; note: deleting unreachable code

;     (XLIB:KEYSYM->CHARACTER XMANDEL::*DISPLAY*
;                           (XLIB:KEYCODE->KEYSYM XMANDEL::*DISPLAY*
;                                                 XMANDEL::CODE
;                                                 0))
; ==>
;   XMANDEL::*DISPLAY*
; 
; note: deleting unreachable code

;     (DELETE :SHIFT XMANDEL::*MODSTATE*)
; ==>
;   XMANDEL::*MODSTATE*
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (DELETE :CTRL XMANDEL::*MODSTATE*)
; ==>
;   XMANDEL::*MODSTATE*
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (DELETE :CHARACTER-SET-SWITCH XMANDEL::*MODSTATE*)
; ==>
;   XMANDEL::*MODSTATE*
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (PUSH :CHARACTER-SET-SWITCH XMANDEL::*MODSTATE*)
; --> LET* CONS 
; ==>
;   XMANDEL::*MODSTATE*
; 
; note: deleting unreachable code

;     (PUSH :CTRL XMANDEL::*MODSTATE*)
; --> LET* CONS 
; ==>
;   XMANDEL::*MODSTATE*
; 
; note: deleting unreachable code

;     (PUSH :SHIFT XMANDEL::*MODSTATE*)
; --> LET* CONS 
; ==>
;   XMANDEL::*MODSTATE*
; 
; note: deleting unreachable code

;     (XMANDEL::DISPLAY-HELP)
; 
; note: deleting unreachable code

;     (XMANDEL::CREATE-ZOOM XMANDEL::WINDOW XMANDEL::X XMANDEL::Y XMANDEL::CODE)
; 
; note: deleting unreachable code

;     (XMANDEL::FINISH-ZOOM XMANDEL::WINDOW XMANDEL::X XMANDEL::Y XMANDEL::CODE)
; ==>
;   XMANDEL::WINDOW
; 
; note: deleting unreachable code

;     (XMANDEL::UPDATE-ZOOM XMANDEL::WINDOW XMANDEL::X XMANDEL::Y XMANDEL::CODE)
; ==>
;   XMANDEL::X
; 
; note: deleting unreachable code

;     (XMANDEL::REPAINT-WINDOW XMANDEL::WINDOW
;                            XMANDEL::X
;                            XMANDEL::Y
;                            (1- (+ XMANDEL::X XMANDEL::WIDTH))
;                            (1- (+ XMANDEL::Y XMANDEL::HEIGHT)))
; ==>
;   XMANDEL::X
; 
; note: deleting unreachable code

;     (XMANDEL::QUIT-WINDOW XMANDEL::WINDOW)
; 
; note: deleting unreachable code

;     (XLIB:KEYSYM->CHARACTER XMANDEL::*DISPLAY*
;                           (XLIB:KEYCODE->KEYSYM XMANDEL::*DISPLAY*
;                                                 XMANDEL::CODE
;                                                 (XMANDEL::MAKE-SHIFT-FOO)))
; ==>
;   XMANDEL::*DISPLAY*
; 
; note: deleting unreachable code

;     (XLIB:KEYSYM->CHARACTER XMANDEL::*DISPLAY*
;                           (XLIB:KEYCODE->KEYSYM XMANDEL::*DISPLAY*
;                                                 XMANDEL::CODE
;                                                 0))
; ==>
;   XMANDEL::*DISPLAY*
; 
; note: deleting unreachable code

;     (XMANDEL::DISPLAY-HELP)
; 
; note: deleting unreachable code

;     (PUSH :SHIFT XMANDEL::*MODSTATE*)
; --> LET* CONS 
; ==>
;   XMANDEL::*MODSTATE*
; 
; note: deleting unreachable code

;     (PUSH :CTRL XMANDEL::*MODSTATE*)
; --> LET* CONS 
; ==>
;   XMANDEL::*MODSTATE*
; 
; note: deleting unreachable code

;     (PUSH :CHARACTER-SET-SWITCH XMANDEL::*MODSTATE*)
; --> LET* CONS 
; ==>
;   XMANDEL::*MODSTATE*
; 
; note: deleting unreachable code

;     (DELETE :CHARACTER-SET-SWITCH XMANDEL::*MODSTATE*)
; ==>
;   XMANDEL::*MODSTATE*
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (DELETE :CTRL XMANDEL::*MODSTATE*)
; ==>
;   XMANDEL::*MODSTATE*
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (DELETE :SHIFT XMANDEL::*MODSTATE*)
; ==>
;   XMANDEL::*MODSTATE*
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/mandel.fasl written
; compilation finished in 0:00:04
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/menu.lisp" (written 14 JUL 2005 09:24:44 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFSTRUCT (MENU) ...)
; compiling (DEFUN CREATE-MENU ...)
; compiling (DEFUN MENU-SET-ITEM-LIST ...)
; compiling (DEFPARAMETER *MENU-ITEM-MARGIN* ...)
; compiling (DEFUN MENU-RECOMPUTE-GEOMETRY ...)
; compiling (DEFUN MENU-REFRESH ...)
; compiling (DEFUN MENU-CHOOSE ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/menu.lisp
; in: DEFUN MENU-CHOOSE
;     (ZEROP COUNT)
; ==>
;   (= COUNT 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (ASSOC XLIB::EVENT-WINDOW XLIB::ITEMS)
; 
; note: unable to convert to EQ test because: Item might be a number.

;     (POSITION XLIB:WINDOW XLIB::ITEMS :KEY #'FIRST)
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION SB-C::ITEM
;                             SEQUENCE
;                             SB-C::FROM-END
;                             SB-C::START
;                             SB-C::END
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)
;                             (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST
;                                                                     SB-C::TEST-NOT))
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a LIST.
; 
; note: unable to
;   expand inline
; due to type uncertainty:
;   The second argument is a SEQUENCE, not a VECTOR.

; compiling (DEFUN MENU-HIGHLIGHT-ITEM ...)
; compiling (DEFUN MENU-UNHIGHLIGHT-ITEM ...)
; compiling (DEFUN MENU-PRESENT ...)
; compiling (DEFUN JUST-SAY-LISP ...)
; compiling (DEFUN POP-UP ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/menu.lisp
; in: DEFUN POP-UP
;     (ZEROP COUNT)
; ==>
;   (= COUNT 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/menu.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/zoid.lisp" (written 14 JUL 2005 09:24:43 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (EXPORT (QUOTE #))
; compiling (DEFINE-EXTENSION "ZoidExtension")
; compiling (DEFUN DRAW-FILLED-TRAPEZOIDS ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/zoid.lisp
; in: DEFUN DRAW-FILLED-TRAPEZOIDS
;     (XLIB::WITH-BUFFER-REQUEST
;    (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT)
;    ((XLIB::DATA XLIB:CARD8) 1)
;    (XLIB:DRAWABLE XLIB:DRAWABLE)
;    (XLIB:GCONTEXT XLIB:GCONTEXT)
;    ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS))
; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK 
; --> SB-THREAD:WITH-RECURSIVE-LOCK LOCALLY MULTIPLE-VALUE-PROG1 
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL 
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET 
; ==>
;   (LENGTH XLIB::POINTS)
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a SEQUENCE, not a VECTOR.

; compiling (DEFINE-GCONTEXT-ACCESSOR TRAPEZOID-ALIGNMENT ...)
; compiling (DEFUN SET-TRAPEZOID-ALIGNMENT ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/demo/zoid.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/test/image.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (EXPORT (QUOTE #))
; compiling (DEFVAR *IMAGE-TEST-HOST* ...)
; compiling (DEFVAR *IMAGE-TEST-NIMAGES* ...)
; compiling (DEFVAR *IMAGE-TEST-COPY* ...)
; compiling (DEFVAR *IMAGE-TEST-COPY-RANDOM-SUBIMAGE* ...)
; compiling (DEFVAR *IMAGE-TEST-PUT-RANDOM-SUBIMAGE* ...)
; compiling (DEFVAR *IMAGE-TEST-GET-IMAGE-RESULT-TYPE-CHOICES* ...)
; compiling (DEFVAR *IMAGE-TEST-GET-IMAGE-IMAGE-X-FORMAT-CHOICES* ...)
; compiling (DEFUN IMAGE-TEST ...)
; compiling (DEFUN IMAGE-TEST-CHOOSE ...)
; compiling (DEFUN IMAGE-TEST-GET-IMAGE ...)
; compiling (DEFUN IMAGE-TEST-SUBIMAGE-PARAMETERS ...)
; compiling (DEFUN IMAGE-TEST-COPY-IMAGE ...)
; compiling (DEFUN IMAGE-TEST-PUT-IMAGE ...)
; compiling (DEFUN IMAGE-INFO ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/test/image.fasl written
; compilation finished in 0:00:01
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/test/trapezoid.lisp" (written 14 JUL 2005 09:24:45 AM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFUN ZOID-TEST ...)

; file: /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/test/trapezoid.lisp
; in: DEFUN ZOID-TEST
;     (ZEROP COUNT)
; ==>
;   (= COUNT 0)
; 
; note: unable to
;   open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
;   The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/clx_0.7.3/test/trapezoid.fasl written
; compilation finished in 0:00:00
; 
; compilation unit finished
;   printed 779 notes
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/xlyb_0.1/package.lisp" (written 21 MAY 2004 02:24:27 AM):
; compiling (DEFPACKAGE "XLYB" ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/xlyb_0.1/package.fasl written
; compilation finished in 0:00:00
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/xlyb_0.1/xlyb.lisp" (written 17 JUN 2004 12:42:06 AM):
; compiling (IN-PACKAGE "XLYB")
; compiling (DEFVAR *XLIB-MAP-TABLE* ...)
; compiling (DEFVAR *XLYB-ACCUMULATOR* ...)
; compiling (DEFVAR *XLYB-WARNINGS* ...)
; compiling (SETF (GETHASH NIL ...) ...)
; compiling (DEFCLASS XLYB-SHIM ...)
; compiling (FORMAT T ...)
; compiling (DEFCLASS DISPLAY ...)
; compiling (DEFCLASS SCREEN ...)
; compiling (DEFCLASS DRAWABLE ...)
; compiling (DEFCLASS WINDOW ...)
; compiling (DEFCLASS PIXMAP ...)
; compiling (DEFCLASS COLORMAP ...)
; compiling (DEFCLASS GCONTEXT ...)
; compiling (DEFCLASS IMAGE ...)
; compiling (DEFCLASS FONT ...)
; compiling (DEFCLASS CURSOR ...)
; compiling (DEFCLASS ANONYMOUS ...)
; compiling (DEFCLASS RESOURCE-DB ...)
; compiling (DEFGENERIC WRAP-GF ...)
; compiling (DEFGENERIC DO-REFRESH ...)
; compiling (DEFMETHOD DO-REFRESH ...)
; compiling (DEFMETHOD INITIALIZE-INSTANCE ...)
; compiling (DEFMETHOD DO-REFRESH ...)
; compiling (DEFUN CLEAN-ARGLIST ...)
; compiling (DEFUN MAKE-SAVE-EXPR ...)
; compiling (DEFUN MAKE-BLOB-EXPR ...)
; compiling (DEFUN MAKE-KEYLIST ...)
; compiling (DEFUN SAVED-SLOT-VALUES ...)
; compiling (DEFUN GET-CLX ...)
; compiling (DEFUN XLYB-WARN ...)
; compiling (DEFMACRO MAKE-CREATE-SHIM ...)
; compiling (DEFMACRO MAKE-INPUT-SHIM ...)
; compiling (DEFUN WRAP-XLIB-OBJECT ...)
; compiling (DEFUN DISPLAY-NTH-ROOT ...)
; compiling (DEFMACRO MAKE-OUTPUT-SHIM ...)
; compiling (DEFMACRO MAKE-SETF-SHIM ...)
; compiling (DEFUN RESUME ...)
; compiling (DEFUN SAVE ...)
; compiling (DEFUN FREE ...)
; compiling (DEFUN SHOW-WARNINGS ...)
; compiling (DEFUN XLYB-EXPORT ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/xlyb_0.1/xlyb.fasl written
; compilation finished in 0:00:01
;; About to define classes
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/xlyb_0.1/wrappers.lisp" (written 16 JUN 2004 01:56:24 AM):
; compiling (IN-PACKAGE "XLYB")
; compiling (MAKE-CREATE-SHIM OPEN-DEFAULT-DISPLAY ...)
; compiling (MAKE-CREATE-SHIM OPEN-DISPLAY ...)
; compiling (MAKE-CREATE-SHIM DISPLAY-DEFAULT-SCREEN ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-AUTHORIZATION-DATA ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-BITMAP-FORMAT ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-BYTE-ORDER ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-DISPLAY ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-ERROR-HANDLER ...)
; compiling (MAKE-SETF-SHIM DISPLAY-ERROR-HANDLER ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-IMAGE-LSB-FIRST-P ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-KEYCODE-RANGE ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-MAX-KEYCODE ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-MIN-KEYCODE ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-MOTION-BUFFER-SIZE ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-P ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-PIXMAP-FORMATS ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-PLIST ...)
; compiling (MAKE-SETF-SHIM DISPLAY-PLIST ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-PROTOCOL-MAJOR-VERSION ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-PROTOCOL-MINOR-VERSION ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-RESOURCE-ID-BASE ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-RESOURCE-ID-MASK ...)
; compiling (MAKE-OUTPUT-SHIM DISPLAY-ROOTS ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-VENDOR ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-VERSION-NUMBER ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-XID ...)
; compiling (DEFMACRO WITH-DISPLAY ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-AFTER-FUNCTION ...)
; compiling (MAKE-SETF-SHIM DISPLAY-AFTER-FUNCTION ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-FORCE-OUTPUT ...)
; compiling (MAKE-INPUT-SHIM DISPLAY-FINISH-OUTPUT ...)
; compiling (DEFUN CLOSE-DISPLAY ...)
; compiling (MAKE-INPUT-SHIM SCREEN-BACKING-STORES ...)
; compiling (MAKE-INPUT-SHIM SCREEN-BLACK-PIXEL ...)
; compiling (MAKE-OUTPUT-SHIM SCREEN-DEFAULT-COLORMAP ...)
; compiling (MAKE-INPUT-SHIM SCREEN-DEPTHS ...)
; compiling (MAKE-INPUT-SHIM SCREEN-EVENT-MASK-AT-OPEN ...)
; compiling (MAKE-INPUT-SHIM SCREEN-HEIGHT ...)
; compiling (MAKE-INPUT-SHIM SCREEN-HEIGHT-IN-MILLIMETERS ...)
; compiling (MAKE-INPUT-SHIM SCREEN-MAX-INSTALLED-MAPS ...)
; compiling (MAKE-INPUT-SHIM SCREEN-MIN-INSTALLED-MAPS ...)
; compiling (MAKE-INPUT-SHIM SCREEN-P ...)
; compiling (MAKE-INPUT-SHIM SCREEN-PLIST ...)
; compiling (MAKE-SETF-SHIM SCREEN-PLIST ...)
; compiling (MAKE-OUTPUT-SHIM SCREEN-ROOT ...)
; compiling (MAKE-INPUT-SHIM SCREEN-ROOT-DEPTH ...)
; compiling (MAKE-INPUT-SHIM SCREEN-ROOT-VISUAL ...)
; compiling (MAKE-INPUT-SHIM SCREEN-SAVE-UNDERS-P ...)
; compiling (MAKE-INPUT-SHIM SCREEN-WHITE-PIXEL ...)
; compiling (MAKE-INPUT-SHIM SCREEN-WIDTH ...)
; compiling (MAKE-INPUT-SHIM SCREEN-WIDTH-IN-MILLIMETERS ...)
; compiling (MAKE-OUTPUT-SHIM DRAWABLE-DISPLAY ...)
; compiling (MAKE-INPUT-SHIM DRAWABLE-EQUAL ...)
; compiling (MAKE-INPUT-SHIM DRAWABLE-ID ...)
; compiling (MAKE-INPUT-SHIM DRAWABLE-P ...)
; compiling (MAKE-INPUT-SHIM DRAWABLE-PLIST ...)
; compiling (MAKE-SETF-SHIM DRAWABLE-PLIST ...)
; compiling (MAKE-CREATE-SHIM CREATE-WINDOW ...)
; compiling (MAKE-INPUT-SHIM DRAWABLE-BORDER-WIDTH ...)
; compiling (MAKE-SETF-SHIM DRAWABLE-BORDER-WIDTH ...)
; compiling (MAKE-INPUT-SHIM DRAWABLE-DEPTH ...)
; compiling (MAKE-SETF-SHIM DRAWABLE-DEPTH ...)
; compiling (MAKE-INPUT-SHIM DRAWABLE-HEIGHT ...)
; compiling (MAKE-SETF-SHIM DRAWABLE-HEIGHT ...)
; compiling (MAKE-INPUT-SHIM DRAWABLE-X ...)
; compiling (MAKE-SETF-SHIM DRAWABLE-X ...)
; compiling (MAKE-INPUT-SHIM DRAWABLE-Y ...)
; compiling (MAKE-SETF-SHIM DRAWABLE-Y ...)
; compiling (MAKE-INPUT-SHIM WINDOW-ALL-EVENT-MASKS ...)
; compiling (MAKE-INPUT-SHIM DRAWABLE-BACKGROUND ...)
; compiling (MAKE-SETF-SHIM DRAWABLE-BACKGROUND ...)
; compiling (MAKE-INPUT-SHIM WINDOW-BACKING-PIXEL ...)
; compiling (MAKE-SETF-SHIM WINDOW-BACKING-PIXEL ...)
; compiling (MAKE-OUTPUT-SHIM WINDOW-BACKING-PLANES ...)
; compiling (MAKE-SETF-SHIM WINDOW-BACKING-PLANES ...)
; compiling (MAKE-INPUT-SHIM WINDOW-BACKING-STORE ...)
; compiling (MAKE-SETF-SHIM WINDOW-BACKING-STORE ...)
; compiling (MAKE-INPUT-SHIM WINDOW-BIT-GRAVITY ...)
; compiling (MAKE-SETF-SHIM WINDOW-BIT-GRAVITY ...)
; compiling (MAKE-INPUT-SHIM WINDOW-CLASS ...)
; compiling (MAKE-OUTPUT-SHIM WINDOW-COLORMAP ...)
; compiling (MAKE-SETF-SHIM WINDOW-COLORMAP ...)
; compiling (MAKE-INPUT-SHIM WINDOW-COLORMAP-INSTALLED-P ...)
; compiling (MAKE-SETF-SHIM WINDOW-CURSOR ...)
; compiling (MAKE-OUTPUT-SHIM WINDOW-DISPLAY ...)
; compiling (MAKE-OUTPUT-SHIM WINDOW-DO-NOT-PROPAGATE-MASK ...)
; compiling (MAKE-SETF-SHIM WINDOW-DO-NOT-PROPAGATE-MASK ...)
; compiling (MAKE-INPUT-SHIM WINDOW-EQUAL ...)
; compiling (MAKE-INPUT-SHIM WINDOW-GRAVITY ...)
; compiling (MAKE-SETF-SHIM WINDOW-GRAVITY ...)
; compiling (MAKE-INPUT-SHIM WINDOW-ID ...)
; compiling (MAKE-INPUT-SHIM WINDOW-MAP-STATE ...)
; compiling (MAKE-INPUT-SHIM WINDOW-OVERRIDE-REDIRECT ...)
; compiling (MAKE-SETF-SHIM WINDOW-OVERRIDE-REDIRECT ...)
; compiling (MAKE-INPUT-SHIM WINDOW-P ...)
; compiling (MAKE-INPUT-SHIM WINDOW-PLIST ...)
; compiling (MAKE-SETF-SHIM WINDOW-PLIST ...)
; compiling (DEFUN (SETF WINDOW-PRIORITY) ...)
; compiling (MAKE-INPUT-SHIM WINDOW-SAVE-UNDER ...)
; compiling (MAKE-SETF-SHIM WINDOW-SAVE-UNDER ...)
; compiling (MAKE-INPUT-SHIM WINDOW-VISUAL ...)
; compiling (DEFMACRO WITH-STATE ...)
; compiling (MAKE-INPUT-SHIM CIRCULATE-WINDOW-DOWN ...)
; compiling (MAKE-INPUT-SHIM CIRCULATE-WINDOW-UP ...)
; compiling (MAKE-OUTPUT-SHIM DRAWABLE-ROOT ...)
; compiling (MAKE-OUTPUT-SHIM QUERY-TREE ...)
; compiling (MAKE-INPUT-SHIM REPARENT-WINDOW ...)
; compiling (DEFUN TRANSLATE-COORDINATES ...)
; compiling (DEFUN MAP-WINDOW ...)
; compiling (MAKE-INPUT-SHIM MAP-SUBWINDOWS ...)
; compiling (DEFUN UNMAP-WINDOW ...)
; compiling (MAKE-INPUT-SHIM UNMAP-SUBWINDOWS ...)
; compiling (DEFUN DESTROY-WINDOW ...)
; compiling (MAKE-INPUT-SHIM DESTROY-SUBWINDOWS ...)
; compiling (MAKE-CREATE-SHIM CREATE-PIXMAP ...)
; compiling (DEFUN FREE-PIXMAP ...)
; compiling (MAKE-INPUT-SHIM PIXMAP-EQUAL ...)
; compiling (MAKE-INPUT-SHIM PIXMAP-ID ...)
; compiling (MAKE-INPUT-SHIM PIXMAP-P ...)
; compiling (MAKE-INPUT-SHIM PIXMAP-PLIST ...)
; compiling (MAKE-SETF-SHIM PIXMAP-PLIST ...)
; compiling (MAKE-CREATE-SHIM CREATE-GCONTEXT ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-ARC-MODE ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-ARC-MODE ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-BACKGROUND ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-BACKGROUND ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-CACHE-P ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-CACHE-P ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-CAP-STYLE ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-CAP-STYLE ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-CLIP-X ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-CLIP-X ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-CLIP-Y ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-CLIP-Y ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-DASH-OFFSET ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-DASH-OFFSET ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-DASHES ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-DASHES ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-DISPLAY ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-DISPLAY ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-EQUAL ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-EXPOSURES ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-EXPOSURES ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-FILL-RULE ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-FILL-RULE ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-FILL-STYLE ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-FILL-STYLE ...)
; compiling (MAKE-OUTPUT-SHIM GCONTEXT-FONT ...)
; compiling (DEFUN (SETF GCONTEXT-FONT) ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-FOREGROUND ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-FOREGROUND ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-FUNCTION ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-FUNCTION ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-ID ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-JOIN-STYLE ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-JOIN-STYLE ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-LINE-STYLE ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-LINE-STYLE ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-LINE-WIDTH ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-LINE-WIDTH ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-P ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-PLANE-MASK ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-PLANE-MASK ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-PLIST ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-PLIST ...)
; compiling (MAKE-OUTPUT-SHIM GCONTEXT-STIPPLE ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-STIPPLE ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-SUBWINDOW-MODE ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-SUBWINDOW-MODE ...)
; compiling (MAKE-OUTPUT-SHIM GCONTEXT-TILE ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-TILE ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-TS-X ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-TS-X ...)
; compiling (MAKE-INPUT-SHIM GCONTEXT-TS-Y ...)
; compiling (MAKE-SETF-SHIM GCONTEXT-TS-Y ...)
; compiling (MAKE-INPUT-SHIM QUERY-BEST-STIPPLE ...)
; compiling (MAKE-INPUT-SHIM QUERY-BEST-TILE ...)
; compiling (DEFUN COPY-GCONTEXT ...)
; compiling (DEFUN COPY-GCONTEXT-COMPONENTS ...)
; compiling (DEFUN FREE-GCONTEXT ...)
; compiling (MAKE-INPUT-SHIM FORCE-GCONTEXT-CHANGES ...)
; compiling (DEFMACRO WITH-GCONTEXT ...)
; compiling (MAKE-INPUT-SHIM CLEAR-AREA ...)
; compiling (MAKE-INPUT-SHIM COPY-AREA ...)
; compiling (MAKE-INPUT-SHIM COPY-PLANE ...)
; compiling (MAKE-INPUT-SHIM DRAW-POINT ...)
; compiling (MAKE-INPUT-SHIM DRAW-POINTS ...)
; compiling (MAKE-INPUT-SHIM DRAW-LINE ...)
; compiling (MAKE-INPUT-SHIM DRAW-LINES ...)
; compiling (MAKE-INPUT-SHIM DRAW-SEGMENTS ...)
; compiling (MAKE-INPUT-SHIM DRAW-RECTANGLE ...)
; compiling (MAKE-INPUT-SHIM DRAW-RECTANGLES ...)
; compiling (MAKE-INPUT-SHIM DRAW-ARC ...)
; compiling (MAKE-INPUT-SHIM DRAW-ARCS ...)
; compiling (MAKE-INPUT-SHIM DRAW-GLYPH ...)
; compiling (MAKE-INPUT-SHIM DRAW-GLYPHS ...)
; compiling (MAKE-INPUT-SHIM DRAW-IMAGE-GLYPH ...)
; compiling (MAKE-INPUT-SHIM DRAW-IMAGE-GLYPHS ...)
; compiling (MAKE-CREATE-SHIM CREATE-IMAGE ...)
; compiling (MAKE-OUTPUT-SHIM COPY-IMAGE ...)
; compiling (MAKE-OUTPUT-SHIM GET-IMAGE ...)
; compiling (MAKE-INPUT-SHIM PUT-IMAGE ...)
; compiling (MAKE-CREATE-SHIM READ-BITMAP-FILE ...)
; compiling (MAKE-INPUT-SHIM WRITE-BITMAP-FILE ...)
; compiling (MAKE-INPUT-SHIM GET-RAW-IMAGE ...)
; compiling (MAKE-INPUT-SHIM PUT-RAW-IMAGE ...)
; compiling (MAKE-CREATE-SHIM OPEN-FONT ...)
; compiling (DEFUN CLOSE-FONT ...)
; compiling (MAKE-INPUT-SHIM DISCARD-FONT-INFO ...)
; compiling (MAKE-INPUT-SHIM FONT-PATH ...)
; compiling (MAKE-INPUT-SHIM LIST-FONT-NAMES ...)
; compiling (MAKE-OUTPUT-SHIM LIST-FONTS ...)
; compiling (MAKE-INPUT-SHIM FONT-ALL-CHARS-EXIST-P ...)
; compiling (MAKE-INPUT-SHIM FONT-ASCENT ...)
; compiling (MAKE-INPUT-SHIM FONT-DEFAULT-CHAR ...)
; compiling (MAKE-INPUT-SHIM FONT-DESCENT ...)
; compiling (MAKE-INPUT-SHIM FONT-DIRECTION ...)
; compiling (MAKE-OUTPUT-SHIM FONT-DISPLAY ...)
; compiling (MAKE-INPUT-SHIM FONT-EQUAL ...)
; compiling (MAKE-INPUT-SHIM FONT-ID ...)
; compiling (MAKE-INPUT-SHIM FONT-MAX-BYTE-1 ...)
; compiling (MAKE-INPUT-SHIM FONT-MAX-BYTE-2 ...)
; compiling (MAKE-INPUT-SHIM FONT-MAX-CHAR ...)
; compiling (MAKE-INPUT-SHIM FONT-MIN-BYTE-1 ...)
; compiling (MAKE-INPUT-SHIM FONT-MIN-BYTE-2 ...)
; compiling (MAKE-INPUT-SHIM FONT-MIN-CHAR ...)
; compiling (MAKE-INPUT-SHIM FONT-NAME ...)
; compiling (MAKE-INPUT-SHIM FONT-P ...)
; compiling (MAKE-INPUT-SHIM FONT-PLIST ...)
; compiling (MAKE-SETF-SHIM FONT-PLIST ...)
; compiling (MAKE-INPUT-SHIM FONT-PROPERTIES ...)
; compiling (MAKE-INPUT-SHIM FONT-PROPERTY ...)
; compiling (MAKE-INPUT-SHIM MAX-CHAR-ASCENT ...)
; compiling (MAKE-INPUT-SHIM MAX-CHAR-ATTRIBUTES ...)
; compiling (MAKE-INPUT-SHIM MAX-CHAR-DESCENT ...)
; compiling (MAKE-INPUT-SHIM MAX-CHAR-LEFT-BEARING ...)
; compiling (MAKE-INPUT-SHIM MAX-CHAR-RIGHT-BEARING ...)
; compiling (MAKE-INPUT-SHIM MAX-CHAR-WIDTH ...)
; compiling (MAKE-INPUT-SHIM MIN-CHAR-ASCENT ...)
; compiling (MAKE-INPUT-SHIM MIN-CHAR-ATTRIBUTES ...)
; compiling (MAKE-INPUT-SHIM MIN-CHAR-DESCENT ...)
; compiling (MAKE-INPUT-SHIM MIN-CHAR-LEFT-BEARING ...)
; compiling (MAKE-INPUT-SHIM MIN-CHAR-RIGHT-BEARING ...)
; compiling (MAKE-INPUT-SHIM MIN-CHAR-WIDTH ...)
; compiling (MAKE-INPUT-SHIM CHAR-ASCENT ...)
; compiling (MAKE-INPUT-SHIM CHAR-ATTRIBUTES ...)
; compiling (MAKE-INPUT-SHIM CHAR-DESCENT ...)
; compiling (MAKE-INPUT-SHIM CHAR-LEFT-BEARING ...)
; compiling (MAKE-INPUT-SHIM CHAR-RIGHT-BEARING ...)
; compiling (MAKE-INPUT-SHIM CHAR-WIDTH ...)
; compiling (MAKE-INPUT-SHIM TEXT-EXTENTS ...)
; compiling (MAKE-CREATE-SHIM CREATE-COLORMAP ...)
; compiling (MAKE-OUTPUT-SHIM COPY-COLORMAP-AND-FREE ...)
; compiling (DEFUN FREE-COLORMAP ...)
; compiling (MAKE-INPUT-SHIM INSTALL-COLORMAP ...)
; compiling (MAKE-OUTPUT-SHIM INSTALLED-COLORMAPS ...)
; compiling (MAKE-INPUT-SHIM UNINSTALL-COLORMAP ...)
; compiling (MAKE-INPUT-SHIM ALLOC-COLOR ...)
; compiling (MAKE-INPUT-SHIM ALLOC-COLOR-PLANES ...)
; compiling (MAKE-INPUT-SHIM FREE-COLORS ...)
; compiling (MAKE-INPUT-SHIM LOOKUP-COLOR ...)
; compiling (MAKE-INPUT-SHIM QUERY-COLORS ...)
; compiling (MAKE-INPUT-SHIM STORE-COLOR ...)
; compiling (MAKE-OUTPUT-SHIM COLORMAP-DISPLAY ...)
; compiling (MAKE-INPUT-SHIM COLORMAP-EQUAL ...)
; compiling (MAKE-INPUT-SHIM COLORMAP-ID ...)
; compiling (MAKE-INPUT-SHIM COLORMAP-P ...)
; compiling (MAKE-INPUT-SHIM COLORMAP-PLIST ...)
; compiling (MAKE-SETF-SHIM COLORMAP-PLIST ...)
; compiling (MAKE-CREATE-SHIM CREATE-CURSOR ...)
; compiling (MAKE-CREATE-SHIM CREATE-GLYPH-CURSOR ...)
; compiling (DEFUN FREE-CURSOR ...)
; compiling (MAKE-OUTPUT-SHIM QUERY-BEST-CURSOR ...)
; compiling (MAKE-INPUT-SHIM RECOLOR-CURSOR ...)
; compiling (MAKE-OUTPUT-SHIM CURSOR-DISPLAY ...)
; compiling (MAKE-INPUT-SHIM CURSOR-EQUAL ...)
; compiling (MAKE-INPUT-SHIM CURSOR-ID ...)
; compiling (MAKE-INPUT-SHIM CURSOR-P ...)
; compiling (MAKE-INPUT-SHIM CURSOR-PLIST ...)
; compiling (MAKE-SETF-SHIM CURSOR-PLIST ...)
; compiling (MAKE-INPUT-SHIM ATOM-ID ...)
; compiling (MAKE-INPUT-SHIM INTERN-ATOM ...)
; compiling (MAKE-INPUT-SHIM CHANGE-PROPERTY ...)
; compiling (MAKE-INPUT-SHIM DELETE-PROPERTY ...)
; compiling (MAKE-INPUT-SHIM GET-PROPERTY ...)
; compiling (MAKE-INPUT-SHIM LIST-PROPERTIES ...)
; compiling (MAKE-INPUT-SHIM ROTATE-PROPERTIES ...)
; compiling (MAKE-INPUT-SHIM CONVERT-SELECTION ...)
; compiling (MAKE-OUTPUT-SHIM SELECTION-OWNER ...)
; compiling (DEFUN (SETF SELECTION-OWNER) ...)
; compiling (MAKE-INPUT-SHIM PROCESS-EVENT ...)
; compiling (DEFMACRO EVENT-CASE ...)
; compiling (DEFMACRO EVENT-COND ...)
; compiling (MAKE-INPUT-SHIM QUEUE-EVENT ...)
; compiling (MAKE-INPUT-SHIM DISCARD-CURRENT-EVENT ...)
; compiling (MAKE-INPUT-SHIM EVENT-LISTEN ...)
; compiling (DEFMACRO WITH-EVENT-QUEUE ...)
; compiling (MAKE-INPUT-SHIM SEND-EVENT ...)
; compiling (MAKE-INPUT-SHIM QUERY-POINTER ...)
; compiling (MAKE-INPUT-SHIM GLOBAL-POINTER-POSITION ...)
; compiling (MAKE-INPUT-SHIM POINTER-POSITION ...)
; compiling (MAKE-INPUT-SHIM MOTION-EVENTS ...)
; compiling (MAKE-INPUT-SHIM WARP-POINTER ...)
; compiling (MAKE-INPUT-SHIM WARP-POINTER-IF-INSIDE ...)
; compiling (MAKE-INPUT-SHIM WARP-POINTER-RELATIVE-IF-INSIDE ...)
; compiling (MAKE-INPUT-SHIM SET-INPUT-FOCUS ...)
; compiling (MAKE-OUTPUT-SHIM INPUT-FOCUS ...)
; compiling (MAKE-INPUT-SHIM GRAB-POINTER ...)
; compiling (MAKE-INPUT-SHIM UNGRAB-POINTER ...)
; compiling (MAKE-INPUT-SHIM CHANGE-ACTIVE-POINTER-GRAB ...)
; compiling (MAKE-INPUT-SHIM GRAB-BUTTON ...)
; compiling (MAKE-INPUT-SHIM UNGRAB-BUTTON ...)
; compiling (MAKE-INPUT-SHIM GRAB-KEYBOARD ...)
; compiling (MAKE-INPUT-SHIM UNGRAB-KEYBOARD ...)
; compiling (MAKE-INPUT-SHIM GRAB-KEY ...)
; compiling (MAKE-INPUT-SHIM UNGRAB-KEY ...)
; compiling (MAKE-INPUT-SHIM ALLOW-EVENTS ...)
; compiling (MAKE-CREATE-SHIM MAKE-RESOURCE-DATABASE ...)
; compiling (DEFUN ADD-RESOURCE ...)
; compiling (DEFUN DELETE-RESOURCE ...)
; compiling (MAKE-INPUT-SHIM MAP-RESOURCE ...)
; compiling (DEFUN MERGE-RESOURCES ...)
; compiling (MAKE-INPUT-SHIM GET-RESOURCE ...)
; compiling (MAKE-INPUT-SHIM GET-SEARCH-TABLE ...)
; compiling (DEFUN READ-RESOURCES ...)
; compiling (MAKE-INPUT-SHIM WRITE-RESOURCES ...)
; compiling (MAKE-INPUT-SHIM GRAB-SERVER ...)
; compiling (MAKE-INPUT-SHIM UNGRAB-SERVER ...)
; compiling (DEFMACRO WITH-SERVER-GRABBED ...)
; compiling (MAKE-INPUT-SHIM CHANGE-POINTER-CONTROL ...)
; compiling (MAKE-INPUT-SHIM POINTER-CONTROL ...)
; compiling (MAKE-INPUT-SHIM POINTER-MAPPING ...)
; compiling (MAKE-SETF-SHIM POINTER-MAPPING ...)
; compiling (MAKE-INPUT-SHIM BELL ...)
; compiling (MAKE-INPUT-SHIM CHANGE-KEYBOARD-CONTROL ...)
; compiling (MAKE-INPUT-SHIM KEYBOARD-CONTROL ...)
; compiling (MAKE-INPUT-SHIM MODIFIER-MAPPING ...)
; compiling (MAKE-INPUT-SHIM QUERY-KEYMAP ...)
; compiling (MAKE-INPUT-SHIM SET-MODIFIER-MAPPING ...)
; compiling (MAKE-INPUT-SHIM CHANGE-KEYBOARD-MAPPING ...)
; compiling (MAKE-INPUT-SHIM KEYBOARD-MAPPING ...)
; compiling (MAKE-INPUT-SHIM KEYCODE->KEYSYM ...)
; compiling (MAKE-INPUT-SHIM KEYCODE->CHARACTER ...)
; compiling (MAKE-INPUT-SHIM ADD-TO-SAVE-SET ...)
; compiling (MAKE-INPUT-SHIM CLOSE-DOWN-MODE ...)
; compiling (MAKE-SETF-SHIM CLOSE-DOWN-MODE ...)
; compiling (MAKE-INPUT-SHIM KILL-CLIENT ...)
; compiling (MAKE-INPUT-SHIM KILL-TEMPORARY-CLIENTS ...)
; compiling (MAKE-INPUT-SHIM REMOVE-FROM-SAVE-SET ...)
; compiling (MAKE-INPUT-SHIM ACCESS-CONTROL ...)
; compiling (MAKE-INPUT-SHIM ACCESS-HOSTS ...)
; compiling (MAKE-INPUT-SHIM ADD-ACCESS-HOST ...)
; compiling (MAKE-INPUT-SHIM REMOVE-ACCESS-HOST ...)
; compiling (MAKE-INPUT-SHIM ACTIVATE-SCREEN-SAVER ...)
; compiling (MAKE-INPUT-SHIM RESET-SCREEN-SAVER ...)
; compiling (MAKE-INPUT-SHIM SCREEN-SAVER ...)
; compiling (MAKE-INPUT-SHIM SET-SCREEN-SAVER ...)
; compiling (MAKE-INPUT-SHIM LIST-EXTENSIONS ...)
; compiling (MAKE-INPUT-SHIM QUERY-EXTENSION ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/xlyb_0.1/wrappers.fasl written
; compilation finished in 0:00:16
; compiling file "/Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/xlyb_0.1/mapfns.lisp" (written 15 JUN 2004 02:33:18 AM):
; compiling (IN-PACKAGE "XLYB")
; compiling (DEFMETHOD WRAP-GF ...)
; compiling (DEFMETHOD WRAP-GF ...)
; compiling (DEFMETHOD CLXBLOB ...)
; compiling (DEFMETHOD DO-REFRESH ...)
; compiling (DEFUN MAKE-DISPLAY-NTH-ROOT-WRAPPER ...)
; compiling (DEFUN WRAP-SCREEN-LIST ...)
; compiling (DEFUN WRAP-COLORMAP ...)
; compiling (DEFUN WRAP-SCREEN-ROOT ...)
; compiling (DEFUN WRAP-TREE ...)
; compiling (DEFUN WRAP-FONT ...)
; compiling (DEFUN WRAP-FONT-LIST ...)
; compiling (DEFUN WRAP-IMAGE ...)

; /Users/gwking/temporary/asdf-test/input/sbcl0-9-9/site/xlyb_0.1/mapfns.fasl written
; compilation finished in 0:00:01
;; XLYB - something odd has happened, 
;; XLIB:WINDOW-CURSOR in XLIB has a symbol but no definition in XLYB
;; XLYB symbol (SETF CURSOR-PLIST) not a function
;; XLYB symbol CURSOR-PLIST not a function
;; XLYB symbol (SETF COLORMAP-PLIST) not a function
;; XLYB symbol COLORMAP-PLIST not a function
;; XLYB symbol FONT-MIN-BYTE-2 not found
;; XLYB symbol FONT-MIN-BYTE-1 not found
;; XLYB symbol FONT-MAX-BYTE-2 not found
;; XLYB symbol FONT-MAX-BYTE-1 not found
;; XLYB symbol (SETF NIL) not a function
;; XLYB symbol DRAWABLE-BACKGROUND not found
;; XLYB symbol (SETF DRAWABLE-DEPTH) not a function
;; XLYB symbol DISPLAY-VERSION-NUMBER not found