=>> Building x11/cl-clx-sbcl build started at Sat Apr 6 12:08:33 BST 2024 port directory: /usr/ports/x11/cl-clx-sbcl package name: cl-clx-sbcl-0.7.5.65_31 building for: FreeBSD pkg-builder.dan.net.uk 13.2-RELEASE-p10 FreeBSD 13.2-RELEASE-p10 amd64 maintained by: jrm@FreeBSD.org Makefile datestamp: -rw-r--r-- 1 root wheel 541 Jan 3 00:12 /usr/ports/x11/cl-clx-sbcl/Makefile Ports top last git commit: c2c35d895e Ports top unclean checkout: yes Port dir last git commit: 1037186916 Port dir unclean checkout: no Poudriere version: poudriere-git-3.4.99.20240122_1 Host OSVERSION: 1400097 Jail OSVERSION: 1302001 Job Id: 19 ---Begin Environment--- SHELL=/bin/csh OSVERSION=1302001 UNAME_v=FreeBSD 13.2-RELEASE-p10 UNAME_r=13.2-RELEASE-p10 BLOCKSIZE=K MAIL=/var/mail/root MM_CHARSET=UTF-8 LANG=C.UTF-8 STATUS=1 HOME=/root PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin MAKE_OBJDIR_CHECK_WRITABLE=0 LOCALBASE=/usr/local USER=root POUDRIERE_NAME=poudriere-git LIBEXECPREFIX=/usr/local/libexec/poudriere POUDRIERE_VERSION=3.4.99.20240122_1 MASTERMNT=/usr/local/poudriere/data/.m/13-amd64-default-dan/ref LC_COLLATE=C POUDRIERE_BUILD_TYPE=bulk PACKAGE_BUILDING=yes SAVED_TERM=screen OUTPUT_REDIRECTED_STDERR=4 OUTPUT_REDIRECTED=1 PWD=/usr/local/poudriere/data/.m/13-amd64-default-dan/19/.p OUTPUT_REDIRECTED_STDOUT=3 P_PORTS_FEATURES=FLAVORS SUBPACKAGES SELECTED_OPTIONS MASTERNAME=13-amd64-default-dan SCRIPTPREFIX=/usr/local/share/poudriere SCRIPTNAME=bulk.sh OLDPWD=/usr/local/poudriere/data/.m/13-amd64-default-dan/ref/.p/pool POUDRIERE_PKGNAME=poudriere-git-3.4.99.20240122_1 SCRIPTPATH=/usr/local/share/poudriere/bulk.sh POUDRIEREPATH=/usr/local/bin/poudriere ---End Environment--- ---Begin Poudriere Port Flags/Env--- PORT_FLAGS= PKGENV= FLAVOR= MAKE_ARGS= ---End Poudriere Port Flags/Env--- ---Begin OPTIONS List--- ---End OPTIONS List--- --MAINTAINER-- jrm@FreeBSD.org --End MAINTAINER-- --CONFIGURE_ARGS-- --End CONFIGURE_ARGS-- --CONFIGURE_ENV-- XDG_DATA_HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work XDG_CONFIG_HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work XDG_CACHE_HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work/.cache HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work TMPDIR="/tmp" PATH=/ccache/libexec/ccache:/wrkdirs/usr/ports/x11/cl-clx-sbcl/work/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin PKG_CONFIG_LIBDIR=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work/.pkgconfig:/usr/local/libdata/pkgconfig:/usr/local/share/pkgconfig:/usr/libdata/pkgconfig SHELL=/bin/sh CONFIG_SHELL=/bin/sh CCACHE_DIR="/root/.ccache" --End CONFIGURE_ENV-- --MAKE_ENV-- XDG_DATA_HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work XDG_CONFIG_HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work XDG_CACHE_HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work/.cache HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work TMPDIR="/tmp" PATH=/ccache/libexec/ccache:/wrkdirs/usr/ports/x11/cl-clx-sbcl/work/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin PKG_CONFIG_LIBDIR=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work/.pkgconfig:/usr/local/libdata/pkgconfig:/usr/local/share/pkgconfig:/usr/libdata/pkgconfig MK_DEBUG_FILES=no MK_KERNEL_SYMBOLS=no SHELL=/bin/sh NO_LINT=YES PREFIX=/usr/local LOCALBASE=/usr/local CC="cc" CFLAGS="-O2 -pipe -fstack-protector-strong -fno-strict-aliasing " CPP="cpp" CPPFLAGS="" LDFLAGS=" -fstack-protector-strong " LIBS="" CXX="c++" CXXFLAGS="-O2 -pipe -fstack-protector-strong -fno-strict-aliasing " CCACHE_DIR="/root/.ccache" BSD_INSTALL_PROGRAM="install -s -m 555" BSD_INSTALL_LIB="install -s -m 0644" BSD_INSTALL_SCRIPT="install -m 555" BSD_INSTALL_DATA="install -m 0644" BSD_INSTALL_MAN="install -m 444" --End MAKE_ENV-- --PLIST_SUB-- OSREL=13.2 PREFIX=%D LOCALBASE=/usr/local RESETPREFIX=/usr/local LIB32DIR=lib DOCSDIR="share/doc/cl-clx-sbcl" EXAMPLESDIR="share/examples/cl-clx-sbcl" DATADIR="share/clx" WWWDIR="www/clx" ETCDIR="etc/clx" --End PLIST_SUB-- --SUB_LIST-- PREFIX=/usr/local LOCALBASE=/usr/local DATADIR=/usr/local/share/clx DOCSDIR=/usr/local/share/doc/cl-clx-sbcl EXAMPLESDIR=/usr/local/share/examples/cl-clx-sbcl WWWDIR=/usr/local/www/clx ETCDIR=/usr/local/etc/clx --End SUB_LIST-- ---Begin make.conf--- USE_PACKAGE_DEPENDS=yes BATCH=yes WRKDIRPREFIX=/wrkdirs PORTSDIR=/usr/ports PACKAGES=/packages DISTDIR=/distfiles FORCE_PACKAGE=yes PACKAGE_BUILDING=yes PACKAGE_BUILDING_FLAVORS=yes #### #### CCACHE_CPP2=1 WITH_SSP_PORTS=yes WITH_SSP=yes #WITH_LTO=yes DISABLE_LICENSES=yes LICENSES_ACCEPTED=AGPLv3 APACHE10 APACHE11 APACHE20 ART10 ARTPERL10 ART20 BSD BSD2CLAUSE BSD3CLAUSE BSD4CLAUSE BSL CC0-1.0 CDDL ClArtistic EPL GFDL GMGPL GPLv1 GPLv2 GPLv3 GPLv3RLE ISCL LGPL20 LGPL21 LGPL3 LPPL10 LPPL11 LPPL12 LPPL13 LPPL13a LPPL13b LPPL13c MIT MPL OpenSSL OFL10 OFL11 OWL PostgreSQL PHP202 PHP30 PHP301 PSFL RUBY ZLIB ZPL21 SVM-Light EULA ALASIR Microsoft-exFAT SIMIAN UDEVGAME unknown MTA COMMERCIAL teamspeak NO_LICENSES_DIALOGS=yes #### #### NO_IGNORE=yes DEFAULT_VERSIONS+=ssl=openssl mysql=8.0 imagemagick=7 samba=4.13 java=18 WITH_SETID_MODE=force PHP_ZTS=enabled OPTIONS_UNSET+=OPENJPEG OPTIONS_UNSET+=GSSAPI_BASE OPTIONS_SET+=ZTS OPTIONS_SET+=GSSAPI_NONE WITH_CCACHE_BUILD=yes CCACHE_DIR=/root/.ccache NO_CCACHE_DEPEND=1 CCACHE_WRAPPER_PATH= /ccache/libexec/ccache #### Misc Poudriere #### .include "/etc/make.conf.ports_env" GID=0 UID=0 DISABLE_MAKE_JOBS=poudriere ---End make.conf--- --Resource limits-- cpu time (seconds, -t) unlimited file size (512-blocks, -f) unlimited data seg size (kbytes, -d) 33554432 stack size (kbytes, -s) 524288 core file size (512-blocks, -c) unlimited max memory size (kbytes, -m) unlimited locked memory (kbytes, -l) unlimited max user processes (-u) 89999 open files (-n) 8192 virtual mem size (kbytes, -v) unlimited swap limit (kbytes, -w) unlimited socket buffer size (bytes, -b) unlimited pseudo-terminals (-p) unlimited kqueues (-k) unlimited umtx shared locks (-o) unlimited --End resource limits-- =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 ===> cl-clx-sbcl-0.7.5.65_31 depends on file: /usr/local/sbin/pkg - not found ===> Installing existing package /packages/All/pkg-1.20.9_1.pkg [pkg-builder.dan.net.uk] Installing pkg-1.20.9_1... [pkg-builder.dan.net.uk] Extracting pkg-1.20.9_1: .......... done ===> cl-clx-sbcl-0.7.5.65_31 depends on file: /usr/local/sbin/pkg - found ===> Returning to build of cl-clx-sbcl-0.7.5.65_31 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Fetching all distfiles required by cl-clx-sbcl-0.7.5.65_31 for building =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Fetching all distfiles required by cl-clx-sbcl-0.7.5.65_31 for building =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Fetching all distfiles required by cl-clx-sbcl-0.7.5.65_31 for building ===> Extracting for cl-clx-sbcl-0.7.5.65_31 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Patching for cl-clx-sbcl-0.7.5.65_31 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 ===> cl-clx-sbcl-0.7.5.65_31 depends on package: cl-clx>=0 - not found ===> Installing existing package /packages/All/cl-clx-0.7.5.65.pkg [pkg-builder.dan.net.uk] Installing cl-clx-0.7.5.65... [pkg-builder.dan.net.uk] `-- Installing cl-asdf-3.3.4.7,2... [pkg-builder.dan.net.uk] `-- Extracting cl-asdf-3.3.4.7,2: ..... done [pkg-builder.dan.net.uk] `-- Installing indexinfo-0.3.1... [pkg-builder.dan.net.uk] `-- Extracting indexinfo-0.3.1: . done [pkg-builder.dan.net.uk] Extracting cl-clx-0.7.5.65: .......... done ===== Message from cl-asdf-3.3.4.7,2: -- To use asdf and depending ports, you will have to configure your Lisp systems so they know where to find asdf itself and the system definition files. A default configuration is installed in /usr/local/etc/asdf-init.lisp Review this file for further information, or simply load it from your Lisp initialization file. ===> cl-clx-sbcl-0.7.5.65_31 depends on package: cl-clx>=0 - found ===> Returning to build of cl-clx-sbcl-0.7.5.65_31 ===> cl-clx-sbcl-0.7.5.65_31 depends on executable: sbcl - not found ===> Installing existing package /packages/All/sbcl-2.4.0_1,1.pkg [pkg-builder.dan.net.uk] Installing sbcl-2.4.0_1,1... [pkg-builder.dan.net.uk] `-- Installing gmp-6.3.0... [pkg-builder.dan.net.uk] `-- Extracting gmp-6.3.0: .......... done [pkg-builder.dan.net.uk] `-- Installing mpfr-4.2.1,1... [pkg-builder.dan.net.uk] `-- Extracting mpfr-4.2.1,1: .......... done [pkg-builder.dan.net.uk] `-- Installing zstd-1.5.5_1... [pkg-builder.dan.net.uk] | `-- Installing liblz4-1.9.4_1,1... [pkg-builder.dan.net.uk] | `-- Extracting liblz4-1.9.4_1,1: .......... done [pkg-builder.dan.net.uk] `-- Extracting zstd-1.5.5_1: .......... done [pkg-builder.dan.net.uk] Extracting sbcl-2.4.0_1,1: .......... done ===== Message from sbcl-2.4.0_1,1: -- For Common Lisp ports requiring the asdf system definition library from devel/cl-asdf, /usr/local/etc/asdf-init.lisp has been set to load in /usr/local/etc/sbclrc. If you plan to use Quicklisp, you must remove this line from /usr/local/etc/sbclrc. ===> cl-clx-sbcl-0.7.5.65_31 depends on executable: sbcl - found ===> Returning to build of cl-clx-sbcl-0.7.5.65_31 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Configuring for cl-clx-sbcl-0.7.5.65_31 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Building for cl-clx-sbcl-0.7.5.65_31 ;;; loading #P"/usr/local/lib/sbcl/asdf/asdf.lisp" ;; loading #P"/usr/local/lib/sbcl/asdf/asdf.lisp" WARNING: You are using ASDF version 3.3.1 (probably from (require "asdf") or loaded by quicklisp) and have an older version of ASDF (and older than 2.27 at that) registered at #P"/usr/local/lib/common-lisp/asdf/asdf.asd". Having an ASDF installed and registered is the normal way of configuring ASDF to upgrade itself, and having an old version registered is a configuration error. ASDF will ignore this configured system rather than downgrade itself. In the future, you may want to either: (a) upgrade this configured ASDF to a newer version, (b) install a newer ASDF and register it in front of the former in your configuration, or (c) uninstall or unregister this and any other old version of ASDF from your configuration. Note that the older ASDF might be registered implicitly through configuration inherited from your system installation, in which case you might have to specify :ignore-inherited-configuration in your in your ~/.config/common-lisp/source-registry.conf or other source-registry configuration file, environment variable or lisp parameter. Indeed, a likely offender is an obsolete version of the cl-asdf debian or ubuntu package, that you might want to upgrade (if a recent enough version is available) or else remove altogether (since most implementations ship with a recent asdf); if you lack the system administration rights to upgrade or remove this package, then you might indeed want to either install and register a more recent version, or use :ignore-inherited-configuration to avoid registering the old one. Please consult ASDF documentation and/or experts. ; compiling file "/usr/local/lib/common-lisp/clx/package.lisp" (written 30 MAR 2024 06:45:00 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/package-tmpGHU3ALSV.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/local/lib/common-lisp/clx/depdefs.lisp" (written 30 MAR 2024 06:45:00 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/depdefs-tmpAAURSO1.fasl ; compilation finished in 0:00:00.210 ; compiling file "/usr/local/lib/common-lisp/clx/clx.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-DEVICE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-STATE-MASK ; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK ; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-POINTER-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) ; ; note: deleting unreachable code ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/clx-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.972 ; compiling file "/usr/local/lib/common-lisp/clx/dependent.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/dependent.lisp ; in: DEFUN RADIANS->INT16 ; (DEFUN XLIB::RADIANS->INT16 (XLIB::VALUE) ; (DECLARE (TYPE XLIB:ANGLE XLIB::VALUE)) ; (DECLARE (XLIB::CLX-VALUES XLIB:INT16)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1))) ; (THE XLIB:INT16 (VALUES (ROUND (THE XLIB:ANGLE XLIB::VALUE) 2.727077e-4)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: unable to ; open-code INTEGER to RATIO comparison ; due to type uncertainty: ; The first argument is a RATIONAL, not a INTEGER. ; ; note: unable to ; open-code INTEGER to RATIO comparison ; due to type uncertainty: ; The first argument is a (RATIONAL ; -884279719003555/140737488355328), not a INTEGER. ; in: DEFMACRO HOLDING-LOCK ; (DEFMACRO XLIB::HOLDING-LOCK ; ( ; (XLIB::LOCK ; XLIB:DISPLAY ; &OPTIONAL ; (XLIB::WHOSTATE "CLX wait") ; &KEY ; XLIB::TIMEOUT) ; &BODY XLIB::BODY) ; (DECLARE (IGNORE XLIB:DISPLAY XLIB::WHOSTATE)) ; `(SB-THREAD:WITH-RECURSIVE-LOCK (,XLIB::LOCK ; ,@(WHEN XLIB::TIMEOUT ; `(:TIMEOUT ,XLIB::TIMEOUT))) ; ,@XLIB::BODY)) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (LOCK DISPLAY &OPTIONAL ; (WHOSTATE CLX wait) &KEY ; TIMEOUT) ; in: DEFUN BUFFER-READ-DEFAULT ; (ZEROP XLIB::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (REAL 0), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (REAL 0), not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (REAL 0), not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (REAL 0), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (DEFUN XLIB::BUFFER-READ-DEFAULT ; (XLIB:DISPLAY VECTOR XLIB::START XLIB::END XLIB::TIMEOUT) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE XLIB::BUFFER-BYTES VECTOR) ; (TYPE XLIB:ARRAY-INDEX XLIB::START XLIB::END) ; (TYPE (OR NULL (REAL 0 *)) XLIB::TIMEOUT)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1))) ; (COND ((AND (NOT #) (ZEROP XLIB::TIMEOUT) (NOT #)) :TIMEOUT) ; (T ; (SB-SYS:READ-N-BYTES (XLIB::DISPLAY-INPUT-STREAM XLIB:DISPLAY) ; VECTOR XLIB::START (- XLIB::END XLIB::START)) ; NIL))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a RATIONAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a RATIONAL, not a FIXNUM. ; etc. ; in: DEFMACRO READ-IMAGE-LOAD-BYTE ; (SETQ POSITION (- 7 POSITION)) ; ; note: deleting unreachable code ; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE ; (- XLIB::INTEGER-SIZE 8 POSITION) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFUN FAST-READ-PIXARRAY-USING-BITBLT ; (XLIB::COPY-BIT-RECT XLIB::BBUF ; (XLIB::INDEX* XLIB::PADDED-BYTES-PER-LINE SB-VM:N-BYTE-BITS) ; (XLIB::INDEX* XLIB::BOFFSET SB-VM:N-BYTE-BITS) 0 XLIB:PIXARRAY ; (XLIB::INDEX* (ARRAY-DIMENSION XLIB:PIXARRAY 1) XLIB::BITS-PER-PIXEL) ; XLIB::X XLIB::Y XLIB::HEIGHT (XLIB::INDEX* XLIB::WIDTH XLIB::BITS-PER-PIXEL)) ; ; note: doing signed word to integer coercion (cost 20) ; 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 ...) ; ; note: deleting unreachable code ; 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. ; (XLIB::COPY-BIT-RECT XLIB:PIXARRAY ; (XLIB::INDEX* (ARRAY-DIMENSION XLIB:PIXARRAY 1) XLIB::BITS-PER-PIXEL) ; XLIB::X XLIB::Y XLIB::BBUF ; (XLIB::INDEX* XLIB::PADDED-BYTES-PER-LINE SB-VM:N-BYTE-BITS) ; (XLIB::INDEX* XLIB::BOFFSET SB-VM:N-BYTE-BITS) 0 XLIB::HEIGHT ; (XLIB::INDEX* XLIB::WIDTH XLIB::BITS-PER-PIXEL)) ; ; note: doing signed word to integer coercion (cost 20) ; 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+ ...) ; ; note: deleting unreachable code ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/dependent-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.231 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/local/lib/common-lisp/clx/macros.lisp" (written 30 MAR 2024 06:45:00 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/macros-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.490 ; compiling file "/usr/local/lib/common-lisp/clx/bufmac.lisp" (written 30 MAR 2024 06:45:00 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/bufmac-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.054 ; compiling file "/usr/local/lib/common-lisp/clx/buffer.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD8 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; 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) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK XLIB::WITH-BUFFER-INPUT LET LET* DO* BLOCK LET* TAGBODY TAGBODY ; --> SETF SB-KERNEL:%RPLACA XLIB::READ-CARD16 XLIB::AREF-CARD16 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK XLIB::WITH-BUFFER-INPUT LET LET* DO* BLOCK LET* TAGBODY TAGBODY ; --> SETF SB-KERNEL:%RPLACA FUNCALL ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN READ-SIMPLE-ARRAY-CARD16 ; (XLIB::READ-CARD16 XLIB::INDEX) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (XLIB::READ-CARD16 XLIB::INDEX) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN READ-VECTOR-CARD16 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (XLIB::READ-CARD16 XLIB::INDEX) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (XLIB::READ-CARD16 XLIB::INDEX) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; 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) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK XLIB::WITH-BUFFER-INPUT LET LET* DO* BLOCK LET* TAGBODY TAGBODY ; --> SETF SB-KERNEL:%RPLACA XLIB::READ-CARD32 XLIB::AREF-CARD32 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK XLIB::WITH-BUFFER-INPUT LET LET* DO* BLOCK LET* TAGBODY TAGBODY ; --> SETF SB-KERNEL:%RPLACA FUNCALL ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN READ-SIMPLE-ARRAY-CARD32 ; (XLIB::READ-CARD32 XLIB::INDEX) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (XLIB::READ-CARD32 XLIB::INDEX) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN READ-VECTOR-CARD32 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (XLIB::READ-CARD32 XLIB::INDEX) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (XLIB::READ-CARD32 XLIB::INDEX) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; 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) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK XLIB::WRITING-BUFFER-CHUNKS XLIB::WITH-BUFFER-OUTPUT LET LET* DO* ; --> BLOCK LET* TAGBODY TAGBODY DO BLOCK LET TAGBODY TAGBODY ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD16 ; (XLIB::WRITE-CARD16 XLIB::J (AREF XLIB::DATA XLIB::INDEX)) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (XLIB::WRITE-CARD16 XLIB::J ; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX))) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (XLIB::WRITE-CARD16 XLIB::J (AREF XLIB::DATA XLIB::INDEX)) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (XLIB::WRITE-CARD16 XLIB::J ; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX))) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; 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) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK XLIB::WRITING-BUFFER-CHUNKS XLIB::WITH-BUFFER-OUTPUT LET LET* DO* ; --> BLOCK LET* TAGBODY TAGBODY DO BLOCK LET TAGBODY TAGBODY XLIB::WRITE-INT16 ; --> XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-SIMPLE-ARRAY-INT16 ; (XLIB::WRITE-INT16 XLIB::J (AREF XLIB::DATA XLIB::INDEX)) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ; (XLIB::WRITE-INT16 XLIB::J ; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX))) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (XLIB::WRITE-INT16 XLIB::J (AREF XLIB::DATA XLIB::INDEX)) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (XLIB::WRITE-INT16 XLIB::J ; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX))) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; 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) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK XLIB::WRITING-BUFFER-CHUNKS XLIB::WITH-BUFFER-OUTPUT LET LET* DO* ; --> BLOCK LET* TAGBODY TAGBODY DO BLOCK LET TAGBODY TAGBODY ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD32 ; (XLIB::WRITE-CARD32 XLIB::J (AREF XLIB::DATA XLIB::INDEX)) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (XLIB::WRITE-CARD32 XLIB::J ; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX))) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (XLIB::WRITE-CARD32 XLIB::J (AREF XLIB::DATA XLIB::INDEX)) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (XLIB::WRITE-CARD32 XLIB::J ; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX))) ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/buffer-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.872 ; compiling file "/usr/local/lib/common-lisp/clx/display.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/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 VECTOR. ; (LENGTH XLIB::AUTHORIZATION-DATA) ; ; 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 VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::CARD16-PUT 6 (LENGTH XLIB::AUTHORIZATION-NAME)) ; --> XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::CARD16-PUT 8 (LENGTH XLIB::AUTHORIZATION-DATA)) ; --> XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/display-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.166 ; compiling file "/usr/local/lib/common-lisp/clx/gcontext.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/gcontext.lisp ; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETCLIPRECTANGLES+) ; (XLIB::DATA (FIRST XLIB::LOCAL-CLIP)) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-CLIP-X XLIB::LOCAL-STATE) 0) ; (OR (XLIB::GCONTEXT-INTERNAL-CLIP-Y XLIB::LOCAL-STATE) 0)) ; ((SEQUENCE :FORMAT XLIB:INT16) (SECOND XLIB::LOCAL-CLIP))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::.VALUE.) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-SET-FUNCTION (CAR XLIB::EXTENSION)) ; XLIB:GCONTEXT XLIB::LOCAL) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (EQL (SVREF XLIB::SERVER-STATE XLIB::I) ; (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I))) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; --> XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET XLIB::WRITE-SEQUENCE-CARD8 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETCLIPRECTANGLES+) ; (XLIB::DATA (FIRST XLIB::LOCAL-CLIP)) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-CLIP-X XLIB::LOCAL-STATE) 0) ; (OR (XLIB::GCONTEXT-INTERNAL-CLIP-Y XLIB::LOCAL-STATE) 0)) ; ((SEQUENCE :FORMAT XLIB:INT16) (SECOND XLIB::LOCAL-CLIP))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::SEQUENCE-PUT LET XLIB::WRITE-SEQUENCE-INT16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::CARD29-PUT 8 XLIB::MASK) ; --> XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN COPY-GCONTEXT-LOCAL-STATE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER PROGN FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (ELT XLIB::*GCONTEXT-EXTENSIONS* XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (FUNCALL XLIB::COPY-FUNCTION XLIB:GCONTEXT XLIB::TEMP-GC ; (SVREF XLIB::LOCAL-STATE ; (XLIB::INDEX+ XLIB::I XLIB::*GCONTEXT-DATA-LENGTH*))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (ASH XLIB::EXTENSION-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:DRAWABLE (XLIB::GCONTEXT-DRAWABLE XLIB:GCONTEXT)) ; (XLIB:CARD29 0)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::DRAWABLE-PUT XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD29-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::CARD29-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT ; (SVREF XLIB::LOCAL-STATE XLIB::I)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (ASH XLIB::TEMP-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::CARD29-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CREATE-GCONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:RESOURCE-ID XLIB::GCONTEXTID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (PROGN ; (DO* ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 16) ; (XLIB::MASK 0) ; (XLIB::LOCAL # #)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (XLIB::CARD29-PUT 12 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL XLIB::LOCAL #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; --> XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::CARD29-PUT 12 XLIB::MASK) ; --> XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN COPY-GCONTEXT-COMPONENTS ; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY ; #'XLIB::GCONTEXT-EXTENSION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC ; XLIB::DST ; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) ; (XLIB::INDEX+ ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; XLIB::*GCONTEXT-DATA-LENGTH*))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::SRC XLIB::DST) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::CARD29-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/gcontext-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.781 ; compiling file "/usr/local/lib/common-lisp/clx/input.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/input.lisp ; in: DEFUN READ-INPUT ; (CONS NIL NIL) ; ; note: deleting unreachable code ; in: DEFUN QUEUE-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY ; XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: ; DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE :BUTTON-PRESS :BUTTON-RELEASE) ; (XLIB:DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE :BUTTON-PRESS :BUTTON-RELEASE) ; (XLIB::DATA XLIB::CODE) ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW XLIB::ROOT (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((OR NULL XLIB:WINDOW) XLIB::CHILD) ; (XLIB:INT16 XLIB::ROOT-X XLIB::ROOT-Y XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::STATE) ; (BOOLEAN XLIB::SAME-SCREEN-P)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::WINDOW-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :MOTION-NOTIFY ; (XLIB:DECLARE-EVENT :MOTION-NOTIFY ; ((XLIB::DATA BOOLEAN) XLIB::HINT-P) ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW XLIB::ROOT (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((OR NULL XLIB:WINDOW) XLIB::CHILD) ; (XLIB:INT16 XLIB::ROOT-X XLIB::ROOT-Y XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::STATE) ; (BOOLEAN XLIB::SAME-SCREEN-P)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::WINDOW-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY) ; (XLIB:DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY) ; ((XLIB::DATA ; (XLIB::MEMBER8 :ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR ; :NONLINEAR-VIRTUAL)) ; XLIB::KIND) ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW XLIB::ROOT (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((OR NULL XLIB:WINDOW) XLIB::CHILD) ; (XLIB:INT16 XLIB::ROOT-X XLIB::ROOT-Y XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::STATE) ; ((XLIB::MEMBER8 :NORMAL :GRAB :UNGRAB) XLIB::MODE) ; ((BIT 0) XLIB::FOCUS-P) ; ((BIT 1) XLIB::SAME-SCREEN-P)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::WINDOW-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ; (XLIB:DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ; ((XLIB::DATA ; (XLIB::MEMBER8 :ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR :NONLINEAR-VIRTUAL ; :POINTER :POINTER-ROOT :NONE)) ; XLIB::KIND) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((XLIB::MEMBER8 :NORMAL :WHILE-GRABBED :GRAB :UNGRAB) XLIB::MODE)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :KEYMAP-NOTIFY ; (XLIB:DECLARE-EVENT :KEYMAP-NOTIFY ; ((XLIB::BIT-VECTOR256 0) XLIB::KEYMAP)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* THE XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :EXPOSURE ; (XLIB:DECLARE-EVENT :EXPOSURE ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (XLIB:CARD16 XLIB::X XLIB::Y XLIB::WIDTH XLIB::HEIGHT COUNT)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :GRAPHICS-EXPOSURE ; (XLIB:DECLARE-EVENT :GRAPHICS-EXPOSURE ; (XLIB:CARD16 SEQUENCE) ; (XLIB:DRAWABLE (XLIB:DRAWABLE XLIB::EVENT-WINDOW)) ; (XLIB:CARD16 XLIB::X XLIB::Y XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:CARD16 XLIB::MINOR) ; (XLIB:CARD16 COUNT) ; (XLIB:CARD8 XLIB::MAJOR)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :NO-EXPOSURE ; (XLIB:DECLARE-EVENT :NO-EXPOSURE ; (XLIB:CARD16 SEQUENCE) ; (XLIB:DRAWABLE (XLIB:DRAWABLE XLIB::EVENT-WINDOW)) ; (XLIB:CARD16 XLIB::MINOR) ; (XLIB:CARD8 XLIB::MAJOR)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :VISIBILITY-NOTIFY ; (XLIB:DECLARE-EVENT :VISIBILITY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((XLIB::MEMBER8 :UNOBSCURED :PARTIALLY-OBSCURED :FULLY-OBSCURED) ; XLIB::STATE)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :CREATE-NOTIFY ; (XLIB:DECLARE-EVENT :CREATE-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :DESTROY-NOTIFY ; (XLIB:DECLARE-EVENT :DESTROY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :UNMAP-NOTIFY ; (XLIB:DECLARE-EVENT :UNMAP-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; (BOOLEAN XLIB::CONFIGURE-P)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :MAP-NOTIFY ; (XLIB:DECLARE-EVENT :MAP-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :MAP-REQUEST ; (XLIB:DECLARE-EVENT :MAP-REQUEST ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :REPARENT-NOTIFY ; (XLIB:DECLARE-EVENT :REPARENT-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :CONFIGURE-NOTIFY ; (XLIB:DECLARE-EVENT :CONFIGURE-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; ((OR NULL XLIB:WINDOW) XLIB::ABOVE-SIBLING) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::WINDOW-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :CONFIGURE-REQUEST ; (XLIB:DECLARE-EVENT :CONFIGURE-REQUEST ; ((XLIB::DATA (XLIB::MEMBER8 :ABOVE :BELOW :TOP-IF :BOTTOM-IF :OPPOSITE)) ; XLIB::STACK-MODE) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW) ; ((OR NULL XLIB:WINDOW) XLIB::ABOVE-SIBLING) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH XLIB::VALUE-MASK)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::WINDOW-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :GRAVITY-NOTIFY ; (XLIB:DECLARE-EVENT :GRAVITY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :RESIZE-REQUEST ; (XLIB:DECLARE-EVENT :RESIZE-REQUEST ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :CIRCULATE-NOTIFY ; (XLIB:DECLARE-EVENT :CIRCULATE-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW XLIB::PARENT) ; ((XLIB::MEMBER8 :TOP :BOTTOM) XLIB::PLACE)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :CIRCULATE-REQUEST ; (XLIB:DECLARE-EVENT :CIRCULATE-REQUEST ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW) ; (XLIB::PAD16 1 2) ; ((XLIB::MEMBER8 :TOP :BOTTOM) XLIB::PLACE)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :PROPERTY-NOTIFY ; (XLIB:DECLARE-EVENT :PROPERTY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD ATOM) ; ((OR NULL XLIB:CARD32) TIME) ; ((XLIB::MEMBER8 :NEW-VALUE :DELETED) XLIB::STATE)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::KEYWORD-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :SELECTION-CLEAR ; (XLIB:DECLARE-EVENT :SELECTION-CLEAR ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD XLIB::SELECTION)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::KEYWORD-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :SELECTION-REQUEST ; (XLIB:DECLARE-EVENT :SELECTION-REQUEST ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW) XLIB::REQUESTOR) ; (KEYWORD XLIB::SELECTION XLIB::TARGET) ; ((OR NULL KEYWORD) XLIB::PROPERTY)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::KEYWORD-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::KEYWORD-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :SELECTION-NOTIFY ; (XLIB:DECLARE-EVENT :SELECTION-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD XLIB::SELECTION XLIB::TARGET) ; ((OR NULL KEYWORD) XLIB::PROPERTY)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::KEYWORD-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::KEYWORD-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :COLORMAP-NOTIFY ; (XLIB:DECLARE-EVENT :COLORMAP-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((OR NULL XLIB:COLORMAP) XLIB:COLORMAP) ; (BOOLEAN XLIB::NEW-P XLIB::INSTALLED-P)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::COLORMAP-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB::DATA FORMAT) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE LET COND IF PROGN XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE LET COND IF IF PROGN XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 ; --> MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE LET COND IF IF IF PROGN XLIB::SEQUENCE-PUT ; --> XLIB::WRITE-SEQUENCE-CARD32 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::KEYWORD-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN MAKE-ERROR ; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/input-tmpX4BRKI0R.fasl ; compilation finished in 0:00:01.301 ; compiling file "/usr/local/lib/common-lisp/clx/requests.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/requests.lisp ; in: DEFUN CREATE-WINDOW ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:WINDOW 'XLIB:WINDOW) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::WID) ; (XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) ; (XLIB:RESOURCE-ID ; (COND ((EQ XLIB::VISUAL :COPY) 0) ; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) ; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) ; (XLIB::MASK ; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP ; XLIB::BORDER-PIXEL) ; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) ; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) ; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) ; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) ; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) ; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) ; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) ; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN SETQ THE ; ==> ; (LOGIOR XLIB::%MASK 4096) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 8192) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 16384) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::MEMBER16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET ; --> XLIB::RESOURCE-ID-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET XLIB::WRITE-CARD32 ; --> XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::OR-PUT COND OR LET XLIB::MEMBER-PUT-PREDICATING LET AND IF ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::OR-PUT COND OR LET IF THE XLIB::CURSOR-PUT XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::OR-PUT COND OR LET XLIB::MEMBER-PUT-PREDICATING LET AND IF ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::OR-PUT COND OR LET IF THE XLIB::COLORMAP-PUT XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::MEMBER-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::MEMBER-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::MEMBER-VECTOR-PUT XLIB::MEMBER-PUT XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN REPARENT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-REPARENTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN INTERN-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 0) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::RESOURCE-ID-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET XLIB::WRITE-SEQUENCE-CHAR ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN FIND-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 1) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:RESOURCE-ID))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET XLIB::WRITE-SEQUENCE-CHAR ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CHANGE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPROPERTY+) ; ((XLIB::DATA (MEMBER :REPLACE :PREPEND :APPEND)) XLIB::MODE) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID XLIB::TYPE-ID) ; (XLIB:CARD8 FORMAT) ; (XLIB:CARD32 LENGTH) ; (PROGN ; (ECASE FORMAT ; (8 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD8 :START XLIB::START ; :END XLIB::END :TRANSFORM XLIB::TRANSFORM)) ; (16 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD16 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM)) ; (32 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD32 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD16 :START XLIB::START :END ; XLIB::END :TRANSFORM XLIB::TRANSFORM) ; --> XLIB::WRITE-SEQUENCE-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD32 :START XLIB::START :END ; XLIB::END :TRANSFORM XLIB::TRANSFORM) ; --> XLIB::WRITE-SEQUENCE-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD8 :START XLIB::START :END ; XLIB::END :TRANSFORM XLIB::TRANSFORM) ; --> XLIB::WRITE-SEQUENCE-CARD8 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DELETE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DELETEPROPERTY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN GET-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETPROPERTY+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA BOOLEAN) XLIB::DELETE-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::TYPE-ID) (XLIB:CARD32 XLIB::START) ; (XLIB:CARD32 (XLIB::INDEX- (OR XLIB::END 64000) XLIB::START))) ; (LET ((XLIB::REPLY-FORMAT (XLIB::CARD8-GET 1)) ; (XLIB::REPLY-TYPE (XLIB::CARD32-GET 8)) ; (XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::NITEMS (XLIB::CARD32-GET 16))) ; (VALUES XLIB::REPLY-FORMAT XLIB::REPLY-TYPE XLIB::BYTES-AFTER ; (AND (PLUSP XLIB::NITEMS) (ECASE XLIB::REPLY-FORMAT # # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF XLIB::NULL-PUT XLIB::WRITE-CARD32 ; --> XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF THE XLIB::RESOURCE-ID-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN ROTATE-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-ROTATEPROPERTIES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 LENGTH) ; (XLIB:INT16 (- XLIB::DELTA)) ; ((SEQUENCE :END LENGTH) SEQUENCE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN SET-SELECTION-OWNER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSELECTIONOWNER+) ; ((OR NULL XLIB:WINDOW) XLIB::OWNER) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> THE XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CONVERT-SELECTION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONVERTSELECTION+) ; (XLIB:WINDOW XLIB::REQUESTOR) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID XLIB::TYPE-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::PROPERTY-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> THE XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> THE XLIB::RESOURCE-ID-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN SEND-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SENDEVENT+) ; ((XLIB::DATA BOOLEAN) XLIB::PROPAGATE-P) ; (LENGTH 11) ; ((OR (MEMBER :POINTER-WINDOW :INPUT-FOCUS) XLIB:WINDOW) XLIB:WINDOW) ; (XLIB:CARD32 (XLIB::ENCODE-EVENT-MASK XLIB:EVENT-MASK)) ; (XLIB:CARD8 XLIB::EXTERNAL-EVENT-CODE) ; (PROGN ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 44)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN GRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABPOINTER+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ((OR NULL XLIB:CARD32) TIME)) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF XLIB::NULL-PUT XLIB::WRITE-CARD32 ; --> XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF THE XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF THE XLIB::CURSOR-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF THE XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN GRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABBUTTON+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; (XLIB:CARD8 ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB::PAD8 1) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> THE XLIB::CURSOR-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> THE XLIB::WINDOW-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN UNGRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABBUTTON+) ; (XLIB::DATA ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CHANGE-ACTIVE-POINTER-GRAB ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACTIVEPOINTERGRAB+) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> THE XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN GRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABKEYBOARD+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; ((OR NULL XLIB:CARD32) TIME) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF XLIB::NULL-PUT XLIB::WRITE-CARD32 ; --> XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF THE XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN GRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABKEY+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS)) ; (XLIB:CARD8 ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN UNGRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABKEY+) ; (XLIB::DATA ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN MOTION-EVENTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETMOTIONEVENTS+ ; NIL :SIZES 32) ; ((XLIB:WINDOW XLIB:WINDOW) ((OR NULL XLIB:CARD32) XLIB::START XLIB::STOP)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::INDEX* (XLIB::CARD32-GET 8) 3) :INDEX ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF XLIB::NULL-PUT XLIB::WRITE-CARD32 ; --> XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF THE XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN TRANSLATE-COORDINATES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-TRANSLATECOORDS+ ; 16 :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB::SRC XLIB::DST) (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y)) ; (AND (XLIB::BOOLEAN-GET 1) ; (VALUES (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::OR-GET 8 NULL XLIB:WINDOW)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::WINDOW-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16 XLIB::ASET-INT16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WARP-POINTER ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:WINDOW XLIB::DST) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WARP-POINTER-RELATIVE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WARP-POINTER-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC XLIB::DST) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN WARP-POINTER-RELATIVE-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::SRC) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN SET-INPUT-FOCUS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETINPUTFOCUS+) ; ((XLIB::DATA (MEMBER :NONE :POINTER-ROOT :PARENT)) XLIB::REVERT-TO) ; ((OR (MEMBER :NONE :POINTER-ROOT) XLIB:WINDOW) XLIB::FOCUS) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> THE XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CREATE-PIXMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEPIXMAP+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::PID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CLEAR-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CLEARTOBACKGROUND+) ; ((XLIB::DATA BOOLEAN) XLIB::EXPOSURES-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 (OR XLIB::WIDTH 0) (OR XLIB::HEIGHT 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN COPY-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYAREA+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN COPY-PLANE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYPLANE+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::PLANE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CREATE-COLORMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECOLORMAP+) ; ((XLIB::DATA BOOLEAN) XLIB::ALLOC-P) ; (XLIB:CARD29 XLIB::ID) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD29 (XLIB:VISUAL-INFO-ID XLIB:VISUAL-INFO))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD29-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN COPY-COLORMAP-AND-FREE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYCOLORMAPANDFREE+) ; (XLIB:RESOURCE-ID XLIB::ID) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::COLORMAP-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN ALLOC-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCNAMEDCOLOR+ ; 24 :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::CARD32-GET 8) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 18) :GREEN ; (XLIB::RGB-VAL-GET 20) :BLUE ; (XLIB::RGB-VAL-GET 22)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 12) :GREEN ; (XLIB::RGB-VAL-GET 14) :BLUE ; (XLIB::RGB-VAL-GET 16)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET XLIB::WRITE-SEQUENCE-CHAR ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLOR+ 20 ; :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB:COLOR) (XLIB:COLOR-GREEN XLIB:COLOR) ; (XLIB:COLOR-BLUE XLIB:COLOR)) ; (XLIB::PAD16 NIL)) ; (VALUES (XLIB::CARD32-GET 16) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN ; (XLIB::RGB-VAL-GET 10) :BLUE ; (XLIB::RGB-VAL-GET 12)) ; XLIB:COLOR)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::RGB-VAL-PUT XLIB::WRITE-CARD16 ; --> XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN ALLOC-COLOR-CELLS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORCELLS+ ; NIL :SIZES 16) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::PLANES)) ; (LET ((XLIB::PIXEL-LENGTH (XLIB::CARD16-GET 8)) ; (XLIB::MASK-LENGTH (XLIB::CARD16-GET 10))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PIXEL-LENGTH :INDEX XLIB::+REPLYSIZE+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::MASK-LENGTH :INDEX ; (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN ALLOC-COLOR-PLANES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORPLANES+ ; NIL :SIZES (16 32)) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::REDS XLIB::GREENS XLIB::BLUES)) ; (LET ((XLIB::RED-MASK (XLIB::CARD32-GET 12)) ; (XLIB::GREEN-MASK (XLIB::CARD32-GET 16)) ; (XLIB::BLUE-MASK (XLIB::CARD32-GET 20))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :INDEX XLIB::+REPLYSIZE+) ; XLIB::RED-MASK XLIB::GREEN-MASK XLIB::BLUE-MASK))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN FREE-COLORS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-FREECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB::PLANE-MASK) ; (SEQUENCE XLIB::PIXELS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN STORE-COLOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::STRING-PUT LET ; --> XLIB::WRITE-SEQUENCE-CHAR XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::SPEC) (XLIB:COLOR-GREEN XLIB::SPEC) ; (XLIB:COLOR-BLUE XLIB::SPEC)) ; (XLIB:CARD8 XLIB::FLAGS) ; (XLIB::PAD8 NIL)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::RGB-VAL-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN QUERY-COLORS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (SETF (ELT SEQUENCE XLIB::I) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN ; (XLIB::RGB-VAL-GET 2) :BLUE (XLIB::RGB-VAL-GET 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (XLIB::RGB-VAL-GET 4) ; --> XLIB::READ-CARD16 XLIB::AREF-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET XLIB::WRITE-SEQUENCE-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN LOOKUP-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LOOKUPCOLOR+ 20 ; :SIZES 16) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 14) :GREEN (XLIB::RGB-VAL-GET 16) ; :BLUE (XLIB::RGB-VAL-GET 18)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN (XLIB::RGB-VAL-GET 10) ; :BLUE (XLIB::RGB-VAL-GET 12)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET XLIB::WRITE-SEQUENCE-CHAR ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CREATE-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID) ; (XLIB:PIXMAP XLIB::SOURCE) ; ((OR NULL XLIB:PIXMAP) XLIB::MASK) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND)) ; (XLIB:CARD16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::PIXMAP-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> THE XLIB::PIXMAP-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::RGB-VAL-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CREATE-GLYPH-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGLYPHCURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID XLIB::SOURCE-FONT-ID XLIB::MASK-FONT-ID) ; (XLIB:CARD16 XLIB::SOURCE-CHAR) ; (XLIB:CARD16 XLIB::MASK-CHAR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::RGB-VAL-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RECOLOR-CURSOR ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:CURSOR-DISPLAY XLIB:CURSOR) ; XLIB::+X-RECOLORCURSOR+) ; (XLIB:CURSOR XLIB:CURSOR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::RGB-VAL-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN QUERY-BEST-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 0) (XLIB:WINDOW XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN QUERY-BEST-TILE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 1) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN QUERY-BEST-STIPPLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 2) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN QUERY-EXTENSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYEXTENSION+ ; 12 :SIZES 8) ; ((XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) (STRING STRING)) ; (AND (XLIB::BOOLEAN-GET 8) ; (VALUES (XLIB::CARD8-GET 9) (XLIB::CARD8-GET 10) ; (XLIB::CARD8-GET 11)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET XLIB::WRITE-SEQUENCE-CHAR ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CHANGE-KEYBOARD-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEKEYBOARDCONTROL+ ; :SIZES (32)) ; (XLIB::MASK ; (INTEGER XLIB::KEY-CLICK-PERCENT XLIB::BELL-PERCENT XLIB::BELL-PITCH ; XLIB::BELL-DURATION) ; (XLIB:CARD32 XLIB::LED) ((MEMBER :OFF :ON) XLIB::LED-MODE) ; (XLIB:CARD32 XLIB::KEY) ; ((MEMBER :OFF :ON :DEFAULT) XLIB::AUTO-REPEAT-MODE))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::MEMBER-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::MEMBER-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::INTEGER-PUT XLIB::WRITE-INT32 XLIB::ASET-INT32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN SET-POINTER-MAPPING ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8) ; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP)) ; (VALUES (XLIB::BOOLEAN-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CHANGE-POINTER-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPOINTERCONTROL+) ; (XLIB:INT16 NUMERATOR DENOMINATOR XLIB::THRESHOLD) ; (XLIB:CARD8 XLIB::ACCELERATION-P XLIB::THRESHOLD-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN SET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSCREENSAVER+) ; (XLIB:INT16 XLIB::TIMEOUT XLIB::INTERVAL) ; ((XLIB::MEMBER8 :ON :OFF :DEFAULT) XLIB::BLANKING XLIB::EXPOSURES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CHANGE-ACCESS-HOST ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+) ; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P) ; (XLIB:CARD8 ; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32) ; XLIB::FAMILY)) ; (XLIB:CARD16 (LENGTH XLIB::ADDRESS)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-CARD8 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN ACCESS-HOSTS ; (SETF (ELT SEQUENCE XLIB::I) ; (CONS ; (IF (< XLIB::FAMILY 3) ; (SVREF '# XLIB::FAMILY) ; XLIB::FAMILY) ; (XLIB::SEQUENCE-GET :LENGTH XLIB::LEN :FORMAT XLIB:CARD8 ; :RESULT-TYPE 'LIST :INDEX ; (+ XLIB::BUFFER-BOFFSET 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/requests-tmpQ371UGST.fasl ; compilation finished in 0:00:02.005 ; compiling file "/usr/local/lib/common-lisp/clx/fonts.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/fonts.lisp ; in: DEFUN OPEN-FONT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) ; (XLIB::PAD16 NIL) ; (STRING XLIB::NAME-STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::STRING-PUT LET ; --> XLIB::WRITE-SEQUENCE-CHAR XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN OPEN-FONT-INTERNAL ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (LENGTH XLIB::NAME-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING NULL), not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) ; (XLIB:RESOURCE-ID XLIB::ID) ; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) ; (XLIB::PAD16 NIL) ; (STRING XLIB::NAME-STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::STRING-PUT LET ; ==> ; (LENGTH XLIB::NAME-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING NULL), not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::STRING-PUT LET ; --> XLIB::WRITE-SEQUENCE-CHAR XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN LIST-FONT-NAMES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTFONTS+ ; XLIB::SIZE :SIZES (8 16)) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (VALUES ; (XLIB::READ-SEQUENCE-STRING XLIB::BUFFER-BBUF ; (XLIB::INDEX- XLIB::SIZE XLIB::+REPLYSIZE+) ; (XLIB::CARD16-GET 8) XLIB::RESULT-TYPE ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET XLIB::WRITE-SEQUENCE-CHAR ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN LIST-FONTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-LISTFONTSWITHINFO+ 60 :SIZES ; (8 16) :MULTIPLE-REPLY T) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (COND ((ZEROP (XLIB::CARD8-GET 1)) T) ; (T ; (LET* (# # # # # # # # #) ; (SETF #) ; (PUSH XLIB:FONT XLIB::RESULT)) ; NIL))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET XLIB::WRITE-SEQUENCE-CHAR ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN SET-FONT-PATH ; (CEILING XLIB::REQUEST-LENGTH 4) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ELT XLIB::PATHS XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (STRING (ELT XLIB::PATHS XLIB::I)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/fonts-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.241 ; compiling file "/usr/local/lib/common-lisp/clx/graphics.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/graphics.lisp ; in: DEFUN DRAW-POINT ; (XLIB::PUT-ITEMS (4) ; (XLIB::CODE XLIB::+X-POLYPOINT+) ; (XLIB::DATA 0) ; (LENGTH 4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16 XLIB::ASET-INT16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::COMPARE-REQUEST (4) ; (XLIB::DATA 0) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 = ; --> IF = XLIB::READ-CARD29 XLIB::AREF-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-POINTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-LINE ; (XLIB::PUT-ITEMS (4) ; (XLIB::CODE XLIB::+X-POLYSEGMENT+) ; (LENGTH 5) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X1 XLIB::Y1 XLIB::X2 XLIB::Y2)) ; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16 XLIB::ASET-INT16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 = ; --> IF = XLIB::READ-CARD29 XLIB::AREF-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::PUT-ITEMS (0) ; (XLIB:INT16 XLIB::X1 XLIB::Y1 XLIB::X2 XLIB::Y2)) ; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16 XLIB::ASET-INT16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-LINES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN FILL-POLYGON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE) ; (BOOLEAN XLIB::RELATIVE-P) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-SEGMENTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::SEGMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-RECTANGLE ; (XLIB::PUT-ITEMS (4) ; (XLIB::CODE XLIB::REQUEST) ; (LENGTH 5) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16 XLIB::ASET-INT16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 = ; --> IF = XLIB::READ-CARD29 XLIB::AREF-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::PUT-ITEMS (0) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; (IF XLIB::FILL-P ; XLIB::+X-POLYFILLRECTANGLE+ ; XLIB::+X-POLYRECTANGLE+) ; :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-ARC ; (XLIB::PUT-ITEMS (4) ; (XLIB::CODE XLIB::REQUEST) ; (LENGTH 6) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:ANGLE XLIB::ANGLE1 XLIB::ANGLE2)) ; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16 XLIB::ASET-INT16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::CHECK-PUT XLIB::ANGLE-PUT XLIB::WRITE-INT16 XLIB::ASET-INT16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 = ; --> IF = XLIB::READ-CARD29 XLIB::AREF-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::PUT-ITEMS (0) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:ANGLE XLIB::ANGLE1 XLIB::ANGLE2)) ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::CHECK-PUT XLIB::ANGLE-PUT XLIB::WRITE-INT16 XLIB::ASET-INT16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-ARCS-LIST ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::ARC XLIB::ARCS)) ; ((ENDP XLIB::ARC) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (POP XLIB::ARC)) ; (XLIB::INT16-PUT 2 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 4 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 6 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 8 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 10 (POP XLIB::ARC)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::CARD16-PUT 4 (POP XLIB::ARC)) ; --> XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::CARD16-PUT 6 (POP XLIB::ARC)) ; --> XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::ANGLE-PUT 8 (POP XLIB::ARC)) ; --> XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::ANGLE-PUT 10 (POP XLIB::ARC)) ; --> XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-ARCS-VECTOR ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::N 0 #) ; (LENGTH #)) ; ((XLIB::INDEX>= XLIB::N LENGTH) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (AREF XLIB::ARCS #)) ; (XLIB::INT16-PUT 2 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 4 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 6 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 8 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 10 (AREF XLIB::ARCS #)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::CARD16-PUT 4 (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2))) ; --> XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::CARD16-PUT 6 (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3))) ; --> XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::ANGLE-PUT 8 (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4))) ; --> XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::ANGLE-PUT 10 (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5))) ; --> XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN PUT-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-PUTIMAGE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-CARD8 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN GET-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETIMAGE+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA (MEMBER ERROR :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) (XLIB:CARD32 XLIB::PLANE-MASK)) ; (LET ((XLIB::DEPTH (XLIB::CARD8-GET 1)) ; (LENGTH (* 4 #)) ; (XLIB::VISUAL (XLIB::RESOURCE-ID-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :FORMAT XLIB:CARD8 ; :LENGTH LENGTH :START XLIB::START :DATA XLIB::DATA ; :INDEX ...) ; XLIB::DEPTH (XLIB:VISUAL-INFO XLIB:DISPLAY XLIB::VISUAL)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16 XLIB::ASET-INT16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/graphics-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.322 ; compiling file "/usr/local/lib/common-lisp/clx/text.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/text.lisp ; in: DEFUN TEXT-EXTENTS ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN TEXT-WIDTH ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN TEXT-EXTENTS-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES (8 16 32)) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::INTEGER-GET 20) (XLIB::INTEGER-GET 24) (XLIB::INT16-GET 8) ; (XLIB::INT16-GET 10) ; (XLIB::MEMBER8-GET 1 :LEFT-TO-RIGHT :RIGHT-TO-LEFT))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CHAR2B ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN TEXT-WIDTH-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES 32) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CHAR2B ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 1 0) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-GLYPHS8 ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET ; ==> ; (FLET ((SB-THREAD::WITH-RECURSIVE-LOCK-THUNK () ; (XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB:GCONTEXT) ; (MULTIPLE-VALUE-PROG1 ; (XLIB::WITHOUT-ABORTS ; #) ; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB::.DISPLAY.)))) ; (DECLARE (DYNAMIC-EXTENT (FUNCTION SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))) ; (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #'SB-THREAD::WITH-RECURSIVE-LOCK-THUNK ; (XLIB::BUFFER-LOCK XLIB::.DISPLAY.) T ; NIL)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the second argument of CLOSURE-INIT ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-GLYPHS16 ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET ; ==> ; (FLET ((SB-THREAD::WITH-RECURSIVE-LOCK-THUNK () ; (XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB:GCONTEXT) ; (MULTIPLE-VALUE-PROG1 ; (XLIB::WITHOUT-ABORTS ; #) ; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB::.DISPLAY.)))) ; (DECLARE (DYNAMIC-EXTENT (FUNCTION SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))) ; (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #'SB-THREAD::WITH-RECURSIVE-LOCK-THUNK ; (XLIB::BUFFER-LOCK XLIB::.DISPLAY.) T ; NIL)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the second argument of CLOSURE-INIT ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-IMAGE-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB::DATA 1) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-IMAGE-GLYPHS8 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER-BBUF ; #)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS8 XLIB::NEW-START)) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRAW-IMAGE-GLYPHS16 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER 0)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS16 XLIB::NEW-START)) ; (XLIB::WRITE-SEQUENCE-CHAR2B XLIB:DISPLAY ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16) ; XLIB::BUFFER 0 XLIB::CHUNK) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16) ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CHANGE-KEYBOARD-MAPPING ; (AREF XLIB::KEYSYMS XLIB::I XLIB::J) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. ; (XLIB::CARD29-PUT (XLIB::INDEX* XLIB::W 4) ; (AREF XLIB::KEYSYMS XLIB::I XLIB::J)) ; --> XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN KEYBOARD-MAPPING ; (1+ XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. ; (1+ XLIB::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR NULL NUMBER), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR NULL NUMBER), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (XLIB::CARD29-GET (* XLIB::J 4)) ; --> XLIB::AREF-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/text-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.508 ; compiling file "/usr/local/lib/common-lisp/clx/attributes.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/attributes.lisp ; in: DEFUN CHANGE-WINDOW-ATTRIBUTE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 (ASH 1 NUMBER) XLIB::VALUE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CHANGE-DRAWABLE-GEOMETRY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 (ASH 1 NUMBER)) ; (XLIB:CARD29 XLIB::VALUE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD29-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN PUT-WINDOW-ATTRIBUTE-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK32 XLIB::BITS) ; (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::REQUEST-SIZE)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD32-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::CARD32-PUT (XLIB::INDEX* (XLIB::INDEX-INCF XLIB::REQUEST-SIZE) 4) ; (AREF XLIB::CHANGES XLIB::I)) ; --> XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN PUT-DRAWABLE-GEOMETRY-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK16 XLIB::BITS) ; (TYPE FIXNUM XLIB::REQUEST-SIZE) ; (TYPE XLIB:ARRAY-INDEX XLIB::I)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD29-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::CARD29-PUT (* (INCF XLIB::REQUEST-SIZE) 4) ; (AREF XLIB::CHANGES XLIB::I)) ; --> XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/attributes-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.293 ; compiling file "/usr/local/lib/common-lisp/clx/translate.lisp" (written 30 MAR 2024 06:45:00 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/translate-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.129 ; compiling file "/usr/local/lib/common-lisp/clx/keysyms.lisp" (written 30 MAR 2024 06:45:00 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/keysyms-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.026 ; compiling file "/usr/local/lib/common-lisp/clx/manager.lisp" (written 30 MAR 2024 06:45:00 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/manager-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.764 ; compiling file "/usr/local/lib/common-lisp/clx/image.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/image.lisp ; in: DEFUN GET-IMAGE ; (FIND XLIB::DEPTH (XLIB:DISPLAY-PIXMAP-FORMATS XLIB:DISPLAY) :KEY ; #'XLIB:PIXMAP-FORMAT-DEPTH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETIMAGE+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA (MEMBER ERROR :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) (XLIB:CARD32 XLIB::PLANE-MASK)) ; (LET* ((XLIB::DEPTH (XLIB::CARD8-GET 1)) ; (LENGTH (XLIB::INDEX* 4 #)) ; (XLIB:VISUAL-INFO (XLIB:VISUAL-INFO XLIB:DISPLAY #)) ; (XLIB:BITMAP-FORMAT (XLIB:DISPLAY-BITMAP-FORMAT XLIB:DISPLAY)) ; (XLIB::UNIT (XLIB:BITMAP-FORMAT-UNIT XLIB:BITMAP-FORMAT)) ; (XLIB::BYTE-LSB-FIRST-P ; (XLIB:DISPLAY-IMAGE-LSB-FIRST-P XLIB:DISPLAY)) ; (XLIB::BIT-LSB-FIRST-P ; (XLIB:BITMAP-FORMAT-LSB-FIRST-P XLIB:BITMAP-FORMAT))) ; (DECLARE (TYPE XLIB:IMAGE-DEPTH XLIB::DEPTH) ; (TYPE XLIB:ARRAY-INDEX LENGTH) ; (TYPE (OR NULL XLIB:VISUAL-INFO) XLIB:VISUAL-INFO) ; (TYPE XLIB:BITMAP-FORMAT XLIB:BITMAP-FORMAT) ; (TYPE (MEMBER 8 16 32) XLIB::UNIT) ; (TYPE XLIB:GENERALIZED-BOOLEAN XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P)) ; (MULTIPLE-VALUE-BIND (XLIB::PAD XLIB::BITS-PER-PIXEL) ; (ECASE FORMAT (:XY-PIXMAP #) (:Z-PIXMAP #)) ; (DECLARE (TYPE # XLIB::PAD) ; (TYPE # XLIB::BITS-PER-PIXEL)) ; (LET* (# # # # #) ; (DECLARE # ; #) ; (WHEN XLIB:VISUAL-INFO # # #) ; (VALUES XLIB:IMAGE XLIB:VISUAL-INFO))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16 XLIB::ASET-INT16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN PUT-IMAGE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-PUTIMAGE+ :GC-FORCE ; XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) ; (COND ((OR # XLIB::BITMAP-P) :BITMAP) ((PLUSP XLIB::LEFT-PAD) :XY-PIXMAP) ; (T FORMAT))) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::REQUEST-HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::REQUEST-Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; (PROGN ; (XLIB::LENGTH-PUT 2 XLIB::REQUEST-LENGTH) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::ADVANCE-BUFFER-OFFSET 24)) ; (ETYPECASE XLIB:IMAGE ; (XLIB:IMAGE-X (ECASE # # #)) ; (XLIB:IMAGE-XY ; (XLIB::WRITE-IMAGE-XY XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P)) ; (XLIB:IMAGE-Z ; (XLIB::WRITE-IMAGE-Z XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P))) ; (XLIB::BUFFER-PAD-REQUEST XLIB:DISPLAY ; (XLIB::INDEX- ; (XLIB::INDEX* XLIB::REQUEST-WORDS 4) ; XLIB::REQUEST-BYTES)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/image-tmpOPCILR65.fasl ; compilation finished in 0:00:01.473 ; compiling file "/usr/local/lib/common-lisp/clx/resource.lisp" (written 30 MAR 2024 06:45:00 PM): ; file: /usr/local/lib/common-lisp/clx/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/resource-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.139 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/shape.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/shape.lisp ; in: DECLARE-EVENT :SHAPE-NOTIFY ; (XLIB:DECLARE-EVENT :SHAPE-NOTIFY ; ((XLIB::DATA (XLIB::MEMBER8 :BOUNDING :CLIP)) XLIB::KIND) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (XLIB:INT16 XLIB::X) ; (XLIB:INT16 XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH) ; (XLIB:CARD16 XLIB::HEIGHT) ; ((OR NULL XLIB:CARD32) TIME) ; (BOOLEAN XLIB::SHAPED-P)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN SHAPE-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 1) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN SHAPE-MASK ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 2) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD16 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; ((OR (MEMBER :NONE) XLIB:PIXMAP) XLIB:PIXMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND OR ; --> LET IF THE XLIB::PIXMAP-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND OR ; --> LET XLIB::MEMBER-PUT-PREDICATING LET AND IF XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN SHAPE-COMBINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 3) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::SOURCE-KIND)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; (XLIB:WINDOW XLIB::SOURCE-WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN SHAPE-OFFSET ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 4) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/shape-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.159 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/big-requests.lisp" (written 13 JUL 2020 03:21:28 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/big-requests-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.007 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/xvidmode.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/xvidmode.lisp ; in: DECLARE-EVENT :XFREE86-VIDMODE-NOTIFY ; (XLIB:DECLARE-EVENT :XFREE86-VIDMODE-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (XLIB:INT16 XLIB::STATE) ; (XLIB:INT16 XLIB::KIND) ; (BOOLEAN XLIB::FORCED-P) ; ((OR NULL XLIB:CARD32) TIME)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF ; --> XLIB::NULL-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-SET-CLIENT-VERSION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SET-CLIENT-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MAJOR-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MINOR-VERSION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-PERMISIONS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-MOD-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-GET-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-ADD-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+ADD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+DELETE-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-VALIDATE-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+VALIDATE-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; (LET ((XLIB::STATUS (XLIB::INTEGER-GET 8))) ; (DECLARE (TYPE XLIB:INT32 XLIB::STATUS)) ; (WHEN XLIB::STATUS (XLIB::DECODE-STATUS-MODE XLIB::STATUS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET XLIB::WRITE-SEQUENCE-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA ; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 8) 0)) 10000.0) ; ; note: unable to ; convert to multiplication by reciprocal ; because: ; 10000.0 does not have an exact reciprocal ; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 12) 0)) 10000.0) ; ; note: unable to ; convert to multiplication by reciprocal ; because: ; 10000.0 does not have an exact reciprocal ; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 16) 0)) 10000.0) ; ; note: unable to ; convert to multiplication by reciprocal ; because: ; 10000.0 does not have an exact reciprocal ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 0) ; (XLIB:CARD32 (TRUNCATE (* XLIB::RED 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::GREEN 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::BLUE 10000))) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE) ; ((SEQUENCE :FORMAT XLIB:CARD16) ; (IF (ZEROP (MOD XLIB::SIZE 2)) ; (CONCATENATE 'VECTOR XLIB::RED XLIB::GREEN XLIB::BLUE) ; (CONCATENATE 'VECTOR XLIB::RED '#(0) XLIB::GREEN '#(0) XLIB::BLUE ; '#(0))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::SEQUENCE-PUT ; --> LET XLIB::WRITE-SEQUENCE-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP-SIZE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP-SIZE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (XLIB::CARD16-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-LOCK-MODE-SWITCH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-SWITCH-TO-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-TO-MODE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-SWITCH-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-SELECT-NEXT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-SELECT-PREV-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-GET-MONITOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-GET-VIEWPORT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-SET-VIEWPORT ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0) ; (XLIB:CARD32 XLIB::X) ; (XLIB:CARD32 XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-DOT-CLOCKS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 16) ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD32-GET 12) :FORMAT ; XLIB:CARD32 :INDEX 32 :RESULT-TYPE 'LIST))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/xvidmode-tmp10401X32.fasl ; compilation finished in 0:00:00.602 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/xrender.lisp" (written 13 JUL 2020 03:21:28 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/xrender-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:01.159 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/glx.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/glx.lisp ; in: DECLARE-EVENT :GLX-PBUFFER-CLOBBER ; (XLIB:DECLARE-EVENT :GLX-PBUFFER-CLOBBER ; (XLIB:CARD16 SEQUENCE) ; (XLIB:CARD16 XLIB/GLX::EVENT-TYPE) ; (XLIB:CARD16 XLIB/GLX::DRAW-TYPE) ; (XLIB:RESOURCE-ID XLIB:DRAWABLE) ; (XLIB:CARD32 XLIB/GLX::BUFFER-MASK) ; (XLIB:CARD16 XLIB/GLX::AUX-BUFFER) ; (XLIB:CARD16 XLIB/GLX::X XLIB/GLX::Y XLIB/GLX::WIDTH XLIB/GLX::HEIGHT ; COUNT)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION MULTIPLE-VALUE-PROG1 PROGN BLOCK XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION MULTIPLE-VALUE-PROG1 PROGN BLOCK XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::RESOURCE-ID-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION MULTIPLE-VALUE-PROG1 PROGN BLOCK XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION MULTIPLE-VALUE-PROG1 PROGN BLOCK XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-VERSION+) (XLIB:CARD32 1) (XLIB:CARD32 3)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN QUERY-SERVER-STRING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-SERVER-STRING+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0)) ; (XLIB:CARD32 XLIB/GLX::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GLX::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GLX::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GLX::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN CLIENT-INFO ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CLIENT-INFO+) ; (XLIB:CARD32 4) ; (XLIB:CARD32 1) ; (XLIB:CARD32 3) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN MAKE-CONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB/GLX::CTX 'XLIB/GLX::CONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN CREATE-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CREATE-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID XLIB/GLX::VISUAL) ; (XLIB:CARD32 ; (OR (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) 0)) ; (XLIB:RESOURCE-ID XLIB/GLX::SHARE-LIST) ; (BOOLEAN XLIB/GLX:IS-DIRECT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN QUERY-CONTEXT ; (+ XLIB/GLX::I 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN GET-DRAWABLE-ATTRIBUTES ; (+ XLIB/GLX::I 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN MAKE-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+MAKE-CURRENT+) ; (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID XLIB:DRAWABLE)) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:CARD32 XLIB/GLX::OLD-TAG)) ; (LET ((XLIB/GLX::NEW-TAG (XLIB::CARD32-GET 8))) ; (SETF (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX) XLIB/GLX::NEW-TAG ; (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX) XLIB:DRAWABLE ; (XLIB/GLX::CONTEXT-DISPLAY XLIB/GLX::CTX) XLIB:DISPLAY ; XLIB/GLX::*CURRENT-CONTEXT* XLIB/GLX::CTX))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT LET XLIB::RESOURCE-ID-PUT XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN GET-VISUAL-CONFIGS ; (LOOP XLIB/GLX::REPEAT (/ (- XLIB/GLX::NUM-PROPERTIES XLIB/GLX::NUM-ORDERED) ; 2) ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)) ; (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; in: DEFUN SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+SWAP-BUFFERS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID ; (XLIB:DRAWABLE-ID (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET ; --> XLIB::RESOURCE-ID-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ ; --> THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/glx-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.562 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/gl.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/gl.lisp ; in: DEFUN ASET-FLOAT64 ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-SEQUENCE-SETTER INT8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> TYPECASE LET COND IF PROGN LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN ; --> LET TAGBODY XLIB::ASET-INT16 THE ; ==> ; (+ XLIB/GL::START XLIB/GL::OFFSET) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-SEQUENCE-SETTER INT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> TYPECASE LET COND IF PROGN LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN ; --> LET TAGBODY XLIB::ASET-INT32 THE ; ==> ; (+ XLIB/GL::START XLIB/GL::OFFSET) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> TYPECASE LET COND IF IF IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> XLIB::ASET-INT32 THE ; ==> ; (+ XLIB/GL::START (* XLIB/GL::I 4)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> TYPECASE LET COND IF IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> XLIB::ASET-INT32 THE ; ==> ; (+ XLIB/GL::START (* XLIB/GL::I 4)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-SEQUENCE-SETTER BOOL ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::BOOL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> TYPECASE LET COND IF PROGN LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN ; --> LET TAGBODY XLIB::ASET-CARD16 THE ; ==> ; (+ XLIB/GL::START XLIB/GL::OFFSET) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-SEQUENCE-SETTER CARD32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> TYPECASE LET COND IF PROGN LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN ; --> LET TAGBODY XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::START XLIB/GL::OFFSET) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> TYPECASE LET COND IF IF IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::START (* XLIB/GL::I 4)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> TYPECASE LET COND IF IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::START (* XLIB/GL::I 4)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-SEQUENCE-SETTER FLOAT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT64 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT64) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> TYPECASE LET COND IF PROGN LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN ; --> LET TAGBODY XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> TYPECASE LET COND IF IF IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> TYPECASE LET COND IF IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN GET-STRING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GET-STRING+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GL::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GL::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GL::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND CLEAR-DEPTH ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:CLEAR-DEPTH 132 ; (XLIB/GL::DEPTH XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND CLIP-PLANE ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:CLIP-PLANE 77 ; (XLIB/GL::EQUOTION-0 XLIB/GL::FLOAT64) ; (XLIB/GL::EQUOTION-1 XLIB/GL::FLOAT64) ; (XLIB/GL::EQUOTION-2 XLIB/GL::FLOAT64) ; (XLIB/GL::EQUOTION-3 XLIB/GL::FLOAT64) ; (XLIB/GL::PLANE XLIB:CARD32)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND COLOR-3D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:COLOR-3D 7 ; ((XLIB/GL::R XLIB/GL::G XLIB/GL::B) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND COLOR-4D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:COLOR-4D 15 ; ((XLIB/GL::R XLIB/GL::G XLIB/GL::B ; XLIB/GL::A) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND DEPTH-RANGE ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:DEPTH-RANGE 174 ; (XLIB/GL::Z-NEAR XLIB/GL::FLOAT64) ; (XLIB/GL::Z-FAR XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND EVAL-COORD-1D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:EVAL-COORD-1D 151 ; (XLIB/GL::U-0 XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND EVAL-COORD-2D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:EVAL-COORD-2D 153 ; ((XLIB/GL::U-0 XLIB/GL::U-1) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND FRUSTUM ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:FRUSTUM 175 ; (XLIB/GL::LEFT XLIB/GL::FLOAT64) ; (XLIB/GL::RIGHT XLIB/GL::FLOAT64) ; (XLIB/GL::BOTTOM XLIB/GL::FLOAT64) ; (XLIB/GL::TOP XLIB/GL::FLOAT64) ; (XLIB/GL::Z-NEAR XLIB/GL::FLOAT64) ; (XLIB/GL::Z-FAR XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND INDEX-D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:INDEX-D 24 ; (XLIB/GL::C-0 XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND MAP-GRID-1D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MAP-GRID-1D 147 ; (XLIB/GL::U1 XLIB/GL::FLOAT64) ; (XLIB/GL::U2 XLIB/GL::FLOAT64) ; (XLIB/GL::UN XLIB:INT32)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND MAP-GRID-2D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MAP-GRID-2D 149 ; (XLIB/GL::U1 XLIB/GL::FLOAT64) ; (XLIB/GL::U2 XLIB/GL::FLOAT64) ; (XLIB/GL::V1 XLIB/GL::FLOAT64) ; (XLIB/GL::V2 XLIB/GL::FLOAT64) ; (XLIB/GL::UN XLIB:INT32) ; (XLIB/GL::VN XLIB:INT32)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1D-ARB ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MULTI-TEX-COORD-1D-ARB 198 ; (XLIB/GL::V-0 XLIB/GL::FLOAT64) ; (XLIB/GL::TARGET XLIB:CARD32)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2D-ARB ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MULTI-TEX-COORD-2D-ARB 202 ; ((XLIB/GL::V-0 XLIB/GL::V-1) ; XLIB/GL::FLOAT64) ; (XLIB/GL::TARGET XLIB:CARD32)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3D-ARB ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MULTI-TEX-COORD-3D-ARB 206 ; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2) ; XLIB/GL::FLOAT64) ; (XLIB/GL::TARGET XLIB:CARD32)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4D-ARB ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MULTI-TEX-COORD-4D-ARB 210 ; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2 ; XLIB/GL::V-3) ; XLIB/GL::FLOAT64) ; (XLIB/GL::TARGET XLIB:CARD32)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND NORMAL-3D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:NORMAL-3D 29 ; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND ORTHO ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:ORTHO 182 ; (XLIB/GL::LEFT XLIB/GL::FLOAT64) ; (XLIB/GL::RIGHT XLIB/GL::FLOAT64) ; (XLIB/GL::BOTTOM XLIB/GL::FLOAT64) ; (XLIB/GL::TOP XLIB/GL::FLOAT64) ; (XLIB/GL::Z-NEAR XLIB/GL::FLOAT64) ; (XLIB/GL::Z-FAR XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND RASTER-POS-2D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:RASTER-POS-2D 33 ; ((XLIB/GL::V-0 XLIB/GL::V-1) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND RASTER-POS-3D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:RASTER-POS-3D 37 ; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND RASTER-POS-4D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:RASTER-POS-4D 41 ; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2 ; XLIB/GL::V-3) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND RECT-D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:RECT-D 45 ; ((XLIB/GL::V1-0 XLIB/GL::V1-1 ; XLIB/GL::V2-0 XLIB/GL::V2-1) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND ROTATE-D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:ROTATE-D 185 ; ((XLIB:ANGLE XLIB/GL::X XLIB/GL::Y ; XLIB/GL::Z) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND SCALE-D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:SCALE-D 187 ; ((XLIB/GL::X XLIB/GL::Y XLIB/GL::Z) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND TEX-GEN-D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:TEX-GEN-D 115 ; (XLIB/GL::PARAM XLIB/GL::FLOAT64) ; (XLIB/GL::COORD XLIB:CARD32) ; (XLIB/GL::PNAME XLIB:CARD32)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND TRANSLATE-D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:TRANSLATE-D 189 ; ((XLIB/GL::X XLIB/GL::Y XLIB/GL::Z) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND VERTEX-2D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:VERTEX-2D 65 ; ((XLIB/GL::X XLIB/GL::Y) XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND VERTEX-3D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:VERTEX-3D 69 ; ((XLIB/GL::X XLIB/GL::Y XLIB/GL::Z) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-RENDERING-COMMAND VERTEX-4D ; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:VERTEX-4D 73 ; ((XLIB/GL::X XLIB/GL::Y XLIB/GL::Z ; XLIB/GL::W) ; XLIB/GL::FLOAT64)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET XLIB::ASET-CARD32 THE ; ==> ; (+ XLIB/GL::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN NEW-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+NEW-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 LIST) ; (XLIB:CARD32 XLIB/GL::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN GEN-LISTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GEN-LISTS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (INTEGER XLIB/GL::RANGE)) ; (XLIB::CARD32-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::INTEGER-PUT XLIB::WRITE-INT32 XLIB::ASET-INT32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN ENABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+ENABLE+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::CAP))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/gl-tmpB2JTL1W9.fasl ; compilation finished in 0:00:01.571 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/dpms.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/dpms.lisp ; in: DEFUN DPMS-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-VERSION+) ; (XLIB:CARD16 XLIB/DPMS::MAJOR-VERSION) ; (XLIB:CARD16 XLIB/DPMS::MINOR-VERSION)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DPMS-SET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+SET-TIMEOUTS+) ; (XLIB:CARD16 XLIB/DPMS::STANDBY) ; (XLIB:CARD16 XLIB/DPMS::SUSPEND) ; (XLIB:CARD16 XLIB/DPMS::OFF) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DPMS-FORCE-LEVEL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+FORCE-LEVEL+) ; (XLIB:CARD16 ; (ECASE XLIB/DPMS::POWER-LEVEL ; (:DPMS-MODE-ON 0) ; (:DPMS-MODE-STANDBY 1) ; (:DPMS-MODE-SUSPEND 2) ; (:DPMS-MODE-OFF 3))) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/dpms-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.065 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/xtest.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/xtest.lisp ; in: DEFUN GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+GET-VERSION+) (XLIB:CARD8 XLIB/XTEST::MAJOR) ; (XLIB:CARD16 XLIB/XTEST::MINOR)) ; (VALUES (XLIB::CARD8-GET 1) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN COMPARE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+COMPARE-CURSOR+) ; (XLIB:RESOURCE-ID (XLIB:WINDOW-ID XLIB:WINDOW)) ; (XLIB:RESOURCE-ID XLIB:CURSOR-ID)) ; (VALUES (XLIB::CARD8-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN FAKE-MOTION-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 XLIB/XTEST::+FAKE-MOTION-NOTIFY+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::RELATIVE ; 1 ; 0)) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB:CARD32 XLIB/XTEST::ROOT-WINDOW-ID) ; (XLIB/XTEST::PAD32 0 0) ; (XLIB:CARD16 XLIB/XTEST::X) ; (XLIB:CARD16 XLIB/XTEST::Y) ; (XLIB/XTEST::PAD32 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN FAKE-BUTTON-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-BUTTON-PRESS+ ; XLIB/XTEST::+FAKE-BUTTON-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::BUTTON) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN FAKE-KEY-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-KEY-PRESS+ ; XLIB/XTEST::+FAKE-KEY-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::KEYCODE) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/xtest-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.144 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/screensaver.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/screensaver.lisp ; in: DEFUN SCREEN-SAVER-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "MIT-SCREEN-SAVER") ; NIL) ; ((XLIB::DATA 0) (XLIB:CARD8 1) (XLIB:CARD8 0) (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/screensaver-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.017 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/randr.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/randr.lisp ; in: DECLARE-EVENT :RR-SCREEN-CHANGE-NOTIFY ; (XLIB:DECLARE-EVENT :RR-SCREEN-CHANGE-NOTIFY ; ((XLIB::DATA (XLIB::MEMBER8 XLIB::+ROTATION-MASK-VECTOR+))) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:CARD32 XLIB:TIMESTAMP XLIB::CONFIG-TIMESTAMP) ; (XLIB:WINDOW XLIB::ROOT-WINDOW XLIB::REQUEST-WINDOW) ; (XLIB:CARD16 XLIB::SIZE-ID XLIB::SUB-PIXEL-ORDER XLIB::WIDTH XLIB::HEIGHT ; XLIB::WIDTH-IN-MM XLIB::HEIGHT-IN-MM)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :RR-CRTC-CHANGE-NOTIFY ; (XLIB:DECLARE-EVENT :RR-CRTC-CHANGE-NOTIFY ; ((XLIB::DATA (XLIB::MEMBER8 XLIB::+ROTATION-MASK-VECTOR+))) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:CARD32 XLIB:TIMESTAMP) ; (XLIB:WINDOW XLIB::REQUEST-WINDOW) ; (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB::MODE) ; (XLIB:CARD16 XLIB::ROTATION) ; (XLIB::PAD16) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT ; --> XLIB::WRITE-INT16 XLIB::ASET-INT16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :RR-OUTPUT-CHANGE-NOTIFY ; (XLIB:DECLARE-EVENT :RR-OUTPUT-CHANGE-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:CARD32 XLIB:TIMESTAMP XLIB::CONFIG-TIMESTAMP) ; (XLIB:WINDOW XLIB::REQUEST-WINDOW) ; (XLIB:CARD32 XLIB::OUTPUT XLIB::CRTC XLIB::MODE) ; (XLIB:CARD16 XLIB::ROTATION) ; (XLIB:CARD8 XLIB::CONNECTION) ; (XLIB:CARD8 XLIB::SUB-PIXEL-ORDER)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DECLARE-EVENT :RR-OUTPUT-PROPERTY-NOTIFY ; (XLIB:DECLARE-EVENT :RR-OUTPUT-PROPERTY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::OUTPUT ATOM XLIB:TIMESTAMP) ; (BOOLEAN XLIB::STATE)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+RR-QUERYVERSION+) (XLIB:CARD32 XLIB::+RR-MAJOR+) ; (XLIB:CARD32 XLIB::+RR-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-SET-SCREEN-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16 32)) ; ((XLIB::DATA XLIB::+RR-SETSCREENCONFIG+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONF-TIMESTAMP) ; (XLIB:CARD16 XLIB::SIZE-ID) (XLIB:CARD16 XLIB::ROT-MASK) ; (XLIB:CARD16 XLIB::REFRESH) (XLIB::PAD16)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::WINDOW-GET 16) ; (XLIB::MEMBER16-VECTOR-GET 20 XLIB::+RENDER-SUBPIXEL-ORDER+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-SELECT-INPUT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SELECTINPUT+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::SELECT-MASK) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-GET-SCREEN-INFO ; (XLIB::INDEX+ XLIB::OFFSET 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::INDEX+ XLIB::OFFSET 6) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-SET-SCREEN-SIZE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETSCREENSIZE+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::WIDTH) ; (XLIB:CARD16 XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::WIDTH-MM) ; (XLIB:CARD32 XLIB::HEIGHT-MM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-GET-SCREEN-RESOURCES ; (XLIB::RR-MODE-INFO-GET XLIB::OFFSET) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-GET-OUTPUT-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTINFO+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 26)) ; (XLIB::NUM-MODES (XLIB::CARD16-GET 28)) ; (XLIB::NUM-CLONES (XLIB::CARD16-GET 32)) ; (XLIB::NAME-LENGTH (XLIB::CARD16-GET 34)) ; (XLIB::CRTC-START 26) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::CRTC-START #)) ; (XLIB::CLONE-START (XLIB::INDEX+ XLIB::MODE-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::CLONE-START #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD32-GET 20) ; (XLIB::MEMBER8-VECTOR-GET 24 XLIB::+RR-CONNECTION+) ; (XLIB::MEMBER8-VECTOR-GET 25 XLIB::+RENDER-SUBPIXEL-ORDER+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CRTCS :INDEX 26) ; (XLIB::CARD16-GET 30) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-MODES :INDEX XLIB::MODE-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CLONES :INDEX XLIB::CLONE-START) ; ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-QUERY-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-QUERYOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; (VALUES (XLIB::BOOLEAN-GET 8) (XLIB::BOOLEAN-GET 9) (XLIB::BOOLEAN-GET 10) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH ; (XLIB::CARD32-GET 4)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-CONFIGURE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CONFIGUREOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (BOOLEAN XLIB::PENDING XLIB::RANGE) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-CHANGE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CHANGEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (XLIB:CARD32 XLIB::ATOM-TYPE) ; (XLIB:CARD8 32) ; (XLIB:CARD8 XLIB::MODE) ; (XLIB::PAD16) ; (XLIB:CARD32 XLIB::DATA-LENGTH) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-DELETE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-GET-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) (XLIB:CARD32 TYPE) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD8 DELETE) (XLIB:CARD8 XLIB::PENDING) (XLIB::PAD16)) ; (LET* ((XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::VALUE-LENGTH (XLIB::CARD32-GET 16)) ; (XLIB::BYTE-FORMAT (UNLESS # #))) ; (VALUES (XLIB::CARD32-GET 8) XLIB::VALUE-LENGTH ; (WHEN (NOT #) (CASE XLIB::BYTE-FORMAT # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-CREATE-MODE ; (XLIB::RR-MODE-INFO-PUT 8 XLIB::MODE-INFO) ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE ; --> VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::STRING-PUT 40 XLIB::NAME) ; --> XLIB::WRITE-SEQUENCE-CHAR XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-ADD-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-ADDOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-DELETE-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-GET-CRTC-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCINFO+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 28)) ; (XLIB::POS-OUTPUTS (XLIB::CARD16-GET 30)) ; (XLIB::POS-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::CARD16-GET 16) (XLIB::CARD16-GET 18) (XLIB::CARD32-GET 20) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 26)) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH XLIB::NUM-OUTPUTS) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::POS-START :LENGTH XLIB::POS-OUTPUTS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-SET-CRTC-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-SETCRTCCONFIG+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) ; (XLIB:CARD16 XLIB::X) (XLIB:CARD16 XLIB::Y) (XLIB:CARD32 XLIB::MODE) ; (XLIB:CARD16 XLIB::ROT-MASK) (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET XLIB::WRITE-SEQUENCE-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-SET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETCRTCGAMMA+) ; (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD16 XLIB::SIZE) ; (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-GET-SCREEN-RESOURCES-CURRENT ; (XLIB::RR-MODE-INFO-GET XLIB::OFFSET) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-SET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETOUTPUTPRIMARY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::OUTPUT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-GET-PROVIDER-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERINFO+) (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD16-GET 16) ; (XLIB::CARD16-GET 18) (XLIB::CARD16-GET 20) ; (XLIB::STRING-GET (XLIB::CARD16-GET 22) 56))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-SET-PROVIDER-OUTPUT-SOURCE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROUTPUTSOURCE+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SOURCE-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN RR-SET-PROVIDER-OFFLOAD-SINK ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROFFLOADSINK+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SINK-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT ; --> XLIB::WRITE-CARD32 XLIB::ASET-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/randr-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.802 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/xinerama.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/xinerama.lisp ; in: DEFUN XINERAMA-QUERY-SCREENS ; (+ XLIB/XINERAMA::INDEX 4) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (+ XLIB/XINERAMA::INDEX 6) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; (INCF XLIB/XINERAMA::INDEX 8) ; ; note: doing unsigned word to integer coercion (cost 20) to INDEX ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/xinerama-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.209 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/dbe.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/dbe.lisp ; in: DEFUN CREATE-BACK-BUFFER ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::BB 'XLIB::BACK-BUFFER) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN DBE-ALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+ALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER) ; (XLIB:CARD8 XLIB::SWAP-HINT) ; (XLIB::PAD8) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DBE-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+SWAP-BUFFERS+) ; (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; --> XLIB::WRITE-SEQUENCE-CARD32 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DBE-GET-VISUAL-INFO ; (LOOP :FOR XLIB::I :FROM 1 :TO (XLIB::CARD32-GET XLIB::NEXT) ; :FOR XLIB::OFF := (+ XLIB::NEXT 4) :THEN ...) ; ; note: doing unsigned word to integer coercion (cost 20) to OFF ; ; note: doing unsigned word to integer coercion (cost 20) to OFF ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VISUAL-INFO+) (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::WL)) ; (VALUES ; (LET ((XLIB::NUM #) (XLIB::NEXT 32) (XLIB::RESULT-LIST NIL)) ; (DECLARE (TYPE FIXNUM XLIB::NUM XLIB::NEXT)) ; (DOTIMES (XLIB::I XLIB::NUM #) (PUSH # XLIB::RESULT-LIST))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET XLIB::WRITE-SEQUENCE-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/dbe-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.129 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/xc-misc.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/xc-misc.lisp ; in: DEFUN XC-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+XC-GET-VERSION+) (XLIB:CARD16 XLIB::+XC-MAJOR+) ; (XLIB:CARD16 XLIB::+XC-MINOR+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16 XLIB::ASET-CARD16 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/xc-misc-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.036 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/dri2.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/dri2.lisp ; in: DEFUN DRI2-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-QUERY-VERSION+) (XLIB:CARD32 XLIB::+DRI-MAJOR+) ; (XLIB:CARD32 XLIB::+DRI-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRI2-CONNECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CONNECT+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::DRIVER-TYPE)) ; (LET* ((XLIB::DRIVER-NAME-LENGTH (XLIB::CARD32-GET 8)) ; (XLIB::DEVICE-NAME-LENGTH (XLIB::CARD32-GET 12)) ; (XLIB::DEVICE-START (+ 32 #))) ; (VALUES (XLIB::STRING-GET XLIB::DRIVER-NAME-LENGTH 32) ; (XLIB::STRING-GET XLIB::DEVICE-NAME-LENGTH XLIB::DEVICE-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRI2-AUTHENTICATE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-AUTHENTICATE+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::TOKEN)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN DRI2-GET-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS+) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD32 XLIB::LEN) ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::CARD32-GET 16) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET XLIB::WRITE-SEQUENCE-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/dri2-tmp8065ESJT.fasl ; compilation finished in 0:00:00.120 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/composite.lisp" (written 13 JUL 2020 03:21:28 PM): ; file: /usr/local/lib/common-lisp/clx/extensions/composite.lisp ; in: DEFUN COMPOSITE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-QUERYVERSION+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MAJOR+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32 XLIB::ASET-CARD32 ; --> XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN COMPOSITE-REDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN COMPOSITE-REDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT ; --> XLIB::WRITE-CARD16 XLIB::ASET-CARD16 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN COMPOSITE-CREATE-REGION-FROM-BORDER-CLIP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-CREATEREGIONFROMBORDERCLIP+) ; (XLIB:CARD32 XLIB::REGION) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFUN COMPOSITE-NAME-WINDOW-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-NAMEWINDOWPIXMAP+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 XLIB::INDEX+ THE VALUES ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.5.65/extensions/composite-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.069 ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 1009 notes =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 ===> cl-clx-sbcl-0.7.5.65_31 depends on package: cl-clx>=0 - found ===> cl-clx-sbcl-0.7.5.65_31 depends on executable: sbcl - found =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Staging for cl-clx-sbcl-0.7.5.65_31 ===> Generating temporary packing list ====> Compressing man pages (compress-man) =========================================================================== =================================================== ===== env: 'PKG_NOTES=build_timestamp ports_top_git_hash ports_top_checkout_unclean port_git_hash port_checkout_unclean built_by' 'PKG_NOTE_build_timestamp=2024-04-06T11:08:33+0000' 'PKG_NOTE_ports_top_git_hash=c2c35d895e' 'PKG_NOTE_ports_top_checkout_unclean=yes' 'PKG_NOTE_port_git_hash=1037186916' 'PKG_NOTE_port_checkout_unclean=no' 'PKG_NOTE_built_by=poudriere-git-3.4.99.20240122_1' NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Building packages for cl-clx-sbcl-0.7.5.65_31 ===> Building cl-clx-sbcl-0.7.5.65_31 =========================================================================== =>> Cleaning up wrkdir ===> Cleaning for cl-clx-sbcl-0.7.5.65_31 build of x11/cl-clx-sbcl | cl-clx-sbcl-0.7.5.65_31 ended at Sat Apr 6 12:09:00 BST 2024 build time: 00:00:29