Script started on Sun Sep 5 22:39:08 2010
===> License check disabled, port has not defined LICENSE
===> Found saved configuration for stumpwm-0.9.7
===> Extracting for stumpwm-0.9.7
=> MD5 Checksum OK for stumpwm-0.9.7.tgz.
=> SHA256 Checksum OK for stumpwm-0.9.7.tgz.
=> MD5 Checksum OK for clx-0.7.4.tgz.
=> SHA256 Checksum OK for clx-0.7.4.tgz.
===> Patching for stumpwm-0.9.7
===> Applying FreeBSD patches for stumpwm-0.9.7
===> stumpwm-0.9.7 depends on executable: sbcl - found
===> Configuring for stumpwm-0.9.7
checking for sbcl... /usr/local/bin/sbcl
checking for clisp... no
checking for ccl... no
checking for ecl... no
configure: Using sbcl at /usr/local/bin/sbcl
checking for makeinfo... yes
checking for xdpyinfo... yes
configure: creating ./config.status
config.status: creating Makefile
configure: creating ./config.status
config.status: creating Makefile
config.status: creating make-image.lisp
configure: creating ./config.status
config.status: creating Makefile
config.status: creating make-image.lisp
config.status: creating version.lisp
configure: creating ./config.status
config.status: creating Makefile
config.status: creating make-image.lisp
config.status: creating version.lisp
config.status: creating module.lisp
===> Building for stumpwm-0.9.7
/usr/local/bin/sbcl --control-stack-size 512 --disable-debugger --no-userinit --no-sysinit --eval "(require :asdf)" --eval "(pop asdf:*central-registry*)" --load ./make-image.lisp
This is SBCL 1.0.34, an implementation of ANSI Common Lisp.
More information about SBCL is available at .
SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.
; loading system definition from /usr/local/lib/sbcl/sb-posix/sb-posix.asd into
; #
; loading system definition from /usr/local/lib/sbcl/sb-grovel/sb-grovel.asd
; into #
; registering # as SB-GROVEL
; registering # as SB-POSIX
; registering # as SB-POSIX-TESTS
; loading system definition from
; /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/stumpwm-0.9.7/clx.asd into
; #
; registering # as CLX
; loading system definition from
; /usr/local/lib/sbcl/sb-bsd-sockets/sb-bsd-sockets.asd into #
; registering # as SB-BSD-SOCKETS
; registering # as
; SB-BSD-SOCKETS-TESTS
; loading system definition from
; /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/stumpwm-0.9.7/cl-ppcre.asd
; into #
; registering # as CL-PPCRE
; registering # as CL-PPCRE-TEST
; compiling file "/usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/package.lisp" (written 28 NOV 2009 09:13:30 PM):
; compiling (IN-PACKAGE :COMMON-LISP-USER)
; compiling (DEFPACKAGE XLIB ...)
; /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/package.fasl written
; compilation finished in 0:00:00.009
; compiling file "/usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/depdefs.lisp" (written 28 NOV 2009 09:13:30 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+ ...)
; compiling (DEFCONSTANT +X-UNIX-SOCKET-PATH+ ...)
; compiling (DEFUN UNIX-SOCKET-PATH-FROM-HOST ...)
; /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/depdefs.fasl written
; compilation finished in 0:00:00.221
; compiling file "/usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/clx.lisp" (written 28 NOV 2009 09:13:30 PM):
; 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: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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
; /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/clx.fasl written
; compilation finished in 0:00:00.794
; compiling file "/usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/dependent.lisp" (written 28 NOV 2009 09:13:30 PM):
; 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 ...)
; 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 ...)
; compiling (DEFUN ASET-CARD32 ...)
; compiling (DEFUN AREF-INT32 ...)
; 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 ...)
; compiling (DEFUN RADIANS->INT16 ...)
; compiling (DEFUN INT16->RADIANS ...)
; 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 (DEFUN OPEN-X-STREAM ...)
; compiling (DEFUN BUFFER-READ-DEFAULT ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/dependent.lisp
; in: DEFUN BUFFER-READ-DEFAULT
; (SB-SYS:READ-N-BYTES (XLIB::DISPLAY-INPUT-STREAM XLIB:DISPLAY) VECTOR
; XLIB::START (- XLIB::END XLIB::START))
; --> BLOCK IF LET* SB-IMPL::EOF-OR-LOSE IF AND IF AND THE
; ==>
; (< SB-IMPL::READ-END SB-IMPL::END)
;
; 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 4) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a (INTEGER -1152921504606846973
; 2305843009213693946), not a FIXNUM.
; --> BLOCK IF LET*
; ==>
; (+ SB-IMPL::START SB-IMPL::NUMBYTES)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 64) arithmetic
; 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 ...)
; compiling (DEFUN PIXARRAY-ELEMENT-SIZE ...)
; compiling (DEFUN COPY-BIT-RECT ...)
; compiling (DEFUN FAST-READ-PIXARRAY-USING-BITBLT ...)
; compiling (DEFUN FAST-READ-PIXARRAY ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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 ...)
; /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/dependent.fasl written
; compilation finished in 0:00:00.436
; compiling file "/usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/macros.lisp" (written 28 NOV 2009 09:13:30 PM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFMACRO TYPE-CHECK ...)
; 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 ...)
; 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 PAD32 ...)
; 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 ...)
; compiling (SETF (GET # ...) ...)
; compiling (DEFUN MASK-GET ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/macros.lisp
; in: DEFUN MASK-GET
; (DEFUN XLIB::MASK-GET (XLIB::INDEX XLIB::TYPE-VALUES XLIB::BODY-FUNCTION)
; (DECLARE (TYPE FUNCTION XLIB::BODY-FUNCTION)
; (DYNAMIC-EXTENT XLIB::BODY-FUNCTION))
; (LET* ((BIT 0) (XLIB::RESULT (MAPCAR #'# #)))
; `(,@(WHEN (ATOM #) (LIST #))
; (PROGN (SETQ #) (SETQ #) ,(CAR XLIB::RESULT)) ,@(CDR XLIB::RESULT))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G975
;
; note: could not stack allocate the result of (DEFUN MASK-GET
; (INDEX TYPE-VALUES BODY-FUNCTION)
; (DECLARE (TYPE FUNCTION BODY-FUNCTION)
; (DYNAMIC-EXTENT
; BODY-FUNCTION))
; (LET* ((BIT 0)
; (RESULT
; (MAPCAR #'(LAMBDA # #)
; (GET-PUT-ITEMS #
; TYPE-VALUES NIL
; #'#))))
; `(,@(WHEN (ATOM (CAR RESULT))
; (LIST (POP RESULT)))
; (PROGN
; (SETQ %MASK #)
; (SETQ %INDEX ,#)
; ,(CAR RESULT))
; ,@(CDR RESULT))))
; compiling (DEFUN MASK-PUT ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/macros.lisp
; in: DEFUN MASK-PUT
; (DEFUN XLIB::MASK-PUT (XLIB::INDEX XLIB::TYPE-VALUES XLIB::BODY-FUNCTION)
; (DECLARE (TYPE FUNCTION XLIB::BODY-FUNCTION)
; (DYNAMIC-EXTENT XLIB::BODY-FUNCTION))
; `((LET ((XLIB::%MASK 0) (XLIB::%INDEX ,XLIB::INDEX))
; ,@(LET (#)
; (XLIB::GET-PUT-ITEMS XLIB::INDEX XLIB::TYPE-VALUES T #'#))
; (XLIB::WRITE-CARD32 ,XLIB::INDEX XLIB::%MASK)
; (XLIB::WRITE-CARD16 2 (XLIB::INDEX-CEILING # 4))
; (INCF (XLIB::BUFFER-BOFFSET XLIB::%BUFFER) XLIB::%INDEX))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G991
;
; note: could not stack allocate the result of (DEFUN MASK-PUT
; (INDEX TYPE-VALUES BODY-FUNCTION)
; (DECLARE (TYPE FUNCTION BODY-FUNCTION)
; (DYNAMIC-EXTENT
; BODY-FUNCTION))
; `((LET ((%MASK 0) (%INDEX ,INDEX))
; ,@(LET ((BIT 1))
; (GET-PUT-ITEMS INDEX
; TYPE-VALUES T
; #'(LAMBDA # # #)))
; (WRITE-CARD32 ,INDEX %MASK)
; (WRITE-CARD16 2
; (INDEX-CEILING
; (INDEX-INCF %INDEX 4) 4))
; (INCF (BUFFER-BOFFSET %BUFFER)
; %INDEX))))
; compiling (DEFINE-ACCESSOR PROGN ...)
; compiling (DEFMACRO CHECK-PUT ...)
; compiling (DEFUN GET-PUT-ITEMS ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/macros.lisp
; in: DEFUN GET-PUT-ITEMS
; (DEFUN XLIB::GET-PUT-ITEMS
; (XLIB::INDEX XLIB::TYPE-ARGS XLIB::PUTP &OPTIONAL XLIB::BODY-FUNCTION)
; (DECLARE (TYPE (OR NULL FUNCTION) XLIB::BODY-FUNCTION)
; (DYNAMIC-EXTENT XLIB::BODY-FUNCTION))
; (UNLESS XLIB::BODY-FUNCTION (SETQ XLIB::BODY-FUNCTION #'(LAMBDA # `#)))
; (DO* ((XLIB::ITEMS XLIB::TYPE-ARGS (CDR XLIB::ITEMS))
; (TYPE (CAAR XLIB::ITEMS) (CAAR XLIB::ITEMS))
; (XLIB::ARGS NIL NIL)
; (XLIB::RESULT NIL)
; (XLIB::SIZES NIL))
; ((ENDP XLIB::ITEMS) (VALUES XLIB::RESULT XLIB::INDEX XLIB::SIZES))
; (WHEN (CONSP TYPE)
; (SETQ XLIB::ARGS #
; TYPE #))
; (COND ((MEMBER TYPE '#)) ((EQ TYPE 'XLIB::MASK) (SETQ #))
; (T (DO* # # # # #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF PROGN SB-C::%FUNCALL
; --> MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G1158
;
; note: could not stack allocate the result of (DEFUN GET-PUT-ITEMS
; (INDEX TYPE-ARGS PUTP
; &OPTIONAL BODY-FUNCTION)
; (DECLARE
; (TYPE (OR NULL FUNCTION)
; BODY-FUNCTION)
; (DYNAMIC-EXTENT BODY-FUNCTION))
; (UNLESS BODY-FUNCTION
; (SETQ BODY-FUNCTION
; #'(LAMBDA
; (TYPE INDEX ITEM ARGS)
; `(#))))
; (DO* ((ITEMS TYPE-ARGS (CDR ITEMS))
; (TYPE (CAAR ITEMS) (CAAR ITEMS))
; (ARGS NIL NIL)
; (RESULT NIL)
; (SIZES NIL))
; ((ENDP ITEMS)
; (VALUES RESULT INDEX SIZES))
; (WHEN (CONSP TYPE)
; (SETQ ARGS (CDR TYPE)
; TYPE (CAR TYPE)))
; (COND
; ((MEMBER TYPE '(RETURN BUFFER)))
; ((EQ TYPE 'MASK)
; (SETQ RESULT #
; INDEX NIL))
; (T
; (DO* (#
; #)
; (#)
; (WHEN # #)
; (SETQ #)
; (WHEN # #))))))
; 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 ...)
; /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/macros.fasl written
; compilation finished in 0:00:00.567
; compiling file "/usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/bufmac.lisp" (written 28 NOV 2009 09:13:30 PM):
; 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 ...)
; /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/bufmac.fasl written
; compilation finished in 0:00:00.089
; compiling file "/usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp" (written 28 NOV 2009 09:13:30 PM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFCONSTANT +REQUESTSIZE+ ...)
; compiling (DEFMACRO WITH-BUFFER ...)
; compiling (DEFUN WITH-BUFFER-FUNCTION ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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 SB-INT:DX-FLET FLET BLOCK
; --> WITH-TIMEOUT SB-INT:DX-FLET FLET LET IF
; ==>
; (> SB-IMPL::EXPIRES 0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a FLOAT.
; (DEFUN XLIB::WITH-BUFFER-FUNCTION (XLIB::BUFFER XLIB::TIMEOUT FUNCTION)
; (DECLARE (TYPE XLIB:DISPLAY XLIB::BUFFER)
; (TYPE (OR NULL NUMBER) XLIB::TIMEOUT)
; (TYPE FUNCTION FUNCTION)
; (DYNAMIC-EXTENT FUNCTION)
; (IGNORABLE XLIB::TIMEOUT))
; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T)
; (FUNCALL FUNCTION)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G65
;
; note: could not stack allocate the result of (DEFUN WITH-BUFFER-FUNCTION
; (BUFFER TIMEOUT FUNCTION)
; (DECLARE (TYPE DISPLAY BUFFER)
; (TYPE (OR NULL NUMBER)
; TIMEOUT)
; (TYPE FUNCTION FUNCTION)
; (DYNAMIC-EXTENT FUNCTION)
; (IGNORABLE TIMEOUT))
; (WITH-BUFFER (BUFFER :TIMEOUT TIMEOUT
; :INLINE T)
; (FUNCALL FUNCTION)))
; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T)
; (FUNCALL FUNCTION))
; --> MACROLET LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET BLOCK
; --> WITH-TIMEOUT SB-INT:DX-FLET FLET LET IF
; ==>
; (> SB-IMPL::EXPIRES 0)
;
; 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 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WITH-BUFFER-REQUEST-FUNCTION
; (DEFUN XLIB::WITH-BUFFER-REQUEST-FUNCTION
; (XLIB:DISPLAY XLIB::GC-FORCE XLIB::REQUEST-FUNCTION)
; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY)
; (TYPE (OR NULL XLIB:GCONTEXT) XLIB::GC-FORCE))
; (DECLARE (TYPE FUNCTION XLIB::REQUEST-FUNCTION)
; (DYNAMIC-EXTENT XLIB::REQUEST-FUNCTION))
; (XLIB::WITH-BUFFER (XLIB:DISPLAY :INLINE T)
; (MULTIPLE-VALUE-PROG1
; (PROGN
; (WHEN XLIB::GC-FORCE #)
; (XLIB::WITHOUT-ABORTS
; #))
; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB:DISPLAY))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G302
;
; note: could not stack allocate the result of (DEFUN WITH-BUFFER-REQUEST-FUNCTION
; (DISPLAY GC-FORCE
; REQUEST-FUNCTION)
; (DECLARE (TYPE DISPLAY DISPLAY)
; (TYPE (OR NULL GCONTEXT)
; GC-FORCE))
; (DECLARE
; (TYPE FUNCTION REQUEST-FUNCTION)
; (DYNAMIC-EXTENT REQUEST-FUNCTION))
; (WITH-BUFFER (DISPLAY :INLINE T)
; (MULTIPLE-VALUE-PROG1
; (PROGN
; (WHEN GC-FORCE
; (FORCE-GCONTEXT-CHANGES-INTERNAL
; GC-FORCE))
; (WITHOUT-ABORTS
; (FUNCALL REQUEST-FUNCTION
; DISPLAY)))
; (DISPLAY-INVOKE-AFTER-FUNCTION
; DISPLAY))))
; compiling (DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK
; (DEFUN XLIB::WITH-BUFFER-REQUEST-FUNCTION-NOLOCK
; (XLIB:DISPLAY XLIB::GC-FORCE XLIB::REQUEST-FUNCTION)
; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY)
; (TYPE (OR NULL XLIB:GCONTEXT) XLIB::GC-FORCE))
; (DECLARE (TYPE FUNCTION XLIB::REQUEST-FUNCTION)
; (DYNAMIC-EXTENT XLIB::REQUEST-FUNCTION))
; (MULTIPLE-VALUE-PROG1
; (PROGN
; (WHEN XLIB::GC-FORCE
; (XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB::GC-FORCE))
; (XLIB::WITHOUT-ABORTS
; (FUNCALL XLIB::REQUEST-FUNCTION XLIB:DISPLAY)))
; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB:DISPLAY)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G315
;
; note: could not stack allocate the result of (DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK
; (DISPLAY GC-FORCE
; REQUEST-FUNCTION)
; (DECLARE (TYPE DISPLAY DISPLAY)
; (TYPE (OR NULL GCONTEXT)
; GC-FORCE))
; (DECLARE
; (TYPE FUNCTION REQUEST-FUNCTION)
; (DYNAMIC-EXTENT REQUEST-FUNCTION))
; (MULTIPLE-VALUE-PROG1
; (PROGN
; (WHEN GC-FORCE
; (FORCE-GCONTEXT-CHANGES-INTERNAL
; GC-FORCE))
; (WITHOUT-ABORTS
; (FUNCALL REQUEST-FUNCTION
; DISPLAY)))
; (DISPLAY-INVOKE-AFTER-FUNCTION
; DISPLAY)))
; compiling (DEFSTRUCT (PENDING-COMMAND # ...) ...)
; compiling (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION
; (DEFUN XLIB::WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION
; (XLIB:DISPLAY XLIB::MULTIPLE-REPLY XLIB::REQUEST-FUNCTION
; XLIB::REPLY-FUNCTION)
; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY)
; (TYPE XLIB:GENERALIZED-BOOLEAN XLIB::MULTIPLE-REPLY))
; (DECLARE (TYPE FUNCTION XLIB::REQUEST-FUNCTION XLIB::REPLY-FUNCTION)
; (DYNAMIC-EXTENT XLIB::REQUEST-FUNCTION XLIB::REPLY-FUNCTION))
; (LET ((XLIB::PENDING-COMMAND NIL) (XLIB::REPLY-BUFFER NIL))
; (DECLARE (TYPE (OR NULL XLIB::PENDING-COMMAND) XLIB::PENDING-COMMAND)
; (TYPE (OR NULL XLIB::REPLY-BUFFER) XLIB::REPLY-BUFFER))
; (UNWIND-PROTECT
; (PROGN
; (XLIB::WITH-BUFFER #
; #
; #
; #
; #)
; (COND # #))
; (WHEN XLIB::REPLY-BUFFER
; (XLIB::DEALLOCATE-REPLY-BUFFER XLIB::REPLY-BUFFER))
; (WHEN XLIB::PENDING-COMMAND
; (XLIB::STOP-PENDING-COMMAND XLIB:DISPLAY XLIB::PENDING-COMMAND)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G404
;
; note: could not stack allocate the result of (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION
; (DISPLAY MULTIPLE-REPLY
; REQUEST-FUNCTION REPLY-FUNCTION)
; (DECLARE (TYPE DISPLAY DISPLAY)
; (TYPE GENERALIZED-BOOLEAN
; MULTIPLE-REPLY))
; (DECLARE
; (TYPE FUNCTION REQUEST-FUNCTION
; REPLY-FUNCTION)
; (DYNAMIC-EXTENT REQUEST-FUNCTION
; REPLY-FUNCTION))
; (LET ((PENDING-COMMAND NIL)
; (REPLY-BUFFER NIL))
; (DECLARE
; (TYPE (OR NULL PENDING-COMMAND)
; PENDING-COMMAND)
; (TYPE (OR NULL REPLY-BUFFER)
; REPLY-BUFFER))
; (UNWIND-PROTECT
; (PROGN
; (WITH-BUFFER (DISPLAY :INLINE T)
; (SETQ #)
; (WITHOUT-ABORTS
; #)
; (BUFFER-FORCE-OUTPUT DISPLAY)
; (DISPLAY-INVOKE-AFTER-FUNCTION
; DISPLAY))
; (COND (MULTIPLE-REPLY #)
; (T # #)))
; (WHEN REPLY-BUFFER
; (DEALLOCATE-REPLY-BUFFER
; REPLY-BUFFER))
; (WHEN PENDING-COMMAND
; (STOP-PENDING-COMMAND DISPLAY
; PENDING-COMMAND)))))
; ==>
; #:G405
;
; note: could not stack allocate the result of (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION
; (DISPLAY MULTIPLE-REPLY
; REQUEST-FUNCTION REPLY-FUNCTION)
; (DECLARE (TYPE DISPLAY DISPLAY)
; (TYPE GENERALIZED-BOOLEAN
; MULTIPLE-REPLY))
; (DECLARE
; (TYPE FUNCTION REQUEST-FUNCTION
; REPLY-FUNCTION)
; (DYNAMIC-EXTENT REQUEST-FUNCTION
; REPLY-FUNCTION))
; (LET ((PENDING-COMMAND NIL)
; (REPLY-BUFFER NIL))
; (DECLARE
; (TYPE (OR NULL PENDING-COMMAND)
; PENDING-COMMAND)
; (TYPE (OR NULL REPLY-BUFFER)
; REPLY-BUFFER))
; (UNWIND-PROTECT
; (PROGN
; (WITH-BUFFER (DISPLAY :INLINE T)
; (SETQ #)
; (WITHOUT-ABORTS
; #)
; (BUFFER-FORCE-OUTPUT DISPLAY)
; (DISPLAY-INVOKE-AFTER-FUNCTION
; DISPLAY))
; (COND (MULTIPLE-REPLY #)
; (T # #)))
; (WHEN REPLY-BUFFER
; (DEALLOCATE-REPLY-BUFFER
; REPLY-BUFFER))
; (WHEN PENDING-COMMAND
; (STOP-PENDING-COMMAND DISPLAY
; PENDING-COMMAND)))))
; 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 (DEFMACRO DEFINE-TRANSFORMED-SEQUENCE-READER ...)
; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-CHAR ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-CHAR
; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-CHAR CHARACTER
; XLIB:CARD8->CHAR
; XLIB::READ-SEQUENCE-CARD8)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G693
;
; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER
; READ-SEQUENCE-CHAR CHARACTER
; CARD8->CHAR READ-SEQUENCE-CARD8)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL
; ==>
; XLIB::TRANSFORM
;
; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER
; READ-SEQUENCE-CHAR CHARACTER
; CARD8->CHAR READ-SEQUENCE-CARD8)
; compiling (DEFMACRO DEFINE-LIST-READERS ...)
; compiling (DEFINE-LIST-READERS (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM) ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in:
; DEFINE-LIST-READERS (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-READERS
; (XLIB::READ-LIST-CARD8 XLIB::READ-LIST-CARD8-WITH-TRANSFORM) XLIB:CARD8 8 1
; XLIB::READ-CARD8)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G759
;
; note: could not stack allocate the result of (DEFINE-LIST-READERS
; (READ-LIST-CARD8
; READ-LIST-CARD8-WITH-TRANSFORM)
; CARD8 8 1 READ-CARD8)
; compiling (DEFUN READ-SIMPLE-ARRAY-CARD8 ...)
; compiling (DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM
; (DEFUN XLIB::READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM
; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM
; XLIB::START XLIB::INDEX)
; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER)
; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX)
; (TYPE (SIMPLE-ARRAY XLIB:CARD8 (*)) XLIB::DATA))
; (DECLARE (TYPE (FUNCTION (XLIB:CARD8) XLIB:CARD8) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD8 (*)))
; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (8) :INDEX
; XLIB::INDEX)
; (DO* (#
; #
; #)
; (#)
; (DECLARE #)
; (SETF #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G836
;
; note: could not stack allocate the result of (DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM
; (REPLY-BUFFER NITEMS DATA
; TRANSFORM START INDEX)
; (DECLARE
; (TYPE REPLY-BUFFER REPLY-BUFFER)
; (TYPE ARRAY-INDEX NITEMS START INDEX)
; (TYPE (SIMPLE-ARRAY CARD8 (*)) DATA))
; (DECLARE
; (TYPE (FUNCTION (CARD8) CARD8)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA
; (SIMPLE-ARRAY CARD8 (*)))
; (WITH-BUFFER-INPUT (REPLY-BUFFER
; :SIZES (8)
; :INDEX INDEX)
; (DO* ((J START #)
; (END #)
; (INDEX 0 #))
; ((INDEX>= J END))
; (DECLARE
; (TYPE ARRAY-INDEX J END INDEX))
; (SETF # #)))))
; compiling (DEFUN READ-VECTOR-CARD8 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN READ-VECTOR-CARD8
; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX))
; --> SB-KERNEL:%ASET
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; compiling (DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (DEFUN XLIB::READ-VECTOR-CARD8-WITH-TRANSFORM
; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM
; XLIB::START XLIB::INDEX)
; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER)
; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX)
; (TYPE VECTOR XLIB::DATA)
; (OPTIMIZE))
; (DECLARE (TYPE (FUNCTION (XLIB:CARD8) T) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR)
; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (8) :INDEX
; XLIB::INDEX)
; (DO* (#
; #
; #)
; (#)
; (DECLARE #)
; (SETF #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G896
;
; note: could not stack allocate the result of (DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM
; (REPLY-BUFFER NITEMS DATA
; TRANSFORM START INDEX)
; (DECLARE
; (TYPE REPLY-BUFFER REPLY-BUFFER)
; (TYPE ARRAY-INDEX NITEMS START INDEX)
; (TYPE VECTOR DATA)
; (OPTIMIZE))
; (DECLARE
; (TYPE (FUNCTION (CARD8) T) TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA VECTOR)
; (WITH-BUFFER-INPUT (REPLY-BUFFER
; :SIZES (8)
; :INDEX INDEX)
; (DO* ((J START #)
; (END #)
; (INDEX 0 #))
; ((INDEX>= J END))
; (DECLARE
; (TYPE ARRAY-INDEX J END INDEX))
; (SETF # #)))))
; compiling (DEFMACRO DEFINE-SEQUENCE-READER ...)
; compiling (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD8 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD8
; (XLIB::DEFINE-SEQUENCE-READER XLIB::READ-SEQUENCE-CARD8 XLIB:CARD8
; (XLIB::READ-LIST-CARD8
; XLIB::READ-LIST-CARD8-WITH-TRANSFORM)
; (XLIB::READ-SIMPLE-ARRAY-CARD8
; XLIB::READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM)
; (XLIB::READ-VECTOR-CARD8
; XLIB::READ-VECTOR-CARD8-WITH-TRANSFORM))
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G984
;
; note: could not stack allocate the result of (DEFINE-SEQUENCE-READER
; READ-SEQUENCE-CARD8 CARD8
; (READ-LIST-CARD8
; READ-LIST-CARD8-WITH-TRANSFORM)
; (READ-SIMPLE-ARRAY-CARD8
; READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM)
; (READ-VECTOR-CARD8
; READ-VECTOR-CARD8-WITH-TRANSFORM))
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL
; ==>
; XLIB::TRANSFORM
;
; note: could not stack allocate the result of (DEFINE-SEQUENCE-READER
; READ-SEQUENCE-CARD8 CARD8
; (READ-LIST-CARD8
; READ-LIST-CARD8-WITH-TRANSFORM)
; (READ-SIMPLE-ARRAY-CARD8
; READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM)
; (READ-VECTOR-CARD8
; READ-VECTOR-CARD8-WITH-TRANSFORM))
; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT8 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT8
; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-INT8 XLIB:INT8
; XLIB::CARD8->INT8
; XLIB::READ-SEQUENCE-CARD8)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G1059
;
; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER
; READ-SEQUENCE-INT8 INT8 CARD8->INT8
; READ-SEQUENCE-CARD8)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL
; ==>
; XLIB::TRANSFORM
;
; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER
; READ-SEQUENCE-INT8 INT8 CARD8->INT8
; READ-SEQUENCE-CARD8)
; compiling (DEFINE-LIST-READERS (READ-LIST-CARD16 READ-LIST-CARD16-WITH-TRANSFORM) ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in:
; DEFINE-LIST-READERS (READ-LIST-CARD16 READ-LIST-CARD16-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-READERS
; (XLIB::READ-LIST-CARD16 XLIB::READ-LIST-CARD16-WITH-TRANSFORM) XLIB:CARD16
; 16 2 XLIB::READ-CARD16)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G1114
;
; note: could not stack allocate the result of (DEFINE-LIST-READERS
; (READ-LIST-CARD16
; READ-LIST-CARD16-WITH-TRANSFORM)
; CARD16 16 2 READ-CARD16)
; compiling (DEFUN READ-SIMPLE-ARRAY-CARD16 ...)
; compiling (DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM
; (DEFUN XLIB::READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM
; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM
; XLIB::START XLIB::INDEX)
; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER)
; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX)
; (TYPE (SIMPLE-ARRAY XLIB:CARD16 (*)) XLIB::DATA))
; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) XLIB:CARD16) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD16 (*)))
; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (16) :INDEX
; XLIB::INDEX)
; (DO* (#
; #
; #)
; (#)
; (DECLARE #)
; (SETF #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G1172
;
; note: could not stack allocate the result of (DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM
; (REPLY-BUFFER NITEMS DATA
; TRANSFORM START INDEX)
; (DECLARE
; (TYPE REPLY-BUFFER REPLY-BUFFER)
; (TYPE ARRAY-INDEX NITEMS START INDEX)
; (TYPE (SIMPLE-ARRAY CARD16 (*))
; DATA))
; (DECLARE
; (TYPE (FUNCTION (CARD16) CARD16)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA
; (SIMPLE-ARRAY CARD16
; (*)))
; (WITH-BUFFER-INPUT (REPLY-BUFFER
; :SIZES (16)
; :INDEX INDEX)
; (DO* ((J START #)
; (END #)
; (INDEX 0 #))
; ((INDEX>= J END))
; (DECLARE
; (TYPE ARRAY-INDEX J END INDEX))
; (SETF # #)))))
; compiling (DEFUN READ-VECTOR-CARD16 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN READ-VECTOR-CARD16
; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX))
; --> SB-KERNEL:%ASET
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; compiling (DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (DEFUN XLIB::READ-VECTOR-CARD16-WITH-TRANSFORM
; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM
; XLIB::START XLIB::INDEX)
; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER)
; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX)
; (TYPE VECTOR XLIB::DATA)
; (OPTIMIZE))
; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) T) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR)
; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (16) :INDEX
; XLIB::INDEX)
; (DO* (#
; #
; #)
; (#)
; (DECLARE #)
; (SETF #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G1232
;
; note: could not stack allocate the result of (DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM
; (REPLY-BUFFER NITEMS DATA
; TRANSFORM START INDEX)
; (DECLARE
; (TYPE REPLY-BUFFER REPLY-BUFFER)
; (TYPE ARRAY-INDEX NITEMS START INDEX)
; (TYPE VECTOR DATA)
; (OPTIMIZE))
; (DECLARE
; (TYPE (FUNCTION (CARD16) T)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA VECTOR)
; (WITH-BUFFER-INPUT (REPLY-BUFFER
; :SIZES (16)
; :INDEX INDEX)
; (DO* ((J START #)
; (END #)
; (INDEX 0 #))
; ((INDEX>= J END))
; (DECLARE
; (TYPE ARRAY-INDEX J END INDEX))
; (SETF # #)))))
; compiling (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD16 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD16
; (XLIB::DEFINE-SEQUENCE-READER XLIB::READ-SEQUENCE-CARD16 XLIB:CARD16
; (XLIB::READ-LIST-CARD16
; XLIB::READ-LIST-CARD16-WITH-TRANSFORM)
; (XLIB::READ-SIMPLE-ARRAY-CARD16
; XLIB::READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM)
; (XLIB::READ-VECTOR-CARD16
; XLIB::READ-VECTOR-CARD16-WITH-TRANSFORM))
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G1301
;
; note: could not stack allocate the result of (DEFINE-SEQUENCE-READER
; READ-SEQUENCE-CARD16 CARD16
; (READ-LIST-CARD16
; READ-LIST-CARD16-WITH-TRANSFORM)
; (READ-SIMPLE-ARRAY-CARD16
; READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM)
; (READ-VECTOR-CARD16
; READ-VECTOR-CARD16-WITH-TRANSFORM))
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL
; ==>
; XLIB::TRANSFORM
;
; note: could not stack allocate the result of (DEFINE-SEQUENCE-READER
; READ-SEQUENCE-CARD16 CARD16
; (READ-LIST-CARD16
; READ-LIST-CARD16-WITH-TRANSFORM)
; (READ-SIMPLE-ARRAY-CARD16
; READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM)
; (READ-VECTOR-CARD16
; READ-VECTOR-CARD16-WITH-TRANSFORM))
; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT16 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT16
; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-INT16
; XLIB:INT16 XLIB::CARD16->INT16
; XLIB::READ-SEQUENCE-CARD16)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G1376
;
; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER
; READ-SEQUENCE-INT16 INT16 CARD16->INT16
; READ-SEQUENCE-CARD16)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL
; ==>
; XLIB::TRANSFORM
;
; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER
; READ-SEQUENCE-INT16 INT16 CARD16->INT16
; READ-SEQUENCE-CARD16)
; compiling (DEFINE-LIST-READERS (READ-LIST-CARD32 READ-LIST-CARD32-WITH-TRANSFORM) ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in:
; DEFINE-LIST-READERS (READ-LIST-CARD32 READ-LIST-CARD32-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-READERS
; (XLIB::READ-LIST-CARD32 XLIB::READ-LIST-CARD32-WITH-TRANSFORM) XLIB:CARD32
; 32 4 XLIB::READ-CARD32)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G1431
;
; note: could not stack allocate the result of (DEFINE-LIST-READERS
; (READ-LIST-CARD32
; READ-LIST-CARD32-WITH-TRANSFORM)
; CARD32 32 4 READ-CARD32)
; compiling (DEFUN READ-SIMPLE-ARRAY-CARD32 ...)
; compiling (DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM
; (DEFUN XLIB::READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM
; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM
; XLIB::START XLIB::INDEX)
; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER)
; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX)
; (TYPE (SIMPLE-ARRAY XLIB:CARD32 (*)) XLIB::DATA))
; (DECLARE (TYPE (FUNCTION (XLIB:CARD32) XLIB:CARD32) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD32 (*)))
; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (32) :INDEX
; XLIB::INDEX)
; (DO* (#
; #
; #)
; (#)
; (DECLARE #)
; (SETF #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G1489
;
; note: could not stack allocate the result of (DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM
; (REPLY-BUFFER NITEMS DATA
; TRANSFORM START INDEX)
; (DECLARE
; (TYPE REPLY-BUFFER REPLY-BUFFER)
; (TYPE ARRAY-INDEX NITEMS START INDEX)
; (TYPE (SIMPLE-ARRAY CARD32 (*))
; DATA))
; (DECLARE
; (TYPE (FUNCTION (CARD32) CARD32)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA
; (SIMPLE-ARRAY CARD32
; (*)))
; (WITH-BUFFER-INPUT (REPLY-BUFFER
; :SIZES (32)
; :INDEX INDEX)
; (DO* ((J START #)
; (END #)
; (INDEX 0 #))
; ((INDEX>= J END))
; (DECLARE
; (TYPE ARRAY-INDEX J END INDEX))
; (SETF # #)))))
; compiling (DEFUN READ-VECTOR-CARD32 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN READ-VECTOR-CARD32
; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX))
; --> SB-KERNEL:%ASET
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; compiling (DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (DEFUN XLIB::READ-VECTOR-CARD32-WITH-TRANSFORM
; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM
; XLIB::START XLIB::INDEX)
; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER)
; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX)
; (TYPE VECTOR XLIB::DATA)
; (OPTIMIZE))
; (DECLARE (TYPE (FUNCTION (XLIB:CARD32) T) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR)
; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (32) :INDEX
; XLIB::INDEX)
; (DO* (#
; #
; #)
; (#)
; (DECLARE #)
; (SETF #)))))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G1549
;
; note: could not stack allocate the result of (DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM
; (REPLY-BUFFER NITEMS DATA
; TRANSFORM START INDEX)
; (DECLARE
; (TYPE REPLY-BUFFER REPLY-BUFFER)
; (TYPE ARRAY-INDEX NITEMS START INDEX)
; (TYPE VECTOR DATA)
; (OPTIMIZE))
; (DECLARE
; (TYPE (FUNCTION (CARD32) T)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA VECTOR)
; (WITH-BUFFER-INPUT (REPLY-BUFFER
; :SIZES (32)
; :INDEX INDEX)
; (DO* ((J START #)
; (END #)
; (INDEX 0 #))
; ((INDEX>= J END))
; (DECLARE
; (TYPE ARRAY-INDEX J END INDEX))
; (SETF # #)))))
; compiling (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD32 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD32
; (XLIB::DEFINE-SEQUENCE-READER XLIB::READ-SEQUENCE-CARD32 XLIB:CARD32
; (XLIB::READ-LIST-CARD32
; XLIB::READ-LIST-CARD32-WITH-TRANSFORM)
; (XLIB::READ-SIMPLE-ARRAY-CARD32
; XLIB::READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM)
; (XLIB::READ-VECTOR-CARD32
; XLIB::READ-VECTOR-CARD32-WITH-TRANSFORM))
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G1618
;
; note: could not stack allocate the result of (DEFINE-SEQUENCE-READER
; READ-SEQUENCE-CARD32 CARD32
; (READ-LIST-CARD32
; READ-LIST-CARD32-WITH-TRANSFORM)
; (READ-SIMPLE-ARRAY-CARD32
; READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM)
; (READ-VECTOR-CARD32
; READ-VECTOR-CARD32-WITH-TRANSFORM))
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL
; ==>
; XLIB::TRANSFORM
;
; note: could not stack allocate the result of (DEFINE-SEQUENCE-READER
; READ-SEQUENCE-CARD32 CARD32
; (READ-LIST-CARD32
; READ-LIST-CARD32-WITH-TRANSFORM)
; (READ-SIMPLE-ARRAY-CARD32
; READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM)
; (READ-VECTOR-CARD32
; READ-VECTOR-CARD32-WITH-TRANSFORM))
; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT32 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT32
; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-INT32
; XLIB:INT32 XLIB::CARD32->INT32
; XLIB::READ-SEQUENCE-CARD32)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> COND IF PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G1693
;
; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER
; READ-SEQUENCE-INT32 INT32 CARD32->INT32
; READ-SEQUENCE-CARD32)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN SB-C::%FUNCALL
; ==>
; XLIB::TRANSFORM
;
; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-READER
; READ-SEQUENCE-INT32 INT32 CARD32->INT32
; READ-SEQUENCE-CARD32)
; compiling (DEFMACRO DEFINE-TRANSFORMED-SEQUENCE-WRITER ...)
; compiling (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR
; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CHAR CHARACTER
; XLIB:CHAR->CARD8
; XLIB::WRITE-SEQUENCE-CARD8)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G1770
;
; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-WRITER
; WRITE-SEQUENCE-CHAR CHARACTER
; CHAR->CARD8 WRITE-SEQUENCE-CARD8)
; compiling (DEFMACRO DEFINE-LIST-WRITERS ...)
; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CARD8 WRITE-LIST-CARD8-WITH-TRANSFORM) ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in:
; DEFINE-LIST-WRITERS (WRITE-LIST-CARD8 WRITE-LIST-CARD8-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-WRITERS
; (XLIB::WRITE-LIST-CARD8 XLIB::WRITE-LIST-CARD8-WITH-TRANSFORM) XLIB:CARD8 1
; XLIB::WRITE-CARD8)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G1903
;
; note: could not stack allocate the result of (DEFINE-LIST-WRITERS
; (WRITE-LIST-CARD8
; WRITE-LIST-CARD8-WITH-TRANSFORM)
; CARD8 1 WRITE-CARD8)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD8 ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM
; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM
; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END
; XLIB::TRANSFORM)
; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER)
; (TYPE (SIMPLE-ARRAY XLIB:CARD8 (*)) XLIB::DATA)
; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END))
; (DECLARE (TYPE (FUNCTION (XLIB:CARD8) XLIB:CARD8) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD8 (*)))
; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD8
; ((XLIB::INDEX XLIB::START))
; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX))
; (DOTIMES (XLIB::J XLIB::CHUNK)
; (DECLARE #)
; (XLIB::WRITE-CARD8 XLIB::J #)
; (SETQ #))))
; NIL)
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G2044
;
; note: could not stack allocate the result of (DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM
; (BUFFER BOFFSET DATA START END
; TRANSFORM)
; (DECLARE (TYPE BUFFER BUFFER)
; (TYPE
; (SIMPLE-ARRAY CARD8 (*))
; DATA)
; (TYPE ARRAY-INDEX BOFFSET
; START END))
; (DECLARE
; (TYPE (FUNCTION (CARD8) CARD8)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA
; (SIMPLE-ARRAY CARD8 (*)))
; (WRITING-BUFFER-CHUNKS CARD8
; ((INDEX START))
; ((TYPE ARRAY-INDEX INDEX))
; (DOTIMES (J CHUNK)
; (DECLARE (TYPE ARRAY-INDEX J))
; (WRITE-CARD8 J
; (FUNCALL TRANSFORM
; #))
; (SETQ INDEX #))))
; NIL)
; compiling (DEFUN WRITE-VECTOR-CARD8 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-VECTOR-CARD8
; (AREF XLIB::DATA XLIB::INDEX)
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; compiling (DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (DEFUN XLIB::WRITE-VECTOR-CARD8-WITH-TRANSFORM
; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END
; XLIB::TRANSFORM)
; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER)
; (TYPE VECTOR XLIB::DATA)
; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END))
; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD8) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR)
; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD8
; ((XLIB::INDEX XLIB::START))
; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX))
; (DOTIMES (XLIB::J XLIB::CHUNK)
; (DECLARE #)
; (XLIB::WRITE-CARD8 XLIB::J #)
; (SETQ #))))
; NIL)
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G2167
;
; note: could not stack allocate the result of (DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM
; (BUFFER BOFFSET DATA START END
; TRANSFORM)
; (DECLARE (TYPE BUFFER BUFFER)
; (TYPE VECTOR DATA)
; (TYPE ARRAY-INDEX BOFFSET
; START END))
; (DECLARE
; (TYPE (FUNCTION (T) CARD8) TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA VECTOR)
; (WRITING-BUFFER-CHUNKS CARD8
; ((INDEX START))
; ((TYPE ARRAY-INDEX INDEX))
; (DOTIMES (J CHUNK)
; (DECLARE (TYPE ARRAY-INDEX J))
; (WRITE-CARD8 J
; (FUNCALL TRANSFORM
; #))
; (SETQ INDEX #))))
; NIL)
; compiling (DEFMACRO DEFINE-SEQUENCE-WRITER ...)
; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD8 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD8
; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CARD8 XLIB:CARD8
; (XLIB::WRITE-LIST-CARD8
; XLIB::WRITE-LIST-CARD8-WITH-TRANSFORM)
; (XLIB::WRITE-SIMPLE-ARRAY-CARD8
; XLIB::WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM)
; (XLIB::WRITE-VECTOR-CARD8
; XLIB::WRITE-VECTOR-CARD8-WITH-TRANSFORM))
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G2249
;
; note: could not stack allocate the result of (DEFINE-SEQUENCE-WRITER
; WRITE-SEQUENCE-CARD8 CARD8
; (WRITE-LIST-CARD8
; WRITE-LIST-CARD8-WITH-TRANSFORM)
; (WRITE-SIMPLE-ARRAY-CARD8
; WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM)
; (WRITE-VECTOR-CARD8
; WRITE-VECTOR-CARD8-WITH-TRANSFORM))
; compiling (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT8 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT8
; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-INT8 XLIB:INT8
; XLIB::INT8->CARD8
; XLIB::WRITE-SEQUENCE-CARD8)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G2315
;
; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-WRITER
; WRITE-SEQUENCE-INT8 INT8 INT8->CARD8
; WRITE-SEQUENCE-CARD8)
; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CARD16 WRITE-LIST-CARD16-WITH-TRANSFORM) ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in:
; DEFINE-LIST-WRITERS (WRITE-LIST-CARD16 WRITE-LIST-CARD16-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-WRITERS
; (XLIB::WRITE-LIST-CARD16 XLIB::WRITE-LIST-CARD16-WITH-TRANSFORM) XLIB:CARD16
; 2 XLIB::WRITE-CARD16)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G2430
;
; note: could not stack allocate the result of (DEFINE-LIST-WRITERS
; (WRITE-LIST-CARD16
; WRITE-LIST-CARD16-WITH-TRANSFORM)
; CARD16 2 WRITE-CARD16)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD16 ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM
; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM
; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END
; XLIB::TRANSFORM)
; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER)
; (TYPE (SIMPLE-ARRAY XLIB:CARD16 (*)) XLIB::DATA)
; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END))
; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) XLIB:CARD16) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD16 (*)))
; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16
; ((XLIB::INDEX XLIB::START))
; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX))
; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD16 XLIB::J #) (SETQ #))))
; NIL)
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G2541
;
; note: could not stack allocate the result of (DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM
; (BUFFER BOFFSET DATA START END
; TRANSFORM)
; (DECLARE (TYPE BUFFER BUFFER)
; (TYPE
; (SIMPLE-ARRAY CARD16 (*))
; DATA)
; (TYPE ARRAY-INDEX BOFFSET
; START END))
; (DECLARE
; (TYPE (FUNCTION (CARD16) CARD16)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA
; (SIMPLE-ARRAY CARD16
; (*)))
; (WRITING-BUFFER-CHUNKS CARD16
; ((INDEX START))
; ((TYPE ARRAY-INDEX INDEX))
; (DO ((J 0 #))
; ((INDEX>= J CHUNK))
; (DECLARE (TYPE ARRAY-INDEX J))
; (WRITE-CARD16 J
; (FUNCALL TRANSFORM
; #))
; (SETQ INDEX #))))
; NIL)
; compiling (DEFUN WRITE-VECTOR-CARD16 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-VECTOR-CARD16
; (AREF XLIB::DATA XLIB::INDEX)
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; compiling (DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (DEFUN XLIB::WRITE-VECTOR-CARD16-WITH-TRANSFORM
; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END
; XLIB::TRANSFORM)
; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER)
; (TYPE VECTOR XLIB::DATA)
; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)
; (OPTIMIZE))
; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD16) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR)
; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16
; ((XLIB::INDEX XLIB::START))
; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX))
; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD16 XLIB::J #) (SETQ #))))
; NIL)
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G2654
;
; note: could not stack allocate the result of (DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM
; (BUFFER BOFFSET DATA START END
; TRANSFORM)
; (DECLARE (TYPE BUFFER BUFFER)
; (TYPE VECTOR DATA)
; (TYPE ARRAY-INDEX BOFFSET
; START END)
; (OPTIMIZE))
; (DECLARE
; (TYPE (FUNCTION (T) CARD16)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA VECTOR)
; (WRITING-BUFFER-CHUNKS CARD16
; ((INDEX START))
; ((TYPE ARRAY-INDEX INDEX))
; (DO ((J 0 #))
; ((INDEX>= J CHUNK))
; (DECLARE (TYPE ARRAY-INDEX J))
; (WRITE-CARD16 J
; (FUNCALL TRANSFORM
; #))
; (SETQ INDEX #))))
; NIL)
; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD16 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD16
; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CARD16 XLIB:CARD16
; (XLIB::WRITE-LIST-CARD16
; XLIB::WRITE-LIST-CARD16-WITH-TRANSFORM)
; (XLIB::WRITE-SIMPLE-ARRAY-CARD16
; XLIB::WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM)
; (XLIB::WRITE-VECTOR-CARD16
; XLIB::WRITE-VECTOR-CARD16-WITH-TRANSFORM))
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G2714
;
; note: could not stack allocate the result of (DEFINE-SEQUENCE-WRITER
; WRITE-SEQUENCE-CARD16 CARD16
; (WRITE-LIST-CARD16
; WRITE-LIST-CARD16-WITH-TRANSFORM)
; (WRITE-SIMPLE-ARRAY-CARD16
; WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM)
; (WRITE-VECTOR-CARD16
; WRITE-VECTOR-CARD16-WITH-TRANSFORM))
; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-INT16 WRITE-LIST-INT16-WITH-TRANSFORM) ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in:
; DEFINE-LIST-WRITERS (WRITE-LIST-INT16 WRITE-LIST-INT16-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-WRITERS
; (XLIB::WRITE-LIST-INT16 XLIB::WRITE-LIST-INT16-WITH-TRANSFORM) XLIB:INT16 2
; XLIB::WRITE-INT16)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G2829
;
; note: could not stack allocate the result of (DEFINE-LIST-WRITERS
; (WRITE-LIST-INT16
; WRITE-LIST-INT16-WITH-TRANSFORM)
; INT16 2 WRITE-INT16)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-INT16 ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM
; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM
; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END
; XLIB::TRANSFORM)
; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER)
; (TYPE (SIMPLE-ARRAY XLIB:INT16 (*)) XLIB::DATA)
; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END))
; (DECLARE (TYPE (FUNCTION (XLIB:INT16) XLIB:INT16) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:INT16 (*)))
; (XLIB::WRITING-BUFFER-CHUNKS XLIB:INT16
; ((XLIB::INDEX XLIB::START))
; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX))
; (DO (#) (#) (DECLARE #) (XLIB::WRITE-INT16 XLIB::J #) (SETQ #))))
; NIL)
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G2940
;
; note: could not stack allocate the result of (DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM
; (BUFFER BOFFSET DATA START END
; TRANSFORM)
; (DECLARE (TYPE BUFFER BUFFER)
; (TYPE
; (SIMPLE-ARRAY INT16 (*))
; DATA)
; (TYPE ARRAY-INDEX BOFFSET
; START END))
; (DECLARE
; (TYPE (FUNCTION (INT16) INT16)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA
; (SIMPLE-ARRAY INT16 (*)))
; (WRITING-BUFFER-CHUNKS INT16
; ((INDEX START))
; ((TYPE ARRAY-INDEX INDEX))
; (DO ((J 0 #))
; ((INDEX>= J CHUNK))
; (DECLARE (TYPE ARRAY-INDEX J))
; (WRITE-INT16 J
; (FUNCALL TRANSFORM
; #))
; (SETQ INDEX #))))
; NIL)
; compiling (DEFUN WRITE-VECTOR-INT16 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-VECTOR-INT16
; (AREF XLIB::DATA XLIB::INDEX)
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; compiling (DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (DEFUN XLIB::WRITE-VECTOR-INT16-WITH-TRANSFORM
; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END
; XLIB::TRANSFORM)
; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER)
; (TYPE VECTOR XLIB::DATA)
; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)
; (OPTIMIZE))
; (DECLARE (TYPE (FUNCTION (T) XLIB:INT16) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR)
; (XLIB::WRITING-BUFFER-CHUNKS XLIB:INT16
; ((XLIB::INDEX XLIB::START))
; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX))
; (DO (#) (#) (DECLARE #) (XLIB::WRITE-INT16 XLIB::J #) (SETQ #))))
; NIL)
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G3053
;
; note: could not stack allocate the result of (DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM
; (BUFFER BOFFSET DATA START END
; TRANSFORM)
; (DECLARE (TYPE BUFFER BUFFER)
; (TYPE VECTOR DATA)
; (TYPE ARRAY-INDEX BOFFSET
; START END)
; (OPTIMIZE))
; (DECLARE
; (TYPE (FUNCTION (T) INT16) TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA VECTOR)
; (WRITING-BUFFER-CHUNKS INT16
; ((INDEX START))
; ((TYPE ARRAY-INDEX INDEX))
; (DO ((J 0 #))
; ((INDEX>= J CHUNK))
; (DECLARE (TYPE ARRAY-INDEX J))
; (WRITE-INT16 J
; (FUNCALL TRANSFORM
; #))
; (SETQ INDEX #))))
; NIL)
; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-INT16 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-INT16
; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-INT16 XLIB:INT16
; (XLIB::WRITE-LIST-INT16
; XLIB::WRITE-LIST-INT16-WITH-TRANSFORM)
; (XLIB::WRITE-SIMPLE-ARRAY-INT16
; XLIB::WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM)
; (XLIB::WRITE-VECTOR-INT16
; XLIB::WRITE-VECTOR-INT16-WITH-TRANSFORM))
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G3113
;
; note: could not stack allocate the result of (DEFINE-SEQUENCE-WRITER
; WRITE-SEQUENCE-INT16 INT16
; (WRITE-LIST-INT16
; WRITE-LIST-INT16-WITH-TRANSFORM)
; (WRITE-SIMPLE-ARRAY-INT16
; WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM)
; (WRITE-VECTOR-INT16
; WRITE-VECTOR-INT16-WITH-TRANSFORM))
; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CARD32 WRITE-LIST-CARD32-WITH-TRANSFORM) ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in:
; DEFINE-LIST-WRITERS (WRITE-LIST-CARD32 WRITE-LIST-CARD32-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-WRITERS
; (XLIB::WRITE-LIST-CARD32 XLIB::WRITE-LIST-CARD32-WITH-TRANSFORM) XLIB:CARD32
; 4 XLIB::WRITE-CARD32)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G3228
;
; note: could not stack allocate the result of (DEFINE-LIST-WRITERS
; (WRITE-LIST-CARD32
; WRITE-LIST-CARD32-WITH-TRANSFORM)
; CARD32 4 WRITE-CARD32)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD32 ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM
; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM
; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END
; XLIB::TRANSFORM)
; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER)
; (TYPE (SIMPLE-ARRAY XLIB:CARD32 (*)) XLIB::DATA)
; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END))
; (DECLARE (TYPE (FUNCTION (XLIB:CARD32) XLIB:CARD32) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD32 (*)))
; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD32
; ((XLIB::INDEX XLIB::START))
; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX))
; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD32 XLIB::J #) (SETQ #))))
; NIL)
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G3339
;
; note: could not stack allocate the result of (DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM
; (BUFFER BOFFSET DATA START END
; TRANSFORM)
; (DECLARE (TYPE BUFFER BUFFER)
; (TYPE
; (SIMPLE-ARRAY CARD32 (*))
; DATA)
; (TYPE ARRAY-INDEX BOFFSET
; START END))
; (DECLARE
; (TYPE (FUNCTION (CARD32) CARD32)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA
; (SIMPLE-ARRAY CARD32
; (*)))
; (WRITING-BUFFER-CHUNKS CARD32
; ((INDEX START))
; ((TYPE ARRAY-INDEX INDEX))
; (DO ((J 0 #))
; ((INDEX>= J CHUNK))
; (DECLARE (TYPE ARRAY-INDEX J))
; (WRITE-CARD32 J
; (FUNCALL TRANSFORM
; #))
; (SETQ INDEX #))))
; NIL)
; compiling (DEFUN WRITE-VECTOR-CARD32 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-VECTOR-CARD32
; (AREF XLIB::DATA XLIB::INDEX)
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; compiling (DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (DEFUN XLIB::WRITE-VECTOR-CARD32-WITH-TRANSFORM
; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END
; XLIB::TRANSFORM)
; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER)
; (TYPE VECTOR XLIB::DATA)
; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)
; (OPTIMIZE))
; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD32) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR)
; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD32
; ((XLIB::INDEX XLIB::START))
; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX))
; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD32 XLIB::J #) (SETQ #))))
; NIL)
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G3452
;
; note: could not stack allocate the result of (DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM
; (BUFFER BOFFSET DATA START END
; TRANSFORM)
; (DECLARE (TYPE BUFFER BUFFER)
; (TYPE VECTOR DATA)
; (TYPE ARRAY-INDEX BOFFSET
; START END)
; (OPTIMIZE))
; (DECLARE
; (TYPE (FUNCTION (T) CARD32)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA VECTOR)
; (WRITING-BUFFER-CHUNKS CARD32
; ((INDEX START))
; ((TYPE ARRAY-INDEX INDEX))
; (DO ((J 0 #))
; ((INDEX>= J CHUNK))
; (DECLARE (TYPE ARRAY-INDEX J))
; (WRITE-CARD32 J
; (FUNCALL TRANSFORM
; #))
; (SETQ INDEX #))))
; NIL)
; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD32 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD32
; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CARD32 XLIB:CARD32
; (XLIB::WRITE-LIST-CARD32
; XLIB::WRITE-LIST-CARD32-WITH-TRANSFORM)
; (XLIB::WRITE-SIMPLE-ARRAY-CARD32
; XLIB::WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM)
; (XLIB::WRITE-VECTOR-CARD32
; XLIB::WRITE-VECTOR-CARD32-WITH-TRANSFORM))
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G3512
;
; note: could not stack allocate the result of (DEFINE-SEQUENCE-WRITER
; WRITE-SEQUENCE-CARD32 CARD32
; (WRITE-LIST-CARD32
; WRITE-LIST-CARD32-WITH-TRANSFORM)
; (WRITE-SIMPLE-ARRAY-CARD32
; WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM)
; (WRITE-VECTOR-CARD32
; WRITE-VECTOR-CARD32-WITH-TRANSFORM))
; compiling (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT32 ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT32
; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-INT32
; XLIB:INT32 XLIB::INT32->CARD32
; XLIB::WRITE-SEQUENCE-CARD32)
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G3578
;
; note: could not stack allocate the result of (DEFINE-TRANSFORMED-SEQUENCE-WRITER
; WRITE-SEQUENCE-INT32 INT32
; INT32->CARD32 WRITE-SEQUENCE-CARD32)
; compiling (DEFUN READ-BITVECTOR256 ...)
; compiling (DEFUN WRITE-BITVECTOR256 ...)
; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CHAR2B WRITE-LIST-CHAR2B-WITH-TRANSFORM) ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in:
; DEFINE-LIST-WRITERS (WRITE-LIST-CHAR2B WRITE-LIST-CHAR2B-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-WRITERS
; (XLIB::WRITE-LIST-CHAR2B XLIB::WRITE-LIST-CHAR2B-WITH-TRANSFORM) XLIB:CARD16
; 2 XLIB::WRITE-CHAR2B)
; --> PROGN DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G3799
;
; note: could not stack allocate the result of (DEFINE-LIST-WRITERS
; (WRITE-LIST-CHAR2B
; WRITE-LIST-CHAR2B-WITH-TRANSFORM)
; CARD16 2 WRITE-CHAR2B)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B ...)
; compiling (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM
; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM
; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END
; XLIB::TRANSFORM)
; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER)
; (TYPE (SIMPLE-ARRAY XLIB:CARD16 (*)) XLIB::DATA)
; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END))
; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) XLIB:CARD16) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD16 (*)))
; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16
; ((XLIB::INDEX XLIB::START))
; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX))
; (DO (#) (# #) (DECLARE #) (XLIB::WRITE-CHAR2B XLIB::J #) (SETQ #))))
; NIL)
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G3940
;
; note: could not stack allocate the result of (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM
; (BUFFER BOFFSET DATA START END
; TRANSFORM)
; (DECLARE (TYPE BUFFER BUFFER)
; (TYPE
; (SIMPLE-ARRAY CARD16 (*))
; DATA)
; (TYPE ARRAY-INDEX BOFFSET
; START END))
; (DECLARE
; (TYPE (FUNCTION (CARD16) CARD16)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA
; (SIMPLE-ARRAY CARD16
; (*)))
; (WRITING-BUFFER-CHUNKS CARD16
; ((INDEX START))
; ((TYPE ARRAY-INDEX INDEX))
; (DO ((J 0 #))
; ((INDEX>= J #) (SETF #))
; (DECLARE (TYPE ARRAY-INDEX J))
; (WRITE-CHAR2B J
; (FUNCALL TRANSFORM
; #))
; (SETQ INDEX #))))
; NIL)
; compiling (DEFUN WRITE-VECTOR-CHAR2B ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-VECTOR-CHAR2B
; (AREF XLIB::DATA XLIB::INDEX)
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; compiling (DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
; ==>
; (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
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (DEFUN XLIB::WRITE-VECTOR-CHAR2B-WITH-TRANSFORM
; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END
; XLIB::TRANSFORM)
; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER)
; (TYPE VECTOR XLIB::DATA)
; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)
; (OPTIMIZE))
; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD16) XLIB::TRANSFORM)
; (DYNAMIC-EXTENT XLIB::TRANSFORM))
; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR)
; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16
; ((XLIB::INDEX XLIB::START))
; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX))
; (DO (#) (# #) (DECLARE #) (XLIB::WRITE-CHAR2B XLIB::J #) (SETQ #))))
; NIL)
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G4083
;
; note: could not stack allocate the result of (DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM
; (BUFFER BOFFSET DATA START END
; TRANSFORM)
; (DECLARE (TYPE BUFFER BUFFER)
; (TYPE VECTOR DATA)
; (TYPE ARRAY-INDEX BOFFSET
; START END)
; (OPTIMIZE))
; (DECLARE
; (TYPE (FUNCTION (T) CARD16)
; TRANSFORM)
; (DYNAMIC-EXTENT TRANSFORM))
; (WITH-VECTOR (DATA VECTOR)
; (WRITING-BUFFER-CHUNKS CARD16
; ((INDEX START))
; ((TYPE ARRAY-INDEX INDEX))
; (DO ((J 0 #))
; ((INDEX>= J #) (SETF #))
; (DECLARE (TYPE ARRAY-INDEX J))
; (WRITE-CHAR2B J
; (FUNCALL TRANSFORM
; #))
; (SETQ INDEX #))))
; NIL)
; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR2B ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.lisp
; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR2B
; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CHAR2B XLIB:CARD16
; (XLIB::WRITE-LIST-CHAR2B
; XLIB::WRITE-LIST-CHAR2B-WITH-TRANSFORM)
; (XLIB::WRITE-SIMPLE-ARRAY-CHAR2B
; XLIB::WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM)
; (XLIB::WRITE-VECTOR-CHAR2B
; XLIB::WRITE-VECTOR-CHAR2B-WITH-TRANSFORM))
; --> DEFUN PROGN EVAL-WHEN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF
; --> PROGN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET
; ==>
; #:G4152
;
; note: could not stack allocate the result of (DEFINE-SEQUENCE-WRITER
; WRITE-SEQUENCE-CHAR2B CARD16
; (WRITE-LIST-CHAR2B
; WRITE-LIST-CHAR2B-WITH-TRANSFORM)
; (WRITE-SIMPLE-ARRAY-CHAR2B
; WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM)
; (WRITE-VECTOR-CHAR2B
; WRITE-VECTOR-CHAR2B-WITH-TRANSFORM))
; /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/buffer.fasl written
; compilation finished in 0:00:01.394
; compiling file "/usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/display.lisp" (written 28 NOV 2009 09:13:30 PM):
; compiling (IN-PACKAGE :XLIB)
; compiling (DEFPARAMETER *KNOWN-AUTHORIZATIONS* ...)
; compiling (DEFUN READ-XAUTH-ENTRY ...)
; compiling (DEFUN GET-BEST-AUTHORIZATION ...)
; compiling (DEFMACRO WITH-DISPLAY ...)
; 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 ...)
; 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-EVENT-QUEUE ...)
; compiling (DEFUN WITH-EVENT-QUEUE-FUNCTION ...)
; file: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/display.lisp
; in: DEFUN WITH-EVENT-QUEUE-FUNCTION
; (DEFUN XLIB::WITH-EVENT-QUEUE-FUNCTION (XLIB:DISPLAY XLIB::TIMEOUT FUNCTION)
; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY)
; (TYPE (OR NULL NUMBER) XLIB::TIMEOUT)
; (TYPE FUNCTION FUNCTION)
; (DYNAMIC-EXTENT FUNCTION)
; (IGNORABLE XLIB:DISPLAY XLIB::TIMEOUT))
; (XLIB:WITH-EVENT-QUEUE (XLIB:DISPLAY :TIMEOUT XLIB::TIMEOUT :INLINE T)
; (FUNCALL FUNCTION)))
; --> PROGN EVAL-WHEN SB-IMPL::%DEFUN LOCALLY SB-C::%FUNCALL
; ==>
; #:G494
;
; note: could not stack allocate the result of (DEFUN WITH-EVENT-QUEUE-FUNCTION
; (DISPLAY TIMEOUT FUNCTION)
; (DECLARE (TYPE DISPLAY DISPLAY)
; (TYPE (OR NULL NUMBER)
; TIMEOUT)
; (TYPE FUNCTION FUNCTION)
; (DYNAMIC-EXTENT FUNCTION)
; (IGNORABLE DISPLAY TIMEOUT))
; (WITH-EVENT-QUEUE (DISPLAY :TIMEOUT
; TIMEOUT :INLINE T)
; (FUNCALL 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: /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/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* ...)
; /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/display.fasl written
; compilation finished in 0:00:00.360
; compiling file "/usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/gcontext.lisp" (written 28 NOV 2009 09:13:30 PM):
; 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 ...)unhandled SB-INT:SIMPLE-PROGRAM-ERROR: invalid number of arguments: 4194306
0: (SB-DEBUG::MAP-BACKTRACE #)[:EXTERNAL]
1: (SB-DEBUG:BACKTRACE
128
#)
2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK
#
#)
3: (SB-DEBUG::RUN-HOOK
SB-EXT:*INVOKE-DEBUGGER-HOOK*
#)
4: (INVOKE-DEBUGGER #)
5: (ERROR SB-INT:SIMPLE-PROGRAM-ERROR)[:EXTERNAL]
6: (SB-KERNEL::INVALID-ARG-COUNT-ERROR-HANDLER
#
#.(SB-SYS:INT-SAP #X81CBFDC80)
#<
SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X81CBFD810 :TYPE (*
(SB-ALIEN:STRUCT
SB-VM::OS-CONTEXT-T-STRUCT))>
(84))
7: (SB-KERNEL:INTERNAL-ERROR
#.(SB-SYS:INT-SAP #X81CBFD810)
#)
8: ("foreign function: call_into_lisp")
9: ("foreign function: funcall2")
10: ("foreign function: interrupt_internal_error")
11: ("foreign function: unblock_signals_in_context_and_maybe_warn")
12: (CONS LENGTH (SB-C::INITIAL-ELEMENT))[:EXTERNAL]
13: (SB-IMPL::BACKQ-CONS)[:EXTERNAL]
14: (SB-C::TRANSFORM-MAKE-ARRAY-VECTOR
#
NIL
#
NIL
#
:WHERE-FROM :DECLARED
:KIND :GLOBAL-FUNCTION {100424E6F1}>
{100424F021}>
:ARGS (#
:ASSERTED-TYPE #
:TYPE-TO-CHECK #
{10042500E1}>
#
{100424F621}>)
{100424F0A1}>)
15: ((LAMBDA (SB-C:CALL))
#
:WHERE-FROM :DECLARED
:KIND :GLOBAL-FUNCTION {100424E6F1}>
{100424F021}>
:ARGS (#
:ASSERTED-TYPE #
:TYPE-TO-CHECK #
{10042500E1}>
#
{100424F621}>)
{100424F0A1}>)
16: (SB-C::IR1-TRANSFORM
#
:WHERE-FROM :DECLARED
:KIND :GLOBAL-FUNCTION {100424E6F1}>
{100424F021}>
:ARGS (#
:ASSERTED-TYPE #
:TYPE-TO-CHECK #
{10042500E1}>
#
{100424F621}>)
{100424F0A1}>
#
:NOTE "optimize"
:IMPORTANT NIL>)
17: (SB-C::IR1-OPTIMIZE-COMBINATION
#
:WHERE-FROM :DECLARED
:KIND :GLOBAL-FUNCTION {100424E6F1}>
{100424F021}>
:ARGS (#
:ASSERTED-TYPE #
:TYPE-TO-CHECK #
{10042500E1}>
#
{100424F621}>)
{100424F0A1}>)
18: (SB-C::IR1-OPTIMIZE-BLOCK #)
19: (SB-C::IR1-OPTIMIZE
#
NIL)
20: (SB-C::IR1-OPTIMIZE-UNTIL-DONE
#)
21: (SB-C::IR1-PHASES
#)
22: (SB-C::COMPILE-COMPONENT
#)
23: (SB-C::%COMPILE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH* (LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP *GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH) (RETURN STATE)))))))
#)[:EXTERNAL]
24: (SB-C::FOPCOMPILE-FUNCTION
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH* (LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP *GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH) (RETURN STATE)))))))
((SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION)))
(PROGN
(EVAL-WHEN (:COMPILE-TOPLEVEL)
(SB-C:%COMPILER-DEFUN 'ALLOCATE-GCONTEXT-STATE 'NIL T))
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))))
SB-C::ORIGINAL-SOURCE-START 0 8)
T)
25: (SB-C::FOPCOMPILE
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))
((SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION)))
(PROGN
(EVAL-WHEN (:COMPILE-TOPLEVEL)
(SB-C:%COMPILER-DEFUN 'ALLOCATE-GCONTEXT-STATE 'NIL T))
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))))
SB-C::ORIGINAL-SOURCE-START 0 8)
NIL)
26: (SB-C::CONVERT-AND-MAYBE-COMPILE
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))
((SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION)))
(PROGN
(EVAL-WHEN (:COMPILE-TOPLEVEL)
(SB-C:%COMPILER-DEFUN 'ALLOCATE-GCONTEXT-STATE 'NIL T))
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))))
SB-C::ORIGINAL-SOURCE-START 0 8))
27: ((FLET SB-C::DEFAULT-PROCESSOR)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION)))
28: (SB-C::PROCESS-TOPLEVEL-FORM
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))
((EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION)))
(PROGN
(EVAL-WHEN (:COMPILE-TOPLEVEL)
(SB-C:%COMPILER-DEFUN 'ALLOCATE-GCONTEXT-STATE 'NIL T))
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))))
SB-C::ORIGINAL-SOURCE-START 0 8)
NIL)
29: (SB-C::PROCESS-TOPLEVEL-PROGN
((SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION)))
((EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION)))
(PROGN
(EVAL-WHEN (:COMPILE-TOPLEVEL)
(SB-C:%COMPILER-DEFUN 'ALLOCATE-GCONTEXT-STATE 'NIL T))
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))))
SB-C::ORIGINAL-SOURCE-START 0 8)
NIL)
30: (SB-C::PROCESS-TOPLEVEL-FORM
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION)))
((PROGN
(EVAL-WHEN (:COMPILE-TOPLEVEL)
(SB-C:%COMPILER-DEFUN 'ALLOCATE-GCONTEXT-STATE 'NIL T))
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))))
SB-C::ORIGINAL-SOURCE-START 0 8)
NIL)
31: (SB-C::PROCESS-TOPLEVEL-PROGN
((EVAL-WHEN (:COMPILE-TOPLEVEL)
(SB-C:%COMPILER-DEFUN 'ALLOCATE-GCONTEXT-STATE 'NIL T))
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))))
((PROGN
(EVAL-WHEN (:COMPILE-TOPLEVEL)
(SB-C:%COMPILER-DEFUN 'ALLOCATE-GCONTEXT-STATE 'NIL T))
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))))
SB-C::ORIGINAL-SOURCE-START 0 8)
NIL)
32: (SB-C::PROCESS-TOPLEVEL-FORM
(PROGN
(EVAL-WHEN (:COMPILE-TOPLEVEL)
(SB-C:%COMPILER-DEFUN 'ALLOCATE-GCONTEXT-STATE 'NIL T))
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFUN 'ALLOCATE-GCONTEXT-STATE
(SB-INT:NAMED-LAMBDA ALLOCATE-GCONTEXT-STATE
NIL
(BLOCK ALLOCATE-GCONTEXT-STATE
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH*
(LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP
*GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT
NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH)
(RETURN STATE)))))))
NIL 'NIL (SB-C:SOURCE-LOCATION))))
(SB-C::ORIGINAL-SOURCE-START 0 8)
NIL)
33: ((FLET SB-C::DEFAULT-PROCESSOR)
(DEFUN ALLOCATE-GCONTEXT-STATE ()
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH* (LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP *GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH) (RETURN STATE)))))))
34: (SB-C::PROCESS-TOPLEVEL-FORM
(DEFUN ALLOCATE-GCONTEXT-STATE ()
(LET ((LENGTH
(INDEX+ *GCONTEXT-DATA-LENGTH* (LENGTH *GCONTEXT-EXTENSIONS*))))
(DECLARE (TYPE ARRAY-INDEX LENGTH))
(LOOP
(LET ((STATE
(OR
(THREADED-ATOMIC-POP *GCONTEXT-LOCAL-STATE-CACHE*
GCONTEXT-STATE-NEXT GCONTEXT-STATE)
(MAKE-ARRAY LENGTH :INITIAL-ELEMENT NIL))))
(DECLARE (TYPE GCONTEXT-STATE STATE))
(WHEN (INDEX>= (LENGTH STATE) LENGTH) (RETURN STATE))))))
(SB-C::ORIGINAL-SOURCE-START 0 8)
NIL)
35: (SB-C::SUB-SUB-COMPILE-FILE #)
36: ((LAMBDA ()))
37: (SB-C::%WITH-COMPILATION-UNIT #)[:EXTERNAL]
38: (SB-C::SUB-COMPILE-FILE #)
39: (COMPILE-FILE
#P"/usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/clx-0.7.4/gcontext.lisp")[:EXTERNAL]
40: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
#
#
#
#)
41: ((LAMBDA
(SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-PCL::.ARG1.))
#
#
#
#)
42: ((SB-PCL::FAST-METHOD ASDF:PERFORM :AROUND (T CLX-SYSTEM::CLX-SOURCE-FILE))
#
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2))
#
#)
43: ((SB-PCL::FAST-METHOD ASDF:PERFORM :AROUND
(ASDF:COMPILE-OP CLX-SYSTEM::CLX-SOURCE-FILE))
#
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #
:PV NIL
:NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2))
:ARG-INFO (2))
#
#)
44: ((SB-PCL::FAST-METHOD ASDF:PERFORM ASDF:AROUND
(ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
#
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #
:PV NIL
:NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #
:PV NIL
:NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2))
:ARG-INFO (2))
:ARG-INFO (2))
#
#)
45: ((LAMBDA ()))
46: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
47: (SB-C::%WITH-COMPILATION-UNIT #)[:EXTERNAL]
48: (ASDF:OPERATE ASDF:LOAD-OP COMMON-LISP-USER::STUMPWM)[:EXTERNAL]
49: (ASDF::MODULE-PROVIDE-ASDF COMMON-LISP-USER::STUMPWM)
50: ((LAMBDA (#:G[REQUIRE]13)) ASDF::MODULE-PROVIDE-ASDF)
51: (SB-IMPL::%MAP-FOR-EFFECT-ARITY-1
#
(ASDF::MODULE-PROVIDE-ASDF SB-IMPL::MODULE-PROVIDE-CONTRIB))
52: (REQUIRE COMMON-LISP-USER::STUMPWM NIL)
53: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(REQUIRE 'COMMON-LISP-USER::STUMPWM)
#)
54: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(PROGN
(REQUIRE 'COMMON-LISP-USER::ASDF)
(REQUIRE 'COMMON-LISP-USER::STUMPWM))
#)
55: (SB-FASL::LOAD-AS-SOURCE
#
NIL
NIL)
56: ((FLET SB-FASL::LOAD-STREAM)
#
NIL)
57: (LOAD #P"./make-image.lisp")[:EXTERNAL]
58: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS
((:EVAL . "(require :asdf)") (:EVAL . "(pop asdf:*central-registry*)")
(:LOAD . "./make-image.lisp")))
59: (SB-IMPL::TOPLEVEL-INIT)
60: ((LABELS SB-IMPL::RESTART-LISP))
unhandled condition in --disable-debugger mode, quitting
; compilation aborted after 0:00:00.525
;
; compilation unit aborted
; caught 2 fatal ERROR conditions
; printed 108 notes
*** Error code 1
Stop in /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm/work/stumpwm-0.9.7.
*** Error code 1
Stop in /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm.
*** Error code 1
Stop in /usr/home/abbe/tinderbox/ports/x11-wm/stumpwm.
Script done on Sun Sep 5 22:39:14 2010