=>> Building x11-wm/stumpwm build started at Tue Apr 2 11:55:37 BST 2024 port directory: /usr/ports/x11-wm/stumpwm package name: stumpwm-23.11_1 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 1672 Jan 3 00:12 /usr/ports/x11-wm/stumpwm/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: 13 ---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/13/.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--- ===> The following configuration options are available for stumpwm-23.11_1: DOCS=on: Build and/or install documentation EXAMPLES=on: Build and/or install examples ===> Use 'make config' to modify these settings ---End OPTIONS List--- --MAINTAINER-- jrm@FreeBSD.org --End MAINTAINER-- --CONFIGURE_ARGS-- --enable-compression --with-module-dir=/usr/local/share/stumpwm/modules --prefix=/usr/local ${_LATE_CONFIGURE_ARGS} --End CONFIGURE_ARGS-- --CONFIGURE_ENV-- MAKE=gmake XDG_DATA_HOME=/wrkdirs/usr/ports/x11-wm/stumpwm/work XDG_CONFIG_HOME=/wrkdirs/usr/ports/x11-wm/stumpwm/work XDG_CACHE_HOME=/wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache HOME=/wrkdirs/usr/ports/x11-wm/stumpwm/work TMPDIR="/tmp" PATH=/ccache/libexec/ccache:/wrkdirs/usr/ports/x11-wm/stumpwm/work/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin PKG_CONFIG_LIBDIR=/wrkdirs/usr/ports/x11-wm/stumpwm/work/.pkgconfig:/usr/local/libdata/pkgconfig:/usr/local/share/pkgconfig:/usr/libdata/pkgconfig SHELL=/bin/sh CONFIG_SHELL=/bin/sh DEFAULT_AUTOCONF=2.72 CCACHE_DIR="/root/.ccache" CONFIG_SITE=/usr/ports/Templates/config.site lt_cv_sys_max_cmd_len=524288 --End CONFIGURE_ENV-- --MAKE_ENV-- XDG_DATA_HOME=/wrkdirs/usr/ports/x11-wm/stumpwm/work XDG_CONFIG_HOME=/wrkdirs/usr/ports/x11-wm/stumpwm/work XDG_CACHE_HOME=/wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache HOME=/wrkdirs/usr/ports/x11-wm/stumpwm/work TMPDIR="/tmp" PATH=/ccache/libexec/ccache:/wrkdirs/usr/ports/x11-wm/stumpwm/work/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin PKG_CONFIG_LIBDIR=/wrkdirs/usr/ports/x11-wm/stumpwm/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 DEFAULT_AUTOCONF=2.72 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-- PORTDOCS="" PORTEXAMPLES="" OSREL=13.2 PREFIX=%D LOCALBASE=/usr/local RESETPREFIX=/usr/local LIB32DIR=lib DOCSDIR="share/doc/stumpwm" EXAMPLESDIR="share/examples/stumpwm" DATADIR="share/stumpwm" WWWDIR="www/stumpwm" ETCDIR="etc/stumpwm" --End PLIST_SUB-- --SUB_LIST-- PREFIX=/usr/local LOCALBASE=/usr/local DATADIR=/usr/local/share/stumpwm DOCSDIR=/usr/local/share/doc/stumpwm EXAMPLESDIR=/usr/local/share/examples/stumpwm WWWDIR=/usr/local/www/stumpwm ETCDIR=/usr/local/etc/stumpwm --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 ===> stumpwm-23.11_1 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 ===> stumpwm-23.11_1 depends on file: /usr/local/sbin/pkg - found ===> Returning to build of stumpwm-23.11_1 =========================================================================== =================================================== ===== 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 stumpwm-23.11_1 for building =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Fetching all distfiles required by stumpwm-23.11_1 for building => SHA256 Checksum OK for alexandria-20231021-git.tgz. => SHA256 Checksum OK for cl-ppcre-20230618-git.tgz. => SHA256 Checksum OK for clx-20230618-git.tgz. => SHA256 Checksum OK for stumpwm-stumpwm-23.11_GH0.tar.gz. =========================================================================== =================================================== ===== 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 stumpwm-23.11_1 for building ===> Extracting for stumpwm-23.11_1 => SHA256 Checksum OK for alexandria-20231021-git.tgz. => SHA256 Checksum OK for cl-ppcre-20230618-git.tgz. => SHA256 Checksum OK for clx-20230618-git.tgz. => SHA256 Checksum OK for stumpwm-stumpwm-23.11_GH0.tar.gz. /usr/bin/find /wrkdirs/usr/ports/x11-wm/stumpwm/work -type f -name \*.asd -a \! -name stumpwm\*.asd \! -name dynamic-mixins-swm.asd -exec /bin/ln -s {} /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11 \; =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Patching for stumpwm-23.11_1 ===> Applying FreeBSD patches for stumpwm-23.11_1 from /usr/ports/x11-wm/stumpwm/files =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 ===> stumpwm-23.11_1 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 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 gmp-6.3.0... [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 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 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. ===== 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. ===> stumpwm-23.11_1 depends on executable: sbcl - found ===> Returning to build of stumpwm-23.11_1 ===> stumpwm-23.11_1 depends on package: texinfo>=0 - not found ===> Installing existing package /packages/All/texinfo-7.1_2,1.pkg [pkg-builder.dan.net.uk] Installing texinfo-7.1_2,1... [pkg-builder.dan.net.uk] `-- Installing gettext-runtime-0.22.3_1... [pkg-builder.dan.net.uk] `-- Extracting gettext-runtime-0.22.3_1: .......... done [pkg-builder.dan.net.uk] `-- Installing libiconv-1.17_1... [pkg-builder.dan.net.uk] `-- Extracting libiconv-1.17_1: .......... done [pkg-builder.dan.net.uk] `-- Installing p5-Locale-libintl-1.33... [pkg-builder.dan.net.uk] | `-- Installing perl5-5.36.3_1... [pkg-builder.dan.net.uk] | `-- Extracting perl5-5.36.3_1: .......... done [pkg-builder.dan.net.uk] `-- Extracting p5-Locale-libintl-1.33: .......... done [pkg-builder.dan.net.uk] `-- Installing p5-Text-Unidecode-1.30... [pkg-builder.dan.net.uk] `-- Extracting p5-Text-Unidecode-1.30: .......... done [pkg-builder.dan.net.uk] `-- Installing p5-Unicode-EastAsianWidth-12.0... [pkg-builder.dan.net.uk] `-- Extracting p5-Unicode-EastAsianWidth-12.0: ... done [pkg-builder.dan.net.uk] Extracting texinfo-7.1_2,1: .......... done ===> stumpwm-23.11_1 depends on package: texinfo>=0 - found ===> Returning to build of stumpwm-23.11_1 ===> stumpwm-23.11_1 depends on package: gmake>=4.4.1 - not found ===> Installing existing package /packages/All/gmake-4.4.1.pkg [pkg-builder.dan.net.uk] Installing gmake-4.4.1... [pkg-builder.dan.net.uk] Extracting gmake-4.4.1: .......... done ===> stumpwm-23.11_1 depends on package: gmake>=4.4.1 - found ===> Returning to build of stumpwm-23.11_1 ===> stumpwm-23.11_1 depends on package: autoconf>=2.72 - not found ===> Installing existing package /packages/All/autoconf-2.72.pkg [pkg-builder.dan.net.uk] Installing autoconf-2.72... [pkg-builder.dan.net.uk] `-- Installing autoconf-switch-20220527... [pkg-builder.dan.net.uk] `-- Extracting autoconf-switch-20220527: ....... done [pkg-builder.dan.net.uk] `-- Installing m4-1.4.19_1,1... [pkg-builder.dan.net.uk] | `-- Installing libsigsegv-2.14... [pkg-builder.dan.net.uk] | `-- Extracting libsigsegv-2.14: ..... done [pkg-builder.dan.net.uk] `-- Extracting m4-1.4.19_1,1: .......... done [pkg-builder.dan.net.uk] Extracting autoconf-2.72: .......... done ===== Message from libsigsegv-2.14: -- Note that the stackoverflow handling functions of this library need procfs mounted on /proc. ===> stumpwm-23.11_1 depends on package: autoconf>=2.72 - found ===> Returning to build of stumpwm-23.11_1 ===> stumpwm-23.11_1 depends on package: automake>=1.16.5 - not found ===> Installing existing package /packages/All/automake-1.16.5_1.pkg [pkg-builder.dan.net.uk] Installing automake-1.16.5_1... [pkg-builder.dan.net.uk] Extracting automake-1.16.5_1: .......... done ===> stumpwm-23.11_1 depends on package: automake>=1.16.5 - found ===> Returning to build of stumpwm-23.11_1 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Configuring for stumpwm-23.11_1 configure: loading site script /usr/ports/Templates/config.site checking for sbcl... /usr/local/bin/sbcl configure: WARNING: SBCL_HOME must be defined to use asdf/quicklisp (it should be where your sbcl.core resides) configure: Using sbcl at /usr/local/bin/sbcl checking for makeinfo... yes configure: creating ./config.status config.status: creating Makefile configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp config.status: creating load-stumpwm.lisp =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Building for stumpwm-23.11_1 (cd /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11 && ASDF_OUTPUT_TRANSLATIONS="/:" sbcl --noinform --non-interactive --no-sysinit --no-userinit --eval "(require :uiop)" --eval "(setf sb-impl::*default-external-format* :UTF-8)" --load ./make-image.lisp) ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/package.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/package-tmpGHU3ALSV.fasl ; compilation finished in 0:00:00.004 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/definitions.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/definitions-tmpAAURSO1.fasl ; compilation finished in 0:00:00.008 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DEFINE-CONSTANT in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/binding.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/binding-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.010 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:IF-LET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WHEN-LET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WHEN-LET* in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/strings.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/strings-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.001 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/conditions.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/conditions-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.020 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:IGNORE-SOME-CONDITIONS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:UNWIND-PROTECT-CASE in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/symbols.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/symbols-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.013 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/macros.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/macros-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.069 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-GENSYMS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-UNIQUE-NAMES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ONCE-ONLY in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DESTRUCTURING-CASE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DESTRUCTURING-CCASE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DESTRUCTURING-ECASE in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/functions.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/functions-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.048 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA::ENSURE-FUNCTIONF/1 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ENSURE-FUNCTIONF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NAMED-LAMBDA in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/lists.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/lists-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.105 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DOPLIST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:APPENDF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NCONCF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:UNIONF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NUNIONF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:REVERSEF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NREVERSEF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:REMOVE-FROM-PLISTF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DELETE-FROM-PLISTF in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/types.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/types-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.057 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:COERCEF in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/io.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/io-tmpQ371UGST.fasl ; compilation finished in 0:00:00.097 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA::WITH-OPEN-FILE* in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-INPUT-FROM-FILE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-OUTPUT-TO-FILE in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/hash-tables.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/hash-tables-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.074 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ENSURE-GETHASH in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/control-flow.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/control-flow-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.030 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:SWITCH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ESWITCH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:CSWITCH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WHICHEVER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:XOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NTH-VALUE-OR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:MULTIPLE-VALUE-PROG2 in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/arrays.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/arrays-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.005 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/sequences.lisp" (written 18 OCT 2023 11:19:11 AM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/sequences.lisp ; in: DEFUN LENGTH= ; (LENGTH FIRST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/sequences-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.082 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:REMOVEF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DELETEF in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/numbers.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/numbers-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.117 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:MAXF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:MINF in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/features.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/features-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.006 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/package.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/package-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.005 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/arrays.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/arrays-tmpOPCILR65.fasl ; compilation finished in 0:00:00.008 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/control-flow.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/control-flow-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.006 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA-2:LINE-UP-FIRST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA-2:LINE-UP-LAST in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/sequences.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/sequences-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.002 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/lists.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/lists-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.003 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/packages.lisp" (written 09 JUN 2023 11:45:20 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/packages-tmp10401X32.fasl ; compilation finished in 0:00:00.001 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/specials.lisp" (written 09 JUN 2023 11:45:20 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/specials-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.007 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/util.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a STRING, not a (SIMPLE-ARRAY * (*)). ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/util.lisp ; in: DEFUN STRING-LIST-TO-SIMPLE-STRING ; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a STRING, not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a SIMPLE-BASE-STRING. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; in: DEFUN COMPLEMENT* ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/util-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.029 REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::DEFCONSTANT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::WITH-UNIQUE-NAMES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::WITH-REBINDING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/errors.lisp" (written 09 JUN 2023 11:45:20 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/errors-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.010 REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SIGNAL-SYNTAX-ERROR* in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SIGNAL-SYNTAX-ERROR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SIGNAL-INVOCATION-ERROR in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/charset.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR FLOAT (RATIONAL (-4611686018427387899) (4611686018427387899))), not a SINGLE-FLOAT. The result is a (VALUES (OR FLOAT (RATIONAL (-4611686018427387898) (4611686018427387900))) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a SINGLE-FLOAT. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL (-4611686018427387898) (4611686018427387900))) ; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR FLOAT (RATIONAL (-4611686018427387899) (4611686018427387899))), not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR FLOAT (RATIONAL (-4611686018427387899) (4611686018427387899))), not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (OR FLOAT (RATIONAL (-4611686018427387899) (4611686018427387899))), not a FIXNUM. The result is a (VALUES (OR FLOAT (RATIONAL (-4611686018427387898) (4611686018427387900))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (OR FLOAT (RATIONAL (-4611686018427387899) (4611686018427387899))), not a FIXNUM. The result is a (VALUES (OR FLOAT (RATIONAL (-4611686018427387898) (4611686018427387900))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL (-4611686018427387898) ; (4611686018427387900))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL (-4611686018427387898) ; (4611686018427387900))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. SIMPLE-COMPILER-NOTE: unable to associate */(* /) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a 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 NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline ASH ; (* 2 (LENGTH CL-PPCRE::OLD-VECTOR)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline ASH SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/charset-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.061 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/charmap.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/charmap.lisp ; in: DEFUN MAKE-CHARMAP ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; (1- CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-22) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a REAL, not a FIXNUM. The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a REAL, not a FIXNUM. The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (1- CL-PPCRE::END) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-22) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/charmap-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.103 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/chartest.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. SIMPLE-COMPILER-NOTE: unable to convert division by 2^k to shift 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. SIMPLE-COMPILER-NOTE: unable to convert division by 2^k to shift 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. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/chartest-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.033 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/lexer.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/lexer.lisp ; in: DEFUN NEXT-CHAR ; (- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; in: DEFUN GET-NUMBER ; (+ (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) (THE FIXNUM CL-PPCRE::MAX-LENGTH)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/lexer-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.187 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/parser.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/parser.lisp ; in: DEFUN GROUP ; (+ CL-PPCRE::OPEN-PAREN-POS 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/parser-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.033 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/regex-class.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/regex-class.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR) ; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/regex-class-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.030 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/regex-class-util.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/regex-class-util.lisp ; in: DEFMETHOD CASE-MODE (STR T) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (INTEGER -16777216 16777216). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (INTEGER ; -16777216 ; 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. The second argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (OR ; SINGLE-FLOAT ; (INTEGER ; -9007199254740992 ; 9007199254740992)). ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. The second argument is a NUMBER, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-5 CL-PPCRE::LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a NUMBER, not a FIXNUM. The second argument is a (NOT NULL), not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (INTEGER -16777216 16777216). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do IF-EQL (cost 15) unable to do inline fixnum comparison (cost 4) because: The first argument is a (NOT NULL), 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 (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. etc. ; in: DEFMETHOD REGEX-LENGTH (BRANCH) ; (EQL CL-PPCRE::THEN-LENGTH ; (CL-PPCRE::REGEX-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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. ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; 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. SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline (signed-byte 64) arithmetic (cost 4) because: The first argument is a T, not a (SIGNED-BYTE 64). The second argument is a T, not a (SIGNED-BYTE 64). The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). etc. ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-5 CL-PPCRE::LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a NUMBER, not a FIXNUM. The second 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 2) because: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second 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 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF < IF ; ==> ; (< #:LOOP-MAXMIN-TEMP-9 #:LOOP-MAXMIN-8) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline float comparison (cost 3) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a T, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline (signed-byte 64) arithmetic (cost 4) because: The first argument is a T, not a (SIGNED-BYTE 64). The second argument is a T, not a (SIGNED-BYTE 64). The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (INTEGER -16777216 16777216). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do IF-EQL (cost 15) unable to do inline fixnum comparison (cost 4) because: The first argument is a (NOT NULL), 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 (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. etc. ; in: DEFMETHOD COMPUTE-OFFSETS (BRANCH T) ; (EQL CL-PPCRE::THEN-OFFSET ; (CL-PPCRE::COMPUTE-OFFSETS (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::START-POS)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline (signed-byte 64) arithmetic (cost 4) because: The first argument is a T, not a (SIGNED-BYTE 64). The second argument is a T, not a (SIGNED-BYTE 64). The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). etc. ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a NUMBER, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-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). ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-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). ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a (NOT NULL), not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/regex-class-util-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.142 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/convert.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/convert.lisp ; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFUN MAYBE-ACCUMULATE ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES (SIMPLE-ARRAY * (*)) &REST T). ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW1 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES (SIMPLE-ARRAY CHARACTER (*)) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) CHARACTER), not a STRING. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a STRING. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING. The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a SIMPLE-BASE-STRING. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). SIMPLE-COMPILER-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). ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-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). ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (COPY-SEQ CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a UNSIGNED-BYTE, 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 T, not a (UNSIGNED-BYTE 64). The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). etc. ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, 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 T, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; note: forced to do GENERIC-- (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/convert-tmp8065ESJT.fasl ; compilation finished in 0:00:00.213 REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::CASE-INSENSITIVE-MODE-P in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::MULTI-LINE-MODE-P in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SINGLE-LINE-MODE-P in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/optimize.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a VECTOR, not a (SIMPLE-ARRAY * (*)). ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/optimize.lisp ; in: DEFMETHOD GATHER-STRINGS (SEQ) ; (MAKE-ARRAY CL-PPCRE::COLLECTOR-LENGTH :INITIAL-CONTENTS CL-PPCRE::COLLECTOR ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a VECTOR, not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a SIMPLE-BASE-STRING. SIMPLE-COMPILER-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). ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> THE ; ==> ; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) 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 (unsigned-byte 64) arithmetic (cost 4) because: The first argument is a T, not a (UNSIGNED-BYTE 64). The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) 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 (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a T, not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a T, not a FIXNUM. etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (MAKE-ARRAY CL-PPCRE::CONCATENATED-LENGTH :INITIAL-CONTENTS ; (REVERSE (CL-PPCRE::STR CL-PPCRE::CONCATENATED-START)) ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF < IF ; ==> ; (< #:LOOP-MAXMIN-TEMP-10 #:LOOP-MAXMIN-9) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline float comparison (cost 3) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a T, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a (NOT NULL), not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline (signed-byte 64) arithmetic (cost 4) because: The first argument is a T, not a (SIGNED-BYTE 64). The second argument is a T, not a (SIGNED-BYTE 64). The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). etc. ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a NUMBER, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-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). ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/optimize-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.090 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/closures.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/closures.lisp ; in: DEFUN *STRING*-EQUAL ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T) ; (- CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (LENGTH CL-PPCRE::END-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING CL-PPCRE::START-POS ; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (BACK-REFERENCE T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: NEXT-FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/closures-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.166 REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::INSERT-CHAR-CLASS-TESTER in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/repetition-closures.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. The second argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS ; 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (INTEGER -16777216 16777216). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-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. ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; 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. SIMPLE-COMPILER-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. ; ; 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. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a T, not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a T, not a FIXNUM. etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a T, not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a T, not a FIXNUM. etc. ; (PLUSP CL-PPCRE::LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a T, not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a T, not a FIXNUM. etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/repetition-closures-tmpE0PA0714.fasl ; compilation finished in 0:00:00.339 REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::INCF-AFTER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/scanner.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; --> CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-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). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-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). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-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). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-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). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-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). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-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). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-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). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a FIXNUM, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-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). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) from TRY-POS ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/scanner-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.558 REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::BMH-MATCHER-AUX in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::CHAR-SEARCHER-AUX in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::INSERT-ADVANCE-FN in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/api.lisp" (written 09 JUN 2023 11:45:20 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/api.lisp ; in: DEFMETHOD CREATE-SCANNER (STRING) ; (COPY-SEQ CL-PPCRE::QUOTED-REGEX-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a T, not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a T, not a FIXNUM. etc. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a T, not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a T, not a FIXNUM. etc. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-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. &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REG-STARTS REG-ENDS REGEX TARGET-STRING &OPTIONAL RESULT-FORM &KEY START END) ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {1005EA93AF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX TARGET-STRING &OPTIONAL RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {10062AF5BF}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX TARGET-STRING &OPTIONAL RESULT-FORM &KEY START END SHAREDP) ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {100643D36F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING &OPTIONAL RESULT-FORM &KEY START END SHAREDP) ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {1001FB081F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN COUNT-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (INTEGER -16777216 16777216). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-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). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (INCF COUNT) ; --> THE ; ==> ; (+ 1 COUNT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a 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 NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (INTEGER -16777216 16777216). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-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). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a 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 NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (INTEGER -16777216 16777216). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-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). ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a 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 NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (INTEGER -16777216 16777216). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (INTEGER -16777216 16777216). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (INTEGER 1), not a (INTEGER -16777216 16777216). The second argument is a (REAL (0)), not a SINGLE-FLOAT. ; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (INTEGER 1), not a (INTEGER -16777216 16777216). ; The second argument is a (REAL (0)), not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (INTEGER 1), not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a (REAL (0)), not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (INTEGER 1), not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a (REAL (0)), not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (INTEGER -16777216 16777216). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-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). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a (NOT NULL), not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a (NOT NULL), not a FIXNUM. etc. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (INCF CL-PPCRE::COUNTER) ; --> THE ; ==> ; (+ 1 CL-PPCRE::COUNTER) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a 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 NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a T, not a DOUBLE-FLOAT. The second argument is a (NOT NULL), not a DOUBLE-FLOAT. etc. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; etc. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (MOD 4611686018427387901), not a (INTEGER -16777216 16777216). The second argument is a REAL, not a SINGLE-FLOAT. ; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING) ; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (MOD 4611686018427387901), not a (INTEGER -16777216 ; 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (MOD 4611686018427387901), not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (MOD 4611686018427387901), not a (OR SINGLE-FLOAT ; (INTEGER ; -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to expand inline because: upgraded array element type not known at compile time ; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING :START ; CL-PPCRE::MATCH-START :END CL-PPCRE::MATCH-END) ; ; note: unable to ; expand inline ; because: ; upgraded array element type not known at compile time SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The second argument is a (NOT NULL), not a FIXNUM. ; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (NOT NULL), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (OR NULL INTEGER), not a FIXNUM. The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (OR NULL INTEGER), not a FIXNUM. The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (1- ; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START ; :JUNK-ALLOWED T)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do <-INTEGER-FIXNUM (cost 8) unable to do inline fixnum comparison (cost 3) because: The first argument is a INTEGER, not a FIXNUM. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; in: DEFUN BUILD-REPLACEMENT ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. SIMPLE-COMPILER-NOTE: unable to open code because: can't determine sequence argument type ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (APPLY CL-PPCRE::TOKEN ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to open code because: can't determine sequence argument type ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START ; CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a REAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a REAL. 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a REAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a REAL. The second 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a (NOT NULL), not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a (NOT NULL), not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (1+ CL-PPCRE::TOKEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second 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 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (INTEGER -16777216 16777216). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (OR SINGLE-FLOAT (INTEGER -9007199254740992 9007199254740992)). The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-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). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a 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 NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES &KEY (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1005881C4F}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1005881C4F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES &KEY (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {1005D8D22F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {1005D8D22F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/api-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.429 COMPILE-WARNED-WARNING: Lisp compilation had style-warnings while compiling # WARNING: Lisp compilation had style-warnings while compiling # REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:REGISTER-GROUPS-BIND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-SCANS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-MATCHES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-MATCHES-AS-STRINGS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-REGISTER-GROUPS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::REGEX-APROPOS-AUX in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DEFINE-PARSE-TREE-SYNONYM in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/package.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/package-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.040 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/depdefs.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/depdefs-tmp267Y2N80.fasl ; compilation finished in 0:00:00.298 REDEFINITION-WITH-DEFUN: redefining XLIB::%REEVALUATE-CONSTANT in DEFUN REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-CONSTANT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFCONSTANT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-VECTOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITHIN-DEFINITION in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-MAP-TEST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ATOM-CACHE-MAP-TEST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM->CHARACTER-MAP-TEST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX+ in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-LOGAND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-LOGIOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX- in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX* in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX1+ in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX1- in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-INCF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-DECF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-MIN in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-MAX in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-FLOOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-CEILING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-TRUNCATE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-MOD in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-ASH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-PLUSP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-ZEROP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-EVENP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-ODDP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX> in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX= in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX< in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX>= in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX<= in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEF-CLX-CLASS in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/clx.lisp" (written 31 MAR 2023 04:53:00 PM): CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ; note: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-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 CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ; note: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-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 CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-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-wm/stumpwm/work/clx-20230618-git/clx-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:00.969 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/dependent.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: unable to open-code INTEGER to RATIO comparison due to type uncertainty: The first argument is a RATIONAL, not a INTEGER. ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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. SIMPLE-COMPILER-NOTE: unable to open-code INTEGER to RATIO comparison due to type uncertainty: The first argument is a (RATIONAL -884279719003555/140737488355328), 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. &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (LOCK DISPLAY &OPTIONAL (WHOSTATE CLX wait) &KEY TIMEOUT) ; 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) SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a SINGLE-FLOAT. ; 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. SIMPLE-COMPILER-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 ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (REAL 0), not a DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize 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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-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. ; (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. CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFMACRO READ-IMAGE-LOAD-BYTE ; (SETQ POSITION (- 7 POSITION)) ; ; note: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE ; (- XLIB::INTEGER-SIZE 8 POSITION) ; ; note: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) ; 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) CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; 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 SIMPLE-COMPILER-NOTE: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; 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. SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) ; (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) CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; 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-wm/stumpwm/work/clx-20230618-git/dependent-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:00.265 COMPILE-WARNED-WARNING: Lisp compilation had style-warnings while compiling # WARNING: Lisp compilation had style-warnings while compiling # REDEFINITION-WITH-DEFUN: redefining XLIB::DECLARE-BUFMAC in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB::DECLARE-BUFFUN in DEFUN REDEFINITION-WITH-DEFMACRO: redefining XLIB::HOLDING-LOCK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITHOUT-ABORTS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITHOUT-INTERRUPTS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CONDITIONAL-STORE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRAP-BUF-OUTPUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRAP-BUF-INPUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-STACK-LIST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-STACK-LIST* in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-GCONTEXT-BINDINGS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::TYPE? in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::USE-CLOSURES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-UNDERLYING-SIMPLE-VECTOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-IMAGE-LOAD-BYTE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-IMAGE-ASSEMBLE-BYTES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-IMAGE-LOAD-BYTE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-IMAGE-ASSEMBLE-BYTES in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/macros.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/macros-tmpBO0TUGLK.fasl ; compilation finished in 0:00:00.549 REDEFINITION-WITH-DEFMACRO: redefining XLIB::TYPE-CHECK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::REQUIRED-ARG in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::LROUND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WROUND in DEFMACRO REDEFINITION-WITH-DEFUN: redefining XLIB::GETIFY in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB::PUTIFY in DEFUN REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-ACCESSOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD32-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD32-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD29-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD29-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD16-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD16-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD8-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD8-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INTEGER-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INTEGER-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INT16-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INT16-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RGB-VAL-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RGB-VAL-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ANGLE-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ANGLE-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLEAN-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLEAN-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DRAWABLE-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DRAWABLE-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WINDOW-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WINDOW-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PIXMAP-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PIXMAP-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CURSOR-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CURSOR-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::COLORMAP-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::COLORMAP-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::FONT-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::FONT-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYWORD-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYWORD-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-OR-NIL-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-OR-NIL-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CHAR-INFO-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-VECTOR-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-VECTOR-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-VECTOR-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-VECTOR-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-VECTOR-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-VECTOR-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-VECTOR-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-VECTOR-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-VECTOR-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLE-CONSTANT-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLE-CONSTANT-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLE-CONSTANT-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::NULL-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::NULL-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD8-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD8-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD16-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD16-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD32-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD32-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-VECTOR256-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-VECTOR256-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::STRING-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::STRING-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::SEQUENCE-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::SEQUENCE-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-SEQUENCE-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-SEQUENCE-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CODE-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CODE-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CODE-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::LENGTH-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::LENGTH-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::LENGTH-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DATA-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DATA-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DATA-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::OR-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::OR-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PROGN-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PROGN-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CHECK-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-REQUEST-INTERNAL in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-REQUEST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-REQUEST-AND-REPLY in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::COMPARE-REQUEST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PUT-ITEMS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DECODE-TYPE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ENCODE-TYPE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::SET-DECODE-TYPE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-ATOMIC-PUSH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-ATOMIC-POP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-NCONC in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-PUSH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-POP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-ENQUEUE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-DEQUEUE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-REQUEUE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-DOLIST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-DELETE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-LENGTH in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/bufmac.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/bufmac-tmpIIXPIQNW.fasl ; compilation finished in 0:00:00.031 REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD8 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-INT8 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD16 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-INT16 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD32 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-INT32 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD29 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CHAR2B in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::SET-BUFFER-OFFSET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ADVANCE-BUFFER-OFFSET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-OUTPUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITING-BUFFER-CHUNKS in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/buffer.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::READ-CARD16 XLIB::INDEX) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (XLIB::READ-CARD32 XLIB::INDEX) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-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-wm/stumpwm/work/clx-20230618-git/buffer-tmpOHM494YR.fasl ; compilation finished in 0:00:00.867 REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD8 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-INT8 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD16 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-INT16 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD32 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-INT32 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD29 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::EVENT-CODE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READING-EVENT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-INPUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-FLUSH-INHIBITED in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-LIST-READERS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-SEQUENCE-READER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-LIST-WRITERS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-SEQUENCE-WRITER in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/display.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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 SIMPLE-COMPILER-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-wm/stumpwm/work/clx-20230618-git/display-tmpOVFB07XF.fasl ; compilation finished in 0:00:00.186 REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-DISPLAY in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ALLOCATE-RESOURCE-ID in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEALLOCATE-RESOURCE-ID in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-EVENT-QUEUE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-EVENT-QUEUE-INTERNAL in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/gcontext.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (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 SIMPLE-COMPILER-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. ; (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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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 SIMPLE-COMPILER-NOTE: unable to Eliminate %negate/%negate of rationals due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; (- 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; (ELT XLIB::*GCONTEXT-EXTENSIONS* XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (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 SIMPLE-COMPILER-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. ; (- 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. SIMPLE-COMPILER-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 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. SIMPLE-COMPILER-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. ; (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. SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to Eliminate %negate/%negate of rationals due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; 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. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (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 SIMPLE-COMPILER-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. ; (- 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. SIMPLE-COMPILER-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 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. SIMPLE-COMPILER-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. ; (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. SIMPLE-COMPILER-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::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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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 SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; 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). SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (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). SIMPLE-COMPILER-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::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 SIMPLE-COMPILER-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-wm/stumpwm/work/clx-20230618-git/gcontext-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.947 REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FUNCTION in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-PLANE-MASK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FOREGROUND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-BACKGROUND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-LINE-WIDTH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-LINE-STYLE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CAP-STYLE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-JOIN-STYLE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FILL-STYLE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FILL-RULE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TILE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-STIPPLE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TS-X in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TS-Y in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FONT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-SUBWINDOW-MODE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-EXPOSURES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP-X in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP-Y in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP-MASK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-DASH-OFFSET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-DASHES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-ARC-MODE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-DASH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FONT-OBJ in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TIMESTAMP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-STATE-NEXT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::XGCMASK->GCMASK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ACCESS-GCONTEXT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MODIFY-GCONTEXT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEF-GC-ACCESSOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INCF-INTERNAL-TIMESTAMP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-GCONTEXT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:DEFINE-GCONTEXT-ACCESSOR in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/input.lisp" (written 31 MAR 2023 04:53:00 PM): CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/input.lisp ; in: DEFUN READ-INPUT ; (CONS NIL NIL) ; ; note: deleting unreachable code SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; 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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; 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. SIMPLE-COMPILER-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 ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. SIMPLE-COMPILER-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 ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. SIMPLE-COMPILER-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 ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-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 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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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-wm/stumpwm/work/clx-20230618-git/input-tmp4QIPRMOF.fasl ; compilation finished in 0:00:01.400 REDEFINITION-WITH-DEFMACRO: redefining XLIB:DEFINE-EXTENSION in DEFMACRO REDEFINITION-WITH-DEFUN: redefining XLIB::CANONICALIZE-EVENT-NAME in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB::EXTENSION-EVENT-KEY-P in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB::ALLOCATE-EXTENSION-EVENT-CODE in DEFUN REDEFINITION-WITH-DEFMACRO: redefining XLIB:EXTENSION-OPCODE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-EVENT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:DECLARE-EVENT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::EVENT-LOOP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:EVENT-CASE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:EVENT-COND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::EVENT-DISPATCH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BINDING-EVENT-VALUES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:DEFINE-ERROR in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/requests.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-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. ; (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. SIMPLE-COMPILER-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 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. SIMPLE-COMPILER-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. ; ==> ; (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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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 SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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 SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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 SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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 SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-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. SIMPLE-COMPILER-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 * (*)). ; (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 ; * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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 SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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 SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN SET-POINTER-MAPPING ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; 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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 * (*)). ; 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 ; * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; 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-wm/stumpwm/work/clx-20230618-git/requests-tmpGW0QV22K.fasl ; compilation finished in 0:00:01.802 REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-SERVER-GRABBED in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/fonts.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR STRING NULL), not a VECTOR. ; (LENGTH XLIB::NAME-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING NULL), not a VECTOR. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; 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. SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. SIMPLE-COMPILER-NOTE: unable to convert division by 2^k to shift 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; (ELT XLIB::PATHS XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; (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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; 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-wm/stumpwm/work/clx-20230618-git/fonts-tmp2K9J0HSR.fasl ; compilation finished in 0:00:00.252 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/graphics.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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-wm/stumpwm/work/clx-20230618-git/graphics-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.356 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/text.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; 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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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). ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-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. ; ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the second argument of CLOSURE-INIT ; (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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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). ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-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. ; ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the second argument of CLOSURE-INIT ; (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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. ; 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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 SIMPLE-COMPILER-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). ; 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). SIMPLE-COMPILER-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 DOUBLE-FLOAT. SIMPLE-COMPILER-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 SINGLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). SIMPLE-COMPILER-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 ; 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). SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. ; (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. SIMPLE-COMPILER-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. ; (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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; (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-wm/stumpwm/work/clx-20230618-git/text-tmp63LQ7EX6.fasl ; compilation finished in 0:00:00.642 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/attributes.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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-wm/stumpwm/work/clx-20230618-git/attributes-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.307 REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-ATTRIBUTES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-ATTRIBUTE-CHANGES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-GEOMETRY in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-GEOMETRY-CHANGES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DRAWABLE-EQUAL-FUNCTION in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WINDOW-EQUAL-FUNCTION in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-STATE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-ATTRIBUTES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-GEOMETRY in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/translate.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/translate-tmpH7D4HL98.fasl ; compilation finished in 0:00:00.288 REDEFINITION-WITH-DEFMACRO: redefining XLIB:KEYSYM in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-OBJECT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-TRANSLATE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-LOWERCASE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-MODIFIERS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-MASK in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/keysyms.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/keysyms-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.015 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/manager.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/manager-tmpLM57P5P.fasl ; compilation finished in 0:00:00.610 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/image.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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). SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of 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-wm/stumpwm/work/clx-20230618-git/image-tmpZE69DN33.fasl ; compilation finished in 0:00:01.105 REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-IMAGE-DATA-BUFFER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-NAME in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-X-HOT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-Y-HOT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-RED-MASK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-BLUE-MASK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-GREEN-MASK in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/resource.lisp" (written 31 MAR 2023 04:53:00 PM): CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/resource-tmpG8099TO3.fasl ; compilation finished in 0:00:00.178 REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-WITH-OPEN-FILE in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/shape.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of 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-wm/stumpwm/work/clx-20230618-git/extensions/shape-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.126 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/big-requests.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/big-requests-tmp35U57IV6.fasl ; compilation finished in 0:00:00.007 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xvidmode.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to convert to multiplication by reciprocal because: 10000.0 does not have an exact reciprocal ; 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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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::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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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-wm/stumpwm/work/clx-20230618-git/extensions/xvidmode-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.760 REDEFINITION-WITH-DEFMACRO: redefining XLIB::VIDMODE-OPCODE in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xrender.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xrender-tmpWN0UKDSV.fasl ; compilation finished in 0:00:01.718 REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GLYPH-SET-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GLYPH-SET-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-FORMAT-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-FORMAT-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RENDER-OP-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RENDER-OP-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::%RENDER-COMPOSITE-GLYPHS in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/glx.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; 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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; 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. SIMPLE-COMPILER-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 ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. SIMPLE-COMPILER-NOTE: unable to fold division by 1 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. SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; 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-wm/stumpwm/work/clx-20230618-git/extensions/glx-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:00.519 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/gl.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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 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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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 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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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 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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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 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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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. SIMPLE-COMPILER-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 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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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-wm/stumpwm/work/clx-20230618-git/extensions/gl-tmpGYUNPZCY.fasl ; compilation finished in 0:00:01.807 REDEFINITION-WITH-DEFUN: redefining XLIB/GL::BYTE-WIDTH in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SETTER in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SEQUENCE-SETTER in DEFUN REDEFINITION-WITH-DEFMACRO: redefining XLIB/GL::DEFINE-SEQUENCE-SETTER in DEFMACRO REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-INT8 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-INT16 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-INT32 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-BOOL in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-CARD8 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-CARD16 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-CARD32 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-FLOAT32 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-FLOAT64 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::MAKE-ARGSPECS in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::BYTE-WIDTH-CALCULATION in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::COMPOSITE-ARGS in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::MAKE-SETTER-FORMS in DEFUN REDEFINITION-WITH-DEFMACRO: redefining XLIB/GL::DEFINE-RENDERING-COMMAND in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/dpms.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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-wm/stumpwm/work/clx-20230618-git/extensions/dpms-tmpD68Q8WCA.fasl ; compilation finished in 0:00:00.100 REDEFINITION-WITH-DEFMACRO: redefining XLIB/DPMS::DPMS-OPCODE in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xtest.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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-wm/stumpwm/work/clx-20230618-git/extensions/xtest-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.100 REDEFINITION-WITH-DEFMACRO: redefining XLIB/XTEST::OPCODE in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/screensaver.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/clx-20230618-git/extensions/screensaver-tmpJJ71X849.fasl ; compilation finished in 0:00:00.030 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/randr.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 36) ; (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 XLIB::CRTC-START) ; (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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of 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-wm/stumpwm/work/clx-20230618-git/extensions/randr-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.794 REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-MASK-FNS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-TRANSFORM-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-TRANSFORM-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-MODE-INFO-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-MODE-INFO-PUT in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xinerama.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20) to INDEX ; (INCF XLIB/XINERAMA::INDEX 8) ; ; note: doing unsigned word to integer coercion (cost 20) to INDEX ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xinerama-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.052 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/dbe.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; 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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20) to OFF ; 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 SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20) to OFF ; ; note: doing unsigned word to integer coercion (cost 20) to OFF SIMPLE-COMPILER-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: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-wm/stumpwm/work/clx-20230618-git/extensions/dbe-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.149 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xc-misc.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/clx-20230618-git/extensions/xc-misc-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.025 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/dri2.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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-wm/stumpwm/work/clx-20230618-git/extensions/dri2-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.106 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/composite.lisp" (written 31 MAR 2023 04:53:00 PM): SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for: the first result of inline (unsigned-byte 64) arithmetic ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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 SIMPLE-COMPILER-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-wm/stumpwm/work/clx-20230618-git/extensions/composite-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.128 REDEFINITION-WITH-DEFMACRO: redefining XLIB::COMPOSITE-OPCODE in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-mixins/src/package.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-mixins/src/package-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.000 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-mixins/src/sorting.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-mixins/src/sorting-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.006 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-mixins/src/dynamic-mixins.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-mixins/src/dynamic-mixins-tmpOBHVA3CD.fasl ; compilation finished in 0:00:00.027 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/package.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/package-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.001 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/debug.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/debug-tmpULDB0RG.fasl ; compilation finished in 0:00:00.009 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/primitives.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/primitives-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.262 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-SWM-CLASS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:WITH-RESTARTS-MENU in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:ADD-HOOK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:REMOVE-HOOK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:REMOVE-ALL-HOOKS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-FRAME-PREFERENCE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-FULLSCREEN-IN-FRAME-RULE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::WITH-FOCUS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:WITH-DATA-FILE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:MOVE-TO-HEAD in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/wrappers.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/wrappers-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.038 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/pathnames.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/pathnames-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.004 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/font-rendering.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/font-rendering-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.021 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/keysyms.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/keysyms-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.146 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/keytrans.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/keytrans-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.018 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/kmap.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/kmap-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.095 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/input.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/input-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.256 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/core.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/core-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.013 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/command.lisp" (written 24 NOV 2023 11:44:47 PM): UNKNOWN-TYPEP-NOTE: can't open-code test of unknown type DYNAMIC-GROUP ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/command.lisp ; in: DEFUN COMMAND-ACTIVE-P ; 'STUMPWM::DYNAMIC-GROUP ; ; note: can't open-code test of unknown type DYNAMIC-GROUP TYPE-STYLE-WARNING: The binding of I is not a REAL: NIL See also: The SBCL Manual, Node "Handling of Types" ; in: DEFUN ARGUMENT-POP ; (LOOP STUMPWM::FOR STUMPWM::I STUMPWM::FROM STUMPWM::START STUMPWM::BELOW (LENGTH ; STUMPWM::INPUT) ; STUMPWM::FOR CHAR = (CHAR STUMPWM::INPUT STUMPWM::I) ; DO ...) ; --> LET LET TAGBODY ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of I is not a REAL: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/command-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.223 COMPILE-WARNED-WARNING: Lisp compilation had style-warnings while compiling # WARNING: Lisp compilation had style-warnings while compiling # REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFCOMMAND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-STUMPWM-COMMAND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFCOMMAND-ALIAS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-STUMPWM-TYPE in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/menu-declarations.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/menu-declarations-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.027 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/menu-definitions.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/menu-definitions-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.094 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/screen.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/screen-tmpRJTU435C.fasl ; compilation finished in 0:00:00.095 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SET-ANY-COLOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::WITH-CURRENT-SCREEN in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/head.lisp" (written 24 NOV 2023 11:44:47 PM): UNKNOWN-TYPEP-NOTE: can't open-code test of unknown type FLOAT-GROUP ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/head.lisp ; in: DEFUN ORPHANED-FRAMES ; 'STUMPWM::FLOAT-GROUP ; ; note: can't open-code test of unknown type FLOAT-GROUP ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/head-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.029 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/group.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/group-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.107 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/bindings.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/bindings-tmp319UV2V8.fasl ; compilation finished in 0:00:00.033 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::FILL-KEYMAP in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/events.lisp" (written 24 NOV 2023 11:44:47 PM): UNKNOWN-TYPEP-NOTE: can't open-code test of unknown type DYNAMIC-GROUP ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/events.lisp ; in: DEFUN TOP-MAPS ; 'STUMPWM::DYNAMIC-GROUP ; ; note: can't open-code test of unknown type DYNAMIC-GROUP UNKNOWN-TYPEP-NOTE: can't open-code test of unknown type TILE-WINDOW ; in: DEFUN MAYBE-MAP-WINDOW ; 'STUMPWM::TILE-WINDOW ; ; note: can't open-code test of unknown type TILE-WINDOW ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/events-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.193 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-STUMP-EVENT-HANDLER in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/window.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/window-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.214 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-WINDOW-SLOT in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/floating-group.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/floating-group-tmp5HT23M6C.fasl ; compilation finished in 0:00:00.103 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/tile-window.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/tile-window-tmpA60KLDKY.fasl ; compilation finished in 0:00:00.155 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/tile-group.lisp" (written 24 NOV 2023 11:44:47 PM): UNKNOWN-TYPEP-NOTE: can't open-code test of unknown type DYNAMIC-GROUP ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/tile-group.lisp ; in: DEFUN UNFLOAT-WINDOW ; (TYPECASE STUMPWM:GROUP ; (STUMPWM::DYNAMIC-GROUP ; (STUMPWM::DYNAMIC-GROUP-UNFLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP)) ; (STUMPWM::TILE-GROUP ; (STUMPWM::TILE-GROUP-UNFLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP))) ; --> COND IF ; ==> ; (TYPEP #:G0 'STUMPWM::DYNAMIC-GROUP) ; ; note: can't open-code test of unknown type DYNAMIC-GROUP UNKNOWN-TYPEP-NOTE: can't open-code test of unknown type DYNAMIC-GROUP ; in: DEFUN FLOAT-WINDOW ; (TYPECASE STUMPWM:GROUP ; (STUMPWM::DYNAMIC-GROUP ; (STUMPWM::DYNAMIC-GROUP-FLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP)) ; (STUMPWM::TILE-GROUP ; (STUMPWM::TILE-GROUP-FLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP))) ; --> COND IF ; ==> ; (TYPEP #:G0 'STUMPWM::DYNAMIC-GROUP) ; ; note: can't open-code test of unknown type DYNAMIC-GROUP ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/tile-group-tmpD801X3GJ.fasl ; compilation finished in 0:00:00.309 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:SAVE-FRAME-EXCURSION in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/window-placement.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/window-placement-tmpGOW1GC70.fasl ; compilation finished in 0:00:00.029 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/message-window.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/message-window-tmpPQ1X28TL.fasl ; compilation finished in 0:00:00.110 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-SIMPLE-GRAVITY in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:WITH-MESSAGE-QUEUING in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/selection.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/selection-tmpE92ECU7O.fasl ; compilation finished in 0:00:00.028 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::MULTISELECT in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/module.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/module-tmp8S0II570.fasl ; compilation finished in 0:00:00.018 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/ioloop.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/ioloop-tmpJE88A12F.fasl ; compilation finished in 0:00:00.141 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/timers.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/timers-tmpA5FNLPLT.fasl ; compilation finished in 0:00:00.033 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/stumpwm.lisp" (written 24 NOV 2023 11:44:47 PM): UNKNOWN-TYPEP-NOTE: can't open-code test of unknown type REQUEST-CHANNEL ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/stumpwm.lisp ; in: DEFMETHOD HANDLE-TOP-LEVEL-CONDITION (SERIOUS-CONDITION) ; (TYPEP STUMPWM:*CURRENT-IO-CHANNEL* ; '(OR STUMPWM::STUMPWM-TIMER-CHANNEL STUMPWM::DISPLAY-CHANNEL ; STUMPWM::REQUEST-CHANNEL)) ; ; note: can't open-code test of unknown type REQUEST-CHANNEL UNKNOWN-TYPEP-NOTE: can't open-code test of unknown type DISPLAY-CHANNEL ; ; note: can't open-code test of unknown type DISPLAY-CHANNEL ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/stumpwm-tmpHKCV9TP8.fasl ; compilation finished in 0:00:00.129 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SET-SIGNAL-HANDLER in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/user.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/user-tmpZ18MA7XE.fasl ; compilation finished in 0:00:00.116 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFPROGRAM-SHORTCUT in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/interactive-keymap.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/interactive-keymap-tmp6LQJ9T0C.fasl ; compilation finished in 0:00:00.028 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-INTERACTIVE-KEYMAP in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/iresize.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/iresize-tmpTX7OA81T.fasl ; compilation finished in 0:00:00.015 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/help.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/help-tmpWOTC3PB7.fasl ; compilation finished in 0:00:00.171 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/fdump.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/fdump-tmpHQE95SAC.fasl ; compilation finished in 0:00:00.091 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/time.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/time-tmpO87FP9NR.fasl ; compilation finished in 0:00:00.047 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/mode-line.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/mode-line-tmpP6A3E92I.fasl ; compilation finished in 0:00:00.124 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/mode-line-formatters.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/mode-line-formatters-tmpUSHT8RIL.fasl ; compilation finished in 0:00:00.068 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::ALTERNATE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SCROLL in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/color.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/color-tmp7YCPD44Y.fasl ; compilation finished in 0:00:00.126 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/wse.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/wse-tmpQXR7SNXD.fasl ; compilation finished in 0:00:00.031 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:ACT-ON-MATCHING-WINDOWS in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-window.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-window-tmp6FLI1OC3.fasl ; compilation finished in 0:00:00.033 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-group.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-group-tmpWBK8JTS9.fasl ; compilation finished in 0:00:00.571 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SWAP in DEFMACRO REDEFINITION-WITH-DEFMETHOD: redefining PRINT-SWM-OBJECT (# #) in DEFMETHOD REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::WITH-GROUP-HEAD-INFO in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/remap-keys.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/remap-keys-tmpUVEUD2ZN.fasl ; compilation finished in 0:00:00.019 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/manual.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/manual-tmpOWNJOEU.fasl ; compilation finished in 0:00:00.068 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/minor-modes.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/minor-modes-tmpVT5BMTA5.fasl ; compilation finished in 0:00:00.334 REDEFINITION-WITH-DEFUN: redefining STUMPWM::MAKE-SPECIAL-VARIABLE-NAME in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::PARSE-MINOR-MODE-OPTIONS in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::DEFINE-COMMAND-MACRO in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::DEFINE-ENABLE-METHODS in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::GENLIGHTER in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::DEFINE-HOOKS in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM:ADD-MINOR-MODE-SCOPE in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::GET-SCOPE in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::SCOPE-TYPE in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::SCOPE-FILTER-TYPE in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::SCOPE-CURRENT-OBJECT-FUNCTION in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::SCOPE-ALL-OBJECTS-FUNCTION in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::FIND-ACTIVE-GLOBAL-MINOR-MODES-FOR-SCOPE in DEFUN REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-MINOR-MODE-SCOPE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-DESCENDED-MINOR-MODE-SCOPE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-MINOR-MODE in DEFMACRO ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/replace-class.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/replace-class-tmpN3CFVWZF.fasl ; compilation finished in 0:00:00.021 REDEFINITION-WITH-DEFGENERIC: redefining DYNAMIC-MIXINS-SWM:REPLACE-CLASS in DEFGENERIC WARNING: redefining DYNAMIC-MIXINS-SWM:REPLACE-CLASS in DEFGENERIC ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/version.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/version-tmpNK27C0R1.fasl ; compilation finished in 0:00:00.003 ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 2129 notes compressed 32768 bytes into 628 at level 9 compressed 26869760 bytes into 4354055 at level 9 compressed 9601024 bytes into 2848020 at level 9 compressed 2293760 bytes into 571124 at level 9 compressed 16252928 bytes into 3888513 at level 9 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 ===> stumpwm-23.11_1 depends on executable: indexinfo - found =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Staging for stumpwm-23.11_1 ===> Generating temporary packing list /usr/local/bin/sbcl --non-interactive --eval "(setf sb-impl::*default-external-format* :UTF-8)" --eval "(progn (load \"load-stumpwm.lisp\") (load \"manual.lisp\"))" --eval "(progn (stumpwm::generate-manual) (sb-ext:quit))" This is SBCL 2.4.0, an implementation of ANSI Common Lisp. More information about SBCL is available at . SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. ;;; loading #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 "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/package.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/package-tmpGHU3ALSV.fasl ; compilation finished in 0:00:00.004 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/definitions.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/definitions-tmpAAURSO1.fasl ; compilation finished in 0:00:00.008 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/binding.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/binding-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.013 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/strings.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/strings-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.000 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/conditions.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/conditions-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.014 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/symbols.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/symbols-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.015 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/macros.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/macros-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.064 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/functions.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/functions-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.033 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/lists.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/lists-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.083 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/types.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/types-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.086 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/io.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/io-tmpQ371UGST.fasl ; compilation finished in 0:00:00.085 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/hash-tables.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/hash-tables-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.052 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/control-flow.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/control-flow-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.051 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/arrays.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/arrays-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.008 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/sequences.lisp" (written 18 OCT 2023 11:19:11 AM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/sequences.lisp ; in: DEFUN LENGTH= ; (LENGTH FIRST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/sequences-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.166 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/numbers.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/numbers-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.185 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/features.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-1/features-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.009 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/package.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/package-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.009 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/arrays.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/arrays-tmpOPCILR65.fasl ; compilation finished in 0:00:00.015 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/control-flow.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/control-flow-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.007 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/sequences.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/sequences-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.002 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/lists.lisp" (written 18 OCT 2023 11:19:11 AM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/alexandria-20231021-git/alexandria-2/lists-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.005 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/packages.lisp" (written 09 JUN 2023 11:45:20 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/packages-tmp10401X32.fasl ; compilation finished in 0:00:00.001 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/specials.lisp" (written 09 JUN 2023 11:45:20 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/specials-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.014 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/util.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/util.lisp ; in: DEFUN STRING-LIST-TO-SIMPLE-STRING ; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a SIMPLE-BASE-STRING. ; in: DEFUN COMPLEMENT* ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/util-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.072 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/errors.lisp" (written 09 JUN 2023 11:45:20 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/errors-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.017 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/charset.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; 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. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a SINGLE-FLOAT. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL (-4611686018427387898) (4611686018427387900))) ; &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a DOUBLE-FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL (-4611686018427387898) ; (4611686018427387900))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-4611686018427387899) ; (4611686018427387899))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL (-4611686018427387898) ; (4611686018427387900))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; 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 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 ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* 2 (LENGTH CL-PPCRE::OLD-VECTOR)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline ASH ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second 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. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/charset-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.066 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/charmap.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/charmap.lisp ; in: DEFUN MAKE-CHARMAP ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second 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. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; (1- CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-22) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second 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. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; (1- CL-PPCRE::END) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-22) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/charmap-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.067 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/chartest.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second 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. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; 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. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; 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. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/chartest-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.026 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/lexer.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/lexer.lisp ; in: DEFUN NEXT-CHAR ; (- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN GET-NUMBER ; (+ (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) (THE FIXNUM CL-PPCRE::MAX-LENGTH)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/lexer-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.229 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/parser.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/parser.lisp ; in: DEFUN GROUP ; (+ CL-PPCRE::OPEN-PAREN-POS 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/parser-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.032 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/regex-class.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/regex-class.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR) ; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/regex-class-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.030 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/regex-class-util.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/regex-class-util.lisp ; in: DEFMETHOD CASE-MODE (STR T) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (INTEGER ; -16777216 ; 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (OR ; SINGLE-FLOAT ; (INTEGER ; -9007199254740992 ; 9007199254740992)). ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; etc. ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-5 CL-PPCRE::LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 NUMBER, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second 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 DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). ; etc. ; in: DEFMETHOD REGEX-LENGTH (BRANCH) ; (EQL CL-PPCRE::THEN-LENGTH ; (CL-PPCRE::REGEX-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; 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. ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-5 CL-PPCRE::LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 NUMBER, not a FIXNUM. ; The second 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 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF < IF ; ==> ; (< #:LOOP-MAXMIN-TEMP-9 #:LOOP-MAXMIN-8) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second 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. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second 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. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second 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 DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (BRANCH T) ; (EQL CL-PPCRE::THEN-OFFSET ; (CL-PPCRE::COMPUTE-OFFSETS (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::START-POS)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; 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. ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; 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. ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/regex-class-util-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.188 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/convert.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/convert.lisp ; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-ACCUMULATE ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW1 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; 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 LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; 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). ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; 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). ; (COPY-SEQ CL-PPCRE::BACKREF-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 LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, 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 T, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; note: forced to do GENERIC-- (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/convert-tmp8065ESJT.fasl ; compilation finished in 0:00:00.320 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/optimize.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/optimize.lisp ; in: DEFMETHOD GATHER-STRINGS (SEQ) ; (MAKE-ARRAY CL-PPCRE::COLLECTOR-LENGTH :INITIAL-CONTENTS CL-PPCRE::COLLECTOR ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a SIMPLE-BASE-STRING. ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> THE ; ==> ; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH) ; ; 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 T, 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 T, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MAKE-ARRAY CL-PPCRE::CONCATENATED-LENGTH :INITIAL-CONTENTS ; (REVERSE (CL-PPCRE::STR CL-PPCRE::CONCATENATED-START)) ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING. ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF < IF ; ==> ; (< #:LOOP-MAXMIN-TEMP-10 #:LOOP-MAXMIN-9) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second 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. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second 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. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; 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. ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/optimize-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.183 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/closures.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/closures.lisp ; in: DEFUN *STRING*-EQUAL ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T) ; (- CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::END-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING CL-PPCRE::START-POS ; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-MATCHER-AUX (BACK-REFERENCE T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/closures-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.199 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/repetition-closures.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS ; 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second 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 DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; 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. ; ; 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. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (PLUSP CL-PPCRE::LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/repetition-closures-tmpE0PA0714.fasl ; compilation finished in 0:00:00.611 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/scanner.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; --> CHAR-EQUAL ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; The second argument is a FIXNUM, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a FIXNUM, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; 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. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/scanner-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.636 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/api.lisp" (written 09 JUN 2023 11:45:20 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/api.lisp ; in: DEFMETHOD CREATE-SCANNER (STRING) ; (COPY-SEQ CL-PPCRE::QUOTED-REGEX-STRING) ; ; 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 LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; 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. ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {100379F2DF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {1003BEC91F}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {1003D91B9F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {1003F9C21F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) ; in: DEFUN COUNT-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second 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 DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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. ; (INCF COUNT) ; --> THE ; ==> ; (+ 1 COUNT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second 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 DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second 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 DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; 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. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second 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 DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second 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 DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; 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 SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (INTEGER 1), not a (INTEGER -16777216 16777216). ; The second argument is a (REAL (0)), not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (INTEGER 1), not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a (REAL (0)), not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second 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 DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (INTEGER -16777216 16777216). ; The second 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. ; The second argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; (INCF CL-PPCRE::COUNTER) ; --> THE ; ==> ; (+ 1 CL-PPCRE::COUNTER) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; etc. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; etc. ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING) ; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (MOD 4611686018427387901), not a (INTEGER -16777216 ; 16777216). ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (MOD 4611686018427387901), not a (OR SINGLE-FLOAT ; (INTEGER ; -9007199254740992 ; 9007199254740992)). ; The second argument is a REAL, not a DOUBLE-FLOAT. ; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING :START ; CL-PPCRE::MATCH-START :END CL-PPCRE::MATCH-END) ; ; note: unable to ; expand inline ; because: ; upgraded array element type not known at compile time ; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (NOT NULL), not a FIXNUM. ; (1- ; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START ; :JUNK-ALLOWED T)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN BUILD-REPLACEMENT ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type ; (APPLY CL-PPCRE::TOKEN ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type ; (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START ; CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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. ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; 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 REAL. ; The second 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 second argument is a NUMBER, not a REAL. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (1+ CL-PPCRE::TOKEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second 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 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; 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 LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (INTEGER -16777216 16777216). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (INTEGER -16777216 16777216). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR SINGLE-FLOAT ; (INTEGER -9007199254740992 ; 9007199254740992)). ; The second 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 DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; 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 LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1004D8F48F}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1004D8F48F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {100528A0BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {100528A0BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/cl-ppcre-20230618-git/api-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.622 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/package.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/package-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.032 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/depdefs.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/depdefs-tmp267Y2N80.fasl ; compilation finished in 0:00:00.297 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/clx.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/clx-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:01.052 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/dependent.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/dependent-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:00.429 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/macros.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/macros-tmpBO0TUGLK.fasl ; compilation finished in 0:00:00.432 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/bufmac.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/bufmac-tmpIIXPIQNW.fasl ; compilation finished in 0:00:00.038 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/buffer.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/buffer-tmpOHM494YR.fasl ; compilation finished in 0:00:00.856 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/display.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/display-tmpOVFB07XF.fasl ; compilation finished in 0:00:00.195 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/gcontext.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/gcontext-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.833 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/input.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/input-tmp4QIPRMOF.fasl ; compilation finished in 0:00:01.605 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/requests.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/requests-tmpGW0QV22K.fasl ; compilation finished in 0:00:01.723 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/fonts.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/fonts-tmp2K9J0HSR.fasl ; compilation finished in 0:00:00.260 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/graphics.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/graphics-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.263 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/text.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/text-tmp63LQ7EX6.fasl ; compilation finished in 0:00:00.443 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/attributes.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/attributes-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.392 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/translate.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/translate-tmpH7D4HL98.fasl ; compilation finished in 0:00:00.082 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/keysyms.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/keysyms-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.012 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/manager.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/manager-tmpLM57P5P.fasl ; compilation finished in 0:00:00.844 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/image.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/image-tmpZE69DN33.fasl ; compilation finished in 0:00:01.430 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/resource.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/resource-tmpG8099TO3.fasl ; compilation finished in 0:00:00.193 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/shape.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/shape-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.293 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/big-requests.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/big-requests-tmp35U57IV6.fasl ; compilation finished in 0:00:00.009 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xvidmode.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xvidmode-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.570 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xrender.lisp" (written 31 MAR 2023 04:53:00 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xrender-tmpWN0UKDSV.fasl ; compilation finished in 0:00:01.444 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/glx.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/glx-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:00.470 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/gl.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/gl-tmpGYUNPZCY.fasl ; compilation finished in 0:00:02.705 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/dpms.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/dpms-tmpD68Q8WCA.fasl ; compilation finished in 0:00:00.096 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xtest.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xtest-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.150 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/screensaver.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/screensaver-tmpJJ71X849.fasl ; compilation finished in 0:00:00.030 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/randr.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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 36) ; (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 XLIB::CRTC-START) ; (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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/randr-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.715 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xinerama.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xinerama-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.110 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/dbe.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/dbe-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.133 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xc-misc.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/xc-misc-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.021 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/dri2.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/dri2-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.183 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/composite.lisp" (written 31 MAR 2023 04:53:00 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/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-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/clx-20230618-git/extensions/composite-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.076 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-mixins/src/package.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-mixins/src/package-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.000 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-mixins/src/sorting.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-mixins/src/sorting-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.005 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-mixins/src/dynamic-mixins.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-mixins/src/dynamic-mixins-tmpOBHVA3CD.fasl ; compilation finished in 0:00:00.028 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/package.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/package-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.001 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/debug.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/debug-tmpULDB0RG.fasl ; compilation finished in 0:00:00.010 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/primitives.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/primitives-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.245 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/wrappers.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/wrappers-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.034 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/pathnames.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/pathnames-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.003 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/font-rendering.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/font-rendering-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.020 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/keysyms.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/keysyms-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.101 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/keytrans.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/keytrans-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.017 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/kmap.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/kmap-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.078 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/input.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/input-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.297 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/core.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/core-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.009 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/command.lisp" (written 24 NOV 2023 11:44:47 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/command.lisp ; in: DEFUN COMMAND-ACTIVE-P ; 'STUMPWM::DYNAMIC-GROUP ; ; note: can't open-code test of unknown type DYNAMIC-GROUP ; in: DEFUN ARGUMENT-POP ; (LOOP STUMPWM::FOR STUMPWM::I STUMPWM::FROM STUMPWM::START STUMPWM::BELOW (LENGTH ; STUMPWM::INPUT) ; STUMPWM::FOR CHAR = (CHAR STUMPWM::INPUT STUMPWM::I) ; DO ...) ; --> LET LET TAGBODY ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of I is not a REAL: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/command-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.188 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/menu-declarations.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/menu-declarations-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.019 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/menu-definitions.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/menu-definitions-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.109 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/screen.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/screen-tmpRJTU435C.fasl ; compilation finished in 0:00:00.058 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/head.lisp" (written 24 NOV 2023 11:44:47 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/head.lisp ; in: DEFUN ORPHANED-FRAMES ; 'STUMPWM::FLOAT-GROUP ; ; note: can't open-code test of unknown type FLOAT-GROUP ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/head-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.044 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/group.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/group-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.106 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/bindings.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/bindings-tmp319UV2V8.fasl ; compilation finished in 0:00:00.023 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/events.lisp" (written 24 NOV 2023 11:44:47 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/events.lisp ; in: DEFUN TOP-MAPS ; 'STUMPWM::DYNAMIC-GROUP ; ; note: can't open-code test of unknown type DYNAMIC-GROUP ; in: DEFUN MAYBE-MAP-WINDOW ; 'STUMPWM::TILE-WINDOW ; ; note: can't open-code test of unknown type TILE-WINDOW ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/events-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.108 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/window.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/window-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.211 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/floating-group.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/floating-group-tmp5HT23M6C.fasl ; compilation finished in 0:00:00.145 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/tile-window.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/tile-window-tmpA60KLDKY.fasl ; compilation finished in 0:00:00.096 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/tile-group.lisp" (written 24 NOV 2023 11:44:47 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/tile-group.lisp ; in: DEFUN UNFLOAT-WINDOW ; (TYPECASE STUMPWM:GROUP ; (STUMPWM::DYNAMIC-GROUP ; (STUMPWM::DYNAMIC-GROUP-UNFLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP)) ; (STUMPWM::TILE-GROUP ; (STUMPWM::TILE-GROUP-UNFLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP))) ; --> COND IF ; ==> ; (TYPEP #:G0 'STUMPWM::DYNAMIC-GROUP) ; ; note: can't open-code test of unknown type DYNAMIC-GROUP ; in: DEFUN FLOAT-WINDOW ; (TYPECASE STUMPWM:GROUP ; (STUMPWM::DYNAMIC-GROUP ; (STUMPWM::DYNAMIC-GROUP-FLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP)) ; (STUMPWM::TILE-GROUP ; (STUMPWM::TILE-GROUP-FLOAT-WINDOW STUMPWM:WINDOW STUMPWM:GROUP))) ; --> COND IF ; ==> ; (TYPEP #:G0 'STUMPWM::DYNAMIC-GROUP) ; ; note: can't open-code test of unknown type DYNAMIC-GROUP ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/tile-group-tmpD801X3GJ.fasl ; compilation finished in 0:00:00.292 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/window-placement.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/window-placement-tmpGOW1GC70.fasl ; compilation finished in 0:00:00.048 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/message-window.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/message-window-tmpPQ1X28TL.fasl ; compilation finished in 0:00:00.126 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/selection.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/selection-tmpE92ECU7O.fasl ; compilation finished in 0:00:00.037 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/module.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/module-tmp8S0II570.fasl ; compilation finished in 0:00:00.023 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/ioloop.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/ioloop-tmpJE88A12F.fasl ; compilation finished in 0:00:00.150 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/timers.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/timers-tmpA5FNLPLT.fasl ; compilation finished in 0:00:00.028 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/stumpwm.lisp" (written 24 NOV 2023 11:44:47 PM): ; file: /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/stumpwm.lisp ; in: DEFMETHOD HANDLE-TOP-LEVEL-CONDITION (SERIOUS-CONDITION) ; (TYPEP STUMPWM:*CURRENT-IO-CHANNEL* ; '(OR STUMPWM::STUMPWM-TIMER-CHANNEL STUMPWM::DISPLAY-CHANNEL ; STUMPWM::REQUEST-CHANNEL)) ; ; note: can't open-code test of unknown type REQUEST-CHANNEL ; ; note: can't open-code test of unknown type DISPLAY-CHANNEL ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/stumpwm-tmpHKCV9TP8.fasl ; compilation finished in 0:00:00.115 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/user.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/user-tmpZ18MA7XE.fasl ; compilation finished in 0:00:00.159 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/interactive-keymap.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/interactive-keymap-tmp6LQJ9T0C.fasl ; compilation finished in 0:00:00.030 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/iresize.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/iresize-tmpTX7OA81T.fasl ; compilation finished in 0:00:00.016 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/help.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/help-tmpWOTC3PB7.fasl ; compilation finished in 0:00:00.131 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/fdump.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/fdump-tmpHQE95SAC.fasl ; compilation finished in 0:00:00.081 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/time.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/time-tmpO87FP9NR.fasl ; compilation finished in 0:00:00.035 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/mode-line.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/mode-line-tmpP6A3E92I.fasl ; compilation finished in 0:00:00.061 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/mode-line-formatters.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/mode-line-formatters-tmpUSHT8RIL.fasl ; compilation finished in 0:00:00.046 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/color.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/color-tmp7YCPD44Y.fasl ; compilation finished in 0:00:00.145 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/wse.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/wse-tmpQXR7SNXD.fasl ; compilation finished in 0:00:00.035 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-window.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-window-tmp6FLI1OC3.fasl ; compilation finished in 0:00:00.037 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-group.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/dynamic-group-tmpWBK8JTS9.fasl ; compilation finished in 0:00:00.358 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/remap-keys.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/remap-keys-tmpUVEUD2ZN.fasl ; compilation finished in 0:00:00.046 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/manual.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/manual-tmpOWNJOEU.fasl ; compilation finished in 0:00:00.087 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/minor-modes.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/minor-modes-tmpVT5BMTA5.fasl ; compilation finished in 0:00:00.353 ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/replace-class.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/replace-class-tmpN3CFVWZF.fasl ; compilation finished in 0:00:00.036 WARNING: redefining DYNAMIC-MIXINS-SWM:REPLACE-CLASS in DEFGENERIC ; compiling file "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/version.lisp" (written 24 NOV 2023 11:44:47 PM): ; wrote /wrkdirs/usr/ports/x11-wm/stumpwm/work/.cache/common-lisp/sbcl-2.4.0-bsd-x64/wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/version-tmpNK27C0R1.fasl ; compilation finished in 0:00:00.005 ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 2129 notes warning: Function dynamic-group-head-layout not found. warning: Function dynamic-group-head-split-ratio not found. warning: Symbol exchange-window-with-master not found in package STUMPWM test "makeinfo" = "no" || makeinfo stumpwm.texi test -z "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stage/usr/local/bin" || mkdir -p "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stage/usr/local/bin" install -m 755 stumpwm "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stage/usr/local/bin" test -z "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stage/usr/local/share/info" || mkdir -p "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stage/usr/local/share/info" test "makeinfo" = "no" || install -m 644 stumpwm.info "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stage/usr/local/share/info" test "makeinfo" = "no" || install-info --info-dir="/wrkdirs/usr/ports/x11-wm/stumpwm/work/stage/usr/local/share/info" "/wrkdirs/usr/ports/x11-wm/stumpwm/work/stage/usr/local/share/info/stumpwm.info" /bin/mkdir -p /wrkdirs/usr/ports/x11-wm/stumpwm/work/stage/usr/local/share/doc/stumpwm (cd /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11 && install -m 0644 AUTHORS COPYING HACKING NEWS README.md /wrkdirs/usr/ports/x11-wm/stumpwm/work/stage/usr/local/share/doc/stumpwm) /bin/mkdir -p /wrkdirs/usr/ports/x11-wm/stumpwm/work/stage/usr/local/share/examples/stumpwm install -m 0644 /wrkdirs/usr/ports/x11-wm/stumpwm/work/stumpwm-23.11/sample-stumpwmrc.lisp /wrkdirs/usr/ports/x11-wm/stumpwm/work/stage//usr/local/share/examples/stumpwm ====> 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-02T10:55:37+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 stumpwm-23.11_1 ===> Building stumpwm-23.11_1 =========================================================================== =>> Cleaning up wrkdir ===> Cleaning for stumpwm-23.11_1 build of x11-wm/stumpwm | stumpwm-23.11_1 ended at Tue Apr 2 11:57:01 BST 2024 build time: 00:01:25