Input buildinfo: https://buildinfos.debian.net/buildinfo-pool/s/stumpwm/stumpwm_1.0.0-1_all.buildinfo Use metasnap for getting required timestamps New buildinfo file: /tmp/stumpwm-1.0.0-1o3envo6f/stumpwm_1.0.0-1_all.buildinfo Get source package info: stumpwm=2:1.0.0-1 Source URL: http://snapshot.notset.fr/mr/package/stumpwm/2:1.0.0-1/srcfiles?fileinfo=1 env -i PATH=/usr/sbin:/usr/bin:/sbin:/bin TMPDIR=/tmp mmdebstrap --arch=amd64 --include=adduser=3.117 autoconf=2.69-11 automake=1:1.15.1-3.1 autopoint=0.19.8.1-6 autotools-dev=20180224.1 base-files=10.1 base-passwd=3.5.44 bash=4.4.18-2 binutils=2.30-15 binutils-common=2.30-15 binutils-x86-64-linux-gnu=2.30-15 bsdmainutils=11.1.2 bsdutils=1:2.31.1-0.5 build-essential=12.4 bzip2=1.0.6-8.1 cl-asdf=2:3.3.1-2 cl-clx-sbcl=0.7.4.20160323-1 cl-ppcre=2.0.3-2 common-lisp-controller=7.11 coreutils=8.28-1 cpp=4:7.3.0-3 cpp-7=7.3.0-15 dash=0.5.8-2.10 debconf=1.5.66 debhelper=11.2.1 debianutils=4.8.4 dh-autoreconf=17 dh-strip-nondeterminism=0.040-1 diffutils=1:3.6-1 dpkg=1.19.0.5 dpkg-dev=1.19.0.5 e2fsprogs=1.44.1-2 fdisk=2.31.1-0.5 file=1:5.32-2 findutils=4.6.0+git+20171230-2 g++=4:7.3.0-3 g++-7=7.3.0-15 gcc=4:7.3.0-3 gcc-7=7.3.0-15 gcc-7-base=7.3.0-15 gcc-8-base=8-20180402-1 gettext=0.19.8.1-6 gettext-base=0.19.8.1-6 grep=3.1-2 groff-base=1.22.3-10 gzip=1.6-5+b1 hostname=3.20 init-system-helpers=1.51 intltool-debian=0.35.0+20060710.4 libacl1=2.2.52-3+b1 libarchive-zip-perl=1.60-1 libasan4=7.3.0-15 libatomic1=8-20180402-1 libattr1=1:2.4.47-2+b2 libaudit-common=1:2.8.2-1 libaudit1=1:2.8.2-1 libbinutils=2.30-15 libblkid1=2.31.1-0.5 libbsd0=0.8.7-1 libbz2-1.0=1.0.6-8.1 libc-bin=2.27-3 libc-dev-bin=2.27-3 libc6=2.27-3 libc6-dev=2.27-3 libcap-ng0=0.7.7-3.1+b1 libcc1-0=8-20180402-1 libcilkrts5=7.3.0-15 libcom-err2=1.44.1-2 libcroco3=0.6.12-2 libdb5.3=5.3.28-13.1+b1 libdebconfclient0=0.243 libdpkg-perl=1.19.0.5 libext2fs2=1.44.1-2 libfdisk1=2.31.1-0.5 libffi6=3.2.1-8 libfile-stripnondeterminism-perl=0.040-1 libgcc-7-dev=7.3.0-15 libgcc1=1:8-20180402-1 libgcrypt20=1.8.2-2 libgdbm-compat4=1.14.1-6 libgdbm5=1.14.1-6 libglib2.0-0=2.56.1-2 libgmp10=2:6.1.2+dfsg-3 libgomp1=8-20180402-1 libgpg-error0=1.28-2 libicu57=57.1-9 libisl19=0.19-1 libitm1=8-20180402-1 liblsan0=8-20180402-1 liblz4-1=0.0~r131-2+b1 liblzma5=5.2.2-1.3 libmagic-mgc=1:5.32-2 libmagic1=1:5.32-2 libmount1=2.31.1-0.5 libmpc3=1.1.0-1 libmpfr6=4.0.1-1 libmpx2=8-20180402-1 libncurses5=6.1-1 libncursesw5=6.1-1 libpam-modules=1.1.8-3.7 libpam-modules-bin=1.1.8-3.7 libpam-runtime=1.1.8-3.7 libpam0g=1.1.8-3.7 libpcre3=2:8.39-9 libperl5.26=5.26.1-5 libpipeline1=1.5.0-1 libquadmath0=8-20180402-1 libseccomp2=2.3.1-2.1 libselinux1=2.7-2+b2 libsemanage-common=2.7-2 libsemanage1=2.7-2+b2 libsepol1=2.7-1 libsigsegv2=2.12-2 libsmartcols1=2.31.1-0.5 libss2=1.44.1-2 libstdc++-7-dev=7.3.0-15 libstdc++6=8-20180402-1 libsystemd0=238-4 libtext-unidecode-perl=1.30-1 libtimedate-perl=2.3000-2 libtinfo5=6.1-1 libtool=2.4.6-2 libtsan0=8-20180402-1 libubsan0=7.3.0-15 libudev1=238-4 libunistring2=0.9.8-1 libuuid1=2.31.1-0.5 libxml-libxml-perl=2.0128+dfsg-5 libxml-namespacesupport-perl=1.12-1 libxml-sax-base-perl=1.09-1 libxml-sax-perl=1.00+dfsg-1 libxml2=2.9.4+dfsg1-6.1 linux-libc-dev=4.15.11-1 login=1:4.5-1 m4=1.4.18-1 make=4.2.1-1 man-db=2.8.3-2 mawk=1.3.3-17+b3 ncurses-base=6.1-1 ncurses-bin=6.1-1 passwd=1:4.5-1 patch=2.7.6-2 perl=5.26.1-5 perl-base=5.26.1-5 perl-modules-5.26=5.26.1-5 po-debconf=1.0.20 sbcl=2:1.4.6-2 sed=4.4-2 sensible-utils=0.0.12 sysvinit-utils=2.88dsf-59.10 tar=1.29b-2 tex-common=6.09 texinfo=6.5.0.dfsg.1-2 ucf=3.0038 util-linux=2.31.1-0.5 xz-utils=5.2.2-1.3 zlib1g=1:1.2.8.dfsg-5 --variant=apt --aptopt=Acquire::Check-Valid-Until "false" --aptopt=Acquire::http::Dl-Limit "1000"; --aptopt=Acquire::https::Dl-Limit "1000"; --aptopt=Acquire::Retries "5"; --aptopt=APT::Get::allow-downgrades "true"; --keyring=/usr/share/keyrings/ --essential-hook=chroot "$1" sh -c "apt-get --yes install fakeroot util-linux" --essential-hook=copy-in /usr/share/keyrings/debian-archive-bullseye-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-security-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-stable.gpg /usr/share/keyrings/debian-archive-buster-automatic.gpg /usr/share/keyrings/debian-archive-buster-security-automatic.gpg /usr/share/keyrings/debian-archive-buster-stable.gpg /usr/share/keyrings/debian-archive-keyring.gpg /usr/share/keyrings/debian-archive-removed-keys.gpg /usr/share/keyrings/debian-archive-stretch-automatic.gpg /usr/share/keyrings/debian-archive-stretch-security-automatic.gpg /usr/share/keyrings/debian-archive-stretch-stable.gpg /usr/share/keyrings/debian-ports-archive-keyring-removed.gpg /usr/share/keyrings/debian-ports-archive-keyring.gpg /usr/share/keyrings/debian-keyring.gpg /etc/apt/trusted.gpg.d/ --essential-hook=chroot "$1" sh -c "rm /etc/apt/sources.list && echo 'deb http://snapshot.notset.fr/archive/debian/20210814T212851Z/ bookworm main deb-src http://snapshot.notset.fr/archive/debian/20210814T212851Z/ bookworm main deb http://snapshot.notset.fr/archive/debian/20201217T085020Z/ unstable main deb http://snapshot.notset.fr/archive/debian/20180411T215438Z/ unstable main' >> /etc/apt/sources.list && apt-get update" --customize-hook=chroot "$1" useradd --no-create-home -d /nonexistent -p "" builduser -s /bin/bash --customize-hook=chroot "$1" env sh -c "apt-get source --only-source -d stumpwm=2:1.0.0-1 && mkdir -p /build/stumpwm-RUwlp7 && dpkg-source --no-check -x /*.dsc /build/stumpwm-RUwlp7/stumpwm-1.0.0 && chown -R builduser:builduser /build/stumpwm-RUwlp7" --customize-hook=chroot "$1" env --unset=TMPDIR runuser builduser -c "cd /build/stumpwm-RUwlp7/stumpwm-1.0.0 && env DEB_BUILD_OPTIONS="parallel=4" LC_ALL="POSIX" SOURCE_DATE_EPOCH="1523696159" dpkg-buildpackage -uc -a amd64 --build=all" --customize-hook=sync-out /build/stumpwm-RUwlp7 /tmp/stumpwm-1.0.0-1o3envo6f buster /dev/null deb http://snapshot.notset.fr/archive/debian/20180411T215438Z unstable main I: automatically chosen mode: root I: chroot architecture amd64 is equal to the host's architecture I: automatically chosen format: tar I: using /tmp/mmdebstrap.xhnIeEDSzV as tempdir I: running apt-get update... I: downloading packages with apt... I: extracting archives... I: installing essential packages... I: running --essential-hook in shell: sh -c 'chroot "$1" sh -c "apt-get --yes install fakeroot util-linux"' exec /tmp/mmdebstrap.xhnIeEDSzV Reading package lists... Building dependency tree... util-linux is already the newest version (2.31.1-0.5). The following NEW packages will be installed: fakeroot libfakeroot 0 upgraded, 2 newly installed, 0 to remove and 0 not upgraded. Need to get 132 kB of archives. After this operation, 373 kB of additional disk space will be used. Get:1 http://snapshot.notset.fr/archive/debian/20180411T215438Z unstable/main amd64 libfakeroot amd64 1.22-2 [45.9 kB] Get:2 http://snapshot.notset.fr/archive/debian/20180411T215438Z unstable/main amd64 fakeroot amd64 1.22-2 [85.7 kB] debconf: delaying package configuration, since apt-utils is not installed Fetched 132 kB in 0s (506 kB/s) Selecting previously unselected package libfakeroot:amd64. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 4429 files and directories currently installed.) Preparing to unpack .../libfakeroot_1.22-2_amd64.deb ... Unpacking libfakeroot:amd64 (1.22-2) ... Selecting previously unselected package fakeroot. Preparing to unpack .../fakeroot_1.22-2_amd64.deb ... Unpacking fakeroot (1.22-2) ... Processing triggers for libc-bin (2.27-3) ... Setting up libfakeroot:amd64 (1.22-2) ... Setting up fakeroot (1.22-2) ... update-alternatives: using /usr/bin/fakeroot-sysv to provide /usr/bin/fakeroot (fakeroot) in auto mode Processing triggers for libc-bin (2.27-3) ... I: running special hook: copy-in /usr/share/keyrings/debian-archive-bullseye-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-security-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-stable.gpg /usr/share/keyrings/debian-archive-buster-automatic.gpg /usr/share/keyrings/debian-archive-buster-security-automatic.gpg /usr/share/keyrings/debian-archive-buster-stable.gpg /usr/share/keyrings/debian-archive-keyring.gpg /usr/share/keyrings/debian-archive-removed-keys.gpg /usr/share/keyrings/debian-archive-stretch-automatic.gpg /usr/share/keyrings/debian-archive-stretch-security-automatic.gpg /usr/share/keyrings/debian-archive-stretch-stable.gpg /usr/share/keyrings/debian-ports-archive-keyring-removed.gpg /usr/share/keyrings/debian-ports-archive-keyring.gpg /usr/share/keyrings/debian-keyring.gpg /etc/apt/trusted.gpg.d/ I: running --essential-hook in shell: sh -c 'chroot "$1" sh -c "rm /etc/apt/sources.list && echo 'deb http://snapshot.notset.fr/archive/debian/20210814T212851Z/ bookworm main deb-src http://snapshot.notset.fr/archive/debian/20210814T212851Z/ bookworm main deb http://snapshot.notset.fr/archive/debian/20201217T085020Z/ unstable main deb http://snapshot.notset.fr/archive/debian/20180411T215438Z/ unstable main' >> /etc/apt/sources.list && apt-get update"' exec /tmp/mmdebstrap.xhnIeEDSzV Get:1 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm InRelease [81.6 kB] Get:2 http://snapshot.notset.fr/archive/debian/20201217T085020Z unstable InRelease [153 kB] Hit:3 http://snapshot.notset.fr/archive/debian/20180411T215438Z unstable InRelease Ign:4 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main Sources Ign:5 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main amd64 Packages Ign:4 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main Sources Ign:5 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main amd64 Packages Get:4 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main Sources [11.4 MB] Get:5 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main amd64 Packages [11.1 MB] Ign:6 http://snapshot.notset.fr/archive/debian/20201217T085020Z unstable/main amd64 Packages Ign:6 http://snapshot.notset.fr/archive/debian/20201217T085020Z unstable/main amd64 Packages Get:6 http://snapshot.notset.fr/archive/debian/20201217T085020Z unstable/main amd64 Packages [11.6 MB] Fetched 34.3 MB in 32s (1063 kB/s) Reading package lists... I: installing remaining packages inside the chroot... I: running --customize-hook in shell: sh -c 'chroot "$1" useradd --no-create-home -d /nonexistent -p "" builduser -s /bin/bash' exec /tmp/mmdebstrap.xhnIeEDSzV I: running --customize-hook in shell: sh -c 'chroot "$1" env sh -c "apt-get source --only-source -d stumpwm=2:1.0.0-1 && mkdir -p /build/stumpwm-RUwlp7 && dpkg-source --no-check -x /*.dsc /build/stumpwm-RUwlp7/stumpwm-1.0.0 && chown -R builduser:builduser /build/stumpwm-RUwlp7"' exec /tmp/mmdebstrap.xhnIeEDSzV Reading package lists... NOTICE: 'stumpwm' packaging is maintained in the 'Git' version control system at: https://salsa.debian.org/common-lisp-team/stumpwm.git Please use: git clone https://salsa.debian.org/common-lisp-team/stumpwm.git to retrieve the latest (possibly unreleased) updates to the package. Need to get 215 kB of source archives. Get:1 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main stumpwm 2:1.0.0-1 (dsc) [2066 B] Get:2 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main stumpwm 2:1.0.0-1 (tar) [201 kB] Get:3 http://snapshot.notset.fr/archive/debian/20210814T212851Z bookworm/main stumpwm 2:1.0.0-1 (diff) [12.6 kB] Fetched 215 kB in 0s (699 kB/s) Download complete and in download only mode W: Download is performed unsandboxed as root as file 'stumpwm_1.0.0-1.dsc' couldn't be accessed by user '_apt'. - pkgAcquire::Run (13: Permission denied) dpkg-source: info: extracting stumpwm in /build/stumpwm-RUwlp7/stumpwm-1.0.0 dpkg-source: info: unpacking stumpwm_1.0.0.orig.tar.gz dpkg-source: info: unpacking stumpwm_1.0.0-1.debian.tar.xz dpkg-source: info: applying 04_default-to-x-terminal-emulator.diff dpkg-source: info: applying 05_default-to-x-www-browser.diff dpkg-source: info: applying 07_build-with-clisp.diff dpkg-source: info: applying 10_disable_debugger.diff I: running --customize-hook in shell: sh -c 'chroot "$1" env --unset=TMPDIR runuser builduser -c "cd /build/stumpwm-RUwlp7/stumpwm-1.0.0 && env DEB_BUILD_OPTIONS="parallel=4" LC_ALL="POSIX" SOURCE_DATE_EPOCH="1523696159" dpkg-buildpackage -uc -a amd64 --build=all"' exec /tmp/mmdebstrap.xhnIeEDSzV dpkg-buildpackage: info: source package stumpwm dpkg-buildpackage: info: source version 2:1.0.0-1 dpkg-buildpackage: info: source distribution unstable dpkg-buildpackage: info: source changed by Benda Xu dpkg-source --before-build stumpwm-1.0.0 fakeroot debian/rules clean dh clean debian/rules override_dh_auto_clean make[1]: Entering directory '/build/stumpwm-RUwlp7/stumpwm-1.0.0' dh_auto_clean rm -rf autom4te.cache Makefile make-image.lisp config.log config.status configure load-stumpwm.lisp .cache dh_clean make[1]: Leaving directory '/build/stumpwm-RUwlp7/stumpwm-1.0.0' dh_clean debian/rules build-indep dh build-indep dh_update_autotools_config -i dh_autoreconf -i debian/rules override_dh_auto_configure make[1]: Entering directory '/build/stumpwm-RUwlp7/stumpwm-1.0.0' dh_auto_configure -- --with-lisp=sbcl ./configure --build=x86_64-linux-gnu --prefix=/usr --includedir=\${prefix}/include --mandir=\${prefix}/share/man --infodir=\${prefix}/share/info --sysconfdir=/etc --localstatedir=/var --disable-silent-rules --libdir=\${prefix}/lib/x86_64-linux-gnu --libexecdir=\${prefix}/lib/x86_64-linux-gnu --runstatedir=/run --disable-maintainer-mode --disable-dependency-tracking --with-lisp=sbcl configure: WARNING: unrecognized options: --disable-silent-rules, --disable-maintainer-mode, --disable-dependency-tracking checking for sbcl... /usr/bin/sbcl checking for clisp... no checking for ccl... no checking for ecl... no checking for lw... no configure: Using sbcl at /usr/bin/sbcl checking for makeinfo... yes checking for xdpyinfo... no configure: creating ./config.status config.status: creating Makefile configure: WARNING: unrecognized options: --disable-silent-rules, --disable-maintainer-mode, --disable-dependency-tracking configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp configure: WARNING: unrecognized options: --disable-silent-rules, --disable-maintainer-mode, --disable-dependency-tracking configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp config.status: creating load-stumpwm.lisp configure: WARNING: unrecognized options: --disable-silent-rules, --disable-maintainer-mode, --disable-dependency-tracking make[1]: Leaving directory '/build/stumpwm-RUwlp7/stumpwm-1.0.0' debian/rules override_dh_auto_build-indep make[1]: Entering directory '/build/stumpwm-RUwlp7/stumpwm-1.0.0' XDG_CACHE_HOME=/build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache /usr/bin/make stumpwm.info make[2]: Entering directory '/build/stumpwm-RUwlp7/stumpwm-1.0.0' /usr/bin/sbcl --disable-debugger --eval "(progn (load \"load-stumpwm.lisp\") (load \"manual.lisp\"))" --eval "(progn (stumpwm::generate-manual) (sb-ext:quit))" This is SBCL 1.4.6.debian, 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. ; compiling file "/usr/share/common-lisp/source/cl-asdf/build/asdf.lisp" (written 05 APR 2018 08:01:39 PM): ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-asdf/build/asdf-tmpGHU3ALSV.fasl written ; compilation finished in 0:00:12.367 WARNING: System definition file #P"/usr/share/common-lisp/source/cl-ppcre/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file. ; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFPACKAGE :CL-PPCRE ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/packages-tmpAAURSO1.fasl written ; compilation finished in 0:00:00.003 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 28 OCT 2009 07:36:15 AM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFVAR *STANDARD-OPTIMIZE-SETTINGS* ...) ; compiling (DEFVAR *SPECIAL-OPTIMIZE-SETTINGS* ...) ; compiling (DEFVAR *EXTENDED-MODE-P* ...) ; compiling (DECLAIM (BOOLEAN *EXTENDED-MODE-P*)) ; compiling (DEFVAR *REGEX-CHAR-CODE-LIMIT* ...) ; compiling (DECLAIM (FIXNUM *REGEX-CHAR-CODE-LIMIT*)) ; compiling (DEFVAR *STRING* ...) ; compiling (DECLAIM (SIMPLE-STRING *STRING*)) ; compiling (DEFVAR *START-POS* ...) ; compiling (DECLAIM (FIXNUM *START-POS*)) ; compiling (DEFVAR *REAL-START-POS* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *END-POS* ...) ; compiling (DECLAIM (FIXNUM *END-POS*)) ; compiling (DEFVAR *REG-STARTS* ...) ; compiling (DECLAIM (SIMPLE-VECTOR *REG-STARTS*)) ; compiling (DEFVAR *REGS-MAYBE-START* ...) ; compiling (DECLAIM (SIMPLE-VECTOR *REGS-MAYBE-START*)) ; compiling (DEFVAR *REG-ENDS* ...) ; compiling (DECLAIM (SIMPLE-VECTOR *REG-ENDS*)) ; compiling (DEFVAR *END-STRING-POS* ...) ; compiling (DEFVAR *REP-NUM* ...) ; compiling (DECLAIM (FIXNUM *REP-NUM*)) ; compiling (DEFVAR *ZERO-LENGTH-NUM* ...) ; compiling (DECLAIM (FIXNUM *ZERO-LENGTH-NUM*)) ; compiling (DEFVAR *REPEAT-COUNTERS* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *LAST-POS-STORES* ...) ; compiling (DECLAIM (SIMPLE-VECTOR *LAST-POS-STORES*)) ; compiling (DEFVAR *USE-BMH-MATCHERS* ...) ; compiling (DEFVAR *OPTIMIZE-CHAR-CLASSES* ...) ; compiling (DEFVAR *PROPERTY-RESOLVER* ...) ; compiling (DEFVAR *ALLOW-QUOTING* ...) ; compiling (DEFVAR *ALLOW-NAMED-REGISTERS* ...) ; compiling (PUSHNEW :CL-PPCRE ...) ; compiling (DEFVAR *HYPERDOC-BASE-URI* ...) ; compiling (LET (#) ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/specials-tmp5GEXGEG5.fasl written ; compilation finished in 0:00:00.010 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 28 OCT 2009 07:36:15 AM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFMACRO DEFCONSTANT ...) ; compiling (DEFMACRO WITH-UNIQUE-NAMES ...) ; compiling (DEFMACRO WITH-REBINDING ...) ; compiling (DECLAIM (INLINE DIGIT-CHAR-P)) ; compiling (DEFUN DIGIT-CHAR-P ...) ; compiling (DECLAIM (INLINE WORD-CHAR-P)) ; compiling (DEFUN WORD-CHAR-P ...) ; compiling (DEFCONSTANT +WHITESPACE-CHAR-STRING+ ...) ; compiling (DEFUN WHITESPACEP ...) ; compiling (DEFMACRO MAYBE-COERCE-TO-SIMPLE-STRING ...) ; compiling (DECLAIM (INLINE NSUBSEQ)) ; compiling (DEFUN NSUBSEQ ...) ; compiling (DEFUN NORMALIZE-VAR-LIST ...) ; compiling (DEFUN STRING-LIST-TO-SIMPLE-STRING ...) ; file: /usr/share/common-lisp/source/cl-ppcre/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 CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a SIMPLE-BASE-STRING. ; compiling (DEFUN COMPLEMENT* ...) ; file: /usr/share/common-lisp/source/cl-ppcre/util.lisp ; in: DEFUN COMPLEMENT* ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/util-tmpAR3FSGEY.fasl written ; compilation finished in 0:00:00.086 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFVAR *SYNTAX-ERROR-STRING* ...) ; compiling (DEFINE-CONDITION PPCRE-ERROR ...) ; compiling (DEFINE-CONDITION PPCRE-SYNTAX-ERROR ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (DEFINE-CONDITION PPCRE-INVOCATION-ERROR ...) ; compiling (DEFMACRO SIGNAL-SYNTAX-ERROR* ...) ; compiling (DEFMACRO SIGNAL-SYNTAX-ERROR ...) ; compiling (DEFMACRO SIGNAL-INVOCATION-ERROR ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/errors-tmpJAIDFZTC.fasl written ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 17 SEP 2009 07:17:30 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFCONSTANT +PROBE-DEPTH+ ...) ; compiling (DEFUN MAKE-CHAR-VECTOR ...) ; compiling (DEFSTRUCT (CHARSET #) ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DECLAIM (INLINE MIX)) ; compiling (DEFUN MIX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; compiling (DECLAIM (INLINE COMPUTE-INDEX)) ; compiling (DEFUN COMPUTE-INDEX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-C::DIVISOR) ; ; 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. ; --> LET IF AND IF NOT IF ZEROP ; ==> ; (= REM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR ; (RATIONAL (-4611686018427387899) ; (4611686018427387899)) ; DOUBLE-FLOAT SINGLE-FLOAT), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET IF AND IF IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LET IF AND IF IF MINUSP ; ==> ; (< NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ==> ; (+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (RATIONAL (-4611686018427387900) ; (9223372036854775798))), not a RATIONAL. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; --> LET IF AND IF IF MINUSP ; ==> ; (< NUMBER 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> LET IF AND IF IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> LET IF ; ==> ; (+ REM SB-C::DIVISOR) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (RATIONAL (-4611686018427387899) ; (4611686018427387899)) ; DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM. ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT ; (RATIONAL (-4611686018427387900) ; (9223372036854775798))) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR ; (RATIONAL (-4611686018427387899) ; (4611686018427387899)) ; DOUBLE-FLOAT SINGLE-FLOAT), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT ; (RATIONAL (-4611686018427387900) ; (9223372036854775798))) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ==> ; (+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (RATIONAL (-4611686018427387900) ; (9223372036854775798))), not a FIXNUM. ; The result is a (VALUES ; (OR ; (RATIONAL (-4611686018427387899) (9223372036854775799)) ; DOUBLE-FLOAT SINGLE-FLOAT) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (RATIONAL (-4611686018427387900) ; (9223372036854775798))), not a FIXNUM. ; The result is a (VALUES ; (OR ; (RATIONAL (-4611686018427387899) (9223372036854775799)) ; DOUBLE-FLOAT SINGLE-FLOAT) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN IN-CHARSET-P ...) ; compiling (DEFUN ADD-TO-CHARSET ...) ; compiling (DEFUN %ADD-TO-CHARSET ...) ; compiling (DEFUN %ADD-TO-CHARSET/EXPAND ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; 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 ; 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) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (>= CL-PPCRE::NEW-SIZE 371370) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (LET* ((CL-PPCRE::OLD-VECTOR (CL-PPCRE::CHARSET-VECTOR SET)) ; (CL-PPCRE::NEW-SIZE (* 2 (LENGTH CL-PPCRE::OLD-VECTOR)))) ; (TAGBODY ; :RETRY ; (MULTIPLE-VALUE-BIND (CL-PPCRE::NEW-DEPTH CL-PPCRE::NEW-VECTOR) ; (IF (>= CL-PPCRE::NEW-SIZE 371370) ; (VALUES 0 #) ; (VALUES CL-PPCRE::+PROBE-DEPTH+ #)) ; (SETF # CL-PPCRE::NEW-DEPTH ; # CL-PPCRE::NEW-VECTOR) ; (FLET (#) ; (CL-PPCRE::TRY-ADD CHAR) ; (DOTIMES # #)))) ; (INCF (CL-PPCRE::CHARSET-COUNT SET)) ; T) ; ; note: doing signed word to integer coercion (cost 20) to NEW-SIZE ; compiling (DEFUN MAP-CHARSET ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MAP-CHARSET ; (ZEROP (DECF CL-PPCRE::N)) ; ==> ; (= (DECF CL-PPCRE::N) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (DECF CL-PPCRE::N) ; --> SETQ THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; ==> ; (SETQ CL-PPCRE::N (SB-IMPL::XSUBTRACT 1 CL-PPCRE::N)) ; ; note: doing signed word to integer coercion (cost 20) to N ; compiling (DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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::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 ...) ; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-= (cost 10) ; 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. ; 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. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/charset-tmp8V3J6PE9.fasl written ; compilation finished in 0:00:00.100 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 17 SEP 2009 07:17:30 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFSTRUCT (CHARMAP #) ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DECLAIM (INLINE IN-CHARMAP-P)) ; compiling (DEFUN IN-CHARMAP-P ...) ; compiling (DEFUN CHARMAP-CONTENTS ...) ; compiling (DEFUN MAKE-CHARMAP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charmap.lisp ; in: DEFUN MAKE-CHARMAP ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; compiling (DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charmap.lisp ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (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 ...) ; --> BLOCK LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-18) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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 ; ; 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 ...) ; --> BLOCK LET LET TAGBODY WHEN IF >= OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; --> BLOCK LET LET TAGBODY WHEN IF >= OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET LET TAGBODY WHEN IF >= OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; --> BLOCK LET LET TAGBODY WHEN IF >= OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-= (cost 10) ; 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. ; 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. ; (1- CL-PPCRE::END) ; ==> ; (- CL-PPCRE::END 1) ; ; 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 &REST T). ; 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 &REST T). ; 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 ...) ; --> BLOCK LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-18) ; ; 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. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/charmap-tmp9V47YWQF.fasl written ; compilation finished in 0:00:00.101 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 17 SEP 2009 07:17:30 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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::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 ...) ; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; --> BLOCK LET LET LET TAGBODY WHEN IF >= OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-= (cost 10) ; 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. ; 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. ; compiling (DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-C::DIVISOR) ; ; 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 ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP ; ==> ; (= REM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL (-2) (2)) DOUBLE-FLOAT ; SINGLE-FLOAT), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-C::DIVISOR) ; ; 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 ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP ; ==> ; (= REM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL (-2) (2)) DOUBLE-FLOAT ; SINGLE-FLOAT), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES ; ==> ; (+ SB-C::TRU 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (<= (HASH-TABLE-COUNT HASH-TABLE) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; --> IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES ; ==> ; (+ SB-C::TRU 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; --> IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/chartest-tmp9BN22RMA.fasl written ; compilation finished in 0:00:00.054 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DECLAIM (INLINE MAP-CHAR-TO-SPECIAL-CLASS)) ; compiling (DEFUN MAP-CHAR-TO-SPECIAL-CHAR-CLASS ...) ; compiling (DEFSTRUCT (LEXER #) ...) ; compiling (DEFUN MAKE-LEXER ...) ; compiling (DECLAIM (INLINE END-OF-STRING-P)) ; compiling (DEFUN END-OF-STRING-P ...) ; compiling (DECLAIM (INLINE LOOKING-AT-P)) ; compiling (DEFUN LOOKING-AT-P ...) ; compiling (DECLAIM (INLINE NEXT-CHAR-NON-EXTENDED)) ; compiling (DEFUN NEXT-CHAR-NON-EXTENDED ...) ; compiling (DEFUN NEXT-CHAR ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN NEXT-CHAR ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS ; "Comment group not closed.") ; ==> ; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS CL-PPCRE::ERROR-POS :FORMAT-CONTROL ; "Comment group not closed." :FORMAT-ARGUMENTS (LIST)) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DECLAIM (INLINE FAIL)) ; compiling (DEFUN FAIL ...) ; compiling (DEFUN GET-NUMBER ...) ; compiling (DECLAIM (INLINE TRY-NUMBER)) ; compiling (DEFUN TRY-NUMBER ...) ; compiling (DECLAIM (INLINE MAKE-CHAR-FROM-CODE)) ; compiling (DEFUN MAKE-CHAR-FROM-CODE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN MAKE-CHAR-FROM-CODE ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS ; "No character for hex-code ~X." NUMBER) ; --> ERROR ; ==> ; CL-PPCRE::ERROR-POS ; ; note: deleting unreachable code ; compiling (DEFUN UNESCAPE-CHAR ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN UNESCAPE-CHAR ; (CL-PPCRE::MAKE-CHAR-FROM-CODE NUMBER CL-PPCRE::ERROR-POS) ; --> BLOCK LET OR LET IF CL-PPCRE::SIGNAL-SYNTAX-ERROR* ERROR LIST CONS ; ==> ; NUMBER ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (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. ; compiling (DEFUN READ-CHAR-PROPERTY ...) ; compiling (DEFUN COLLECT-CHAR-CLASS ...) ; compiling (DEFUN MAYBE-PARSE-FLAGS ...) ; compiling (DEFUN GET-QUANTIFIER ...) ; compiling (DEFUN PARSE-REGISTER-NAME-AUX ...) ; compiling (DEFUN GET-TOKEN ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN GET-TOKEN ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR "End of string following '(?<'.") ; --> CL-PPCRE::SIGNAL-SYNTAX-ERROR* ERROR ; ==> ; "End of string following '(?<'." ; ; note: deleting unreachable code ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) ; "Character '~A' may not follow '(?<'." ; CL-PPCRE::NEXT-CHAR) ; ==> ; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS ; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) :FORMAT-CONTROL ; "Character '~A' may not follow '(?<'." :FORMAT-ARGUMENTS ; (LIST CL-PPCRE::NEXT-CHAR)) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) ; "Character '~A' may not follow '(?'." ; CL-PPCRE::NEXT-CHAR) ; ==> ; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS ; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) :FORMAT-CONTROL ; "Character '~A' may not follow '(?'." :FORMAT-ARGUMENTS ; (LIST CL-PPCRE::NEXT-CHAR)) ; ; note: doing signed word to integer coercion (cost 20) ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) ; "Quantifier '~A' not allowed." ; CL-PPCRE::NEXT-CHAR) ; ==> ; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS ; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) :FORMAT-CONTROL ; "Quantifier '~A' not allowed." :FORMAT-ARGUMENTS ; (LIST CL-PPCRE::NEXT-CHAR)) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DECLAIM (INLINE UNGET-TOKEN)) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DECLAIM (INLINE UNGET-TOKEN) ; (DECLAIM (INLINE CL-PPCRE::UNGET-TOKEN)) ; --> EVAL-WHEN ; ==> ; (SB-C::%PROCLAIM '(INLINE CL-PPCRE::UNGET-TOKEN) (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming CL-PPCRE::UNGET-TOKEN to be INLINE, but 1 call to it was previously ; compiled. A declaration of NOTINLINE at the call site will eliminate this ; warning, as will proclaiming and defining the function before its first ; potential use. ; compiling (DEFUN UNGET-TOKEN ...) ; compiling (DECLAIM (INLINE START-OF-SUBEXPR-P)) ; compiling (DEFUN START-OF-SUBEXPR-P ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/lexer-tmp1CXFJSK9.fasl written ; compilation finished in 0:00:00.276 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFUN GROUP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/parser.lisp ; in: DEFUN GROUP ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (+ CL-PPCRE::OPEN-PAREN-POS 2) ; "Opening paren has no matching closing paren.") ; ==> ; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS (+ CL-PPCRE::OPEN-PAREN-POS 2) ; :FORMAT-CONTROL "Opening paren has no matching closing paren." ; :FORMAT-ARGUMENTS (LIST)) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DEFUN GREEDY-QUANT ...) ; compiling (DEFUN QUANT ...) ; compiling (DEFUN SEQ ...) ; compiling (DEFUN REG-EXPR ...) ; compiling (DEFUN REVERSE-STRINGS ...) ; compiling (DEFUN PARSE-STRING ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/parser-tmpX4BRKI0R.fasl written ; compilation finished in 0:00:00.142 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 28 OCT 2009 07:36:15 AM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFCLASS REGEX ...) ; compiling (DEFCLASS SEQ ...) ; compiling (DEFCLASS ALTERNATION ...) ; compiling (DEFCLASS LOOKAHEAD ...) ; compiling (DEFCLASS LOOKBEHIND ...) ; compiling (DEFCLASS REPETITION ...) ; compiling (DEFCLASS REGISTER ...) ; compiling (DEFCLASS STANDALONE ...) ; compiling (DEFCLASS BACK-REFERENCE ...) ; compiling (DEFCLASS CHAR-CLASS ...) ; compiling (DEFCLASS STR ...) ; compiling (DEFCLASS ANCHOR ...) ; compiling (DEFCLASS EVERYTHING ...) ; compiling (DEFCLASS WORD-BOUNDARY ...) ; compiling (DEFCLASS BRANCH ...) ; compiling (DEFCLASS FILTER ...) ; compiling (DEFCLASS VOID ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR) ; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING) ; --> THE IF REPLACE MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/regex-class-tmpQ371UGST.fasl written ; compilation finished in 0:00:00.019 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFMETHOD LEN ...) ; compiling (DEFMETHOD STR ...) ; compiling (DEFMETHOD SKIP ...) ; compiling (DEFMETHOD START-OF-END-STRING-P ...) ; compiling (DEFGENERIC CASE-MODE ...) ; compiling (DEFMETHOD CASE-MODE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD CASE-MODE (STR T) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR)) ; ==> ; (= (CL-PPCRE::LEN CL-PPCRE::STR) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; compiling (DEFMETHOD CASE-MODE ...) ; compiling (DEFGENERIC COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFGENERIC REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFGENERIC EVERYTHINGP ...) ; compiling (DEFMETHOD EVERYTHINGP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; compiling (DEFMETHOD EVERYTHINGP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (DEFMETHOD CL-PPCRE::EVERYTHINGP ; ((CL-PPCRE::ALTERNATION CL-PPCRE::ALTERNATION)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (WITH-SLOTS (CL-PPCRE::CHOICES) ; CL-PPCRE::ALTERNATION ; (AND (= 1 (LENGTH CL-PPCRE::CHOICES)) ; (CL-PPCRE::EVERYTHINGP (FIRST CL-PPCRE::CHOICES))))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF = ; ==> ; (LENGTH (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::CHOICES)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFMETHOD EVERYTHINGP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (DEFMETHOD CL-PPCRE::EVERYTHINGP ; ((CL-PPCRE::REPETITION CL-PPCRE::REPETITION)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (WITH-SLOTS (CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM CL-PPCRE::REGEX) ; CL-PPCRE::REPETITION ; (AND CL-PPCRE::MAXIMUM (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; (CL-PPCRE::EVERYTHINGP CL-PPCRE::REGEX)))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF = ; --> (LAMBDA (#:G4 #:G3 #:G2) (DECLARE (TYPE NUMBER #:G4 #:G3 #:G2)) (IF (= #:G4 #:G3) (IF (= #:G3 #:G2) T NIL) NIL)) ; --> SB-C::%FUNCALL IF ; ==> ; (= #:G4 #:G3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF = ; --> (LAMBDA (#:G4 #:G3 #:G2) (DECLARE (TYPE NUMBER #:G4 #:G3 #:G2)) (IF (= #:G4 #:G3) (IF (= #:G3 #:G2) T NIL) NIL)) ; --> SB-C::%FUNCALL IF IF ; ==> ; (= #:G3 #:G2) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a 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 (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; 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 NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; compiling (DEFMETHOD EVERYTHINGP ...) ; compiling (DEFMETHOD EVERYTHINGP ...) ; compiling (DEFMETHOD EVERYTHINGP ...) ; compiling (DEFMETHOD EVERYTHINGP ...) ; compiling (DEFGENERIC REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; 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 ...) ; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-4 CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; --> IF ; ==> ; (= 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 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 (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; 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 NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; compiling (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; 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 GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; 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. ; compiling (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (DEFMETHOD CL-PPCRE::REGEX-LENGTH ; ((CL-PPCRE::REPETITION CL-PPCRE::REPETITION)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (WITH-SLOTS (CL-PPCRE::LEN CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; CL-PPCRE::REPETITION ; (IF (AND CL-PPCRE::LEN (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; NIL))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF ; ==> ; (* (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; The second argument is a NUMBER, not a INTEGER. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF ; ==> ; (EQL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM)) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF ; ==> ; (* (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFGENERIC REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; 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) ; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-4 CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; 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) ; --> BLOCK 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-8 #:LOOP-MAXMIN-7) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; 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. ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; 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))) ; --> LET LET IF <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; --> LET LET IF <= OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET LET IF <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; 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. ; --> LET LET IF <= OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-= (cost 10) ; 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. ; 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. ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; The second argument is a NUMBER, not a INTEGER. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFGENERIC COMPUTE-OFFSETS ...) ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; --> IF ; ==> ; (= 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 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 (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; 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 NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; 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 GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; 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. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (DEFMETHOD CL-PPCRE::COMPUTE-OFFSETS ; ((CL-PPCRE::REPETITION CL-PPCRE::REPETITION) CL-PPCRE::START-POS) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (WITH-SLOTS (CL-PPCRE::LEN CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; CL-PPCRE::REPETITION ; (IF (AND CL-PPCRE::LEN (EQ CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)) ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; NIL))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF + ; ==> ; (* (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; The second argument is a NUMBER, not a INTEGER. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF ; ==> ; (+ CL-PPCRE::START-POS ; (* (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ==> ; (+ CL-PPCRE::START-POS 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ==> ; (+ CL-PPCRE::START-POS 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmp2OWI3Q7U.fasl written ; compilation finished in 0:00:00.949 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFMACRO CASE-INSENSITIVE-MODE-P ...) ; compiling (DEFMACRO MULTI-LINE-MODE-P ...) ; compiling (DEFMACRO SINGLE-LINE-MODE-P ...) ; compiling (DEFUN SET-FLAG ...) ; compiling (DEFGENERIC RESOLVE-PROPERTY ...) ; compiling (DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION) ; ; 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)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION) ; ; 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) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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 ; (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) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION) ; ; 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) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-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) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION) ; ; 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) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; compiling (DEFUN MAYBE-SPLIT-REPETITION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DEFUN MAYBE-ACCUMULATE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN MAYBE-ACCUMULATE ; (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) ; --> PROGN 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-BASE-STRING. ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; 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-ARRAY CHARACTER (*)). ; 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 SINGLE-FLOAT (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; SINGLE-FLOAT (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; DOUBLE-FLOAT (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR. ; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 2) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 4) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 7) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 15) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 31) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 62) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 63) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY FIXNUM (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX SINGLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX DOUBLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-VECTOR. ; The second argument is a SEQUENCE, not a SIMPLE-VECTOR. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-VECTOR ; &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 float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; 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 float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DECLAIM (INLINE CONVERT-AUX)) ; compiling (DEFUN CONVERT-AUX ...) ; compiling (DEFGENERIC CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; 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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (1- (THE FIXNUM CL-PPCRE::TEST-CANDIDATE)) ; ==> ; (- (THE FIXNUM CL-PPCRE::TEST-CANDIDATE) 1) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; --> = IF ; ==> ; (= LENGTH 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (1- CL-PPCRE::MAXIMUM) ; ==> ; (- CL-PPCRE::MAXIMUM 1) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; 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. ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ==> ; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1 ; SB-C::START2 SB-C::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING ; SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING ; SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING ; SYMBOL CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING ; SYMBOL CHARACTER), not a SIMPLE-BASE-STRING. ; (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 NUMBER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; 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 ...) ; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; (+ CL-PPCRE::REG-INDEX 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (1- CL-PPCRE::BACKREF-NUMBER) ; ==> ; (- CL-PPCRE::BACKREF-NUMBER 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 &REST T). ; 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 &REST T). ; etc. ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFGENERIC CONVERT-SIMPLE-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...) ; compiling (DEFUN CONVERT ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; --> THE IF REPLACE MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/convert-tmp9KKTJMYV.fasl written ; compilation finished in 0:00:00.483 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFGENERIC FLATTEN ...) ; compiling (DEFMETHOD FLATTEN ...) ; compiling (DEFMETHOD FLATTEN ...) ; compiling (DEFMETHOD FLATTEN ...) ; compiling (DEFMETHOD FLATTEN ...) ; compiling (DEFGENERIC GATHER-STRINGS ...) ; compiling (DEFMETHOD GATHER-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/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) ; --> LET TRULY-THE SB-C::MAKE-ARRAY-HEADER* LET ; ==> ; (REPLACE SB-C::DATA SB-C::INITIAL-CONTENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a SIMPLE-BASE-STRING. ; (SETF (SUBSEQ CL-PPCRE::COLLECTOR CL-PPCRE::OLD-COLLECTOR-LENGTH) ; (CL-PPCRE::STR CL-PPCRE::ELEMENT) ; CL-PPCRE::SKIP (CL-PPCRE::SKIP CL-PPCRE::ELEMENT)) ; --> PROGN SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW1 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY SINGLE-FLOAT ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY DOUBLE-FLOAT ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-BIT-VECTOR. ; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR. ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 2) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 4) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 7) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 15) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 31) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 62) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 63) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY FIXNUM (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY FIXNUM (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX SINGLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX DOUBLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-VECTOR. ; The second argument is a SEQUENCE, not a SIMPLE-VECTOR. ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-VECTOR &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> SETQ THE ; ==> ; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH) ; ; 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. ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; compiling (DEFMETHOD GATHER-STRINGS ...) ; compiling (DEFMETHOD GATHER-STRINGS ...) ; compiling (DEFMETHOD GATHER-STRINGS ...) ; compiling (DEFGENERIC START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ==> ; (> (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; compiling (DEFMETHOD START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ==> ; (= (CL-PPCRE::LEN CL-PPCRE::REGEX) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; compiling (DEFGENERIC END-STRING-AUX ...) ; compiling (DEFMETHOD END-STRING-AUX ...) ; compiling (DEFMETHOD END-STRING-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; --> = IF ; ==> ; (= (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX 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) ; --> UNLESS IF = ; ==> ; (LENGTH SB-C::INITIAL-CONTENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> UNLESS IF ERROR ; ==> ; (LENGTH SB-C::INITIAL-CONTENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> LET TRULY-THE SB-C::MAKE-ARRAY-HEADER* LET ; ==> ; (REPLACE SB-C::DATA SB-C::INITIAL-CONTENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; CHARACTER ; (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING. ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; compiling (DEFMETHOD END-STRING-AUX ...) ; compiling (DEFMETHOD END-STRING-AUX ...) ; compiling (DEFMETHOD END-STRING-AUX ...) ; compiling (DEFUN END-STRING ...) ; compiling (DEFGENERIC COMPUTE-MIN-REST ...) ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; 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)) ; --> BLOCK 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 FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; 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. ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; 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)) ; --> LET LET IF <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; --> LET LET IF <= OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET LET IF <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; 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. ; --> LET LET IF <= OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-= (cost 10) ; 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. ; 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. ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; The second argument is a NUMBER, not a INTEGER. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, 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 ; &REST T). ; 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 float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ==> ; (+ CL-PPCRE::CURRENT-MIN-REST 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 &REST T). ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/optimize-tmpJU0JWO19.fasl written ; compilation finished in 0:00:00.183 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 17 SEP 2009 07:17:30 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DECLAIM (INLINE *STRING*= ...)) ; compiling (DEFUN *STRING*= ...) ; compiling (DEFUN *STRING*-EQUAL ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFUN *STRING*-EQUAL ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ==> ; (SB-INT:TWO-ARG-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. ; compiling (DEFGENERIC CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T) ; (FUNCALL CL-PPCRE::TEST-MATCHER (- CL-PPCRE::START-POS CL-PPCRE::LEN)) ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TEST-MATCHER) ; (- CL-PPCRE::START-POS CL-PPCRE::LEN)) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DEFMACRO INSERT-CHAR-CLASS-TESTER ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; 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 LET LAMBDA FUNCTION AND IF IF FUNCALL SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL #:TEST-FUNCTION5) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; 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) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-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. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ==> ; (SB-INT:TWO-ARG-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 SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a 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 ; ==> ; (SB-INT:TWO-ARG-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. ; (FUNCALL CL-PPCRE::NEXT-FN (+ CL-PPCRE::START-POS CL-PPCRE::LEN)) ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::NEXT-FN) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN)) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DECLAIM (INLINE WORD-BOUNDARY-P)) ; compiling (DEFUN WORD-BOUNDARY-P ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; 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 ; ==> ; (SB-INT:TWO-ARG-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. ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::FN) ; ; 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) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::NEXT-FN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/closures-tmpZX2WN8N4.fasl written ; compilation finished in 0:00:00.399 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFMACRO INCF-AFTER ...) ; compiling (DEFMACRO GREEDY-CONSTANT-LENGTH-CLOSURE ...) ; compiling (DEFUN CREATE-GREEDY-EVERYTHING-MATCHER ...) ; compiling (DEFGENERIC CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; compiling (DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/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 LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> BLOCK TAGBODY WHEN IF FUNCALL SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL #:TEST-FUNCTION25) ; ; 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) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-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. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ==> ; (SB-INT:TWO-ARG-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 ; ==> ; (SB-INT:TWO-ARG-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. ; (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)) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; 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)) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; 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 LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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 LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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 LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; compiling (DEFGENERIC CREATE-GREEDY-NO-ZERO-MATCHER ...) ; compiling (DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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)) ; --> LET* + AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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)) ; --> LET* SB-IMPL::XSUBTRACT AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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. ; compiling (DEFGENERIC CREATE-GREEDY-MATCHER ...) ; compiling (DEFMETHOD CREATE-GREEDY-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; 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) ; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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)) ; --> LET* + AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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)) ; --> LET* SB-IMPL::XSUBTRACT AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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. ; compiling (DEFMACRO NON-GREEDY-CONSTANT-LENGTH-CLOSURE ...) ; compiling (DEFGENERIC CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; compiling (DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; 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 LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL #:TEST-FUNCTION97) ; ; 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) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-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. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ==> ; (SB-INT:TWO-ARG-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 ; ==> ; (SB-INT:TWO-ARG-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. ; (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)) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; 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)) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; 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 LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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 LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; 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 &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; 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 &REST T). ; 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 &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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 LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; 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))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; compiling (DEFGENERIC CREATE-NON-GREEDY-NO-ZERO-MATCHER ...) ; compiling (DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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)) ; --> LET* + AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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)) ; --> LET* SB-IMPL::XSUBTRACT AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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. ; compiling (DEFGENERIC CREATE-NON-GREEDY-MATCHER ...) ; compiling (DEFMETHOD CREATE-NON-GREEDY-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; 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) ; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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)) ; --> LET* + AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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)) ; --> LET* SB-IMPL::XSUBTRACT AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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. ; compiling (DEFMACRO CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ...) ; compiling (DEFGENERIC CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...) ; compiling (DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; 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 LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA ; --> FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL #:TEST-FUNCTION35) ; ; 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)) ; ==> ; (SB-INT:TWO-ARG-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 ; ==> ; (SB-INT:TWO-ARG-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. ; compiling (DEFGENERIC CREATE-CONSTANT-REPETITION-MATCHER ...) ; compiling (DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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)) ; --> LET* + AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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)) ; --> LET* SB-IMPL::XSUBTRACT AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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) ; --> PROGN SETF LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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)) ; ==> ; (= (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX 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) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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)) ; --> LET* + AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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)) ; --> LET* SB-IMPL::XSUBTRACT AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; 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. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; 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. ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (DEFMETHOD CL-PPCRE::CREATE-MATCHER-AUX ; ((CL-PPCRE::REPETITION CL-PPCRE::REPETITION) CL-PPCRE::NEXT-FN) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (WITH-SLOTS (CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM CL-PPCRE::LEN ; CL-PPCRE::MIN-LEN CL-PPCRE::GREEDYP ; CL-PPCRE::CONTAINS-REGISTER-P) ; CL-PPCRE::REPETITION ; (COND ; ((AND CL-PPCRE::MAXIMUM #) ; (ERROR "Got REPETITION with MAXIMUM 0 (should not happen)")) ; ((AND CL-PPCRE::MAXIMUM #) ; (ERROR ; "Got REPETITION with MAXIMUM 1 and MINIMUM 1 (should not happen)")) ; ((AND # CL-PPCRE::LEN #) ; (CL-PPCRE::CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ; CL-PPCRE::REPETITION CL-PPCRE::NEXT-FN)) ; ((EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; (CL-PPCRE::CREATE-CONSTANT-REPETITION-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; ((AND CL-PPCRE::GREEDYP CL-PPCRE::LEN #) ; (CL-PPCRE::CREATE-GREEDY-CONSTANT-LENGTH-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; ((AND CL-PPCRE::GREEDYP #) ; (CL-PPCRE::CREATE-GREEDY-NO-ZERO-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; (CL-PPCRE::GREEDYP ; (CL-PPCRE::CREATE-GREEDY-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; ((AND CL-PPCRE::LEN # #) ; (CL-PPCRE::CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ; CL-PPCRE::REPETITION CL-PPCRE::NEXT-FN)) ; ((OR # #) ; (CL-PPCRE::CREATE-NON-GREEDY-NO-ZERO-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; (T ; (CL-PPCRE::CREATE-NON-GREEDY-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN))))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF ZEROP ; ==> ; (= (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF = ; --> (LAMBDA (#:G7 #:G6 #:G5) (DECLARE (TYPE NUMBER #:G7 #:G6 #:G5)) (IF (= #:G7 #:G6) (IF (= #:G6 #:G5) T NIL) NIL)) ; --> SB-C::%FUNCALL IF ; ==> ; (= #:G7 #:G6) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a 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 (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF = ; --> (LAMBDA (#:G7 #:G6 #:G5) (DECLARE (TYPE NUMBER #:G7 #:G6 #:G5)) (IF (= #:G7 #:G6) (IF (= #:G6 #:G5) T NIL) NIL)) ; --> SB-C::%FUNCALL IF IF ; ==> ; (= #:G6 #:G5) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF ; --> LET PLUSP > IF ; ==> ; (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MIN-LEN) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF IF ; --> IF IF PLUSP ; ==> ; (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF IF ; --> IF LET PLUSP > IF ; ==> ; (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MIN-LEN) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF = ; --> (LAMBDA (#:G7 #:G6 #:G5) (DECLARE (TYPE NUMBER #:G7 #:G6 #:G5)) (IF (= #:G7 #:G6) (IF (= #:G6 #:G5) T NIL) NIL)) ; --> SB-C::%FUNCALL IF ; ==> ; (= #:G7 #:G6) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF ; ==> ; (EQL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM)) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF ; ==> ; (EQL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM)) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF ; --> LET PLUSP > IF ; ==> ; (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MIN-LEN) 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF IF ; --> IF IF PLUSP ; ==> ; (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN) 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF IF ; --> IF LET PLUSP > IF ; ==> ; (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::MIN-LEN) 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmpOU81XRV0.fasl written ; compilation finished in 0:00:00.583 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFMACRO BMH-MATCHER-AUX ...) ; compiling (DEFUN CREATE-BMH-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> LAMBDA FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY ; --> UNLESS IF AND IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) ; (SCHAR CL-PPCRE::PATTERN CL-PPCRE::J)) ; ; 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 (SIMPLE-ARRAY * (*)). ; ; 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. ; (MAKE-ARRAY CL-PPCRE:*REGEX-CHAR-CODE-LIMIT* :ELEMENT-TYPE 'FIXNUM ; :INITIAL-ELEMENT CL-PPCRE::M) ; --> FILL LET* ; ==> ; (SB-KERNEL:UB64-BASH-FILL ; (LET ((SB-C::RES (LDB # #))) ; (DECLARE (TYPE WORD SB-C::RES)) ; SB-C::RES) ; SB-C::SEQ (SB-KERNEL:CHECK-BOUND SB-C::SEQ SB-C::BOUND SB-C::START) ; (- ; (IF SB-C::END ; (SB-KERNEL:CHECK-BOUND SB-C::SEQ SB-C::BOUND SB-C::END) ; SB-C::LEN) ; SB-C::START)) ; ; note: doing unsigned word to integer coercion (cost 20) ; compiling (DEFMACRO CHAR-SEARCHER-AUX ...) ; compiling (DEFUN CREATE-CHAR-SEARCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> LAMBDA FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; --> CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) ; 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. ; compiling (DECLAIM (INLINE NEWLINE-SKIPPER)) ; compiling (DEFUN NEWLINE-SKIPPER ...) ; compiling (DEFMACRO INSERT-ADVANCE-FN ...) ; compiling (DEFUN CREATE-SCANNER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF ; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY ; --> UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-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. ; (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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> LAMBDA 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 FLOAT. ; --> LAMBDA 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 ; 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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF ; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY ; --> UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-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. ; (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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (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)) ; --> LAMBDA 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 FLOAT. ; --> LAMBDA 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 ; 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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF ; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY ; --> UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-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. ; --> LAMBDA 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 FLOAT. ; --> LAMBDA 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 ; 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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF ; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY ; --> UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-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. ; (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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (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)) ; --> LAMBDA 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 FLOAT. ; --> LAMBDA 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 ; 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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF ; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY ; --> UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-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. ; --> LAMBDA 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 FLOAT. ; --> LAMBDA 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 ; 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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF ; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY ; --> UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-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. ; (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 # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (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)) ; --> LAMBDA 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 FLOAT. ; --> LAMBDA 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 ; 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 # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF ; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY ; --> UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-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. ; --> LAMBDA 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 FLOAT. ; --> LAMBDA 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 ; 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 # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF ; --> AND IF NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK LET LET TAGBODY ; --> UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-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. ; (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 # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (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 # ; #))))) ; --> LAMBDA 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 FLOAT. ; --> LAMBDA 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 ; 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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA 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 float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; --> LAMBDA 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 REAL, not a FIXNUM. ; --> LAMBDA 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 &REST T). ; 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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA 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 float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; --> LAMBDA 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 REAL, not a FIXNUM. ; --> LAMBDA 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 &REST T). ; 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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA 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 float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; --> LAMBDA 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 REAL, not a FIXNUM. ; --> LAMBDA 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 &REST T). ; 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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA 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 float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; --> LAMBDA 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 REAL, not a FIXNUM. ; --> LAMBDA 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 &REST T). ; 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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA 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 float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; --> LAMBDA 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 REAL, not a FIXNUM. ; --> LAMBDA 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 &REST T). ; 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)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA 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 float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; --> LAMBDA 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 REAL, not a FIXNUM. ; --> LAMBDA 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 &REST T). ; 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 # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA 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 float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; --> LAMBDA 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 REAL, not a FIXNUM. ; --> LAMBDA 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 &REST T). ; 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 # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF <= OR ; --> LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA 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 float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; --> LAMBDA 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 REAL, not a FIXNUM. ; --> LAMBDA 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 NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND 'CL-PPCRE::*END-STRING-POS* ; # {100B3D23A3}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF WHEN IF ; --> SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (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)) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND 'CL-PPCRE::*END-STRING-POS* ; # {100B3D63B3}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF WHEN IF ; --> SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (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)) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND 'CL-PPCRE::*END-STRING-POS* ; # {100B3D9CF3}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF WHEN IF ; --> SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (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)) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND 'CL-PPCRE::*END-STRING-POS* ; # {100B3DD873}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF WHEN IF ; --> SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (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)) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND 'CL-PPCRE::*END-STRING-POS* ; # {100B3E1453}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF WHEN IF ; --> SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (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)) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND 'CL-PPCRE::*END-STRING-POS* ; # {100B3E4FB3}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF WHEN IF ; --> SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (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 # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND 'CL-PPCRE::*END-STRING-POS* ; # {100B3E8AA3}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND ; (SETQ CL-PPCRE::TRY-POS (1+ CL-PPCRE::*END-STRING-POS*)) ; ; note: doing signed word to integer coercion (cost 20) to TRY-POS ; ; note: doing signed word to integer coercion (cost 20) to TRY-POS ; (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 # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF WHEN IF ; --> SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (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 # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND 'CL-PPCRE::*END-STRING-POS* ; # {100B3EC8A3}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; --> SB-C::%FUNCALL ; ==> ; 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 ; (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 # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF WHEN IF ; --> SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/scanner-tmpY2ML9CFA.fasl written ; compilation finished in 0:00:01.023 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 17 SEP 2009 07:17:30 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFGENERIC CREATE-SCANNER ...) ; compiling (DEFMETHOD CREATE-SCANNER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/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. ; compiling (DEFMETHOD CREATE-SCANNER ...) ; compiling (DEFMETHOD CREATE-SCANNER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ==> ; (> (CL-PPCRE::LEN CL-PPCRE::END-STRING) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a 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 FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ==> ; (> (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a 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 FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ==> ; (> (CL-PPCRE::LEN CL-PPCRE::END-STRING) 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ==> ; (> (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; compiling (DEFGENERIC SCAN ...) ; compiling (DEFMETHOD SCAN ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; 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 (SIMPLE-ARRAY * (*)). ; ; 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) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL ; (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING)) ; ; 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) ; --> LET COND IF THE COERCE THE IF REPLACE MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET COND IF THE COERCE THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; compiling (DEFMETHOD SCAN ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; 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 (SIMPLE-ARRAY * (*)). ; ; 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) ; --> LET COND IF THE COERCE THE IF REPLACE MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET COND IF THE COERCE THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; compiling (DEFMETHOD SCAN ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; 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 (SIMPLE-ARRAY * (*)). ; ; 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) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL ; (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE)) ; ; 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) ; --> LET COND IF THE COERCE THE IF REPLACE MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET COND IF THE COERCE THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; compiling (DEFINE-COMPILER-MACRO SCAN ...) ; compiling (DEFUN SCAN-TO-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN SCAN-TO-STRINGS ; (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) ; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET ; ==> ; (LENGTH #:G33) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET LET MIN LET ; ==> ; (LENGTH #:G34) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-COMPILER-MACRO SCAN-TO-STRINGS ...) ; compiling (DEFMACRO REGISTER-GROUPS-BIND ...) ; compiling (DEFMACRO DO-SCANS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; 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. ... {1007B7000F}> ; (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) ; compiling (DEFMACRO DO-MATCHES ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; 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, ; ... {1008006DCF}> ; (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) ; compiling (DEFMACRO DO-MATCHES-AS-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; 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... {10081A6B1F}> ; (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) ; compiling (DEFMACRO DO-REGISTER-GROUPS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; 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... {10083AB3EF}> ; (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) ; compiling (DEFUN ALL-MATCHES ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN ALL-MATCHES ; (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)) ; --> CL-PPCRE:DO-SCANS 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 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 (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK TAGBODY PROGN ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; (+ CL-PPCRE::MATCH-END 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (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)) ; --> CL-PPCRE:DO-SCANS 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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE THE IF ; --> REPLACE MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; --> CL-PPCRE:DO-SCANS 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 NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK TAGBODY PROGN ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; (+ CL-PPCRE::MATCH-END 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 &REST T). ; 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 &REST T). ; etc. ; compiling (DEFINE-COMPILER-MACRO ALL-MATCHES ...) ; compiling (DEFUN ALL-MATCHES-AS-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (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 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 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 (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET 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+ ; ==> ; (+ #:MATCH-END3 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (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 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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET 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 THE IF ; --> REPLACE MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET 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 THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; --> LET 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 NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> LET 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+ ; ==> ; (+ #:MATCH-END3 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 &REST T). ; 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 &REST T). ; etc. ; compiling (DEFINE-COMPILER-MACRO ALL-MATCHES-AS-STRINGS ...) ; compiling (DEFUN SPLIT ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN SPLIT ; (= 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 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 (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; 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 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 (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (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 ...) ; --> BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (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 (>= # 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))) ; --> 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 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 (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; 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+ ; ==> ; (+ CL-PPCRE::MATCH-END 1) ; ; 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 FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (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 (>= # 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))) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE THE IF REPLACE MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) ; --> OR LET IF = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (= 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 DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-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 DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (INCF CL-PPCRE::COUNTER) ; --> SETQ 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 ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; (> 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 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. ; (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 (>= # 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))) ; --> 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 NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; (+ CL-PPCRE::MATCH-END 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 &REST T). ; 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 &REST T). ; etc. ; compiling (DEFINE-COMPILER-MACRO SPLIT ...) ; compiling (DEFUN STRING-CASE-MODIFIER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; compiling (DEFGENERIC BUILD-REPLACEMENT-TEMPLATE ...) ; compiling (LET* (# #) ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING) ; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING :START ; CL-PPCRE::MATCH-START :END CL-PPCRE::MATCH-END) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%FIND-POSITION-IF ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::PREDICATE) SEQUENCE SB-C::FROM-END ; SB-C::START SB-C::END (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)) ; ; 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)) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-SCANNER CL-PPCRE::REPLACEMENT-STRING) ; (WHEN (< CL-PPCRE::FROM CL-PPCRE::MATCH-START) ; (PUSH ; (SUBSEQ CL-PPCRE::REPLACEMENT-STRING CL-PPCRE::FROM ; CL-PPCRE::MATCH-START) ; CL-PPCRE::COLLECTOR)) ; (LET* ((CL-PPCRE::PARSE-START ; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING ; :START CL-PPCRE::MATCH-START :END ; CL-PPCRE::MATCH-END)) ; (CL-PPCRE::TOKEN ; (IF CL-PPCRE::PARSE-START ; # ; #))) ; (WHEN (AND (NUMBERP CL-PPCRE::TOKEN) (< CL-PPCRE::TOKEN 0)) ; (CL-PPCRE::SIGNAL-INVOCATION-ERROR ; "Illegal substring ~S in replacement string." ; (SUBSEQ CL-PPCRE::REPLACEMENT-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END))) ; (PUSH CL-PPCRE::TOKEN CL-PPCRE::COLLECTOR)) ; (SETQ CL-PPCRE::FROM CL-PPCRE::MATCH-END)) ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a SIMPLE-BASE-STRING. ; (< 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 REAL, not a FIXNUM. ; (1- ; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START ; :JUNK-ALLOWED T)) ; ==> ; (- ; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START ; :JUNK-ALLOWED T) ; 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...) ; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...) ; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...) ; compiling (DEFUN BUILD-REPLACEMENT ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN BUILD-REPLACEMENT ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; --> BLOCK ; ==> ; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE ; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE ; :DISPLACED-INDEX-OFFSET CL-PPCRE::START) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (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) ; --> TRULY-THE ; ==> ; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G42 #:G43) ; ; 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)) ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TOKEN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TOKEN is not known to be a function ; (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) ; --> TRULY-THE ; ==> ; (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G46 #:G47) ; ; 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) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-PPCRE::TOKEN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TOKEN is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> BLOCK ; ==> ; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE ; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE ; :DISPLACED-INDEX-OFFSET CL-PPCRE::START) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; --> BLOCK ; ==> ; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE ; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE ; :DISPLACED-INDEX-OFFSET CL-PPCRE::START) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> BLOCK ; ==> ; (MAKE-ARRAY (- CL-PPCRE::END CL-PPCRE::START) :ELEMENT-TYPE ; (ARRAY-ELEMENT-TYPE SEQUENCE) :DISPLACED-TO SEQUENCE ; :DISPLACED-INDEX-OFFSET CL-PPCRE::START) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> BLOCK MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND) ; --> IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (1+ CL-PPCRE::TOKEN) ; ==> ; (+ CL-PPCRE::TOKEN 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; --> BLOCK MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> BLOCK MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, 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 ; &REST T). ; etc. ; compiling (DEFUN REPLACE-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REPLACE-AUX ; (FUNCALL ; (CL-PPCRE::STRING-CASE-MODIFIER CL-PPCRE::TARGET-STRING CL-PPCRE::FROM ; CL-PPCRE::TO CL-PPCRE::START CL-PPCRE::END) ; CL-PPCRE::CURR-REPLACEMENT) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL ; (CL-PPCRE::STRING-CASE-MODIFIER CL-PPCRE::TARGET-STRING CL-PPCRE::FROM ; CL-PPCRE::TO 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 ; compiling (DEFUN REGEX-REPLACE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; 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 (SIMPLE-ARRAY * (*)). ; ; 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. ; compiling (DEFINE-COMPILER-MACRO REGEX-REPLACE ...) ; compiling (DEFUN REGEX-REPLACE-ALL ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REGEX-REPLACE-ALL ; (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)) ; --> 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 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 (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; 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+ ; ==> ; (+ CL-PPCRE::MATCH-END 1) ; ; 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. ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (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)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE THE IF REPLACE MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; --> 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 NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; (+ CL-PPCRE::MATCH-END 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 &REST T). ; 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 &REST T). ; etc. ; compiling (DEFINE-COMPILER-MACRO REGEX-REPLACE-ALL ...) ; compiling (DEFMACRO REGEX-APROPOS-AUX ...) ; compiling (DEFUN REGEX-APROPOS-LIST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; 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 (SAFETY 0) (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... {10027BE9DF}> ; (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)))) ; --> PROGN 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)) ; #<(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... {10027BE9DF}> ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (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)) ; compiling (DEFUN PRINT-SYMBOL-INFO ...) ; compiling (DEFUN REGEX-APROPOS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; 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 ... {1002D02DDF}> ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (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)) ; --> PROGN 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)) ; #<(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 ... {1002D02DDF}> ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (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)) ; compiling (LET* (# #) ...) ; compiling (LET* (# # ...) ...) ; compiling (LET* (# # ...) ...) ; compiling (DEFUN PARSE-TREE-SYNONYM ...) ; compiling (DEFUN (SETF PARSE-TREE-SYNONYM) ...) ; compiling (DEFMACRO DEFINE-PARSE-TREE-SYNONYM ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/api-tmpX2JYJDQE.fasl written ; compilation finished in 0:00:00.866 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :COMMON-LISP-USER) ; compiling (DEFPACKAGE XLIB ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/package-tmpOPCILR65.fasl written ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 14 MAY 2016 06:47:26 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DECLAIM (DECLARATION CLX-VALUES)) ; compiling (DECLAIM (DECLARATION ARGLIST)) ; compiling (DECLAIM (DECLARATION INDENTATION)) ; compiling (DEFMACRO WITH-VECTOR ...) ; compiling (DEFMACRO WITHIN-DEFINITION ...) ; compiling (DEFCONSTANT +CLX-CACHED-TYPES+ ...) ; compiling (DEFMACRO RESOURCE-ID-MAP-TEST ...) ; compiling (DEFMACRO ATOM-CACHE-MAP-TEST ...) ; compiling (DEFMACRO KEYSYM->CHARACTER-MAP-TEST ...) ; compiling (ECASE SB-C:*BACKEND-BYTE-ORDER* ...) ; compiling (DEFTYPE BUFFER-BYTES ...) ; compiling (DEFTYPE ARRAY-INDEX ...) ; compiling (DEFUN MAKE-INDEX-TYPED ...) ; compiling (DEFUN MAKE-INDEX-OP ...) ; compiling (DEFMACRO INDEX+ ...) ; compiling (DEFMACRO INDEX-LOGAND ...) ; compiling (DEFMACRO INDEX-LOGIOR ...) ; compiling (DEFMACRO INDEX- ...) ; compiling (DEFMACRO INDEX* ...) ; compiling (DEFMACRO INDEX1+ ...) ; compiling (DEFMACRO INDEX1- ...) ; compiling (DEFMACRO INDEX-INCF ...) ; compiling (DEFMACRO INDEX-DECF ...) ; compiling (DEFMACRO INDEX-MIN ...) ; compiling (DEFMACRO INDEX-MAX ...) ; compiling (DEFMACRO INDEX-FLOOR ...) ; compiling (DEFMACRO INDEX-CEILING ...) ; compiling (DEFMACRO INDEX-TRUNCATE ...) ; compiling (DEFMACRO INDEX-MOD ...) ; compiling (DEFMACRO INDEX-ASH ...) ; compiling (DEFMACRO INDEX-PLUSP ...) ; compiling (DEFMACRO INDEX-ZEROP ...) ; compiling (DEFMACRO INDEX-EVENP ...) ; compiling (DEFMACRO INDEX-ODDP ...) ; compiling (DEFMACRO INDEX> ...) ; compiling (DEFMACRO INDEX= ...) ; compiling (DEFMACRO INDEX< ...) ; compiling (DEFMACRO INDEX>= ...) ; compiling (DEFMACRO INDEX<= ...) ; compiling (DEFCONSTANT +REPLYSIZE+ ...) ; compiling (DEFVAR *EMPTY-BYTES* ...) ; compiling (DECLAIM (TYPE BUFFER-BYTES ...)) ; compiling (DEFSTRUCT (REPLY-BUFFER # ...) ...) ; compiling (DEFCONSTANT +BUFFER-TEXT16-SIZE+ ...) ; compiling (DEFTYPE BUFFER-TEXT16 ...) ; compiling (DEFPARAMETER *XLIB-PACKAGE* ...) ; compiling (DEFUN XINTERN ...) ; compiling (DEFPARAMETER *KEYWORD-PACKAGE* ...) ; compiling (DEFUN KINTERN ...) ; compiling (DEFVAR *DEF-CLX-CLASS-USE-DEFCLASS* ...) ; compiling (DEFMACRO DEF-CLX-CLASS ...) ; compiling (DEF-CLX-CLASS (BUFFER # ...) ...) ; compiling (DEFCONSTANT +IMAGE-BIT-LSB-FIRST-P+ ...) ; compiling (DEFCONSTANT +IMAGE-BYTE-LSB-FIRST-P+ ...) ; compiling (DEFCONSTANT +IMAGE-UNIT+ ...) ; compiling (DEFCONSTANT +IMAGE-PAD+ ...) ; compiling (DEFCONSTANT +X-UNIX-SOCKET-PATH+ ...) ; compiling (DEFUN UNIX-SOCKET-PATH-FROM-HOST ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/depdefs-tmpRV9F8A9A.fasl written ; compilation finished in 0:00:00.401 ; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 14 MAY 2016 06:47:26 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (PUSHNEW :CLX ...) ; compiling (PUSHNEW :XLIB ...) ; compiling (DEFPARAMETER *VERSION* ...) ; compiling (PUSHNEW :CLX-MIT-R4 ...) ; compiling (PUSHNEW :CLX-MIT-R5 ...) ; compiling (DEFPARAMETER *PROTOCOL-MAJOR-VERSION* ...) ; compiling (DEFPARAMETER *PROTOCOL-MINOR-VERSION* ...) ; compiling (DEFPARAMETER *X-TCP-PORT* ...) ; compiling (DEFTYPE GENERALIZED-BOOLEAN ...) ; compiling (DEFTYPE CARD32 ...) ; compiling (DEFTYPE CARD29 ...) ; compiling (DEFTYPE CARD24 ...) ; compiling (DEFTYPE INT32 ...) ; compiling (DEFTYPE CARD16 ...) ; compiling (DEFTYPE INT16 ...) ; compiling (DEFTYPE CARD8 ...) ; compiling (DEFTYPE INT8 ...) ; compiling (DEFTYPE CARD4 ...) ; compiling (DEFTYPE CHAR8 ...) ; compiling (DEFTYPE RGB-VAL ...) ; compiling (DEFTYPE ANGLE ...) ; compiling (DEFTYPE MASK32 ...) ; compiling (DEFTYPE MASK16 ...) ; compiling (DEFTYPE PIXEL ...) ; compiling (DEFTYPE IMAGE-DEPTH ...) ; compiling (DEFTYPE RESOURCE-ID ...) ; compiling (DEFTYPE KEYSYM ...) ; compiling (DEF-CLX-CLASS (COLOR # ...) ...) ; compiling (DEFUN PRINT-COLOR ...) ; compiling (DEFUN MAKE-COLOR ...) ; compiling (DEFUN COLOR-RGB ...) ; compiling (DEF-CLX-CLASS (BITMAP-FORMAT # ...) ...) ; compiling (DEFUN PRINT-BITMAP-FORMAT ...) ; compiling (DEF-CLX-CLASS (PIXMAP-FORMAT # ...) ...) ; compiling (DEFUN PRINT-PIXMAP-FORMAT ...) ; compiling (DEFPARAMETER *ATOM-CACHE-SIZE* ...) ; compiling (DEFPARAMETER *RESOURCE-ID-MAP-SIZE* ...) ; compiling (DEF-CLX-CLASS (DISPLAY # ...) ...) ; compiling (DEFUN PRINT-DISPLAY-NAME ...) ; compiling (DEFUN PRINT-DISPLAY ...) ; compiling (DEF-CLX-CLASS (DRAWABLE # ...) ...) ; compiling (DEFUN PRINT-DRAWABLE ...) ; compiling (DEF-CLX-CLASS (WINDOW # ...)) ; compiling (DEF-CLX-CLASS (PIXMAP # ...)) ; compiling (DEF-CLX-CLASS (VISUAL-INFO # ...) ...) ; compiling (DEFUN PRINT-VISUAL-INFO ...) ; compiling (DEF-CLX-CLASS (COLORMAP # ...) ...) ; compiling (DEFUN PRINT-COLORMAP ...) ; compiling (DEF-CLX-CLASS (CURSOR # ...) ...) ; compiling (DEFUN PRINT-CURSOR ...) ; compiling (DEFTYPE XATOM ...) ; compiling (DEFCONSTANT +PREDEFINED-ATOMS+ ...) ; compiling (DEFTYPE STRINGABLE ...) ; compiling (DEFTYPE FONTABLE ...) ; compiling (DEFTYPE TIMESTAMP ...) ; compiling (DEFCONSTANT +BIT-GRAVITY-VECTOR+ ...) ; compiling (DEFTYPE BIT-GRAVITY ...) ; compiling (DEFCONSTANT +WIN-GRAVITY-VECTOR+ ...) ; compiling (DEFPARAMETER *PROTOCOL-FAMILIES* ...) ; compiling (DEFTYPE WIN-GRAVITY ...) ; compiling (DEFTYPE GRAB-STATUS ...) ; compiling (DEFTYPE ALIST ...) ; compiling (DEFTYPE CLX-LIST ...) ; compiling (DEFTYPE CLX-SEQUENCE ...) ; compiling (DEFTYPE REPEAT-SEQ ...) ; compiling (DEFTYPE POINT-SEQ ...) ; compiling (DEFTYPE SEG-SEQ ...) ; compiling (DEFTYPE RECT-SEQ ...) ; compiling (DEFTYPE ARC-SEQ ...) ; compiling (DEFTYPE GCONTEXT-STATE ...) ; compiling (DEF-CLX-CLASS (GCONTEXT # ...) ...) ; compiling (DEFUN PRINT-GCONTEXT ...) ; compiling (DEFCONSTANT +EVENT-MASK-VECTOR+ ...) ; compiling (DEFTYPE EVENT-MASK-CLASS ...) ; compiling (DEFTYPE EVENT-MASK ...) ; compiling (DEFCONSTANT +POINTER-EVENT-MASK-VECTOR+ ...) ; compiling (DEFTYPE POINTER-EVENT-MASK-CLASS ...) ; compiling (DEFTYPE POINTER-EVENT-MASK ...) ; compiling (DEFCONSTANT +DEVICE-EVENT-MASK-VECTOR+ ...) ; compiling (DEFTYPE DEVICE-EVENT-MASK-CLASS ...) ; compiling (DEFTYPE DEVICE-EVENT-MASK ...) ; compiling (DEFCONSTANT +STATE-MASK-VECTOR+ ...) ; compiling (DEFTYPE MODIFIER-KEY ...) ; compiling (DEFTYPE MODIFIER-MASK ...) ; compiling (DEFTYPE STATE-MASK-KEY ...) ; compiling (DEFCONSTANT +GCONTEXT-COMPONENTS+ ...) ; compiling (DEFTYPE GCONTEXT-KEY ...) ; compiling (DEFTYPE EVENT-KEY ...) ; compiling (DEFTYPE ERROR-KEY ...) ; compiling (DEFTYPE DRAW-DIRECTION ...) ; compiling (DEFCONSTANT +BOOLE-VECTOR+ ...) ; compiling (DEFTYPE BOOLE-CONSTANT ...) ; compiling (DEF-CLX-CLASS (SCREEN # ...) ...) ; compiling (DEFUN PRINT-SCREEN ...) ; compiling (DEFUN SCREEN-ROOT-VISUAL ...) ; compiling (DEFTYPE FONT-PROPS ...) ; compiling (DEF-CLX-CLASS (FONT-INFO # ...) ...) ; compiling (DEF-CLX-CLASS (FONT # ...) ...) ; compiling (DEFUN PRINT-FONT ...) ; compiling (DEFUN FONT-ID ...) ; compiling (DEFUN FONT-FONT-INFO ...) ; compiling (DEFUN FONT-CHAR-INFOS ...) ; compiling (DEFUN MAKE-FONT ...) ; compiling (MAKE-FONT-INFO-ACCESSORS IGNORE ...) ; compiling (DEFUN FONT-PROPERTY ...) ; compiling (MAKE-MUMBLE-EQUAL WINDOW) ; compiling (MAKE-MUMBLE-EQUAL PIXMAP) ; compiling (MAKE-MUMBLE-EQUAL CURSOR) ; compiling (MAKE-MUMBLE-EQUAL FONT) ; compiling (MAKE-MUMBLE-EQUAL GCONTEXT) ; compiling (MAKE-MUMBLE-EQUAL COLORMAP) ; compiling (MAKE-MUMBLE-EQUAL DRAWABLE) ; compiling (DEFUN ENCODE-MASK ...) ; compiling (DEFUN DECODE-MASK ...) ; compiling (DEFUN ENCODE-EVENT-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ==> ; XLIB:EVENT-MASK ; ; note: deleting unreachable code ; compiling (DEFUN MAKE-EVENT-MASK ...) ; compiling (DEFUN MAKE-EVENT-KEYS ...) ; compiling (DEFUN ENCODE-DEVICE-EVENT-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-DEVICE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) ; ==> ; XLIB:DEVICE-EVENT-MASK ; ; note: deleting unreachable code ; compiling (DEFUN ENCODE-MODIFIER-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ==> ; XLIB:MODIFIER-MASK ; ; note: deleting unreachable code ; compiling (DEFUN ENCODE-STATE-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-STATE-MASK ; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK ; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) ; ==> ; XLIB::STATE-MASK ; ; note: deleting unreachable code ; compiling (DEFUN MAKE-STATE-MASK ...) ; compiling (DEFUN MAKE-STATE-KEYS ...) ; compiling (DEFUN ENCODE-POINTER-EVENT-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-POINTER-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) ; ==> ; XLIB:POINTER-EVENT-MASK ; ; note: deleting unreachable code ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/clx-tmpK2ZAJT4I.fasl written ; compilation finished in 0:00:00.499 ; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 14 MAY 2016 06:47:26 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (PROCLAIM (QUOTE #)) ; compiling (DEFPARAMETER *OUTPUT-BUFFER-SIZE* ...) ; compiling (DEFPARAMETER *REPLY-TIMEOUT* ...) ; compiling (DEFCONSTANT +WORD-0+ ...) ; compiling (DEFCONSTANT +WORD-1+ ...) ; compiling (DEFCONSTANT +LONG-0+ ...) ; compiling (DEFCONSTANT +LONG-1+ ...) ; compiling (DEFCONSTANT +LONG-2+ ...) ; compiling (DEFCONSTANT +LONG-3+ ...) ; compiling (DEFCONSTANT +BUFFER-SPEED+ ...) ; compiling (DEFCONSTANT +BUFFER-SAFETY+ ...) ; compiling (DEFCONSTANT +BUFFER-DEBUG+ ...) ; compiling (DEFUN DECLARE-BUFMAC ...) ; compiling (DEFUN DECLARE-BUFFUN ...) ; compiling (DECLAIM (INLINE CARD8->INT8 ...)) ; compiling (DEFUN CARD8->INT8 ...) ; compiling (DEFUN INT8->CARD8 ...) ; compiling (DEFUN CARD16->INT16 ...) ; compiling (DEFUN INT16->CARD16 ...) ; compiling (DEFUN CARD32->INT32 ...) ; compiling (DEFUN INT32->CARD32 ...) ; compiling (DECLAIM (INLINE AREF-CARD8 ...)) ; compiling (DEFUN AREF-CARD8 ...) ; compiling (DEFUN ASET-CARD8 ...) ; compiling (DEFUN AREF-INT8 ...) ; compiling (DEFUN ASET-INT8 ...) ; compiling (DEFUN AREF-CARD16 ...) ; compiling (DEFUN ASET-CARD16 ...) ; compiling (DEFUN AREF-INT16 ...) ; compiling (DEFUN ASET-INT16 ...) ; compiling (DEFUN AREF-CARD32 ...) ; compiling (DEFUN ASET-CARD32 ...) ; compiling (DEFUN AREF-INT32 ...) ; compiling (DEFUN ASET-INT32 ...) ; compiling (DEFUN AREF-CARD29 ...) ; compiling (DEFUN ASET-CARD29 ...) ; compiling (DEFSETF AREF-CARD8 ...) ; compiling (DEFSETF AREF-INT8 ...) ; compiling (DEFSETF AREF-CARD16 ...) ; compiling (DEFSETF AREF-INT16 ...) ; compiling (DEFSETF AREF-CARD32 ...) ; compiling (DEFSETF AREF-INT32 ...) ; compiling (DEFSETF AREF-CARD29 ...) ; compiling (DEFUN RGB-VAL->CARD16 ...) ; compiling (DEFUN CARD16->RGB-VAL ...) ; compiling (DEFUN RADIANS->INT16 ...) ; compiling (DEFUN INT16->RADIANS ...) ; compiling (DEFTYPE ANGLE ...) ; compiling (DEFUN ANGLEP ...) ; compiling (DECLAIM (INLINE CHAR->CARD8 ...)) ; compiling (CHAR-TRANSLATORS) ; compiling (DEFUN MAKE-PROCESS-LOCK ...) ; compiling (DEFMACRO HOLDING-LOCK ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; 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)) ; (IF XLIB::TIMEOUT ; `(IF ,XLIB::TIMEOUT ; (HANDLER-CASE ; (WITH-TIMEOUT ,XLIB::TIMEOUT ; #) ; (TIMEOUT NIL NIL)) ; (SB-THREAD:WITH-RECURSIVE-LOCK (,XLIB::LOCK) ; ,@XLIB::BODY)) ; `(SB-THREAD:WITH-RECURSIVE-LOCK (,XLIB::LOCK) ; ,@XLIB::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (LOCK DISPLAY &OPTIONAL ; (WHOSTATE "CLX wait") &KEY ; TIMEOUT) ; compiling (DEFMACRO WITHOUT-ABORTS ...) ; compiling (DECLAIM (INLINE YIELD)) ; compiling (DEFUN YIELD ...) ; compiling (DEFUN PROCESS-BLOCK ...) ; compiling (DECLAIM (INLINE PROCESS-WAKEUP)) ; compiling (DEFUN PROCESS-WAKEUP ...) ; compiling (DECLAIM (INLINE CURRENT-PROCESS)) ; compiling (DEFUN CURRENT-PROCESS ...) ; compiling (DEFVAR *WITHOUT-INTERRUPTS-SIC-LOCK* ...) ; compiling (DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (DEFVAR *CONDITIONAL-STORE-LOCK* ...) ; compiling (DEFMACRO CONDITIONAL-STORE ...) ; compiling (DEFMACRO WRAP-BUF-OUTPUT ...) ; compiling (DEFMACRO WRAP-BUF-INPUT ...) ; compiling (DEFUN OPEN-X-STREAM ...) ; compiling (DEFUN BUFFER-READ-DEFAULT ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN BUFFER-READ-DEFAULT ; (SB-SYS:READ-N-BYTES (XLIB::DISPLAY-INPUT-STREAM XLIB:DISPLAY) VECTOR ; XLIB::START (- XLIB::END XLIB::START)) ; --> BLOCK IF LET* SB-IMPL::EOF-OR-LOSE IF AND IF ; ==> ; (< SB-IMPL::READ-END SB-IMPL::END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (INTEGER -4611686018427387901 ; 9223372036854775802), not a FIXNUM. ; --> BLOCK IF LET* ; ==> ; (STREAM-READ-SEQUENCE STREAM SB-IMPL::BUFFER SB-IMPL::START SB-IMPL::END) ; ; note: doing signed word to integer coercion (cost 20) from SB-IMPL::END ; --> BLOCK IF LET* SB-IMPL::EOF-OR-LOSE IF AND IF ; ==> ; (< SB-IMPL::READ-END SB-IMPL::END) ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-< ; compiling (DEFUN BUFFER-WRITE-DEFAULT ...) ; compiling (DEFUN BUFFER-FORCE-OUTPUT-DEFAULT ...) ; compiling (DEFUN BUFFER-CLOSE-DEFAULT ...) ; compiling (DEFUN BUFFER-INPUT-WAIT-DEFAULT ...) ; compiling (DEFUN BUFFER-LISTEN-DEFAULT ...) ; compiling (DEFMACRO WITH-STACK-LIST ...) ; compiling (DEFMACRO WITH-STACK-LIST* ...) ; compiling (DECLAIM (INLINE BUFFER-REPLACE)) ; compiling (DEFUN BUFFER-REPLACE ...) ; compiling (DEFMACRO WITH-GCONTEXT-BINDINGS ...) ; compiling (DEFCONSTANT +TYPE-CHECK?+ ...) ; compiling (DEFMACRO TYPE? ...) ; compiling (DEFUN X-TYPE-ERROR ...) ; compiling (DEFUN DEFAULT-ERROR-HANDLER ...) ; compiling (DEFUN X-ERROR ...) ; compiling (DEFUN X-CERROR ...) ; compiling (DEFINE-CONDITION X-ERROR ...) ; compiling (DEFUN HOST-ADDRESS ...) ; compiling (DEFMACRO USE-CLOSURES ...) ; compiling (DEFUN CLX-MACROEXPAND ...) ; compiling (DEFUN GETENV ...) ; compiling (DEFUN GET-HOST-NAME ...) ; compiling (DEFUN HOMEDIR-FILE-PATHNAME ...) ; compiling (DEFUN DEFAULT-RESOURCES-PATHNAME ...) ; compiling (DEFUN RESOURCES-PATHNAME ...) ; compiling (DEFUN AUTHORITY-PATHNAME ...) ; compiling (DEFUN GET-DEFAULT-DISPLAY ...) ; compiling (DEFUN GC-CLEANUP ...) ; compiling (DEFUN DEFAULT-KEYSYM-TRANSLATE ...) ; compiling (DEFTYPE PIXARRAY-1-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-4-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-8-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-16-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-24-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-32-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-1 ...) ; compiling (DEFTYPE PIXARRAY-4 ...) ; compiling (DEFTYPE PIXARRAY-8 ...) ; compiling (DEFTYPE PIXARRAY-16 ...) ; compiling (DEFTYPE PIXARRAY-24 ...) ; compiling (DEFTYPE PIXARRAY-32 ...) ; compiling (DEFTYPE PIXARRAY ...) ; compiling (DEFTYPE BITMAP ...) ; compiling (DEFMACRO WITH-UNDERLYING-SIMPLE-VECTOR ...) ; compiling (DEFMACRO READ-IMAGE-LOAD-BYTE ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFMACRO READ-IMAGE-LOAD-BYTE ; (- 7 POSITION) ; ==> ; POSITION ; ; note: deleting unreachable code ; compiling (DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ; (REVERSE XLIB::BYTES) ; ==> ; XLIB::BYTES ; ; note: deleting unreachable code ; compiling (DEFMACRO WRITE-IMAGE-LOAD-BYTE ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE ; (- XLIB::INTEGER-SIZE 8 POSITION) ; --> - - ; ==> ; XLIB::INTEGER-SIZE ; ; note: deleting unreachable code ; compiling (DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ; (REVERSE XLIB::BYTES) ; ==> ; XLIB::BYTES ; ; note: deleting unreachable code ; compiling (DEFUN FAST-READ-PIXARRAY-24 ...) ; compiling (DEFUN PIXARRAY-ELEMENT-SIZE ...) ; compiling (DEFUN COPY-BIT-RECT ...) ; compiling (DEFUN FAST-READ-PIXARRAY-USING-BITBLT ...) ; compiling (DEFUN FAST-READ-PIXARRAY ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN FAST-READ-PIXARRAY ; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) ; ==> ; XLIB::BBUF ; ; note: deleting unreachable code ; compiling (DEFUN FAST-WRITE-PIXARRAY-24 ...) ; compiling (DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ; (ARRAY-DIMENSION XLIB:PIXARRAY 1) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; compiling (DEFUN FAST-WRITE-PIXARRAY ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN FAST-WRITE-PIXARRAY ; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...) ; ==> ; XLIB::BBUF ; ; note: deleting unreachable code ; compiling (DEFUN FAST-COPY-PIXARRAY ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/dependent-tmpUX5S4ADN.fasl written ; compilation finished in 0:00:00.515 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/macros.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFMACRO TYPE-CHECK ...) ; compiling (DEFVAR *REQUIRED-ARG-DUMMY*) ; compiling (DEFMACRO REQUIRED-ARG ...) ; compiling (DEFMACRO LROUND ...) ; compiling (DEFMACRO WROUND ...) ; compiling (DEFUN INDEX-INCREMENT ...) ; compiling (DEFUN GETIFY ...) ; compiling (DEFUN PUTIFY ...) ; compiling (DEFMACRO DEFINE-ACCESSOR ...) ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFMACRO DEFINE-ACCESSOR ; (LET ((XLIB::PREDICATING-PUT (THIRD XLIB::GET-PUT-MACROS))) ; (WHEN XLIB::PREDICATING-PUT ; `((SETF # T) ; (DEFMACRO ,(XLIB::PUTIFY XLIB::NAME T) ,(CAR XLIB::PREDICATING-PUT) ; ,@(CDR XLIB::PREDICATING-PUT))))) ; ; note: deleting unreachable code ; in: DEFMACRO DEFINE-ACCESSOR => DEFMACRO ,(PUTIFY NAME T) ; (XLIB::PUTIFY XLIB::NAME T) ; ==> ; XLIB::NAME ; ; note: deleting unreachable code ; in: DEFMACRO DEFINE-ACCESSOR ; (WHEN XLIB::PREDICATING-PUT ; `((SETF (GET ',XLIB::NAME 'XLIB::PREDICATING-PUT) T) ; (DEFMACRO ,(XLIB::PUTIFY XLIB::NAME T) ,(CAR XLIB::PREDICATING-PUT) ; ,@(CDR XLIB::PREDICATING-PUT)))) ; --> IF ; ==> ; XLIB::PREDICATING-PUT ; ; note: deleting unreachable code ; compiling (DEFINE-ACCESSOR CARD32 ...) ; compiling (DEFINE-ACCESSOR CARD29 ...) ; compiling (DEFINE-ACCESSOR CARD16 ...) ; compiling (DEFINE-ACCESSOR CARD8 ...) ; compiling (DEFINE-ACCESSOR INTEGER ...) ; compiling (DEFINE-ACCESSOR INT16 ...) ; compiling (DEFINE-ACCESSOR RGB-VAL ...) ; compiling (DEFINE-ACCESSOR ANGLE ...) ; compiling (DEFINE-ACCESSOR BIT ...) ; compiling (DEFINE-ACCESSOR BOOLEAN ...) ; compiling (DEFINE-ACCESSOR DRAWABLE ...) ; compiling (DEFINE-ACCESSOR WINDOW ...) ; compiling (DEFINE-ACCESSOR PIXMAP ...) ; compiling (DEFINE-ACCESSOR GCONTEXT ...) ; compiling (DEFINE-ACCESSOR CURSOR ...) ; compiling (DEFINE-ACCESSOR COLORMAP ...) ; compiling (DEFINE-ACCESSOR FONT ...) ; compiling (DEFINE-ACCESSOR KEYWORD ...) ; compiling (DEFINE-ACCESSOR RESOURCE-ID ...) ; compiling (DEFINE-ACCESSOR RESOURCE-ID-OR-NIL ...) ; compiling (DEFMACRO CHAR-INFO-GET ...) ; compiling (DEFINE-ACCESSOR MEMBER8 ...) ; compiling (DEFINE-ACCESSOR MEMBER16 ...) ; compiling (DEFINE-ACCESSOR MEMBER ...) ; compiling (DEFTYPE MEMBER-VECTOR ...) ; compiling (DEFINE-ACCESSOR MEMBER-VECTOR ...) ; compiling (DEFINE-ACCESSOR MEMBER16-VECTOR ...) ; compiling (DEFINE-ACCESSOR MEMBER8-VECTOR ...) ; compiling (DEFINE-ACCESSOR BOOLE-CONSTANT ...) ; compiling (DEFINE-ACCESSOR NULL ...) ; compiling (DEFINE-ACCESSOR PAD8 ...) ; compiling (DEFINE-ACCESSOR PAD16 ...) ; compiling (DEFINE-ACCESSOR PAD32 ...) ; compiling (DEFINE-ACCESSOR BIT-VECTOR256 ...) ; compiling (DEFINE-ACCESSOR STRING ...) ; compiling (DEFINE-ACCESSOR SEQUENCE ...) ; compiling (DEFMACRO CLIENT-MESSAGE-EVENT-GET-SEQUENCE ...) ; compiling (DEFMACRO CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ...) ; compiling (DEFINE-ACCESSOR CLIENT-MESSAGE-SEQUENCE ...) ; compiling (DEFINE-ACCESSOR CODE ...) ; compiling (DEFINE-ACCESSOR LENGTH ...) ; compiling (DEFTYPE DATA ...) ; compiling (DEFINE-ACCESSOR DATA ...) ; compiling (DEFMACRO OR-EXPAND ...) ; compiling (DEFINE-ACCESSOR OR ...) ; compiling (SETF (GET # ...) ...) ; compiling (DEFUN MASK-GET ...) ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFUN MASK-GET ; (DEFUN XLIB::MASK-GET (XLIB::INDEX XLIB::TYPE-VALUES XLIB::BODY-FUNCTION) ; (DECLARE (TYPE FUNCTION XLIB::BODY-FUNCTION) ; (DYNAMIC-EXTENT XLIB::BODY-FUNCTION)) ; (LET* ((BIT 0) (XLIB::RESULT (MAPCAR #'# #))) ; `(,@(WHEN (ATOM #) (LIST #)) ; (PROGN (SETQ #) (SETQ #) ,(CAR XLIB::RESULT)) ,@(CDR XLIB::RESULT)))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G59 ; ; note: could not stack allocate BODY-FUNCTION in: ; (DEFUN MASK-GET (INDEX TYPE-VALUES BODY-FUNCTION) ; (DECLARE (TYPE FUNCTION BODY-FUNCTION) ; (DYNAMIC-EXTENT BODY-FUNCTION)) ; (LET* ((BIT 0) ; (RESULT ; (MAPCAR ; #'(LAMBDA (FORM) ; (IF (ATOM FORM) ; FORM ; (PROG1 `(WHEN (LOGBITP ,BIT %MASK) ,FORM) ; (INCF BIT)))) ; (GET-PUT-ITEMS (+ INDEX 4) TYPE-VALUES NIL ; #'(LAMBDA (TYPE INDEX ITEM ARGS) ; (DECLARE (IGNORE INDEX)) ; (FUNCALL BODY-FUNCTION TYPE '(* (INCF %INDEX) 4) ITEM ; ARGS)))))) ; `(,@(WHEN (ATOM (CAR RESULT)) (LIST (POP RESULT))) ; (PROGN ; (SETQ %MASK (READ-CARD32 ,INDEX)) ; (SETQ %INDEX ,(CEILING INDEX 4)) ; ,(CAR RESULT)) ; ,@(CDR RESULT)))) ; compiling (DEFUN MASK-PUT ...) ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFUN MASK-PUT ; (DEFUN XLIB::MASK-PUT (XLIB::INDEX XLIB::TYPE-VALUES XLIB::BODY-FUNCTION) ; (DECLARE (TYPE FUNCTION XLIB::BODY-FUNCTION) ; (DYNAMIC-EXTENT XLIB::BODY-FUNCTION)) ; `((LET ((XLIB::%MASK 0) (XLIB::%INDEX ,XLIB::INDEX)) ; ,@(LET (#) ; (XLIB::GET-PUT-ITEMS XLIB::INDEX XLIB::TYPE-VALUES T #'#)) ; (XLIB::WRITE-CARD32 ,XLIB::INDEX XLIB::%MASK) ; (XLIB::WRITE-CARD16 2 (XLIB::INDEX-CEILING # 4)) ; (INCF (XLIB::BUFFER-BOFFSET XLIB::%BUFFER) XLIB::%INDEX)))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G64 ; ; note: could not stack allocate BODY-FUNCTION in: ; (DEFUN MASK-PUT (INDEX TYPE-VALUES BODY-FUNCTION) ; (DECLARE (TYPE FUNCTION BODY-FUNCTION) ; (DYNAMIC-EXTENT BODY-FUNCTION)) ; `((LET ((%MASK 0) (%INDEX ,INDEX)) ; ,@(LET ((BIT 1)) ; (GET-PUT-ITEMS INDEX TYPE-VALUES T ; #'(LAMBDA (TYPE INDEX ITEM ARGS) ; (DECLARE (IGNORE INDEX)) ; (IF (OR (SYMBOLP ITEM) (CONSTANTP ITEM)) ; `((UNLESS (NULL ,ITEM) ; (SETQ %MASK ; (LOGIOR %MASK ,(SHIFTF BIT (ASH BIT 1)))) ; ,@(FUNCALL BODY-FUNCTION TYPE ; `(INDEX-INCF %INDEX 4) ITEM ARGS))) ; `((LET ((.ITEM. ,ITEM)) ; (UNLESS (NULL .ITEM.) ; (SETQ %MASK ; (LOGIOR %MASK ; ,(SHIFTF BIT (ASH BIT 1)))) ; ,@(FUNCALL BODY-FUNCTION TYPE ; `(INDEX-INCF %INDEX 4) '.ITEM. ; ARGS)))))))) ; (WRITE-CARD32 ,INDEX %MASK) ; (WRITE-CARD16 2 (INDEX-CEILING (INDEX-INCF %INDEX 4) 4)) ; (INCF (BUFFER-BOFFSET %BUFFER) %INDEX)))) ; compiling (DEFINE-ACCESSOR PROGN ...) ; compiling (DEFMACRO CHECK-PUT ...) ; compiling (DEFUN GET-PUT-ITEMS ...) ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFUN GET-PUT-ITEMS ; (DEFUN XLIB::GET-PUT-ITEMS ; (XLIB::INDEX XLIB::TYPE-ARGS XLIB::PUTP &OPTIONAL XLIB::BODY-FUNCTION) ; (DECLARE (TYPE (OR NULL FUNCTION) XLIB::BODY-FUNCTION) ; (DYNAMIC-EXTENT XLIB::BODY-FUNCTION)) ; (UNLESS XLIB::BODY-FUNCTION (SETQ XLIB::BODY-FUNCTION #'(LAMBDA # `#))) ; (DO* ((XLIB::ITEMS XLIB::TYPE-ARGS (CDR XLIB::ITEMS)) ; (TYPE (CAAR XLIB::ITEMS) (CAAR XLIB::ITEMS)) ; (XLIB::ARGS NIL NIL) ; (XLIB::RESULT NIL) ; (XLIB::SIZES NIL)) ; ((ENDP XLIB::ITEMS) (VALUES XLIB::RESULT XLIB::INDEX XLIB::SIZES)) ; (WHEN (CONSP TYPE) ; (SETQ XLIB::ARGS # ; TYPE #)) ; (COND ((MEMBER TYPE '#)) ((EQ TYPE 'XLIB::MASK) (SETQ #)) ; (T (DO* # # # # #))))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION COND ; --> IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G111 ; ; note: could not stack allocate BODY-FUNCTION in: ; (DEFUN GET-PUT-ITEMS (INDEX TYPE-ARGS PUTP &OPTIONAL BODY-FUNCTION) ; (DECLARE (TYPE (OR NULL FUNCTION) BODY-FUNCTION) ; (DYNAMIC-EXTENT BODY-FUNCTION)) ; (UNLESS BODY-FUNCTION ; (SETQ BODY-FUNCTION ; #'(LAMBDA (TYPE INDEX ITEM ARGS) ; `((CHECK-PUT ,INDEX ,ITEM ,TYPE ,@ARGS))))) ; (DO* ((ITEMS TYPE-ARGS (CDR ITEMS)) ; (TYPE (CAAR ITEMS) (CAAR ITEMS)) ; (ARGS NIL NIL) ; (RESULT NIL) ; (SIZES NIL)) ; ((ENDP ITEMS) (VALUES RESULT INDEX SIZES)) ; (WHEN (CONSP TYPE) ; (SETQ ARGS (CDR TYPE) ; TYPE (CAR TYPE))) ; (COND ((MEMBER TYPE '(RETURN BUFFER))) ; ((EQ TYPE 'MASK) ; (SETQ RESULT ; (APPEND RESULT ; (IF PUTP ; (MASK-PUT INDEX (CDAR ITEMS) ; BODY-FUNCTION) ; (MASK-GET INDEX (CDAR ITEMS) ; BODY-FUNCTION))) ; INDEX NIL)) ; (T ; (DO* ((ITEM (CDAR ITEMS) (CDR ITEM)) ; (INCREMENT (INDEX-INCREMENT TYPE))) ; ((ENDP ITEM)) ; (WHEN (CONSTANTP INDEX) ; (CASE INCREMENT ; (2 (SETQ INDEX (WROUND INDEX))) ; (4 (SETQ INDEX (LROUND INDEX))))) ; (SETQ RESULT ; (APPEND RESULT ; (FUNCALL BODY-FUNCTION TYPE INDEX ; (CAR ITEM) ARGS))) ; (WHEN (CONSTANTP INDEX) ; (IF (NULL INCREMENT) ; (SETQ INDEX NIL) ; (PROGN ; (INCF INDEX INCREMENT) ; (WHEN (AND INCREMENT (ZEROP INCREMENT)) ; (SETQ INCREMENT 1)) ; (PUSHNEW (* INCREMENT 8) SIZES))))))))) ; compiling (DEFMACRO WITH-BUFFER-REQUEST-INTERNAL ...) ; compiling (DEFMACRO WITH-BUFFER-REQUEST ...) ; compiling (DEFMACRO WITH-BUFFER-REQUEST-AND-REPLY ...) ; compiling (DEFMACRO COMPARE-REQUEST ...) ; compiling (DEFMACRO PUT-ITEMS ...) ; compiling (DEFMACRO DECODE-TYPE ...) ; compiling (DEFMACRO ENCODE-TYPE ...) ; compiling (DEFMACRO SET-DECODE-TYPE ...) ; compiling (DEFSETF DECODE-TYPE ...) ; compiling (DEFCONSTANT +X-CREATEWINDOW+ ...) ; compiling (DEFCONSTANT +X-CHANGEWINDOWATTRIBUTES+ ...) ; compiling (DEFCONSTANT +X-GETWINDOWATTRIBUTES+ ...) ; compiling (DEFCONSTANT +X-DESTROYWINDOW+ ...) ; compiling (DEFCONSTANT +X-DESTROYSUBWINDOWS+ ...) ; compiling (DEFCONSTANT +X-CHANGESAVESET+ ...) ; compiling (DEFCONSTANT +X-REPARENTWINDOW+ ...) ; compiling (DEFCONSTANT +X-MAPWINDOW+ ...) ; compiling (DEFCONSTANT +X-MAPSUBWINDOWS+ ...) ; compiling (DEFCONSTANT +X-UNMAPWINDOW+ ...) ; compiling (DEFCONSTANT +X-UNMAPSUBWINDOWS+ ...) ; compiling (DEFCONSTANT +X-CONFIGUREWINDOW+ ...) ; compiling (DEFCONSTANT +X-CIRCULATEWINDOW+ ...) ; compiling (DEFCONSTANT +X-GETGEOMETRY+ ...) ; compiling (DEFCONSTANT +X-QUERYTREE+ ...) ; compiling (DEFCONSTANT +X-INTERNATOM+ ...) ; compiling (DEFCONSTANT +X-GETATOMNAME+ ...) ; compiling (DEFCONSTANT +X-CHANGEPROPERTY+ ...) ; compiling (DEFCONSTANT +X-DELETEPROPERTY+ ...) ; compiling (DEFCONSTANT +X-GETPROPERTY+ ...) ; compiling (DEFCONSTANT +X-LISTPROPERTIES+ ...) ; compiling (DEFCONSTANT +X-SETSELECTIONOWNER+ ...) ; compiling (DEFCONSTANT +X-GETSELECTIONOWNER+ ...) ; compiling (DEFCONSTANT +X-CONVERTSELECTION+ ...) ; compiling (DEFCONSTANT +X-SENDEVENT+ ...) ; compiling (DEFCONSTANT +X-GRABPOINTER+ ...) ; compiling (DEFCONSTANT +X-UNGRABPOINTER+ ...) ; compiling (DEFCONSTANT +X-GRABBUTTON+ ...) ; compiling (DEFCONSTANT +X-UNGRABBUTTON+ ...) ; compiling (DEFCONSTANT +X-CHANGEACTIVEPOINTERGRAB+ ...) ; compiling (DEFCONSTANT +X-GRABKEYBOARD+ ...) ; compiling (DEFCONSTANT +X-UNGRABKEYBOARD+ ...) ; compiling (DEFCONSTANT +X-GRABKEY+ ...) ; compiling (DEFCONSTANT +X-UNGRABKEY+ ...) ; compiling (DEFCONSTANT +X-ALLOWEVENTS+ ...) ; compiling (DEFCONSTANT +X-GRABSERVER+ ...) ; compiling (DEFCONSTANT +X-UNGRABSERVER+ ...) ; compiling (DEFCONSTANT +X-QUERYPOINTER+ ...) ; compiling (DEFCONSTANT +X-GETMOTIONEVENTS+ ...) ; compiling (DEFCONSTANT +X-TRANSLATECOORDS+ ...) ; compiling (DEFCONSTANT +X-WARPPOINTER+ ...) ; compiling (DEFCONSTANT +X-SETINPUTFOCUS+ ...) ; compiling (DEFCONSTANT +X-GETINPUTFOCUS+ ...) ; compiling (DEFCONSTANT +X-QUERYKEYMAP+ ...) ; compiling (DEFCONSTANT +X-OPENFONT+ ...) ; compiling (DEFCONSTANT +X-CLOSEFONT+ ...) ; compiling (DEFCONSTANT +X-QUERYFONT+ ...) ; compiling (DEFCONSTANT +X-QUERYTEXTEXTENTS+ ...) ; compiling (DEFCONSTANT +X-LISTFONTS+ ...) ; compiling (DEFCONSTANT +X-LISTFONTSWITHINFO+ ...) ; compiling (DEFCONSTANT +X-SETFONTPATH+ ...) ; compiling (DEFCONSTANT +X-GETFONTPATH+ ...) ; compiling (DEFCONSTANT +X-CREATEPIXMAP+ ...) ; compiling (DEFCONSTANT +X-FREEPIXMAP+ ...) ; compiling (DEFCONSTANT +X-CREATEGC+ ...) ; compiling (DEFCONSTANT +X-CHANGEGC+ ...) ; compiling (DEFCONSTANT +X-COPYGC+ ...) ; compiling (DEFCONSTANT +X-SETDASHES+ ...) ; compiling (DEFCONSTANT +X-SETCLIPRECTANGLES+ ...) ; compiling (DEFCONSTANT +X-FREEGC+ ...) ; compiling (DEFCONSTANT +X-CLEARTOBACKGROUND+ ...) ; compiling (DEFCONSTANT +X-COPYAREA+ ...) ; compiling (DEFCONSTANT +X-COPYPLANE+ ...) ; compiling (DEFCONSTANT +X-POLYPOINT+ ...) ; compiling (DEFCONSTANT +X-POLYLINE+ ...) ; compiling (DEFCONSTANT +X-POLYSEGMENT+ ...) ; compiling (DEFCONSTANT +X-POLYRECTANGLE+ ...) ; compiling (DEFCONSTANT +X-POLYARC+ ...) ; compiling (DEFCONSTANT +X-FILLPOLY+ ...) ; compiling (DEFCONSTANT +X-POLYFILLRECTANGLE+ ...) ; compiling (DEFCONSTANT +X-POLYFILLARC+ ...) ; compiling (DEFCONSTANT +X-PUTIMAGE+ ...) ; compiling (DEFCONSTANT +X-GETIMAGE+ ...) ; compiling (DEFCONSTANT +X-POLYTEXT8+ ...) ; compiling (DEFCONSTANT +X-POLYTEXT16+ ...) ; compiling (DEFCONSTANT +X-IMAGETEXT8+ ...) ; compiling (DEFCONSTANT +X-IMAGETEXT16+ ...) ; compiling (DEFCONSTANT +X-CREATECOLORMAP+ ...) ; compiling (DEFCONSTANT +X-FREECOLORMAP+ ...) ; compiling (DEFCONSTANT +X-COPYCOLORMAPANDFREE+ ...) ; compiling (DEFCONSTANT +X-INSTALLCOLORMAP+ ...) ; compiling (DEFCONSTANT +X-UNINSTALLCOLORMAP+ ...) ; compiling (DEFCONSTANT +X-LISTINSTALLEDCOLORMAPS+ ...) ; compiling (DEFCONSTANT +X-ALLOCCOLOR+ ...) ; compiling (DEFCONSTANT +X-ALLOCNAMEDCOLOR+ ...) ; compiling (DEFCONSTANT +X-ALLOCCOLORCELLS+ ...) ; compiling (DEFCONSTANT +X-ALLOCCOLORPLANES+ ...) ; compiling (DEFCONSTANT +X-FREECOLORS+ ...) ; compiling (DEFCONSTANT +X-STORECOLORS+ ...) ; compiling (DEFCONSTANT +X-STORENAMEDCOLOR+ ...) ; compiling (DEFCONSTANT +X-QUERYCOLORS+ ...) ; compiling (DEFCONSTANT +X-LOOKUPCOLOR+ ...) ; compiling (DEFCONSTANT +X-CREATECURSOR+ ...) ; compiling (DEFCONSTANT +X-CREATEGLYPHCURSOR+ ...) ; compiling (DEFCONSTANT +X-FREECURSOR+ ...) ; compiling (DEFCONSTANT +X-RECOLORCURSOR+ ...) ; compiling (DEFCONSTANT +X-QUERYBESTSIZE+ ...) ; compiling (DEFCONSTANT +X-QUERYEXTENSION+ ...) ; compiling (DEFCONSTANT +X-LISTEXTENSIONS+ ...) ; compiling (DEFCONSTANT +X-SETKEYBOARDMAPPING+ ...) ; compiling (DEFCONSTANT +X-GETKEYBOARDMAPPING+ ...) ; compiling (DEFCONSTANT +X-CHANGEKEYBOARDCONTROL+ ...) ; compiling (DEFCONSTANT +X-GETKEYBOARDCONTROL+ ...) ; compiling (DEFCONSTANT +X-BELL+ ...) ; compiling (DEFCONSTANT +X-CHANGEPOINTERCONTROL+ ...) ; compiling (DEFCONSTANT +X-GETPOINTERCONTROL+ ...) ; compiling (DEFCONSTANT +X-SETSCREENSAVER+ ...) ; compiling (DEFCONSTANT +X-GETSCREENSAVER+ ...) ; compiling (DEFCONSTANT +X-CHANGEHOSTS+ ...) ; compiling (DEFCONSTANT +X-LISTHOSTS+ ...) ; compiling (DEFCONSTANT +X-CHANGEACCESSCONTROL+ ...) ; compiling (DEFCONSTANT +X-CHANGECLOSEDOWNMODE+ ...) ; compiling (DEFCONSTANT +X-KILLCLIENT+ ...) ; compiling (DEFCONSTANT +X-ROTATEPROPERTIES+ ...) ; compiling (DEFCONSTANT +X-FORCESCREENSAVER+ ...) ; compiling (DEFCONSTANT +X-SETPOINTERMAPPING+ ...) ; compiling (DEFCONSTANT +X-GETPOINTERMAPPING+ ...) ; compiling (DEFCONSTANT +X-SETMODIFIERMAPPING+ ...) ; compiling (DEFCONSTANT +X-GETMODIFIERMAPPING+ ...) ; compiling (DEFCONSTANT +X-NOOPERATION+ ...) ; compiling (DEFMACRO THREADED-ATOMIC-PUSH ...) ; compiling (DEFMACRO THREADED-ATOMIC-POP ...) ; compiling (DEFMACRO THREADED-NCONC ...) ; compiling (DEFMACRO THREADED-PUSH ...) ; compiling (DEFMACRO THREADED-POP ...) ; compiling (DEFMACRO THREADED-ENQUEUE ...) ; compiling (DEFMACRO THREADED-DEQUEUE ...) ; compiling (DEFMACRO THREADED-REQUEUE ...) ; compiling (DEFMACRO THREADED-DOLIST ...) ; compiling (DEFMACRO THREADED-DELETE ...) ; compiling (DEFMACRO THREADED-LENGTH ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/macros-tmp10401X32.fasl written ; compilation finished in 0:00:01.068 ; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFMACRO WRITE-CARD8 ...) ; compiling (DEFMACRO WRITE-INT8 ...) ; compiling (DEFMACRO WRITE-CARD16 ...) ; compiling (DEFMACRO WRITE-INT16 ...) ; compiling (DEFMACRO WRITE-CARD32 ...) ; compiling (DEFMACRO WRITE-INT32 ...) ; compiling (DEFMACRO WRITE-CARD29 ...) ; compiling (DEFMACRO WRITE-CHAR2B ...) ; compiling (DEFMACRO SET-BUFFER-OFFSET ...) ; compiling (DEFMACRO ADVANCE-BUFFER-OFFSET ...) ; compiling (DEFMACRO WITH-BUFFER-OUTPUT ...) ; compiling (DEFMACRO WRITING-BUFFER-CHUNKS ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/bufmac-tmpZ7CBRM0G.fasl written ; compilation finished in 0:00:00.100 ; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFCONSTANT +REQUESTSIZE+ ...) ; compiling (DEFMACRO WITH-BUFFER ...) ; compiling (DEFUN WITH-BUFFER-FUNCTION ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WITH-BUFFER-FUNCTION ; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T) ; (FUNCALL FUNCTION)) ; --> MACROLET LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET ; --> #:FORM-FUN-4 BLOCK PROGN WITH-TIMEOUT SB-INT:DX-FLET FLET LET IF ; ==> ; (> SB-IMPL::EXPIRES 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (DEFUN XLIB::WITH-BUFFER-FUNCTION (XLIB::BUFFER XLIB::TIMEOUT FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB::BUFFER) ; (TYPE (OR NULL NUMBER) XLIB::TIMEOUT) ; (TYPE FUNCTION FUNCTION) ; (DYNAMIC-EXTENT FUNCTION) ; (IGNORABLE XLIB::TIMEOUT)) ; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T) ; (FUNCALL FUNCTION))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G24 ; ; note: could not stack allocate FUNCTION in: ; (DEFUN WITH-BUFFER-FUNCTION (BUFFER TIMEOUT FUNCTION) ; (DECLARE (TYPE DISPLAY BUFFER) ; (TYPE (OR NULL NUMBER) TIMEOUT) ; (TYPE FUNCTION FUNCTION) ; (DYNAMIC-EXTENT FUNCTION) ; (IGNORABLE TIMEOUT)) ; (WITH-BUFFER (BUFFER :TIMEOUT TIMEOUT :INLINE T) ; (FUNCALL FUNCTION))) ; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T) ; (FUNCALL FUNCTION)) ; --> MACROLET LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET ; --> #:FORM-FUN-4 BLOCK PROGN WITH-TIMEOUT SB-INT:DX-FLET FLET LET IF ; ==> ; (> SB-IMPL::EXPIRES 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; compiling (DEFMACRO READ-CARD8 ...) ; compiling (DEFMACRO READ-INT8 ...) ; compiling (DEFMACRO READ-CARD16 ...) ; compiling (DEFMACRO READ-INT16 ...) ; compiling (DEFMACRO READ-CARD32 ...) ; compiling (DEFMACRO READ-INT32 ...) ; compiling (DEFMACRO READ-CARD29 ...) ; compiling (DEFMACRO EVENT-CODE ...) ; compiling (DEFMACRO READING-EVENT ...) ; compiling (DEFMACRO WITH-BUFFER-INPUT ...) ; compiling (DEFUN MAKE-BUFFER ...) ; compiling (DEFUN MAKE-REPLY-BUFFER ...) ; compiling (DEFUN BUFFER-ENSURE-SIZE ...) ; compiling (DEFUN BUFFER-PAD-REQUEST ...) ; compiling (DECLAIM (INLINE BUFFER-NEW-REQUEST-NUMBER)) ; compiling (DEFUN BUFFER-NEW-REQUEST-NUMBER ...) ; compiling (DEFUN WITH-BUFFER-REQUEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WITH-BUFFER-REQUEST-FUNCTION ; (DEFUN XLIB::WITH-BUFFER-REQUEST-FUNCTION ; (XLIB:DISPLAY XLIB::GC-FORCE XLIB::REQUEST-FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE (OR NULL XLIB:GCONTEXT) XLIB::GC-FORCE)) ; (DECLARE (TYPE FUNCTION XLIB::REQUEST-FUNCTION) ; (DYNAMIC-EXTENT XLIB::REQUEST-FUNCTION)) ; (XLIB::WITH-BUFFER (XLIB:DISPLAY :INLINE T) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (WHEN XLIB::GC-FORCE #) ; (XLIB::WITHOUT-ABORTS ; #)) ; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB:DISPLAY)))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G7 ; ; note: could not stack allocate REQUEST-FUNCTION in: ; (DEFUN WITH-BUFFER-REQUEST-FUNCTION (DISPLAY GC-FORCE REQUEST-FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE (OR NULL GCONTEXT) GC-FORCE)) ; (DECLARE (TYPE FUNCTION REQUEST-FUNCTION) ; (DYNAMIC-EXTENT REQUEST-FUNCTION)) ; (WITH-BUFFER (DISPLAY :INLINE T) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (WHEN GC-FORCE (FORCE-GCONTEXT-CHANGES-INTERNAL GC-FORCE)) ; (WITHOUT-ABORTS ; (FUNCALL REQUEST-FUNCTION DISPLAY))) ; (DISPLAY-INVOKE-AFTER-FUNCTION DISPLAY)))) ; compiling (DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ; (DEFUN XLIB::WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ; (XLIB:DISPLAY XLIB::GC-FORCE XLIB::REQUEST-FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE (OR NULL XLIB:GCONTEXT) XLIB::GC-FORCE)) ; (DECLARE (TYPE FUNCTION XLIB::REQUEST-FUNCTION) ; (DYNAMIC-EXTENT XLIB::REQUEST-FUNCTION)) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (WHEN XLIB::GC-FORCE ; (XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB::GC-FORCE)) ; (XLIB::WITHOUT-ABORTS ; (FUNCALL XLIB::REQUEST-FUNCTION XLIB:DISPLAY))) ; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB:DISPLAY))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G6 ; ; note: could not stack allocate REQUEST-FUNCTION in: ; (DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ; (DISPLAY GC-FORCE REQUEST-FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE (OR NULL GCONTEXT) GC-FORCE)) ; (DECLARE (TYPE FUNCTION REQUEST-FUNCTION) ; (DYNAMIC-EXTENT REQUEST-FUNCTION)) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (WHEN GC-FORCE (FORCE-GCONTEXT-CHANGES-INTERNAL GC-FORCE)) ; (WITHOUT-ABORTS ; (FUNCALL REQUEST-FUNCTION DISPLAY))) ; (DISPLAY-INVOKE-AFTER-FUNCTION DISPLAY))) ; compiling (DEFSTRUCT (PENDING-COMMAND # ...) ...) ; compiling (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ; (DEFUN XLIB::WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ; (XLIB:DISPLAY XLIB::MULTIPLE-REPLY XLIB::REQUEST-FUNCTION ; XLIB::REPLY-FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE XLIB:GENERALIZED-BOOLEAN XLIB::MULTIPLE-REPLY)) ; (DECLARE (TYPE FUNCTION XLIB::REQUEST-FUNCTION XLIB::REPLY-FUNCTION) ; (DYNAMIC-EXTENT XLIB::REQUEST-FUNCTION XLIB::REPLY-FUNCTION)) ; (LET ((XLIB::PENDING-COMMAND NIL) (XLIB::REPLY-BUFFER NIL)) ; (DECLARE (TYPE (OR NULL XLIB::PENDING-COMMAND) XLIB::PENDING-COMMAND) ; (TYPE (OR NULL XLIB::REPLY-BUFFER) XLIB::REPLY-BUFFER)) ; (UNWIND-PROTECT ; (PROGN ; (XLIB::WITH-BUFFER # ; # ; # ; # ; #) ; (COND # #)) ; (WHEN XLIB::REPLY-BUFFER ; (XLIB::DEALLOCATE-REPLY-BUFFER XLIB::REPLY-BUFFER)) ; (WHEN XLIB::PENDING-COMMAND ; (XLIB::STOP-PENDING-COMMAND XLIB:DISPLAY XLIB::PENDING-COMMAND))))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G34 ; ; note: could not stack allocate REQUEST-FUNCTION in: ; (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ; (DISPLAY MULTIPLE-REPLY REQUEST-FUNCTION REPLY-FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE GENERALIZED-BOOLEAN MULTIPLE-REPLY)) ; (DECLARE (TYPE FUNCTION REQUEST-FUNCTION REPLY-FUNCTION) ; (DYNAMIC-EXTENT REQUEST-FUNCTION REPLY-FUNCTION)) ; (LET ((PENDING-COMMAND NIL) (REPLY-BUFFER NIL)) ; (DECLARE (TYPE (OR NULL PENDING-COMMAND) PENDING-COMMAND) ; (TYPE (OR NULL REPLY-BUFFER) REPLY-BUFFER)) ; (UNWIND-PROTECT ; (PROGN ; (WITH-BUFFER (DISPLAY :INLINE T) ; (SETQ PENDING-COMMAND (START-PENDING-COMMAND DISPLAY)) ; (WITHOUT-ABORTS ; (FUNCALL REQUEST-FUNCTION DISPLAY)) ; (BUFFER-FORCE-OUTPUT DISPLAY) ; (DISPLAY-INVOKE-AFTER-FUNCTION DISPLAY)) ; (COND ; (MULTIPLE-REPLY ; (LOOP ; (SETQ REPLY-BUFFER (READ-REPLY DISPLAY PENDING-COMMAND)) ; (WHEN (FUNCALL REPLY-FUNCTION DISPLAY REPLY-BUFFER) ; (RETURN NIL)) ; (DEALLOCATE-REPLY-BUFFER (SHIFTF REPLY-BUFFER NIL)))) ; (T (SETQ REPLY-BUFFER (READ-REPLY DISPLAY PENDING-COMMAND)) ; (FUNCALL REPLY-FUNCTION DISPLAY REPLY-BUFFER)))) ; (WHEN REPLY-BUFFER (DEALLOCATE-REPLY-BUFFER REPLY-BUFFER)) ; (WHEN PENDING-COMMAND ; (STOP-PENDING-COMMAND DISPLAY PENDING-COMMAND))))) ; ==> ; #:G40 ; ; note: could not stack allocate REPLY-FUNCTION in: ; (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ; (DISPLAY MULTIPLE-REPLY REQUEST-FUNCTION REPLY-FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE GENERALIZED-BOOLEAN MULTIPLE-REPLY)) ; (DECLARE (TYPE FUNCTION REQUEST-FUNCTION REPLY-FUNCTION) ; (DYNAMIC-EXTENT REQUEST-FUNCTION REPLY-FUNCTION)) ; (LET ((PENDING-COMMAND NIL) (REPLY-BUFFER NIL)) ; (DECLARE (TYPE (OR NULL PENDING-COMMAND) PENDING-COMMAND) ; (TYPE (OR NULL REPLY-BUFFER) REPLY-BUFFER)) ; (UNWIND-PROTECT ; (PROGN ; (WITH-BUFFER (DISPLAY :INLINE T) ; (SETQ PENDING-COMMAND (START-PENDING-COMMAND DISPLAY)) ; (WITHOUT-ABORTS ; (FUNCALL REQUEST-FUNCTION DISPLAY)) ; (BUFFER-FORCE-OUTPUT DISPLAY) ; (DISPLAY-INVOKE-AFTER-FUNCTION DISPLAY)) ; (COND ; (MULTIPLE-REPLY ; (LOOP ; (SETQ REPLY-BUFFER (READ-REPLY DISPLAY PENDING-COMMAND)) ; (WHEN (FUNCALL REPLY-FUNCTION DISPLAY REPLY-BUFFER) ; (RETURN NIL)) ; (DEALLOCATE-REPLY-BUFFER (SHIFTF REPLY-BUFFER NIL)))) ; (T (SETQ REPLY-BUFFER (READ-REPLY DISPLAY PENDING-COMMAND)) ; (FUNCALL REPLY-FUNCTION DISPLAY REPLY-BUFFER)))) ; (WHEN REPLY-BUFFER (DEALLOCATE-REPLY-BUFFER REPLY-BUFFER)) ; (WHEN PENDING-COMMAND ; (STOP-PENDING-COMMAND DISPLAY PENDING-COMMAND))))) ; compiling (DEFUN BUFFER-WRITE ...) ; compiling (DEFUN BUFFER-FLUSH ...) ; compiling (DEFMACRO WITH-BUFFER-FLUSH-INHIBITED ...) ; compiling (DEFUN BUFFER-FORCE-OUTPUT ...) ; compiling (DEFUN CLOSE-BUFFER ...) ; compiling (DEFUN BUFFER-INPUT ...) ; compiling (DEFUN BUFFER-INPUT-WAIT ...) ; compiling (DEFUN BUFFER-LISTEN ...) ; compiling (DEFUN READ-SEQUENCE-STRING ...) ; compiling (DEFMACRO DEFINE-TRANSFORMED-SEQUENCE-READER ...) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-CHAR ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-CHAR ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-CHAR CHARACTER ; XLIB:CARD8->CHAR ; XLIB::READ-SEQUENCE-CARD8) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 ; --> LET ; ==> ; #:G21 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-CHAR CHARACTER ; CARD8->CHAR READ-SEQUENCE-CARD8) ; compiling (DEFMACRO DEFINE-LIST-READERS ...) ; compiling (DEFINE-LIST-READERS (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-READERS (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-READERS ; (XLIB::READ-LIST-CARD8 XLIB::READ-LIST-CARD8-WITH-TRANSFORM) XLIB:CARD8 8 1 ; XLIB::READ-CARD8) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G44 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-READERS (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM) ; CARD8 8 1 READ-CARD8) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD8 ...) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (DEFUN XLIB::READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE (SIMPLE-ARRAY XLIB:CARD8 (*)) XLIB::DATA)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD8) XLIB:CARD8) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD8 (*))) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (8) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G20 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA TRANSFORM START INDEX) ; (DECLARE (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE (SIMPLE-ARRAY CARD8 (*)) DATA)) ; (DECLARE (TYPE (FUNCTION (CARD8) CARD8) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD8 (*))) ; (WITH-BUFFER-INPUT (REPLY-BUFFER :SIZES (8) :INDEX INDEX) ; (DO* ((J START (INDEX+ J 1)) ; (END (INDEX+ START NITEMS)) ; (INDEX 0 (INDEX+ INDEX 1))) ; ((INDEX>= J END)) ; (DECLARE (TYPE ARRAY-INDEX J END INDEX)) ; (SETF (AREF DATA J) ; (THE CARD8 (FUNCALL TRANSFORM (READ-CARD8 INDEX)))))))) ; compiling (DEFUN READ-VECTOR-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD8 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::READ-VECTOR-CARD8-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE VECTOR XLIB::DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD8) T) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (8) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G17 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA TRANSFORM START INDEX) ; (DECLARE (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE VECTOR DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (CARD8) T) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WITH-BUFFER-INPUT (REPLY-BUFFER :SIZES (8) :INDEX INDEX) ; (DO* ((J START (INDEX+ J 1)) ; (END (INDEX+ START NITEMS)) ; (INDEX 0 (INDEX+ INDEX 1))) ; ((INDEX>= J END)) ; (DECLARE (TYPE ARRAY-INDEX J END INDEX)) ; (SETF (AREF DATA J) (FUNCALL TRANSFORM (READ-CARD8 INDEX))))))) ; compiling (DEFMACRO DEFINE-SEQUENCE-READER ...) ; compiling (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD8 ; (XLIB::DEFINE-SEQUENCE-READER XLIB::READ-SEQUENCE-CARD8 XLIB:CARD8 ; (XLIB::READ-LIST-CARD8 ; XLIB::READ-LIST-CARD8-WITH-TRANSFORM) ; (XLIB::READ-SIMPLE-ARRAY-CARD8 ; XLIB::READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (XLIB::READ-VECTOR-CARD8 ; XLIB::READ-VECTOR-CARD8-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 ; --> LET ; ==> ; #:G18 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD8 CARD8 ; (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM) ; (READ-SIMPLE-ARRAY-CARD8 ; READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (READ-VECTOR-CARD8 ; READ-VECTOR-CARD8-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT8 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-INT8 XLIB:INT8 ; XLIB::CARD8->INT8 ; XLIB::READ-SEQUENCE-CARD8) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 ; --> LET ; ==> ; #:G21 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT8 INT8 CARD8->INT8 ; READ-SEQUENCE-CARD8) ; compiling (DEFINE-LIST-READERS (READ-LIST-CARD16 READ-LIST-CARD16-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-READERS (READ-LIST-CARD16 READ-LIST-CARD16-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-READERS ; (XLIB::READ-LIST-CARD16 XLIB::READ-LIST-CARD16-WITH-TRANSFORM) XLIB:CARD16 ; 16 2 XLIB::READ-CARD16) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G44 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-READERS (READ-LIST-CARD16 READ-LIST-CARD16-WITH-TRANSFORM) ; CARD16 16 2 READ-CARD16) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD16 ...) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (DEFUN XLIB::READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE (SIMPLE-ARRAY XLIB:CARD16 (*)) XLIB::DATA)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD16 (*))) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (16) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G20 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA TRANSFORM START INDEX) ; (DECLARE (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE (SIMPLE-ARRAY CARD16 (*)) DATA)) ; (DECLARE (TYPE (FUNCTION (CARD16) CARD16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD16 (*))) ; (WITH-BUFFER-INPUT (REPLY-BUFFER :SIZES (16) :INDEX INDEX) ; (DO* ((J START (INDEX+ J 1)) ; (END (INDEX+ START NITEMS)) ; (INDEX 0 (INDEX+ INDEX 2))) ; ((INDEX>= J END)) ; (DECLARE (TYPE ARRAY-INDEX J END INDEX)) ; (SETF (AREF DATA J) ; (THE CARD16 (FUNCALL TRANSFORM (READ-CARD16 INDEX)))))))) ; compiling (DEFUN READ-VECTOR-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD16 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::READ-VECTOR-CARD16-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE VECTOR XLIB::DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) T) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (16) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G17 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA TRANSFORM START INDEX) ; (DECLARE (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE VECTOR DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (CARD16) T) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WITH-BUFFER-INPUT (REPLY-BUFFER :SIZES (16) :INDEX INDEX) ; (DO* ((J START (INDEX+ J 1)) ; (END (INDEX+ START NITEMS)) ; (INDEX 0 (INDEX+ INDEX 2))) ; ((INDEX>= J END)) ; (DECLARE (TYPE ARRAY-INDEX J END INDEX)) ; (SETF (AREF DATA J) (FUNCALL TRANSFORM (READ-CARD16 INDEX))))))) ; compiling (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD16 ; (XLIB::DEFINE-SEQUENCE-READER XLIB::READ-SEQUENCE-CARD16 XLIB:CARD16 ; (XLIB::READ-LIST-CARD16 ; XLIB::READ-LIST-CARD16-WITH-TRANSFORM) ; (XLIB::READ-SIMPLE-ARRAY-CARD16 ; XLIB::READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (XLIB::READ-VECTOR-CARD16 ; XLIB::READ-VECTOR-CARD16-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 ; --> LET ; ==> ; #:G18 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD16 CARD16 ; (READ-LIST-CARD16 ; READ-LIST-CARD16-WITH-TRANSFORM) ; (READ-SIMPLE-ARRAY-CARD16 ; READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (READ-VECTOR-CARD16 ; READ-VECTOR-CARD16-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT16 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-INT16 ; XLIB:INT16 XLIB::CARD16->INT16 ; XLIB::READ-SEQUENCE-CARD16) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 ; --> LET ; ==> ; #:G21 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT16 INT16 ; CARD16->INT16 READ-SEQUENCE-CARD16) ; compiling (DEFINE-LIST-READERS (READ-LIST-CARD32 READ-LIST-CARD32-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-READERS (READ-LIST-CARD32 READ-LIST-CARD32-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-READERS ; (XLIB::READ-LIST-CARD32 XLIB::READ-LIST-CARD32-WITH-TRANSFORM) XLIB:CARD32 ; 32 4 XLIB::READ-CARD32) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G44 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-READERS (READ-LIST-CARD32 READ-LIST-CARD32-WITH-TRANSFORM) ; CARD32 32 4 READ-CARD32) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD32 ...) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (DEFUN XLIB::READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE (SIMPLE-ARRAY XLIB:CARD32 (*)) XLIB::DATA)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD32) XLIB:CARD32) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD32 (*))) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (32) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G20 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA TRANSFORM START INDEX) ; (DECLARE (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE (SIMPLE-ARRAY CARD32 (*)) DATA)) ; (DECLARE (TYPE (FUNCTION (CARD32) CARD32) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD32 (*))) ; (WITH-BUFFER-INPUT (REPLY-BUFFER :SIZES (32) :INDEX INDEX) ; (DO* ((J START (INDEX+ J 1)) ; (END (INDEX+ START NITEMS)) ; (INDEX 0 (INDEX+ INDEX 4))) ; ((INDEX>= J END)) ; (DECLARE (TYPE ARRAY-INDEX J END INDEX)) ; (SETF (AREF DATA J) ; (THE CARD32 (FUNCALL TRANSFORM (READ-CARD32 INDEX)))))))) ; compiling (DEFUN READ-VECTOR-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD32 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::READ-VECTOR-CARD32-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE VECTOR XLIB::DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD32) T) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (32) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G17 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA TRANSFORM START INDEX) ; (DECLARE (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE VECTOR DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (CARD32) T) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WITH-BUFFER-INPUT (REPLY-BUFFER :SIZES (32) :INDEX INDEX) ; (DO* ((J START (INDEX+ J 1)) ; (END (INDEX+ START NITEMS)) ; (INDEX 0 (INDEX+ INDEX 4))) ; ((INDEX>= J END)) ; (DECLARE (TYPE ARRAY-INDEX J END INDEX)) ; (SETF (AREF DATA J) (FUNCALL TRANSFORM (READ-CARD32 INDEX))))))) ; compiling (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD32 ; (XLIB::DEFINE-SEQUENCE-READER XLIB::READ-SEQUENCE-CARD32 XLIB:CARD32 ; (XLIB::READ-LIST-CARD32 ; XLIB::READ-LIST-CARD32-WITH-TRANSFORM) ; (XLIB::READ-SIMPLE-ARRAY-CARD32 ; XLIB::READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (XLIB::READ-VECTOR-CARD32 ; XLIB::READ-VECTOR-CARD32-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 ; --> LET ; ==> ; #:G18 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD32 CARD32 ; (READ-LIST-CARD32 ; READ-LIST-CARD32-WITH-TRANSFORM) ; (READ-SIMPLE-ARRAY-CARD32 ; READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (READ-VECTOR-CARD32 ; READ-VECTOR-CARD32-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT32 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-INT32 ; XLIB:INT32 XLIB::CARD32->INT32 ; XLIB::READ-SEQUENCE-CARD32) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 ; --> LET ; ==> ; #:G21 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT32 INT32 ; CARD32->INT32 READ-SEQUENCE-CARD32) ; compiling (DEFMACRO DEFINE-TRANSFORMED-SEQUENCE-WRITER ...) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CHAR CHARACTER ; XLIB:CHAR->CARD8 ; XLIB::WRITE-SEQUENCE-CARD8) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G20 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR CHARACTER ; CHAR->CARD8 WRITE-SEQUENCE-CARD8) ; compiling (DEFMACRO DEFINE-LIST-WRITERS ...) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CARD8 WRITE-LIST-CARD8-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-CARD8 WRITE-LIST-CARD8-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-CARD8 XLIB::WRITE-LIST-CARD8-WITH-TRANSFORM) XLIB:CARD8 1 ; XLIB::WRITE-CARD8) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G99 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-WRITERS (WRITE-LIST-CARD8 WRITE-LIST-CARD8-WITH-TRANSFORM) ; CARD8 1 WRITE-CARD8) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD8 ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:CARD8 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD8) XLIB:CARD8) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD8 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD8 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DOTIMES (XLIB::J XLIB::CHUNK) ; (DECLARE #) ; (XLIB::WRITE-CARD8 XLIB::J #) ; (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G41 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE (SIMPLE-ARRAY CARD8 (*)) DATA) ; (TYPE ARRAY-INDEX BOFFSET START END)) ; (DECLARE (TYPE (FUNCTION (CARD8) CARD8) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD8 (*))) ; (WRITING-BUFFER-CHUNKS CARD8 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DOTIMES (J CHUNK) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD8 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD8) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD8 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DOTIMES (XLIB::J XLIB::CHUNK) ; (DECLARE #) ; (XLIB::WRITE-CARD8 XLIB::J #) ; (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G41 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET START END)) ; (DECLARE (TYPE (FUNCTION (T) CARD8) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS CARD8 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DOTIMES (J CHUNK) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD8 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFMACRO DEFINE-SEQUENCE-WRITER ...) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD8 ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CARD8 XLIB:CARD8 ; (XLIB::WRITE-LIST-CARD8 ; XLIB::WRITE-LIST-CARD8-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-CARD8 ; XLIB::WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-CARD8 ; XLIB::WRITE-VECTOR-CARD8-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G17 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD8 CARD8 ; (WRITE-LIST-CARD8 ; WRITE-LIST-CARD8-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-CARD8 ; WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (WRITE-VECTOR-CARD8 ; WRITE-VECTOR-CARD8-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT8 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-INT8 XLIB:INT8 ; XLIB::INT8->CARD8 ; XLIB::WRITE-SEQUENCE-CARD8) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G22 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT8 INT8 INT8->CARD8 ; WRITE-SEQUENCE-CARD8) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CARD16 WRITE-LIST-CARD16-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-CARD16 WRITE-LIST-CARD16-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-CARD16 XLIB::WRITE-LIST-CARD16-WITH-TRANSFORM) XLIB:CARD16 ; 2 XLIB::WRITE-CARD16) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G91 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-WRITERS ; (WRITE-LIST-CARD16 WRITE-LIST-CARD16-WITH-TRANSFORM) CARD16 2 ; WRITE-CARD16) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD16 ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:CARD16 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD16 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD16 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G37 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE (SIMPLE-ARRAY CARD16 (*)) DATA) ; (TYPE ARRAY-INDEX BOFFSET START END)) ; (DECLARE (TYPE (FUNCTION (CARD16) CARD16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD16 (*))) ; (WRITING-BUFFER-CHUNKS CARD16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 2))) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD16 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD16 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G37 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET START END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) CARD16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS CARD16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 2))) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD16 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD16 ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CARD16 XLIB:CARD16 ; (XLIB::WRITE-LIST-CARD16 ; XLIB::WRITE-LIST-CARD16-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-CARD16 ; XLIB::WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-CARD16 ; XLIB::WRITE-VECTOR-CARD16-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G17 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD16 CARD16 ; (WRITE-LIST-CARD16 ; WRITE-LIST-CARD16-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-CARD16 ; WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (WRITE-VECTOR-CARD16 ; WRITE-VECTOR-CARD16-WITH-TRANSFORM)) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-INT16 WRITE-LIST-INT16-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-INT16 WRITE-LIST-INT16-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-INT16 XLIB::WRITE-LIST-INT16-WITH-TRANSFORM) XLIB:INT16 2 ; XLIB::WRITE-INT16) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G91 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-WRITERS (WRITE-LIST-INT16 WRITE-LIST-INT16-WITH-TRANSFORM) ; INT16 2 WRITE-INT16) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-INT16 ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:INT16 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:INT16) XLIB:INT16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:INT16 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:INT16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-INT16 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G37 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE (SIMPLE-ARRAY INT16 (*)) DATA) ; (TYPE ARRAY-INDEX BOFFSET START END)) ; (DECLARE (TYPE (FUNCTION (INT16) INT16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY INT16 (*))) ; (WRITING-BUFFER-CHUNKS INT16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 2))) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-INT16 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-INT16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-INT16-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:INT16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:INT16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-INT16 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G37 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET START END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) INT16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS INT16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 2))) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-INT16 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-INT16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-INT16 ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-INT16 XLIB:INT16 ; (XLIB::WRITE-LIST-INT16 ; XLIB::WRITE-LIST-INT16-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-INT16 ; XLIB::WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-INT16 ; XLIB::WRITE-VECTOR-INT16-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G17 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-INT16 INT16 ; (WRITE-LIST-INT16 ; WRITE-LIST-INT16-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-INT16 ; WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM) ; (WRITE-VECTOR-INT16 ; WRITE-VECTOR-INT16-WITH-TRANSFORM)) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CARD32 WRITE-LIST-CARD32-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-CARD32 WRITE-LIST-CARD32-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-CARD32 XLIB::WRITE-LIST-CARD32-WITH-TRANSFORM) XLIB:CARD32 ; 4 XLIB::WRITE-CARD32) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G91 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-WRITERS ; (WRITE-LIST-CARD32 WRITE-LIST-CARD32-WITH-TRANSFORM) CARD32 4 ; WRITE-CARD32) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD32 ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:CARD32 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD32) XLIB:CARD32) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD32 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD32 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD32 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G37 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE (SIMPLE-ARRAY CARD32 (*)) DATA) ; (TYPE ARRAY-INDEX BOFFSET START END)) ; (DECLARE (TYPE (FUNCTION (CARD32) CARD32) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD32 (*))) ; (WRITING-BUFFER-CHUNKS CARD32 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 4))) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD32 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD32) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD32 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD32 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G37 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET START END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) CARD32) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS CARD32 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 4))) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD32 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD32 ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CARD32 XLIB:CARD32 ; (XLIB::WRITE-LIST-CARD32 ; XLIB::WRITE-LIST-CARD32-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-CARD32 ; XLIB::WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-CARD32 ; XLIB::WRITE-VECTOR-CARD32-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G17 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD32 CARD32 ; (WRITE-LIST-CARD32 ; WRITE-LIST-CARD32-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-CARD32 ; WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (WRITE-VECTOR-CARD32 ; WRITE-VECTOR-CARD32-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT32 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-INT32 ; XLIB:INT32 XLIB::INT32->CARD32 ; XLIB::WRITE-SEQUENCE-CARD32) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G22 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT32 INT32 ; INT32->CARD32 WRITE-SEQUENCE-CARD32) ; compiling (DEFUN READ-BITVECTOR256 ...) ; compiling (DEFUN WRITE-BITVECTOR256 ...) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CHAR2B WRITE-LIST-CHAR2B-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-CHAR2B WRITE-LIST-CHAR2B-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-CHAR2B XLIB::WRITE-LIST-CHAR2B-WITH-TRANSFORM) XLIB:CARD16 ; 2 XLIB::WRITE-CHAR2B) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G113 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-WRITERS ; (WRITE-LIST-CHAR2B WRITE-LIST-CHAR2B-WITH-TRANSFORM) CARD16 2 ; WRITE-CHAR2B) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:CARD16 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD16 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (# #) (DECLARE #) (XLIB::WRITE-CHAR2B XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G48 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE (SIMPLE-ARRAY CARD16 (*)) DATA) ; (TYPE ARRAY-INDEX BOFFSET START END)) ; (DECLARE (TYPE (FUNCTION (CARD16) CARD16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD16 (*))) ; (WRITING-BUFFER-CHUNKS CARD16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 2))) ; ((INDEX>= J (1- CHUNK)) (SETF CHUNK J)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CHAR2B J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-CHAR2B ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (# #) (DECLARE #) (XLIB::WRITE-CHAR2B XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G48 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET START END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) CARD16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS CARD16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 2))) ; ((INDEX>= J (1- CHUNK)) (SETF CHUNK J)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CHAR2B J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR2B ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR2B ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CHAR2B XLIB:CARD16 ; (XLIB::WRITE-LIST-CHAR2B ; XLIB::WRITE-LIST-CHAR2B-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-CHAR2B ; XLIB::WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-CHAR2B ; XLIB::WRITE-VECTOR-CHAR2B-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> COND IF IF IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G17 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR2B CARD16 ; (WRITE-LIST-CHAR2B ; WRITE-LIST-CHAR2B-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-CHAR2B ; WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM) ; (WRITE-VECTOR-CHAR2B ; WRITE-VECTOR-CHAR2B-WITH-TRANSFORM)) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/buffer-tmp9OZEQ0G2.fasl written ; compilation finished in 0:00:01.696 ; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFPARAMETER *KNOWN-AUTHORIZATIONS* ...) ; compiling (DEFUN READ-XAUTH-ENTRY ...) ; compiling (DEFUN GET-BEST-AUTHORIZATION ...) ; compiling (DEFMACRO WITH-DISPLAY ...) ; compiling (DEFUN INITIALIZE-RESOURCE-ALLOCATOR ...) ; compiling (DEFUN RESOURCEALLOC ...) ; compiling (DEFMACRO ALLOCATE-RESOURCE-ID ...) ; compiling (DEFMACRO DEALLOCATE-RESOURCE-ID ...) ; compiling (DEFUN DEALLOCATE-RESOURCE-ID-INTERNAL ...) ; compiling (DEFUN LOOKUP-RESOURCE-ID ...) ; compiling (DEFUN SAVE-ID ...); in: DEFUN ,(XINTERN 'LOOKUP- TYPE) ; (MEMBER TYPE '(XLIB:WINDOW XLIB:PIXMAP)) ; ==> ; TYPE ; ; note: deleting unreachable code ; compiling (GENERATE-LOOKUP-FUNCTIONS IGNORE ...) ; compiling (DEFUN ID-ATOM ...) ; compiling (DEFUN ATOM-ID ...) ; compiling (DEFUN SET-ATOM-ID ...) ; compiling (DEFSETF ATOM-ID ...) ; compiling (DEFUN INITIALIZE-PREDEFINED-ATOMS ...) ; compiling (DEFUN VISUAL-INFO ...) ; compiling (DEFMACRO WITH-EVENT-QUEUE ...) ; compiling (DEFUN WITH-EVENT-QUEUE-FUNCTION ...) ; file: /usr/share/common-lisp/source/clx/display.lisp ; in: DEFUN WITH-EVENT-QUEUE-FUNCTION ; (DEFUN XLIB::WITH-EVENT-QUEUE-FUNCTION (XLIB:DISPLAY XLIB::TIMEOUT FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE (OR NULL NUMBER) XLIB::TIMEOUT) ; (TYPE FUNCTION FUNCTION) ; (DYNAMIC-EXTENT FUNCTION) ; (IGNORABLE XLIB:DISPLAY XLIB::TIMEOUT)) ; (XLIB:WITH-EVENT-QUEUE (XLIB:DISPLAY :TIMEOUT XLIB::TIMEOUT :INLINE T) ; (FUNCALL FUNCTION))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G24 ; ; note: could not stack allocate FUNCTION in: ; (DEFUN WITH-EVENT-QUEUE-FUNCTION (DISPLAY TIMEOUT FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE (OR NULL NUMBER) TIMEOUT) ; (TYPE FUNCTION FUNCTION) ; (DYNAMIC-EXTENT FUNCTION) ; (IGNORABLE DISPLAY TIMEOUT)) ; (WITH-EVENT-QUEUE (DISPLAY :TIMEOUT TIMEOUT :INLINE T) ; (FUNCALL FUNCTION))) ; compiling (DEFMACRO WITH-EVENT-QUEUE-INTERNAL ...) ; compiling (DEFUN OPEN-DEFAULT-DISPLAY ...) ; compiling (DEFUN OPEN-DISPLAY ...) ; compiling (DEFUN DISPLAY-FORCE-OUTPUT ...) ; compiling (DEFUN CLOSE-DISPLAY ...) ; compiling (DEFUN DISPLAY-CONNECT ...) ; file: /usr/share/common-lisp/source/clx/display.lisp ; in: DEFUN DISPLAY-CONNECT ; (LENGTH XLIB::AUTHORIZATION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH XLIB::AUTHORIZATION-DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH XLIB::AUTHORIZATION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFUN DISPLAY-PROTOCOL-VERSION ...) ; compiling (DEFUN DISPLAY-VENDOR ...) ; compiling (DEFUN DISPLAY-NSCREENS ...) ; compiling (DEFVAR *INSIDE-DISPLAY-AFTER-FUNCTION* ...) ; compiling (DEFUN DISPLAY-INVOKE-AFTER-FUNCTION ...) ; compiling (DEFUN DISPLAY-FINISH-OUTPUT ...) ; file: /usr/share/common-lisp/source/clx/display.lisp ; in: DEFUN DISPLAY-FINISH-OUTPUT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETINPUTFOCUS+ 16 ; :SIZES (8 32)) ; NIL) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFPARAMETER *REQUEST-NAMES* ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/display-tmpB2JTL1W9.fasl written ; compilation finished in 0:00:00.359 ; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFCONSTANT +GCONTEXT-FAST-CHANGE-LENGTH+ ...) ; compiling (DEF-GC-INTERNALS IGNORE ...) ; compiling (DEFTYPE GCMASK ...) ; compiling (DEFTYPE XGCMASK ...) ; compiling (DEFSTRUCT (GCONTEXT-EXTENSION # ...) ...) ; compiling (DEFVAR *GCONTEXT-EXTENSIONS* ...) ; compiling (DEFVAR *GCONTEXT-LOCAL-STATE-CACHE* ...) ; compiling (DEFMACRO GCONTEXT-STATE-NEXT ...) ; compiling (DEFUN ALLOCATE-GCONTEXT-STATE ...) ; compiling (DEFUN DEALLOCATE-GCONTEXT-STATE ...) ; compiling (DEFVAR *TEMP-GCONTEXT-CACHE* ...) ; compiling (DEFUN ALLOCATE-TEMP-GCONTEXT ...) ; compiling (DEFUN DEALLOCATE-TEMP-GCONTEXT ...) ; compiling (DEFMACRO XGCMASK->GCMASK ...) ; compiling (DEFMACRO ACCESS-GCONTEXT ...) ; compiling (DEFMACRO MODIFY-GCONTEXT ...) ; compiling (DEFMACRO DEF-GC-ACCESSOR ...) ; compiling (DEFMACRO INCF-INTERNAL-TIMESTAMP ...) ; compiling (DEF-GC-ACCESSOR FUNCTION ...) ; compiling (DEF-GC-ACCESSOR PLANE-MASK ...) ; compiling (DEF-GC-ACCESSOR FOREGROUND ...) ; compiling (DEF-GC-ACCESSOR BACKGROUND ...) ; compiling (DEF-GC-ACCESSOR LINE-WIDTH ...) ; compiling (DEF-GC-ACCESSOR LINE-STYLE ...) ; compiling (DEF-GC-ACCESSOR CAP-STYLE ...) ; compiling (DEF-GC-ACCESSOR JOIN-STYLE ...) ; compiling (DEF-GC-ACCESSOR FILL-STYLE ...) ; compiling (DEF-GC-ACCESSOR FILL-RULE ...) ; compiling (DEF-GC-ACCESSOR TILE ...) ; compiling (DEF-GC-ACCESSOR STIPPLE ...) ; compiling (DEF-GC-ACCESSOR TS-X ...) ; compiling (DEF-GC-ACCESSOR TS-Y ...) ; compiling (DEF-GC-ACCESSOR SUBWINDOW-MODE ...) ; compiling (DEF-GC-ACCESSOR EXPOSURES ...) ; compiling (DEF-GC-ACCESSOR CLIP-X ...) ; compiling (DEF-GC-ACCESSOR CLIP-Y ...) ; compiling (DEF-GC-ACCESSOR DASH-OFFSET ...) ; compiling (DEF-GC-ACCESSOR ARC-MODE ...) ; compiling (DEFUN GCONTEXT-CLIP-MASK ...) ; compiling (DEFSETF GCONTEXT-CLIP-MASK ...) ; compiling (DEFUN SET-GCONTEXT-CLIP-MASK ...) ; compiling (DEFUN GCONTEXT-DASHES ...) ; compiling (DEFSETF GCONTEXT-DASHES ...) ; compiling (DEFUN SET-GCONTEXT-DASHES ...) ; compiling (DEFUN GCONTEXT-FONT ...) ; compiling (DEFSETF GCONTEXT-FONT ...) ; compiling (DEFUN SET-GCONTEXT-FONT ...) ; compiling (DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB ; --> 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (ZEROP (XLIB::BUFFER-LAST-REQUEST XLIB:DISPLAY)) ; ==> ; (= (XLIB::BUFFER-LAST-REQUEST XLIB:DISPLAY) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-SET-FUNCTION (CAR XLIB::EXTENSION)) ; XLIB:GCONTEXT XLIB::LOCAL) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL ; (XLIB::GCONTEXT-EXTENSION-SET-FUNCTION (CAR XLIB::EXTENSION))) ; ; 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-SETCLIPRECTANGLES+) ; (XLIB::DATA (FIRST XLIB::LOCAL-CLIP)) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-CLIP-X XLIB::LOCAL-STATE) 0) ; (OR (XLIB::GCONTEXT-INTERNAL-CLIP-Y XLIB::LOCAL-STATE) 0)) ; ((SEQUENCE :FORMAT XLIB:INT16) (SECOND XLIB::LOCAL-CLIP))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::CHECK-PUT LET XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::.VALUE.) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB ; --> 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (DO ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 12) ; (XLIB::MASK 0) ; (XLIB::LOCAL 0)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (WHEN # # #) ; (XLIB::CARD29-PUT 8 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 # #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB ; --> 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (EQL (SVREF XLIB::SERVER-STATE XLIB::I) ; (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I))) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; 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::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETCLIPRECTANGLES+) ; (XLIB::DATA (FIRST XLIB::LOCAL-CLIP)) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-CLIP-X XLIB::LOCAL-STATE) 0) ; (OR (XLIB::GCONTEXT-INTERNAL-CLIP-Y XLIB::LOCAL-STATE) 0)) ; ((SEQUENCE :FORMAT XLIB:INT16) (SECOND XLIB::LOCAL-CLIP))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB ; --> 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB ; --> 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FORCE-GCONTEXT-CHANGES ...) ; compiling (DEFMACRO WITH-GCONTEXT ...) ; compiling (DEFUN COPY-GCONTEXT-LOCAL-STATE ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN COPY-GCONTEXT-LOCAL-STATE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER PROGN FUNCALL SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; 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-COPYGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB ; --> 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ==> ; (SB-KERNEL:%NEGATE (THE NUMBER 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*))) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL XLIB::COPY-FUNCTION) ; ; 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:GCONTEXT XLIB::TEMP-GC) ; (XLIB:DRAWABLE (XLIB::GCONTEXT-DRAWABLE XLIB:GCONTEXT)) ; (XLIB:CARD29 0)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB ; --> 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (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))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB ; --> 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ==> ; (SB-KERNEL:%NEGATE (THE NUMBER 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; 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 INTEGER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; compiling (DEFUN RESTORE-GCONTEXT-TEMP-STATE ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ==> ; (SB-KERNEL:%NEGATE (THE NUMBER 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. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB ; --> 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; 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)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL XLIB::COPY-FUNCTION) ; ; 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-COPYGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB ; --> 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ==> ; (SB-KERNEL:%NEGATE (THE NUMBER 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; 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 INTEGER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB ; --> 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; compiling (DEFUN CREATE-GCONTEXT ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN CREATE-GCONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB:WITH-DISPLAY XLIB::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 SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; 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))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN COPY-GCONTEXT-COMPONENTS ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; 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 CONS NULL VECTOR). ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC ; XLIB::DST ; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) ; (XLIB::INDEX+ ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; XLIB::*GCONTEXT-DATA-LENGTH*))) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL ; (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION)) ; ; 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 CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::SRC XLIB::DST) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::MASK))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB ; --> 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN COPY-GCONTEXT ...) ; compiling (DEFUN FREE-GCONTEXT ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN FREE-GCONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFMACRO DEFINE-GCONTEXT-ACCESSOR ...) ; compiling (DEFUN ADD-GCONTEXT-EXTENSION ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/gcontext-tmpP3BI68WQ.fasl written ; compilation finished in 0:00:01.936 ; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFVAR *EVENT-FREE-LIST* ...) ; compiling (DEFCONSTANT +MAX-EVENTS+ ...) ; compiling (DEFVAR *EVENT-KEY-VECTOR* ...) ; compiling (DEFVAR *EVENT-MACRO-VECTOR* ...) ; compiling (DEFVAR *EVENT-HANDLER-VECTOR* ...) ; compiling (DEFVAR *EVENT-SEND-VECTOR* ...) ; compiling (DEFUN ALLOCATE-EVENT ...) ; compiling (DEFUN DEALLOCATE-EVENT ...) ; compiling (DEFPARAMETER *FIRST-EXTENSION-EVENT-CODE* ...) ; compiling (DEFVAR *EXTENSIONS* ...) ; compiling (DEFMACRO DEFINE-EXTENSION ...) ; compiling (DEFUN CANONICALIZE-EVENT-NAME ...) ; compiling (DEFUN EXTENSION-EVENT-KEY-P ...) ; compiling (DEFUN ALLOCATE-EXTENSION-EVENT-CODE ...) ; compiling (DEFUN GET-INTERNAL-EVENT-CODE ...) ; compiling (DEFUN GET-EXTERNAL-EVENT-CODE ...) ; compiling (DEFMACRO EXTENSION-OPCODE ...) ; compiling (DEFUN INITIALIZE-EXTENSIONS ...) ; compiling (DEFVAR *PENDING-COMMAND-FREE-LIST* ...) ; compiling (DEFUN START-PENDING-COMMAND ...) ; compiling (DEFUN STOP-PENDING-COMMAND ...) ; compiling (DEFVAR *REPLY-BUFFER-FREE-LISTS* ...) ; compiling (DEFUN ALLOCATE-REPLY-BUFFER ...) ; compiling (DEFUN DEALLOCATE-REPLY-BUFFER ...) ; compiling (DEFUN READ-ERROR-INPUT ...) ; compiling (DEFUN READ-REPLY-INPUT ...) ; compiling (DEFUN READ-EVENT-INPUT ...) ; compiling (DEFUN NOTE-INPUT-COMPLETE ...) ; compiling (DEFUN READ-INPUT ...) ; compiling (DEFUN REPORT-ASYNCHRONOUS-ERRORS ...) ; compiling (DEFUN WAIT-FOR-EVENT ...) ; compiling (DEFUN READ-REPLY ...) ; compiling (DEFUN EVENT-LISTEN ...) ; compiling (DEFUN QUEUE-EVENT ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN QUEUE-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY ; XLIB::ARGS) ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL ; (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; compiling (DEFUN ENQUEUE-EVENT ...) ; compiling (DEFMACRO DEFINE-EVENT ...) ; compiling (DEFINE-EVENT :KEY-PRESS ...) ; compiling (DEFINE-EVENT :KEY-RELEASE ...) ; compiling (DEFINE-EVENT :BUTTON-PRESS ...) ; compiling (DEFINE-EVENT :BUTTON-RELEASE ...) ; compiling (DEFINE-EVENT :MOTION-NOTIFY ...) ; compiling (DEFINE-EVENT :ENTER-NOTIFY ...) ; compiling (DEFINE-EVENT :LEAVE-NOTIFY ...) ; compiling (DEFINE-EVENT :FOCUS-IN ...) ; compiling (DEFINE-EVENT :FOCUS-OUT ...) ; compiling (DEFINE-EVENT :KEYMAP-NOTIFY ...) ; compiling (DEFINE-EVENT :EXPOSURE ...) ; compiling (DEFINE-EVENT :GRAPHICS-EXPOSURE ...) ; compiling (DEFINE-EVENT :NO-EXPOSURE ...) ; compiling (DEFINE-EVENT :VISIBILITY-NOTIFY ...) ; compiling (DEFINE-EVENT :CREATE-NOTIFY ...) ; compiling (DEFINE-EVENT :DESTROY-NOTIFY ...) ; compiling (DEFINE-EVENT :UNMAP-NOTIFY ...) ; compiling (DEFINE-EVENT :MAP-NOTIFY ...) ; compiling (DEFINE-EVENT :MAP-REQUEST ...) ; compiling (DEFINE-EVENT :REPARENT-NOTIFY ...) ; compiling (DEFINE-EVENT :CONFIGURE-NOTIFY ...) ; compiling (DEFINE-EVENT :CONFIGURE-REQUEST ...) ; compiling (DEFINE-EVENT :GRAVITY-NOTIFY ...) ; compiling (DEFINE-EVENT :RESIZE-REQUEST ...) ; compiling (DEFINE-EVENT :CIRCULATE-NOTIFY ...) ; compiling (DEFINE-EVENT :CIRCULATE-REQUEST ...) ; compiling (DEFINE-EVENT :PROPERTY-NOTIFY ...) ; compiling (DEFINE-EVENT :SELECTION-CLEAR ...) ; compiling (DEFINE-EVENT :SELECTION-REQUEST ...) ; compiling (DEFINE-EVENT :SELECTION-NOTIFY ...) ; compiling (DEFINE-EVENT :COLORMAP-NOTIFY ...) ; compiling (DEFINE-EVENT :CLIENT-MESSAGE ...) ; compiling (DEFINE-EVENT :MAPPING-NOTIFY ...) ; compiling (DEFMACRO DECLARE-EVENT ...) ; compiling (DEFUN CHECK-CONSISTENCY ...) ; compiling (DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE ...) ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G55 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE :BUTTON-PRESS :BUTTON-RELEASE) ; (DATA CODE) ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW ROOT (WINDOW EVENT-WINDOW)) ; ((OR NULL WINDOW) CHILD) ; (INT16 ROOT-X ROOT-Y X Y) ; (CARD16 STATE) ; (BOOLEAN SAME-SCREEN-P)) ; compiling (DECLARE-EVENT :MOTION-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G55 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :MOTION-NOTIFY ; ((DATA BOOLEAN) HINT-P) ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW ROOT (WINDOW EVENT-WINDOW)) ; ((OR NULL WINDOW) CHILD) ; (INT16 ROOT-X ROOT-Y X Y) ; (CARD16 STATE) ; (BOOLEAN SAME-SCREEN-P)) ; compiling (DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY) ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G63 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY) ; ((DATA ; (MEMBER8 :ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR ; :NONLINEAR-VIRTUAL)) ; KIND) ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW ROOT (WINDOW EVENT-WINDOW)) ; ((OR NULL WINDOW) CHILD) ; (INT16 ROOT-X ROOT-Y X Y) ; (CARD16 STATE) ; ((MEMBER8 :NORMAL :GRAB :UNGRAB) MODE) ; ((BIT 0) FOCUS-P) ; ((BIT 1) SAME-SCREEN-P)) ; compiling (DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G46 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ; ((DATA ; (MEMBER8 :ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR :NONLINEAR-VIRTUAL ; :POINTER :POINTER-ROOT :NONE)) ; KIND) ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; ((MEMBER8 :NORMAL :WHILE-GRABBED :GRAB :UNGRAB) MODE)) ; compiling (DECLARE-EVENT :KEYMAP-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :KEYMAP-NOTIFY ; (XLIB:DECLARE-EVENT :KEYMAP-NOTIFY ; ((XLIB::BIT-VECTOR256 0) XLIB::KEYMAP)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G35 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :KEYMAP-NOTIFY ; ((BIT-VECTOR256 0) KEYMAP)) ; compiling (DECLARE-EVENT :EXPOSURE ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G43 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :EXPOSURE ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (CARD16 X Y WIDTH HEIGHT COUNT)) ; compiling (DECLARE-EVENT :GRAPHICS-EXPOSURE ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G45 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :GRAPHICS-EXPOSURE ; (CARD16 SEQUENCE) ; (DRAWABLE (DRAWABLE EVENT-WINDOW)) ; (CARD16 X Y WIDTH HEIGHT) ; (CARD16 MINOR) ; (CARD16 COUNT) ; (CARD8 MAJOR)) ; compiling (DECLARE-EVENT :NO-EXPOSURE ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G40 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :NO-EXPOSURE ; (CARD16 SEQUENCE) ; (DRAWABLE (DRAWABLE EVENT-WINDOW)) ; (CARD16 MINOR) ; (CARD8 MAJOR)) ; compiling (DECLARE-EVENT :VISIBILITY-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G42 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :VISIBILITY-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; ((MEMBER8 :UNOBSCURED :PARTIALLY-OBSCURED :FULLY-OBSCURED) STATE)) ; compiling (DECLARE-EVENT :CREATE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G45 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :CREATE-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (PARENT EVENT-WINDOW) WINDOW) ; (INT16 X Y) ; (CARD16 WIDTH HEIGHT BORDER-WIDTH) ; (BOOLEAN OVERRIDE-REDIRECT-P)) ; compiling (DECLARE-EVENT :DESTROY-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :DESTROY-NOTIFY ; (XLIB:DECLARE-EVENT :DESTROY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G38 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :DESTROY-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW)) ; compiling (DECLARE-EVENT :UNMAP-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :UNMAP-NOTIFY ; (XLIB:DECLARE-EVENT :UNMAP-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; (BOOLEAN XLIB::CONFIGURE-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G39 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :UNMAP-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW) ; (BOOLEAN CONFIGURE-P)) ; compiling (DECLARE-EVENT :MAP-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G39 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :MAP-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW) ; (BOOLEAN OVERRIDE-REDIRECT-P)) ; compiling (DECLARE-EVENT :MAP-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :MAP-REQUEST ; (XLIB:DECLARE-EVENT :MAP-REQUEST ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G39 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :MAP-REQUEST ; (CARD16 SEQUENCE) ; (WINDOW (PARENT EVENT-WINDOW) WINDOW)) ; compiling (DECLARE-EVENT :REPARENT-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G42 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :REPARENT-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW PARENT) ; (INT16 X Y) ; (BOOLEAN OVERRIDE-REDIRECT-P)) ; compiling (DECLARE-EVENT :CONFIGURE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G48 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :CONFIGURE-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW) ; ((OR NULL WINDOW) ABOVE-SIBLING) ; (INT16 X Y) ; (CARD16 WIDTH HEIGHT BORDER-WIDTH) ; (BOOLEAN OVERRIDE-REDIRECT-P)) ; compiling (DECLARE-EVENT :CONFIGURE-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G53 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :CONFIGURE-REQUEST ; ((DATA (MEMBER8 :ABOVE :BELOW :TOP-IF :BOTTOM-IF :OPPOSITE)) ; STACK-MODE) ; (CARD16 SEQUENCE) ; (WINDOW (PARENT EVENT-WINDOW) WINDOW) ; ((OR NULL WINDOW) ABOVE-SIBLING) ; (INT16 X Y) ; (CARD16 WIDTH HEIGHT BORDER-WIDTH VALUE-MASK)) ; compiling (DECLARE-EVENT :GRAVITY-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G40 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :GRAVITY-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW) ; (INT16 X Y)) ; compiling (DECLARE-EVENT :RESIZE-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G40 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :RESIZE-REQUEST ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (CARD16 WIDTH HEIGHT)) ; compiling (DECLARE-EVENT :CIRCULATE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G43 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :CIRCULATE-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW PARENT) ; ((MEMBER8 :TOP :BOTTOM) PLACE)) ; compiling (DECLARE-EVENT :CIRCULATE-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G43 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :CIRCULATE-REQUEST ; (CARD16 SEQUENCE) ; (WINDOW (PARENT EVENT-WINDOW) WINDOW) ; (PAD16 1 2) ; ((MEMBER8 :TOP :BOTTOM) PLACE)) ; compiling (DECLARE-EVENT :PROPERTY-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G48 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :PROPERTY-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (KEYWORD ATOM) ; ((OR NULL CARD32) TIME) ; ((MEMBER8 :NEW-VALUE :DELETED) STATE)) ; compiling (DECLARE-EVENT :SELECTION-CLEAR ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G44 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :SELECTION-CLEAR ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (KEYWORD SELECTION)) ; compiling (DECLARE-EVENT :SELECTION-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G50 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :SELECTION-REQUEST ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW (WINDOW EVENT-WINDOW) REQUESTOR) ; (KEYWORD SELECTION TARGET) ; ((OR NULL KEYWORD) PROPERTY)) ; compiling (DECLARE-EVENT :SELECTION-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G49 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :SELECTION-NOTIFY ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (KEYWORD SELECTION TARGET) ; ((OR NULL KEYWORD) PROPERTY)) ; compiling (DECLARE-EVENT :COLORMAP-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; 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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G44 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :COLORMAP-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; ((OR NULL COLORMAP) COLORMAP) ; (BOOLEAN NEW-P INSTALLED-P)) ; compiling (DECLARE-EVENT :CLIENT-MESSAGE ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB::DATA FORMAT) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK XLIB::READING-EVENT ; --> XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL SB-C::%FUNCALL ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-GET XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE ; --> LET* ; ==> ; (MAKE-ARRAY (CEILING 160 FORMAT) :ELEMENT-TYPE `(UNSIGNED-BYTE ,FORMAT)) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK XLIB::READING-EVENT ; --> XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL SB-C::%FUNCALL ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-GET XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE ; --> LET* DO BLOCK LET TAGBODY TAGBODY CASE LET COND IF PROGN SETF LET* ; --> FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK XLIB::READING-EVENT ; --> XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL SB-C::%FUNCALL ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-GET XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE ; --> LET* DO BLOCK LET TAGBODY TAGBODY CASE LET COND IF IF PROGN SETF LET* ; --> FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK XLIB::READING-EVENT ; --> XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL SB-C::%FUNCALL ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-GET XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE ; --> LET* DO BLOCK LET TAGBODY TAGBODY CASE LET COND IF IF IF PROGN SETF LET* ; --> FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G67 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :CLIENT-MESSAGE ; (DATA FORMAT) ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((CLIENT-MESSAGE-SEQUENCE FORMAT) DATA)) ; --> XLIB::WITHIN-DEFINITION 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 ; --> LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN 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 LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN 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 LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DECLARE-EVENT :MAPPING-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :MAPPING-NOTIFY ; (XLIB:DECLARE-EVENT :MAPPING-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; ((XLIB::MEMBER8 :MODIFIER :KEYBOARD :POINTER) XLIB::REQUEST) ; (XLIB:CARD8 XLIB::START) ; (XLIB:CARD8 COUNT)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G42 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :MAPPING-NOTIFY ; (CARD16 SEQUENCE) ; ((MEMBER8 :MODIFIER :KEYBOARD :POINTER) REQUEST) ; (CARD8 START) ; (CARD8 COUNT)) ; compiling (DEFUN EVENT-LOOP-SETUP ...) ; compiling (DEFUN EVENT-LOOP-STEP-BEFORE ...) ; compiling (DEFUN DEQUEUE-EVENT ...) ; compiling (DEFUN EVENT-LOOP-STEP-AFTER ...) ; compiling (DEFMACRO EVENT-LOOP ...) ; compiling (DEFUN DISCARD-CURRENT-EVENT ...) ; compiling (DEFUN PROCESS-EVENT ...) ; compiling (DEFUN MAKE-EVENT-HANDLERS ...) ; compiling (DEFUN EVENT-HANDLER ...) ; compiling (DEFUN SET-EVENT-HANDLER ...) ; compiling (DEFSETF EVENT-HANDLER ...) ; compiling (DEFMACRO EVENT-CASE ...) ; compiling (DEFMACRO EVENT-COND ...) ; compiling (DEFUN GET-EVENT-CODE ...) ; compiling (DEFUN UNIVERSAL-EVENT-GET-MACRO ...) ; compiling (DEFMACRO EVENT-DISPATCH ...) ; compiling (DEFMACRO BINDING-EVENT-VALUES ...) ; compiling (DEFPARAMETER *XERROR-VECTOR* ...) ; compiling (DEFUN MAKE-ERROR ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN MAKE-ERROR ; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL XLIB::ERROR-DECODE-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; compiling (DEFUN REPORT-ERROR ...) ; compiling (DEFUN REQUEST-NAME ...) ; compiling (DEFUN REPORT-REQUEST-ERROR ...) ; compiling (DEFINE-CONDITION REQUEST-ERROR ...) ; compiling (DEFINE-CONDITION RESOURCE-ERROR ...) ; compiling (DEFINE-CONDITION UNKNOWN-ERROR ...) ; compiling (DEFINE-CONDITION ACCESS-ERROR ...) ; compiling (DEFINE-CONDITION ALLOC-ERROR ...) ; compiling (DEFINE-CONDITION ATOM-ERROR ...) ; compiling (DEFINE-CONDITION COLORMAP-ERROR ...) ; compiling (DEFINE-CONDITION CURSOR-ERROR ...) ; compiling (DEFINE-CONDITION DRAWABLE-ERROR ...) ; compiling (DEFINE-CONDITION FONT-ERROR ...) ; compiling (DEFINE-CONDITION GCONTEXT-ERROR ...) ; compiling (DEFINE-CONDITION ID-CHOICE-ERROR ...) ; compiling (DEFINE-CONDITION ILLEGAL-REQUEST-ERROR ...) ; compiling (DEFINE-CONDITION LENGTH-ERROR ...) ; compiling (DEFINE-CONDITION MATCH-ERROR ...) ; compiling (DEFINE-CONDITION NAME-ERROR ...) ; compiling (DEFINE-CONDITION PIXMAP-ERROR ...) ; compiling (DEFINE-CONDITION VALUE-ERROR ...) ; compiling (DEFINE-CONDITION WINDOW-ERROR ...) ; compiling (DEFINE-CONDITION IMPLEMENTATION-ERROR ...) ; compiling (DEFINE-CONDITION X-TYPE-ERROR ...) ; compiling (DEFINE-CONDITION CLOSED-DISPLAY ...) ; compiling (DEFINE-CONDITION LOOKUP-ERROR ...) ; compiling (DEFINE-CONDITION CONNECTION-FAILURE ...) ; compiling (DEFINE-CONDITION REPLY-LENGTH-ERROR ...) ; compiling (DEFINE-CONDITION REPLY-TIMEOUT ...) ; compiling (DEFINE-CONDITION SEQUENCE-ERROR ...) ; compiling (DEFINE-CONDITION UNEXPECTED-REPLY ...) ; compiling (DEFINE-CONDITION MISSING-PARAMETER ...) ; compiling (DEFINE-CONDITION INVALID-FONT ...) ; compiling (DEFINE-CONDITION DEVICE-BUSY ...) ; compiling (DEFINE-CONDITION UNIMPLEMENTED-EVENT ...) ; compiling (DEFINE-CONDITION UNDEFINED-EVENT ...) ; compiling (DEFINE-CONDITION ABSENT-EXTENSION ...) ; compiling (DEFINE-CONDITION INCONSISTENT-PARAMETERS ...) ; compiling (DEFINE-CONDITION RESOURCE-IDS-EXHAUSTED ...) ; compiling (DEFUN GET-ERROR-KEY ...) ; compiling (DEFMACRO DEFINE-ERROR ...) ; compiling (DEFUN DECODE-CORE-ERROR ...) ; compiling (DEFUN DECODE-RESOURCE-ERROR ...) ; compiling (DEFINE-ERROR UNKNOWN-ERROR ...) ; compiling (DEFINE-ERROR REQUEST-ERROR ...) ; compiling (DEFINE-ERROR VALUE-ERROR ...) ; compiling (DEFINE-ERROR WINDOW-ERROR ...) ; compiling (DEFINE-ERROR PIXMAP-ERROR ...) ; compiling (DEFINE-ERROR ATOM-ERROR ...) ; compiling (DEFINE-ERROR CURSOR-ERROR ...) ; compiling (DEFINE-ERROR FONT-ERROR ...) ; compiling (DEFINE-ERROR MATCH-ERROR ...) ; compiling (DEFINE-ERROR DRAWABLE-ERROR ...) ; compiling (DEFINE-ERROR ACCESS-ERROR ...) ; compiling (DEFINE-ERROR ALLOC-ERROR ...) ; compiling (DEFINE-ERROR COLORMAP-ERROR ...) ; compiling (DEFINE-ERROR GCONTEXT-ERROR ...) ; compiling (DEFINE-ERROR ID-CHOICE-ERROR ...) ; compiling (DEFINE-ERROR NAME-ERROR ...) ; compiling (DEFINE-ERROR LENGTH-ERROR ...) ; compiling (DEFINE-ERROR IMPLEMENTATION-ERROR ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/input-tmpQDARA81Z.fasl written ; compilation finished in 0:00:02.263 ; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFUN CREATE-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CREATE-WINDOW ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:WINDOW 'XLIB:WINDOW) ; --> XLIB:WITH-DISPLAY XLIB::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 SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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 2) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 4) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 8) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 16) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 32) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 64) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 128) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 256) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 512) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 1024) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 2048) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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 INCF LET* ; ==> ; (+ XLIB::%INDEX (XLIB::BUFFER-BOFFSET #:%BUFFER85)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DESTROY-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN DESTROY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-DESTROYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DESTROY-SUBWINDOWS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN DESTROY-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-DESTROYSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ADD-TO-SAVE-SET ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ADD-TO-SAVE-SET ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CHANGESAVESET+) ; (XLIB::DATA 0) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN REMOVE-FROM-SAVE-SET ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN REMOVE-FROM-SAVE-SET ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CHANGESAVESET+) ; (XLIB::DATA 1) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN REPARENT-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MAP-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN MAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MAP-SUBWINDOWS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN MAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNMAP-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNMAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNMAP-SUBWINDOWS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNMAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CIRCULATE-WINDOW-UP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CIRCULATE-WINDOW-UP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 0) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CIRCULATE-WINDOW-DOWN ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CIRCULATE-WINDOW-DOWN ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 1) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-TREE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-TREE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTREE+ NIL ; :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::WINDOW-GET 8) (XLIB::RESOURCE-ID-GET 12) ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD16-GET 16) :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN INTERN-ATOM ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FIND-ATOM ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ATOM-NAME ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ATOM-NAME ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETATOMNAME+ NIL ; :SIZES (16)) ; ((XLIB:RESOURCE-ID XLIB::ATOM-ID)) ; (VALUES (XLIB::STRING-GET (XLIB::CARD16-GET 8) XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN LOOKUP-XATOM ...) ; compiling (DEFUN CHANGE-PROPERTY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DELETE-PROPERTY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN DELETE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DELETEPROPERTY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GET-PROPERTY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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 # # # #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ROTATE-PROPERTIES ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN LIST-PROPERTIES ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN LIST-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTPROPERTIES+ ; NIL :SIZES 16) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :INDEX XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SELECTION-OWNER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SELECTION-OWNER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETSELECTIONOWNER+ 12 :SIZES ; 32) ; ((XLIB:RESOURCE-ID XLIB::SELECTION-ID)) ; (VALUES (XLIB::RESOURCE-ID-OR-NIL-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SET-SELECTION-OWNER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFSETF SELECTION-OWNER ...) ; compiling (DEFUN CONVERT-SELECTION ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SEND-EVENT ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SEND-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL ; (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE)) ; ; 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)))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GRAB-POINTER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNGRAB-POINTER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNGRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABPOINTER+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GRAB-BUTTON ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNGRAB-BUTTON ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CHANGE-ACTIVE-POINTER-GRAB ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GRAB-KEYBOARD ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNGRAB-KEYBOARD ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNGRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABKEYBOARD+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GRAB-KEY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNGRAB-KEY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ALLOW-EVENTS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ALLOW-EVENTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-ALLOWEVENTS+) ; ((XLIB::DATA ; (MEMBER :ASYNC-POINTER :SYNC-POINTER :REPLAY-POINTER :ASYNC-KEYBOARD ; :SYNC-KEYBOARD :REPLAY-KEYBOARD :ASYNC-BOTH :SYNC-BOTH)) ; XLIB::MODE) ; ((OR NULL XLIB:CARD32) TIME)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GRAB-SERVER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN GRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-GRABSERVER+)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNGRAB-SERVER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNGRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABSERVER+)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFMACRO WITH-SERVER-GRABBED ...) ; compiling (DEFUN QUERY-POINTER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-POINTER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYPOINTER+ 26 ; :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::INT16-GET 20) (XLIB::INT16-GET 22) (XLIB::BOOLEAN-GET 1) ; (XLIB::OR-GET 12 NULL XLIB:WINDOW) (XLIB::CARD16-GET 24) ; (XLIB::INT16-GET 16) (XLIB::INT16-GET 18) (XLIB::WINDOW-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN POINTER-POSITION ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN POINTER-POSITION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYPOINTER+ 24 ; :SIZES (8 16)) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::INT16-GET 20) (XLIB::INT16-GET 22) (XLIB::BOOLEAN-GET 1))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GLOBAL-POINTER-POSITION ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN GLOBAL-POINTER-POSITION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYPOINTER+ 20 ; :SIZES (16 32)) ; ((XLIB:WINDOW (XLIB:SCREEN-ROOT (FIRST #)))) ; (VALUES (XLIB::INT16-GET 16) (XLIB::INT16-GET 18) (XLIB::WINDOW-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MOTION-EVENTS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN TRANSLATE-COORDINATES ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WARP-POINTER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WARP-POINTER-RELATIVE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WARP-POINTER-IF-INSIDE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WARP-POINTER-RELATIVE-IF-INSIDE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SET-INPUT-FOCUS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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 XLIB:WINDOW (MEMBER :NONE :POINTER-ROOT)) XLIB::FOCUS) ; ((OR NULL XLIB:CARD32) TIME)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN INPUT-FOCUS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN INPUT-FOCUS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETINPUTFOCUS+ 16 ; :SIZES (8 32)) ; NIL ; (VALUES (XLIB::OR-GET 8 XLIB:WINDOW (MEMBER :NONE :POINTER-ROOT)) ; (XLIB::MEMBER8-GET 1 :NONE :POINTER-ROOT :PARENT))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-KEYMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-KEYMAP ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYKEYMAP+ 40 ; :SIZES 8) ; NIL ; (VALUES (XLIB::BIT-VECTOR256-GET 8 8 BIT-VECTOR))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CREATE-PIXMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CREATE-PIXMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP) ; --> XLIB:WITH-DISPLAY XLIB::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 SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FREE-PIXMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN FREE-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEPIXMAP+) ; (XLIB:PIXMAP XLIB:PIXMAP)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CLEAR-AREA ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN COPY-AREA ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN COPY-PLANE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CREATE-COLORMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CREATE-COLORMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP) ; --> XLIB:WITH-DISPLAY XLIB::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 SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FREE-COLORMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN FREE-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN COPY-COLORMAP-AND-FREE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN COPY-COLORMAP-AND-FREE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP) ; --> XLIB:WITH-DISPLAY XLIB::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 SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN INSTALL-COLORMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN INSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-INSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNINSTALL-COLORMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNINSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-UNINSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN INSTALLED-COLORMAPS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN INSTALLED-COLORMAPS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-LISTINSTALLEDCOLORMAPS+ NIL ; :SIZES 16) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :TRANSFORM #'XLIB::GET-COLORMAP ; :INDEX XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ALLOC-COLOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (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)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ALLOC-COLOR-CELLS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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+ #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ALLOC-COLOR-PLANES ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FREE-COLORS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN FREE-COLORS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-FREECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB::PLANE-MASK) ; (SEQUENCE XLIB::PIXELS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN STORE-COLOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN STORE-COLORS ...) ; compiling (DEFUN QUERY-COLORS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-COLORS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; 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))) ; ==> ; (SB-KERNEL:%SETELT SEQUENCE XLIB::I ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN ; (XLIB::RGB-VAL-GET 2) :BLUE ; (XLIB::RGB-VAL-GET 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (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)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN LOOKUP-COLOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CREATE-CURSOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CREATE-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB:WITH-DISPLAY XLIB::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 SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CREATE-GLYPH-CURSOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CREATE-GLYPH-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB:WITH-DISPLAY XLIB::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 SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FREE-CURSOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN FREE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECURSOR+) ; (XLIB:CURSOR XLIB:CURSOR)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN RECOLOR-CURSOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-BEST-CURSOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-BEST-TILE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-BEST-STIPPLE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-EXTENSION ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN LIST-EXTENSIONS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN LIST-EXTENSIONS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTEXTENSIONS+ ; XLIB::SIZE :SIZES 8) ; NIL ; (VALUES ; (XLIB::READ-SEQUENCE-STRING XLIB::BUFFER-BBUF ; (XLIB::INDEX- XLIB::SIZE XLIB::+REPLYSIZE+) ; (XLIB::CARD8-GET 1) XLIB::RESULT-TYPE ; XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CHANGE-KEYBOARD-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CHANGE-KEYBOARD-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEKEYBOARDCONTROL+ ; :SIZES (32)) ; (XLIB::MASK ; (INTEGER XLIB::KEY-CLICK-PERCENT XLIB::BELL-PERCENT XLIB::BELL-PITCH ; XLIB::BELL-DURATION) ; (XLIB:CARD32 XLIB::LED) ((MEMBER :OFF :ON) XLIB::LED-MODE) ; (XLIB:CARD32 XLIB::KEY) ; ((MEMBER :OFF :ON :DEFAULT) XLIB::AUTO-REPEAT-MODE))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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 2) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 4) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 8) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 16) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 32) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 64) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 128) ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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 INCF LET* ; ==> ; (+ XLIB::%INDEX (XLIB::BUFFER-BOFFSET #:%BUFFER34)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN KEYBOARD-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN KEYBOARD-CONTROL ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETKEYBOARDCONTROL+ 32 :SIZES ; (8 16 32)) ; NIL ; (VALUES (XLIB::CARD8-GET 12) (XLIB::CARD8-GET 13) (XLIB::CARD16-GET 14) ; (XLIB::CARD16-GET 16) (XLIB::CARD32-GET 8) ; (XLIB::MEMBER8-GET 1 :OFF :ON) (XLIB::BIT-VECTOR256-GET 20))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN BELL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN BELL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-BELL+) ; (XLIB::DATA (XLIB::INT8->CARD8 XLIB::PERCENT-FROM-NORMAL))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN POINTER-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN POINTER-MAPPING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETPOINTERMAPPING+ NIL :SIZES ; 8) ; NIL ; (VALUES ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD8-GET 1) :RESULT-TYPE ; XLIB::RESULT-TYPE :FORMAT XLIB:CARD8 :INDEX ; XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SET-POINTER-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SET-POINTER-MAPPING ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8) ; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP)) ; (VALUES (XLIB::BOOLEAN-GET 1))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFSETF POINTER-MAPPING ...) ; compiling (DEFUN CHANGE-POINTER-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN POINTER-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN POINTER-CONTROL ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETPOINTERCONTROL+ 16 :SIZES ; 16) ; NIL ; (VALUES (/ (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10)) ; (XLIB::CARD16-GET 12))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SET-SCREEN-SAVER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SCREEN-SAVER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETSCREENSAVER+ ; 14 :SIZES (8 16)) ; NIL ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10) ; (XLIB::MEMBER8-GET 12 :ON :OFF :DEFAULT) ; (XLIB::MEMBER8-GET 13 :ON :OFF :DEFAULT))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ACTIVATE-SCREEN-SAVER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ACTIVATE-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 1)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN RESET-SCREEN-SAVER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN RESET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ADD-ACCESS-HOST ...) ; compiling (DEFUN REMOVE-ACCESS-HOST ...) ; compiling (DEFUN CHANGE-ACCESS-HOST ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CHANGE-ACCESS-HOST ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+) ; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P) ; (XLIB:CARD8 ; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32) ; XLIB::FAMILY)) ; (XLIB:CARD16 (LENGTH XLIB::ADDRESS)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ACCESS-HOSTS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; 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)))) ; ==> ; (SB-KERNEL:%SETELT SEQUENCE XLIB::I ; (CONS ; (IF (< XLIB::FAMILY 3) ; (SVREF '#(:INTERNET :DECNET :CHAOS) XLIB::FAMILY) ; XLIB::FAMILY) ; (XLIB::SEQUENCE-GET :LENGTH XLIB::LEN :FORMAT XLIB:CARD8 ; :RESULT-TYPE 'LIST :INDEX ; (+ XLIB::BUFFER-BOFFSET 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTHOSTS+ NIL ; :SIZES (8 16)) ; NIL ; (LET* ((XLIB::ENABLED-P (XLIB::BOOLEAN-GET 1)) ; (XLIB::NHOSTS (XLIB::CARD16-GET 8)) ; (SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE XLIB::NHOSTS))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I XLIB::NHOSTS) ; (LET (# #) ; (SETF #) ; (XLIB::ADVANCE-BUFFER-OFFSET #))) ; (VALUES SEQUENCE XLIB::ENABLED-P))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ACCESS-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTHOSTS+ 2 ; :SIZES 8) ; NIL ; (XLIB::BOOLEAN-GET 1)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SET-ACCESS-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SET-ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACCESSCONTROL+) ; ((XLIB::DATA BOOLEAN) XLIB::ENABLED-P)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFSETF ACCESS-CONTROL ...) ; compiling (DEFUN CLOSE-DOWN-MODE ...) ; compiling (DEFUN SET-CLOSE-DOWN-MODE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SET-CLOSE-DOWN-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGECLOSEDOWNMODE+ :SIZES ; (32)) ; ((XLIB::DATA (MEMBER :DESTROY :RETAIN-PERMANENT :RETAIN-TEMPORARY)) ; XLIB::MODE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFSETF CLOSE-DOWN-MODE ...) ; compiling (DEFUN KILL-CLIENT ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN KILL-CLIENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID XLIB:RESOURCE-ID)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN KILL-TEMPORARY-CLIENTS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN KILL-TEMPORARY-CLIENTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN NO-OPERATION ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN NO-OPERATION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-NOOPERATION+)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/requests-tmpYEMMM7SE.fasl written ; compilation finished in 0:00:03.712 ; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFTYPE CHAR-INFO-VEC ...) ; compiling (DEF-CHAR-INFO-ACCESSORS IGNORE ...) ; compiling (DEFUN OPEN-FONT ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN OPEN-FONT ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB:WITH-DISPLAY XLIB::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 SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN OPEN-FONT-INTERNAL ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN OPEN-FONT-INTERNAL ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB:WITH-DISPLAY XLIB::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 SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; 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 SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) ; (XLIB:RESOURCE-ID XLIB::ID) ; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) ; (XLIB::PAD16 NIL) ; (STRING XLIB::NAME-STRING)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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 SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DISCARD-FONT-INFO ...) ; compiling (DEFUN QUERY-FONT ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN QUERY-FONT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYFONT+ 60) ; ((XLIB:RESOURCE-ID XLIB:FONT-ID)) ; (LET* ((XLIB::MIN-BYTE2 (XLIB::CARD16-GET 40)) ; (XLIB::MAX-BYTE2 (XLIB::CARD16-GET 42)) ; (XLIB::MIN-BYTE1 (XLIB::CARD8-GET 49)) ; (XLIB::MAX-BYTE1 (XLIB::CARD8-GET 50)) ; (XLIB::MIN-CHAR XLIB::MIN-BYTE2) ; (XLIB::MAX-CHAR (XLIB::INDEX+ # XLIB::MAX-BYTE2)) ; (XLIB::NFONT-PROPS (XLIB::CARD16-GET 46)) ; (XLIB::NCHAR-INFOS (XLIB::INDEX* # 6)) ; (XLIB::CHAR-INFO ; (MAKE-ARRAY XLIB::NCHAR-INFOS :ELEMENT-TYPE 'XLIB:INT16))) ; (SETQ XLIB::FONT-INFO ; (XLIB::MAKE-FONT-INFO :DIRECTION # :MIN-CHAR XLIB::MIN-CHAR ; :MAX-CHAR XLIB::MAX-CHAR :MIN-BYTE1 ; XLIB::MIN-BYTE1 :MAX-BYTE1 XLIB::MAX-BYTE1 ; :MIN-BYTE2 ...)) ; (SETQ XLIB::PROPS ; (XLIB::SEQUENCE-GET :LENGTH # :FORMAT XLIB:INT32 :RESULT-TYPE ; 'LIST :INDEX 60)) ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NCHAR-INFOS :FORMAT XLIB:INT16 :DATA ; XLIB::CHAR-INFO :INDEX ; (XLIB::INDEX+ 60 ; (XLIB::INDEX* 2 XLIB::NFONT-PROPS 4))) ; (SETF (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) XLIB::CHAR-INFO) ; (SETF (XLIB::FONT-FONT-INFO-INTERNAL XLIB:FONT) XLIB::FONT-INFO))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CLOSE-FONT ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN CLOSE-FONT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CLOSEFONT+) ; (XLIB:RESOURCE-ID XLIB::ID)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN LIST-FONT-NAMES ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; 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+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN LIST-FONTS ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; 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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FONT-PATH ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN FONT-PATH ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETFONTPATH+ ; XLIB::SIZE :SIZES (8 16)) ; NIL ; (VALUES ; (XLIB::READ-SEQUENCE-STRING XLIB::BUFFER-BBUF ; (XLIB::INDEX- XLIB::SIZE XLIB::+REPLYSIZE+) ; (XLIB::CARD16-GET 8) XLIB::RESULT-TYPE ; XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SET-FONT-PATH ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN SET-FONT-PATH ; (CEILING XLIB::REQUEST-LENGTH 4) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-C::DIVISOR) ; ; 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 ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP ; ==> ; (= REM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL (-4) (4)) DOUBLE-FLOAT ; SINGLE-FLOAT), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING ; SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING ; SYMBOL CHARACTER), not a STRING. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETFONTPATH+ :LENGTH ; XLIB::REQUEST-LENGTH) ; (LENGTH (CEILING XLIB::REQUEST-LENGTH 4)) ; (XLIB:CARD16 XLIB::PATH-LENGTH) ; (XLIB::PAD16 NIL) ; (PROGN ; (INCF XLIB::BUFFER-BOFFSET 8) ; (DOTIMES (XLIB::I XLIB::PATH-LENGTH) ; (LET* (# #) ; (XLIB::CARD8-PUT 0 XLIB::LEN) ; (XLIB::STRING-PUT 1 STRING :APPENDING T :HEADER-LENGTH 1) ; (INCF XLIB::BUFFER-BOFFSET #))) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::LROUND XLIB::BUFFER-BOFFSET)))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CEILING XLIB::REQUEST-LENGTH 4) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES ; ==> ; (+ SB-C::TRU 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETFONTPATH+ :LENGTH ; XLIB::REQUEST-LENGTH) ; (LENGTH (CEILING XLIB::REQUEST-LENGTH 4)) ; (XLIB:CARD16 XLIB::PATH-LENGTH) ; (XLIB::PAD16 NIL) ; (PROGN ; (INCF XLIB::BUFFER-BOFFSET 8) ; (DOTIMES (XLIB::I XLIB::PATH-LENGTH) ; (LET* (# #) ; (XLIB::CARD8-PUT 0 XLIB::LEN) ; (XLIB::STRING-PUT 1 STRING :APPENDING T :HEADER-LENGTH 1) ; (INCF XLIB::BUFFER-BOFFSET #))) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::LROUND XLIB::BUFFER-BOFFSET)))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFSETF FONT-PATH ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/fonts-tmp73HU0RPK.fasl written ; compilation finished in 0:00:00.419 ; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFVAR *INHIBIT-APPENDING* ...) ; compiling (DEFUN DRAW-POINT ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-POINT ; (XLIB::COMPARE-REQUEST (4) ; (XLIB::DATA 0) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> MACROLET MACROLET AND IF IF XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 ; ==> ; (= (XLIB:DRAWABLE-ID XLIB:DRAWABLE) (XLIB::READ-CARD29 4)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 = IF ; ==> ; (= (XLIB:GCONTEXT-ID XLIB:GCONTEXT) (XLIB::READ-CARD29 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-POINTS ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-POINTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-LINE ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-LINE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> MACROLET MACROLET AND IF XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 ; ==> ; (= (XLIB:DRAWABLE-ID XLIB:DRAWABLE) (XLIB::READ-CARD29 4)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 = IF ; ==> ; (= (XLIB:GCONTEXT-ID XLIB:GCONTEXT) (XLIB::READ-CARD29 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-LINES ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-LINES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FILL-POLYGON ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN FILL-POLYGON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE) ; (BOOLEAN XLIB::RELATIVE-P) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-SEGMENTS ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-SEGMENTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-RECTANGLE ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-RECTANGLE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> MACROLET MACROLET AND IF XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 ; ==> ; (= (XLIB:DRAWABLE-ID XLIB:DRAWABLE) (XLIB::READ-CARD29 4)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 = IF ; ==> ; (= (XLIB:GCONTEXT-ID XLIB:GCONTEXT) (XLIB::READ-CARD29 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-RECTANGLES ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; (IF XLIB::FILL-P ; XLIB::+X-POLYFILLRECTANGLE+ ; XLIB::+X-POLYRECTANGLE+) ; :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-ARC ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-ARC ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> MACROLET MACROLET AND IF XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 ; ==> ; (= (XLIB:DRAWABLE-ID XLIB:DRAWABLE) (XLIB::READ-CARD29 4)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 = IF ; ==> ; (= (XLIB:GCONTEXT-ID XLIB:GCONTEXT) (XLIB::READ-CARD29 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-ARCS-LIST ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; 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))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-ARCS-VECTOR ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-ARCS-VECTOR ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (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))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-ARCS ...) ; compiling (DEFUN PUT-RAW-IMAGE ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN PUT-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-PUTIMAGE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GET-RAW-IMAGE ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; 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)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/graphics-tmpIO5N7K88.fasl written ; compilation finished in 0:00:00.643 ; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFPARAMETER *MAX-STRING-SIZE* ...) ; compiling (DEFTYPE TRANSLATION-FUNCTION ...) ; compiling (DEFUN TRANSLATE-DEFAULT ...) ; compiling (DEFUN TEXT-EXTENTS ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN TEXT-EXTENTS ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFUN TEXT-WIDTH ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN TEXT-WIDTH ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (INCF XLIB::WIDTH ; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) ; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) ; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END ; :WIDTH-ONLY) ; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END))) ; --> SETQ THE ; ==> ; (+ ; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) ; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) ; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END ; :WIDTH-ONLY) ; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END)) ; XLIB::WIDTH) ; ; 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. ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; compiling (DEFUN TEXT-EXTENTS-SERVER ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; 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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN TEXT-WIDTH-SERVER ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; 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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN TEXT-EXTENTS-LOCAL ...) ; compiling (DEFTYPE INDEX-SIZE ...) ; compiling (DEFUN DRAW-GLYPH ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-GLYPHS ...) ; compiling (DEFUN DRAW-GLYPHS8 ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN DRAW-GLYPHS8 ; (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 # # # # # # #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (DEFUN XLIB::DRAW-GLYPHS8 ; (XLIB:DRAWABLE XLIB:GCONTEXT XLIB::X XLIB::Y SEQUENCE XLIB::START ; XLIB::END XLIB::TRANSLATE XLIB::WIDTH) ; (DECLARE (TYPE XLIB:DRAWABLE XLIB:DRAWABLE) ; (TYPE XLIB:GCONTEXT XLIB:GCONTEXT) ; (TYPE XLIB:INT16 XLIB::X XLIB::Y) ; (TYPE XLIB:ARRAY-INDEX XLIB::START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::END) ; (TYPE (OR NULL XLIB:INT32) XLIB::WIDTH)) ; (DECLARE ; (XLIB::CLX-VALUES (OR NULL XLIB:ARRAY-INDEX) (OR NULL XLIB:INT32))) ; (DECLARE (TYPE XLIB:TRANSLATION-FUNCTION XLIB::TRANSLATE) ; (DYNAMIC-EXTENT XLIB::TRANSLATE)) ; (LET* ((XLIB::SRC-START XLIB::START) ; (XLIB::SRC-END (OR XLIB::END #)) ; (XLIB::NEXT-START NIL) ; (LENGTH (XLIB::INDEX- XLIB::SRC-END XLIB::SRC-START)) ; (XLIB::REQUEST-LENGTH (* LENGTH 2)) ; (XLIB:DISPLAY (XLIB:GCONTEXT-DISPLAY XLIB:GCONTEXT)) ; (XLIB:FONT (XLIB:GCONTEXT-FONT XLIB:GCONTEXT NIL))) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-START XLIB::SRC-END LENGTH) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::NEXT-START) ; (TYPE XLIB:DISPLAY XLIB:DISPLAY)) ; (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 # ; #))) ; (VALUES XLIB::NEXT-START XLIB::WIDTH))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G126 ; ; note: could not stack allocate TRANSLATE in: ; (DEFUN DRAW-GLYPHS8 ; (DRAWABLE GCONTEXT X Y SEQUENCE START END TRANSLATE WIDTH) ; (DECLARE (TYPE DRAWABLE DRAWABLE) ; (TYPE GCONTEXT GCONTEXT) ; (TYPE INT16 X Y) ; (TYPE ARRAY-INDEX START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL ARRAY-INDEX) END) ; (TYPE (OR NULL INT32) WIDTH)) ; (DECLARE (CLX-VALUES (OR NULL ARRAY-INDEX) (OR NULL INT32))) ; (DECLARE (TYPE TRANSLATION-FUNCTION TRANSLATE) ; (DYNAMIC-EXTENT TRANSLATE)) ; (LET* ((SRC-START START) ; (SRC-END (OR END (LENGTH SEQUENCE))) ; (NEXT-START NIL) ; (LENGTH (INDEX- SRC-END SRC-START)) ; (REQUEST-LENGTH (* LENGTH 2)) ; (DISPLAY (GCONTEXT-DISPLAY GCONTEXT)) ; (FONT (GCONTEXT-FONT GCONTEXT NIL))) ; (DECLARE (TYPE ARRAY-INDEX SRC-START SRC-END LENGTH) ; (TYPE (OR NULL ARRAY-INDEX) NEXT-START) ; (TYPE DISPLAY DISPLAY)) ; (WITH-BUFFER-REQUEST (DISPLAY +X-POLYTEXT8+ :GC-FORCE GCONTEXT ; :LENGTH REQUEST-LENGTH) ; (DRAWABLE DRAWABLE) ; (GCONTEXT GCONTEXT) ; (INT16 X Y) ; (PROGN ; (WITH-BUFFER-FLUSH-INHIBITED (DISPLAY) ; (DO* ((BOFFSET (INDEX+ BUFFER-BOFFSET 16)) ; (SRC-CHUNK 0) ; (DST-CHUNK 0) ; (OFFSET 0) ; (OVERALL-WIDTH 0) ; (STOP-P NIL)) ; ((OR STOP-P (ZEROP LENGTH)) ; (DO ((END (THE ARRAY-INDEX (LROUND BOFFSET)))) ; ((INDEX>= BOFFSET END)) ; (SETF (AREF BUFFER-BBUF BOFFSET) 0) ; (INDEX-INCF BOFFSET)) ; (LENGTH-PUT 2 ; (INDEX-ASH (INDEX- BOFFSET BUFFER-BOFFSET) ; -2)) ; (SETF (BUFFER-BOFFSET DISPLAY) BOFFSET) ; (UNLESS (INDEX-ZEROP LENGTH) (SETQ NEXT-START SRC-START)) ; (WHEN OVERALL-WIDTH (SETQ WIDTH OVERALL-WIDTH))) ; (DECLARE (TYPE ARRAY-INDEX SRC-CHUNK DST-CHUNK OFFSET) ; (TYPE (OR NULL INT32) OVERALL-WIDTH) ; (TYPE GENERALIZED-BOOLEAN STOP-P)) ; (SETQ SRC-CHUNK (INDEX-MIN LENGTH *MAX-STRING-SIZE*)) ; (MULTIPLE-VALUE-BIND (NEW-START NEW-FONT TRANSLATED-WIDTH) ; (FUNCALL TRANSLATE SEQUENCE SRC-START ; (INDEX+ SRC-START SRC-CHUNK) FONT BUFFER-BBUF ; (INDEX+ BOFFSET 2)) ; (SETQ DST-CHUNK (INDEX- NEW-START SRC-START) ; LENGTH (INDEX- LENGTH DST-CHUNK) ; SRC-START NEW-START) ; (IF TRANSLATED-WIDTH ; (WHEN OVERALL-WIDTH ; (INCF OVERALL-WIDTH TRANSLATED-WIDTH)) ; (SETQ OVERALL-WIDTH NIL)) ; (WHEN (INDEX-PLUSP DST-CHUNK) ; (SETF (AREF BUFFER-BBUF BOFFSET) DST-CHUNK) ; (SETF (AREF BUFFER-BBUF (INDEX+ BOFFSET 1)) OFFSET) ; (INCF BOFFSET (INDEX+ DST-CHUNK 2))) ; (SETQ OFFSET 0) ; (COND ; ((NULL NEW-FONT) ; (UNLESS (INDEX= SRC-CHUNK DST-CHUNK) (SETQ STOP-P T))) ; ((INTEGERP NEW-FONT) (SETQ OFFSET NEW-FONT)) ; ((TYPE? NEW-FONT 'FONT) (SETQ FONT NEW-FONT) ; (LET ((FONT-ID (FONT-ID FONT)) (BUFFER-BOFFSET BOFFSET)) ; (DECLARE (TYPE RESOURCE-ID FONT-ID) ; (TYPE ARRAY-INDEX BUFFER-BOFFSET)) ; (LET ((LOCAL-STATE (GCONTEXT-LOCAL-STATE GCONTEXT)) ; (SERVER-STATE (GCONTEXT-SERVER-STATE GCONTEXT))) ; (DECLARE ; (TYPE GCONTEXT-STATE LOCAL-STATE SERVER-STATE)) ; (SETF (GCONTEXT-INTERNAL-FONT-OBJ SERVER-STATE) FONT ; (GCONTEXT-INTERNAL-FONT SERVER-STATE) FONT-ID) ; (WITHOUT-INTERRUPTS ; (SETF (GCONTEXT-INTERNAL-FONT-OBJ LOCAL-STATE) FONT ; (GCONTEXT-INTERNAL-FONT LOCAL-STATE) ; FONT-ID))) ; (CARD8-PUT 0 255) ; (CARD8-PUT 1 (LDB (BYTE 8 24) FONT-ID)) ; (CARD8-PUT 2 (LDB (BYTE 8 16) FONT-ID)) ; (CARD8-PUT 3 (LDB (BYTE 8 8) FONT-ID)) ; (CARD8-PUT 4 (LDB (BYTE 8 0) FONT-ID))) ; (INDEX-INCF BOFFSET 5)))))))) ; (VALUES NEXT-START WIDTH))) ; (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 # # # # # # #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-C::%%ALLOCATE-CLOSURES ; ==> ; (SB-C::%ALLOCATE-CLOSURES ; '(#'(FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN XLIB::DRAW-GLYPHS8))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of CLOSURE-INIT ; (INCF XLIB::BOFFSET (XLIB::INDEX+ XLIB::DST-CHUNK 2)) ; ==> ; (SETQ XLIB::BOFFSET (+ (XLIB::INDEX+ XLIB::DST-CHUNK 2) XLIB::BOFFSET)) ; ; note: doing signed word to integer coercion (cost 20) to BOFFSET ; compiling (DEFUN DRAW-GLYPHS16 ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN DRAW-GLYPHS16 ; (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 # # # # # # # #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (DEFUN XLIB::DRAW-GLYPHS16 ; (XLIB:DRAWABLE XLIB:GCONTEXT XLIB::X XLIB::Y SEQUENCE XLIB::START ; XLIB::END XLIB::TRANSLATE XLIB::WIDTH) ; (DECLARE (TYPE XLIB:DRAWABLE XLIB:DRAWABLE) ; (TYPE XLIB:GCONTEXT XLIB:GCONTEXT) ; (TYPE XLIB:INT16 XLIB::X XLIB::Y) ; (TYPE XLIB:ARRAY-INDEX XLIB::START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::END) ; (TYPE (OR NULL XLIB:INT32) XLIB::WIDTH)) ; (DECLARE ; (XLIB::CLX-VALUES (OR NULL XLIB:ARRAY-INDEX) (OR NULL XLIB:INT32))) ; (DECLARE (TYPE XLIB:TRANSLATION-FUNCTION XLIB::TRANSLATE) ; (DYNAMIC-EXTENT XLIB::TRANSLATE)) ; (LET* ((XLIB::SRC-START XLIB::START) ; (XLIB::SRC-END (OR XLIB::END #)) ; (XLIB::NEXT-START NIL) ; (LENGTH (XLIB::INDEX- XLIB::SRC-END XLIB::SRC-START)) ; (XLIB::REQUEST-LENGTH (* LENGTH 3)) ; (XLIB:DISPLAY (XLIB:GCONTEXT-DISPLAY XLIB:GCONTEXT)) ; (XLIB:FONT (XLIB:GCONTEXT-FONT XLIB:GCONTEXT NIL)) ; (XLIB::BUFFER (XLIB::DISPLAY-TBUF16 XLIB:DISPLAY))) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-START XLIB::SRC-END LENGTH) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::NEXT-START) ; (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE XLIB::BUFFER-TEXT16 XLIB::BUFFER)) ; (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 # ; #))) ; (VALUES XLIB::NEXT-START XLIB::WIDTH))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G133 ; ; note: could not stack allocate TRANSLATE in: ; (DEFUN DRAW-GLYPHS16 ; (DRAWABLE GCONTEXT X Y SEQUENCE START END TRANSLATE WIDTH) ; (DECLARE (TYPE DRAWABLE DRAWABLE) ; (TYPE GCONTEXT GCONTEXT) ; (TYPE INT16 X Y) ; (TYPE ARRAY-INDEX START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL ARRAY-INDEX) END) ; (TYPE (OR NULL INT32) WIDTH)) ; (DECLARE (CLX-VALUES (OR NULL ARRAY-INDEX) (OR NULL INT32))) ; (DECLARE (TYPE TRANSLATION-FUNCTION TRANSLATE) ; (DYNAMIC-EXTENT TRANSLATE)) ; (LET* ((SRC-START START) ; (SRC-END (OR END (LENGTH SEQUENCE))) ; (NEXT-START NIL) ; (LENGTH (INDEX- SRC-END SRC-START)) ; (REQUEST-LENGTH (* LENGTH 3)) ; (DISPLAY (GCONTEXT-DISPLAY GCONTEXT)) ; (FONT (GCONTEXT-FONT GCONTEXT NIL)) ; (BUFFER (DISPLAY-TBUF16 DISPLAY))) ; (DECLARE (TYPE ARRAY-INDEX SRC-START SRC-END LENGTH) ; (TYPE (OR NULL ARRAY-INDEX) NEXT-START) ; (TYPE DISPLAY DISPLAY) ; (TYPE BUFFER-TEXT16 BUFFER)) ; (WITH-BUFFER-REQUEST (DISPLAY +X-POLYTEXT16+ :GC-FORCE GCONTEXT ; :LENGTH REQUEST-LENGTH) ; (DRAWABLE DRAWABLE) ; (GCONTEXT GCONTEXT) ; (INT16 X Y) ; (PROGN ; (WITH-BUFFER-FLUSH-INHIBITED (DISPLAY) ; (DO* ((BOFFSET (INDEX+ BUFFER-BOFFSET 16)) ; (SRC-CHUNK 0) ; (DST-CHUNK 0) ; (OFFSET 0) ; (OVERALL-WIDTH 0) ; (STOP-P NIL)) ; ((OR STOP-P (ZEROP LENGTH)) ; (DO ((END (LROUND BOFFSET))) ; ((INDEX>= BOFFSET END)) ; (SETF (AREF BUFFER-BBUF BOFFSET) 0) ; (INDEX-INCF BOFFSET)) ; (LENGTH-PUT 2 ; (INDEX-ASH (INDEX- BOFFSET BUFFER-BOFFSET) ; -2)) ; (SETF (BUFFER-BOFFSET DISPLAY) BOFFSET) ; (UNLESS (ZEROP LENGTH) (SETQ NEXT-START SRC-START)) ; (WHEN OVERALL-WIDTH (SETQ WIDTH OVERALL-WIDTH))) ; (DECLARE ; (TYPE ARRAY-INDEX BOFFSET SRC-CHUNK DST-CHUNK OFFSET) ; (TYPE (OR NULL INT32) OVERALL-WIDTH) ; (TYPE GENERALIZED-BOOLEAN STOP-P)) ; (SETQ SRC-CHUNK (INDEX-MIN LENGTH *MAX-STRING-SIZE*)) ; (MULTIPLE-VALUE-BIND (NEW-START NEW-FONT TRANSLATED-WIDTH) ; (FUNCALL TRANSLATE SEQUENCE SRC-START ; (INDEX+ SRC-START SRC-CHUNK) FONT BUFFER 0) ; (SETQ DST-CHUNK (INDEX- NEW-START SRC-START) ; LENGTH (INDEX- LENGTH DST-CHUNK) ; SRC-START NEW-START) ; (WRITE-SEQUENCE-CHAR2B DISPLAY (INDEX+ BOFFSET 2) BUFFER 0 ; DST-CHUNK) ; (IF TRANSLATED-WIDTH ; (WHEN OVERALL-WIDTH ; (INCF OVERALL-WIDTH TRANSLATED-WIDTH)) ; (SETQ OVERALL-WIDTH NIL)) ; (WHEN (INDEX-PLUSP DST-CHUNK) ; (SETF (AREF BUFFER-BBUF BOFFSET) DST-CHUNK) ; (SETF (AREF BUFFER-BBUF (INDEX+ BOFFSET 1)) OFFSET) ; (INDEX-INCF BOFFSET (INDEX+ DST-CHUNK DST-CHUNK 2))) ; (SETQ OFFSET 0) ; (COND ; ((NULL NEW-FONT) ; (UNLESS (INDEX= SRC-CHUNK DST-CHUNK) (SETQ STOP-P T))) ; ((INTEGERP NEW-FONT) (SETQ OFFSET NEW-FONT)) ; ((TYPE? NEW-FONT 'FONT) (SETQ FONT NEW-FONT) ; (LET ((FONT-ID (FONT-ID FONT)) (BUFFER-BOFFSET BOFFSET)) ; (DECLARE (TYPE RESOURCE-ID FONT-ID) ; (TYPE ARRAY-INDEX BUFFER-BOFFSET)) ; (LET ((LOCAL-STATE (GCONTEXT-LOCAL-STATE GCONTEXT)) ; (SERVER-STATE (GCONTEXT-SERVER-STATE GCONTEXT))) ; (DECLARE ; (TYPE GCONTEXT-STATE LOCAL-STATE SERVER-STATE)) ; (SETF (GCONTEXT-INTERNAL-FONT-OBJ SERVER-STATE) FONT ; (GCONTEXT-INTERNAL-FONT SERVER-STATE) FONT-ID) ; (WITHOUT-INTERRUPTS ; (SETF (GCONTEXT-INTERNAL-FONT-OBJ LOCAL-STATE) FONT ; (GCONTEXT-INTERNAL-FONT LOCAL-STATE) ; FONT-ID))) ; (CARD8-PUT 0 255) ; (CARD8-PUT 1 (LDB (BYTE 8 24) FONT-ID)) ; (CARD8-PUT 2 (LDB (BYTE 8 16) FONT-ID)) ; (CARD8-PUT 3 (LDB (BYTE 8 8) FONT-ID)) ; (CARD8-PUT 4 (LDB (BYTE 8 0) FONT-ID))) ; (INDEX-INCF BOFFSET 5)))))))) ; (VALUES NEXT-START WIDTH))) ; (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 # # # # # # # #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-C::%%ALLOCATE-CLOSURES ; ==> ; (SB-C::%ALLOCATE-CLOSURES ; '(#'(FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN XLIB::DRAW-GLYPHS16))) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the second argument of CLOSURE-INIT ; compiling (DEFUN DRAW-IMAGE-GLYPH ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-IMAGE-GLYPHS ...) ; compiling (DEFUN DRAW-IMAGE-GLYPHS8 ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; 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 #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (DEFUN XLIB::DRAW-IMAGE-GLYPHS8 ; (XLIB:DRAWABLE XLIB:GCONTEXT XLIB::X XLIB::Y SEQUENCE XLIB::START ; XLIB::END XLIB::TRANSLATE XLIB::WIDTH) ; (DECLARE (TYPE XLIB:DRAWABLE XLIB:DRAWABLE) ; (TYPE XLIB:GCONTEXT XLIB:GCONTEXT) ; (TYPE XLIB:INT16 XLIB::X XLIB::Y) ; (TYPE XLIB:ARRAY-INDEX XLIB::START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::END) ; (TYPE (OR NULL XLIB:INT32) XLIB::WIDTH)) ; (DECLARE (TYPE (OR NULL XLIB:TRANSLATION-FUNCTION) XLIB::TRANSLATE) ; (DYNAMIC-EXTENT XLIB::TRANSLATE)) ; (DECLARE ; (XLIB::CLX-VALUES (OR NULL XLIB:ARRAY-INDEX) (OR NULL XLIB:INT32))) ; (DO* ((XLIB:DISPLAY (XLIB:GCONTEXT-DISPLAY XLIB:GCONTEXT)) ; (LENGTH (XLIB::INDEX- XLIB::END XLIB::START)) ; (XLIB:FONT (XLIB:GCONTEXT-FONT XLIB:GCONTEXT NIL)) ; (XLIB::FONT-CHANGE NIL) ; (XLIB::NEW-START) ; (XLIB::TRANSLATED-WIDTH) ; (XLIB::CHUNK)) ; (NIL) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE XLIB:ARRAY-INDEX LENGTH) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::NEW-START XLIB::CHUNK)) ; (WHEN XLIB::FONT-CHANGE (SETF # XLIB:FONT)) ; (BLOCK XLIB::CHANGE-FONT ; (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 #)) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS8 (VALUES # #))))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G85 ; ; note: could not stack allocate TRANSLATE in: ; (DEFUN DRAW-IMAGE-GLYPHS8 ; (DRAWABLE GCONTEXT X Y SEQUENCE START END TRANSLATE WIDTH) ; (DECLARE (TYPE DRAWABLE DRAWABLE) ; (TYPE GCONTEXT GCONTEXT) ; (TYPE INT16 X Y) ; (TYPE ARRAY-INDEX START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL ARRAY-INDEX) END) ; (TYPE (OR NULL INT32) WIDTH)) ; (DECLARE (TYPE (OR NULL TRANSLATION-FUNCTION) TRANSLATE) ; (DYNAMIC-EXTENT TRANSLATE)) ; (DECLARE (CLX-VALUES (OR NULL ARRAY-INDEX) (OR NULL INT32))) ; (DO* ((DISPLAY (GCONTEXT-DISPLAY GCONTEXT)) ; (LENGTH (INDEX- END START)) ; (FONT (GCONTEXT-FONT GCONTEXT NIL)) ; (FONT-CHANGE NIL) ; (NEW-START) ; (TRANSLATED-WIDTH) ; (CHUNK)) ; (NIL) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE ARRAY-INDEX LENGTH) ; (TYPE (OR NULL ARRAY-INDEX) NEW-START CHUNK)) ; (WHEN FONT-CHANGE (SETF (GCONTEXT-FONT GCONTEXT) FONT)) ; (BLOCK CHANGE-FONT ; (WITH-BUFFER-REQUEST (DISPLAY +X-IMAGETEXT8+ :GC-FORCE GCONTEXT ; :LENGTH LENGTH) ; (DRAWABLE DRAWABLE) ; (GCONTEXT GCONTEXT) ; (INT16 X Y) ; (PROGN ; (WITH-BUFFER-FLUSH-INHIBITED (DISPLAY) ; (MULTIPLE-VALUE-SETQ (NEW-START FONT TRANSLATED-WIDTH) ; (FUNCALL (OR TRANSLATE #'TRANSLATE-DEFAULT) SEQUENCE START ; END FONT BUFFER-BBUF (INDEX+ BUFFER-BOFFSET 16))) ; (SETQ CHUNK (INDEX- NEW-START START)) ; (WHEN (AND (INDEX-ZEROP CHUNK) (TYPE? FONT 'FONT)) ; (SETQ FONT-CHANGE T) ; (RETURN-FROM CHANGE-FONT)) ; (WHEN (INDEX-ZEROP CHUNK) ; (RETURN-FROM DRAW-IMAGE-GLYPHS8 NEW-START)) ; (DATA-PUT 1 CHUNK) ; (LET ((BLEN (LROUND (INDEX+ 16 CHUNK)))) ; (LENGTH-PUT 2 (INDEX-ASH BLEN -2)) ; (SETF (BUFFER-BOFFSET DISPLAY) ; (INDEX+ BUFFER-BOFFSET BLEN)))))) ; (RETURN-FROM DRAW-IMAGE-GLYPHS8 ; (VALUES ; (IF (INDEX= CHUNK LENGTH) ; NIL ; NEW-START) ; (OR TRANSLATED-WIDTH WIDTH)))))) ; (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 #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-IMAGE-GLYPHS16 ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; 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 #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (DEFUN XLIB::DRAW-IMAGE-GLYPHS16 ; (XLIB:DRAWABLE XLIB:GCONTEXT XLIB::X XLIB::Y SEQUENCE XLIB::START ; XLIB::END XLIB::TRANSLATE XLIB::WIDTH) ; (DECLARE (TYPE XLIB:DRAWABLE XLIB:DRAWABLE) ; (TYPE XLIB:GCONTEXT XLIB:GCONTEXT) ; (TYPE XLIB:INT16 XLIB::X XLIB::Y) ; (TYPE XLIB:ARRAY-INDEX XLIB::START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::END) ; (TYPE (OR NULL XLIB:INT32) XLIB::WIDTH)) ; (DECLARE (TYPE (OR NULL XLIB:TRANSLATION-FUNCTION) XLIB::TRANSLATE) ; (DYNAMIC-EXTENT XLIB::TRANSLATE)) ; (DECLARE ; (XLIB::CLX-VALUES (OR NULL XLIB:ARRAY-INDEX) (OR NULL XLIB:INT32))) ; (DO* ((XLIB:DISPLAY (XLIB:GCONTEXT-DISPLAY XLIB:GCONTEXT)) ; (LENGTH (XLIB::INDEX- XLIB::END XLIB::START)) ; (XLIB:FONT (XLIB:GCONTEXT-FONT XLIB:GCONTEXT NIL)) ; (XLIB::FONT-CHANGE NIL) ; (XLIB::NEW-START) ; (XLIB::TRANSLATED-WIDTH) ; (XLIB::CHUNK) ; (XLIB::BUFFER (XLIB::BUFFER-TBUF16 XLIB:DISPLAY))) ; (NIL) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE XLIB:ARRAY-INDEX LENGTH) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::NEW-START XLIB::CHUNK) ; (TYPE XLIB::BUFFER-TEXT16 XLIB::BUFFER)) ; (WHEN XLIB::FONT-CHANGE (SETF # XLIB:FONT)) ; (BLOCK XLIB::CHANGE-FONT ; (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 #)) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS16 (VALUES # #))))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G90 ; ; note: could not stack allocate TRANSLATE in: ; (DEFUN DRAW-IMAGE-GLYPHS16 ; (DRAWABLE GCONTEXT X Y SEQUENCE START END TRANSLATE WIDTH) ; (DECLARE (TYPE DRAWABLE DRAWABLE) ; (TYPE GCONTEXT GCONTEXT) ; (TYPE INT16 X Y) ; (TYPE ARRAY-INDEX START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL ARRAY-INDEX) END) ; (TYPE (OR NULL INT32) WIDTH)) ; (DECLARE (TYPE (OR NULL TRANSLATION-FUNCTION) TRANSLATE) ; (DYNAMIC-EXTENT TRANSLATE)) ; (DECLARE (CLX-VALUES (OR NULL ARRAY-INDEX) (OR NULL INT32))) ; (DO* ((DISPLAY (GCONTEXT-DISPLAY GCONTEXT)) ; (LENGTH (INDEX- END START)) ; (FONT (GCONTEXT-FONT GCONTEXT NIL)) ; (FONT-CHANGE NIL) ; (NEW-START) ; (TRANSLATED-WIDTH) ; (CHUNK) ; (BUFFER (BUFFER-TBUF16 DISPLAY))) ; (NIL) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE ARRAY-INDEX LENGTH) ; (TYPE (OR NULL ARRAY-INDEX) NEW-START CHUNK) ; (TYPE BUFFER-TEXT16 BUFFER)) ; (WHEN FONT-CHANGE (SETF (GCONTEXT-FONT GCONTEXT) FONT)) ; (BLOCK CHANGE-FONT ; (WITH-BUFFER-REQUEST (DISPLAY +X-IMAGETEXT16+ :GC-FORCE GCONTEXT ; :LENGTH LENGTH) ; (DRAWABLE DRAWABLE) ; (GCONTEXT GCONTEXT) ; (INT16 X Y) ; (PROGN ; (WITH-BUFFER-FLUSH-INHIBITED (DISPLAY) ; (MULTIPLE-VALUE-SETQ (NEW-START FONT TRANSLATED-WIDTH) ; (FUNCALL (OR TRANSLATE #'TRANSLATE-DEFAULT) SEQUENCE START ; END FONT BUFFER 0)) ; (SETQ CHUNK (INDEX- NEW-START START)) ; (WHEN (AND (INDEX-ZEROP CHUNK) (TYPE? FONT 'FONT)) ; (SETQ FONT-CHANGE T) ; (RETURN-FROM CHANGE-FONT)) ; (WHEN (INDEX-ZEROP CHUNK) ; (RETURN-FROM DRAW-IMAGE-GLYPHS16 NEW-START)) ; (WRITE-SEQUENCE-CHAR2B DISPLAY (INDEX+ BUFFER-BOFFSET 16) ; BUFFER 0 CHUNK) ; (DATA-PUT 1 CHUNK) ; (LET ((BLEN (LROUND (INDEX+ 16 (INDEX-ASH CHUNK 1))))) ; (LENGTH-PUT 2 (INDEX-ASH BLEN -2)) ; (SETF (BUFFER-BOFFSET DISPLAY) ; (INDEX+ BUFFER-BOFFSET BLEN)))))) ; (RETURN-FROM DRAW-IMAGE-GLYPHS16 ; (VALUES ; (IF (INDEX= CHUNK LENGTH) ; NIL ; NEW-START) ; (OR TRANSLATED-WIDTH WIDTH)))))) ; (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 #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DISPLAY-KEYCODE-RANGE ...) ; compiling (DEFUN SET-MODIFIER-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN SET-MODIFIER-MAPPING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-SETMODIFIERMAPPING+ 4 :SIZES 8) ; ((XLIB::DATA XLIB::KEYCODES-PER-MODIFIER) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::DATA)) ; (VALUES (XLIB::MEMBER8-GET 1 :SUCCESS :BUSY :FAILED))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MODIFIER-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN MODIFIER-MAPPING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETMODIFIERMAPPING+ NIL :SIZES ; 8) ; NIL ; (DO* ((XLIB::KEYCODES-PER-MODIFIER (XLIB::CARD8-GET 1)) ; (XLIB::ADVANCE-BY XLIB::+REPLYSIZE+ XLIB::KEYCODES-PER-MODIFIER) ; (XLIB::KEYS NIL NIL) ; (XLIB::I 0 (XLIB::INDEX+ XLIB::I 1))) ; ((XLIB::INDEX= XLIB::I 8)) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::ADVANCE-BY) ; (DOTIMES (XLIB::J XLIB::KEYCODES-PER-MODIFIER) ; (LET (#) ; (UNLESS # #))) ; (PUSH (NREVERSE XLIB::KEYS) XLIB::LISTS))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CHANGE-KEYBOARD-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN CHANGE-KEYBOARD-MAPPING ; (AREF XLIB::KEYSYMS XLIB::I XLIB::J) ; --> LET* ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETKEYBOARDMAPPING+ :LENGTH ; (XLIB::INDEX-ASH XLIB::REQUEST-LENGTH 2) :SIZES ; (32)) ; (XLIB::DATA LENGTH) ; (LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:CARD8 XLIB::FIRST-KEYCODE XLIB::KEYSYMS-PER-KEYCODE) ; (PROGN ; (DO ((XLIB::LIMIT #) ; (XLIB::W #) ; (XLIB::I XLIB::START #)) ; ((XLIB::INDEX>= XLIB::I XLIB::KEYCODE-END) (SETF #)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::LIMIT XLIB::W XLIB::I)) ; (WHEN (XLIB::INDEX> XLIB::W XLIB::LIMIT) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (SETQ #)) ; (DO (#) ; (#) ; (DECLARE #) ; (XLIB::CARD29-PUT # #) ; (XLIB::INDEX-INCF XLIB::W))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN KEYBOARD-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN KEYBOARD-MAPPING ; (1+ XLIB::I) ; ==> ; (+ XLIB::I 1) ; ; 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))) ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) LET* ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETKEYBOARDMAPPING+ NIL :SIZES ; (8 32)) ; ((XLIB:CARD8 XLIB::FIRST-KEYCODE (XLIB::INDEX- XLIB::END XLIB::START))) ; (DO* ((XLIB::KEYSYMS-PER-KEYCODE (XLIB::CARD8-GET 1)) ; (XLIB::BYTES-PER-KEYCODE (* XLIB::KEYSYMS-PER-KEYCODE 4)) ; (XLIB::ADVANCE-BY XLIB::+REPLYSIZE+ XLIB::BYTES-PER-KEYCODE) ; (XLIB::KEYCODE-COUNT (FLOOR # XLIB::KEYSYMS-PER-KEYCODE) ; (XLIB::INDEX- XLIB::KEYCODE-COUNT 1)) ; (XLIB::RESULT (IF # ; XLIB::DATA ; #)) ; (XLIB::I XLIB::START (1+ XLIB::I))) ; ((ZEROP XLIB::KEYCODE-COUNT) (SETQ XLIB::DATA XLIB::RESULT)) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::ADVANCE-BY) ; (DOTIMES (XLIB::J XLIB::KEYSYMS-PER-KEYCODE) (SETF # #)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (1+ XLIB::I) ; ==> ; (+ XLIB::I 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; 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 &REST T). ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/text-tmpCM21U60Z.fasl written ; compilation finished in 0:00:00.983 ; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 14 MAY 2016 06:13:13 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFCONSTANT +ATTRIBUTE-SIZE+ ...) ; compiling (DEFCONSTANT +GEOMETRY-SIZE+ ...) ; compiling (DEFCONSTANT +CONTEXT-SIZE+ ...) ; compiling (DEFVAR *WINDOW-ATTRIBUTES* ...) ; compiling (DEFVAR *CONTEXT-FREE-LIST* ...) ; compiling (DEFUN ALLOCATE-CONTEXT ...) ; compiling (DEFUN DEALLOCATE-CONTEXT ...) ; compiling (DEFMACRO STATE-ATTRIBUTES ...) ; compiling (DEFMACRO STATE-ATTRIBUTE-CHANGES ...) ; compiling (DEFMACRO STATE-GEOMETRY ...) ; compiling (DEFMACRO STATE-GEOMETRY-CHANGES ...) ; compiling (DEFMACRO DRAWABLE-EQUAL-FUNCTION ...) ; compiling (DEFMACRO WINDOW-EQUAL-FUNCTION ...) ; compiling (DEFMACRO WITH-STATE ...) ; compiling (DEFUN CLEANUP-STATE-ENTRY ...) ; compiling (DEFUN CHANGE-WINDOW-ATTRIBUTE ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN CHANGE-WINDOW-ATTRIBUTE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 (ASH 1 NUMBER) XLIB::VALUE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (ASH 1 NUMBER) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 (ASH 1 NUMBER) XLIB::VALUE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CHANGE-DRAWABLE-GEOMETRY ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (ASH 1 NUMBER) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GET-WINDOW-ATTRIBUTES-BUFFER ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN GET-WINDOW-ATTRIBUTES-BUFFER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETWINDOWATTRIBUTES+ ; XLIB::SIZE :SIZES (8)) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (LET ((XLIB::REPBUF (OR # #))) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPBUF)) ; (XLIB::BUFFER-REPLACE (XLIB::REPLY-IBUF8 XLIB::REPBUF) XLIB::BUFFER-BBUF ; 0 XLIB::SIZE) ; (WHEN XLIB::STATE-ENTRY (SETF # XLIB::REPBUF)) ; XLIB::REPBUF)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER PROGN ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GET-DRAWABLE-GEOMETRY-BUFFER ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN GET-DRAWABLE-GEOMETRY-BUFFER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETGEOMETRY+ ; XLIB::SIZE :SIZES (8)) ; ((XLIB:DRAWABLE XLIB:DRAWABLE)) ; (LET ((XLIB::REPBUF (OR # #))) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPBUF)) ; (XLIB::BUFFER-REPLACE (XLIB::REPLY-IBUF8 XLIB::REPBUF) XLIB::BUFFER-BBUF ; 0 XLIB::SIZE) ; (WHEN XLIB::STATE-ENTRY (SETF # XLIB::REPBUF)) ; XLIB::REPBUF)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER PROGN ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN PUT-WINDOW-ATTRIBUTE-CHANGES ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; 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 # #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN PUT-DRAWABLE-GEOMETRY-CHANGES ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; 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 # #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFMACRO WITH-ATTRIBUTES ...) ; compiling (DEFMACRO WITH-GEOMETRY ...) ; compiling (DEFUN WINDOW-VISUAL ...) ; compiling (DEFUN WINDOW-VISUAL-INFO ...) ; compiling (DEFUN WINDOW-CLASS ...) ; compiling (DEFUN SET-WINDOW-BACKGROUND ...) ; compiling (DEFSETF WINDOW-BACKGROUND ...) ; compiling (DEFUN SET-WINDOW-BORDER ...) ; compiling (DEFSETF WINDOW-BORDER ...) ; compiling (DEFUN WINDOW-BIT-GRAVITY ...) ; compiling (DEFUN SET-WINDOW-BIT-GRAVITY ...) ; compiling (DEFSETF WINDOW-BIT-GRAVITY ...) ; compiling (DEFUN WINDOW-GRAVITY ...) ; compiling (DEFUN SET-WINDOW-GRAVITY ...) ; compiling (DEFSETF WINDOW-GRAVITY ...) ; compiling (DEFUN WINDOW-BACKING-STORE ...) ; compiling (DEFUN SET-WINDOW-BACKING-STORE ...) ; compiling (DEFSETF WINDOW-BACKING-STORE ...) ; compiling (DEFUN WINDOW-BACKING-PLANES ...) ; compiling (DEFUN SET-WINDOW-BACKING-PLANES ...) ; compiling (DEFSETF WINDOW-BACKING-PLANES ...) ; compiling (DEFUN WINDOW-BACKING-PIXEL ...) ; compiling (DEFUN SET-WINDOW-BACKING-PIXEL ...) ; compiling (DEFSETF WINDOW-BACKING-PIXEL ...) ; compiling (DEFUN WINDOW-SAVE-UNDER ...) ; compiling (DEFUN SET-WINDOW-SAVE-UNDER ...) ; compiling (DEFSETF WINDOW-SAVE-UNDER ...) ; compiling (DEFUN WINDOW-OVERRIDE-REDIRECT ...) ; compiling (DEFUN SET-WINDOW-OVERRIDE-REDIRECT ...) ; compiling (DEFSETF WINDOW-OVERRIDE-REDIRECT ...) ; compiling (DEFUN WINDOW-EVENT-MASK ...) ; compiling (DEFSETF WINDOW-EVENT-MASK ...) ; compiling (DEFUN WINDOW-DO-NOT-PROPAGATE-MASK ...) ; compiling (DEFSETF WINDOW-DO-NOT-PROPAGATE-MASK ...) ; compiling (DEFUN WINDOW-COLORMAP ...) ; compiling (DEFUN SET-WINDOW-COLORMAP ...) ; compiling (DEFSETF WINDOW-COLORMAP ...) ; compiling (DEFUN WINDOW-CURSOR ...) ; compiling (DEFUN SET-WINDOW-CURSOR ...) ; compiling (DEFSETF WINDOW-CURSOR ...) ; compiling (DEFUN WINDOW-COLORMAP-INSTALLED-P ...) ; compiling (DEFUN WINDOW-ALL-EVENT-MASKS ...) ; compiling (DEFUN WINDOW-MAP-STATE ...) ; compiling (DEFUN DRAWABLE-ROOT ...) ; compiling (DEFUN DRAWABLE-X ...) ; compiling (DEFUN SET-DRAWABLE-X ...) ; compiling (DEFSETF DRAWABLE-X ...) ; compiling (DEFUN DRAWABLE-Y ...) ; compiling (DEFUN SET-DRAWABLE-Y ...) ; compiling (DEFSETF DRAWABLE-Y ...) ; compiling (DEFUN DRAWABLE-WIDTH ...) ; compiling (DEFUN SET-DRAWABLE-WIDTH ...) ; compiling (DEFSETF DRAWABLE-WIDTH ...) ; compiling (DEFUN DRAWABLE-HEIGHT ...) ; compiling (DEFUN SET-DRAWABLE-HEIGHT ...) ; compiling (DEFSETF DRAWABLE-HEIGHT ...) ; compiling (DEFUN DRAWABLE-DEPTH ...) ; compiling (DEFUN DRAWABLE-BORDER-WIDTH ...) ; compiling (DEFUN SET-DRAWABLE-BORDER-WIDTH ...) ; compiling (DEFSETF DRAWABLE-BORDER-WIDTH ...) ; compiling (DEFUN SET-WINDOW-PRIORITY ...) ; compiling (DEFSETF WINDOW-PRIORITY ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/attributes-tmp9DT7SEFG.fasl written ; compilation finished in 0:00:01.135 ; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 14 MAY 2016 06:47:26 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFVAR *KEYSYM-SETS* ...) ; compiling (DEFUN DEFINE-KEYSYM-SET ...) ; compiling (DEFUN KEYSYM-SET ...) ; compiling (DEFMACRO KEYSYM ...) ; compiling (DEFVAR *KEYSYM->CHARACTER-MAP* ...) ; compiling (DEFMACRO KEYSYM-MAPPING-OBJECT ...) ; compiling (DEFMACRO KEYSYM-MAPPING-TRANSLATE ...) ; compiling (DEFMACRO KEYSYM-MAPPING-LOWERCASE ...) ; compiling (DEFMACRO KEYSYM-MAPPING-MODIFIERS ...) ; compiling (DEFMACRO KEYSYM-MAPPING-MASK ...) ; compiling (DEFVAR *DEFAULT-KEYSYM-TRANSLATE-MASK* ...) ; compiling (DEFUN DEFINE-KEYSYM ...) ; compiling (DEFUN UNDEFINE-KEYSYM ...) ; compiling (DEFUN KEYSYM-DOWNCASE ...) ; compiling (DEFUN KEYSYM-UPPERCASE-ALPHABETIC-P ...) ; compiling (DEFUN CHARACTER->KEYSYMS ...) ; compiling (DEFCONSTANT CHARACTER-SET-SWITCH-KEYSYM ...) ; compiling (DEFCONSTANT LEFT-SHIFT-KEYSYM ...) ; compiling (DEFCONSTANT RIGHT-SHIFT-KEYSYM ...) ; compiling (DEFCONSTANT LEFT-CONTROL-KEYSYM ...) ; compiling (DEFCONSTANT RIGHT-CONTROL-KEYSYM ...) ; compiling (DEFCONSTANT CAPS-LOCK-KEYSYM ...) ; compiling (DEFCONSTANT SHIFT-LOCK-KEYSYM ...) ; compiling (DEFCONSTANT LEFT-META-KEYSYM ...) ; compiling (DEFCONSTANT RIGHT-META-KEYSYM ...) ; compiling (DEFCONSTANT LEFT-ALT-KEYSYM ...) ; compiling (DEFCONSTANT RIGHT-ALT-KEYSYM ...) ; compiling (DEFCONSTANT LEFT-SUPER-KEYSYM ...) ; compiling (DEFCONSTANT RIGHT-SUPER-KEYSYM ...) ; compiling (DEFCONSTANT LEFT-HYPER-KEYSYM ...) ; compiling (DEFCONSTANT RIGHT-HYPER-KEYSYM ...) ; compiling (DEFUN DISPLAY-KEYBOARD-MAPPING ...) ; compiling (DEFUN KEYCODE->KEYSYM ...) ; compiling (DEFUN KEYSYM->CHARACTER ...) ; compiling (DEFUN MAPPING-MATCHES-P ...) ; compiling (DEFUN DEFAULT-KEYSYM-INDEX ...) ; compiling (DEFUN KEYSYM-SHIFT-P ...) ; compiling (DEFUN KEYCODE->CHARACTER ...) ; compiling (DEFUN GET-DISPLAY-MODIFIER-MAPPING ...) ; compiling (DEFUN STATE-KEYSYMP ...) ; compiling (DEFUN MAPPING-NOTIFY ...) ; compiling (DEFUN KEYSYM-IN-MAP-P ...) ; compiling (DEFUN CHARACTER-IN-MAP-P ...) ; compiling (DEFUN KEYSYM->KEYCODES ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/translate-tmp8065ESJT.fasl written ; compilation finished in 0:00:00.255 ; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFINE-KEYSYM-SET :LATIN-1 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-2 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-3 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-4 ...) ; compiling (DEFINE-KEYSYM-SET :KANA ...) ; compiling (DEFINE-KEYSYM-SET :ARABIC ...) ; compiling (DEFINE-KEYSYM-SET :CYRILLIC ...) ; compiling (DEFINE-KEYSYM-SET :GREEK ...) ; compiling (DEFINE-KEYSYM-SET :TECH ...) ; compiling (DEFINE-KEYSYM-SET :SPECIAL ...) ; compiling (DEFINE-KEYSYM-SET :PUBLISH ...) ; compiling (DEFINE-KEYSYM-SET :APL ...) ; compiling (DEFINE-KEYSYM-SET :HEBREW ...) ; compiling (DEFINE-KEYSYM-SET :THAI ...) ; compiling (DEFINE-KEYSYM-SET :KOREAN ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-5 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-6 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-7 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-8 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-9 ...) ; compiling (DEFINE-KEYSYM-SET :CURRENCY ...) ; compiling (DEFINE-KEYSYM-SET :|3270| ...) ; compiling (DEFINE-KEYSYM-SET :XKB ...) ; compiling (DEFINE-KEYSYM-SET :KEYBOARD ...) ; compiling (DEFINE-KEYSYM :CHARACTER-SET-SWITCH ...) ; compiling (DEFINE-KEYSYM :LEFT-SHIFT ...) ; compiling (DEFINE-KEYSYM :RIGHT-SHIFT ...) ; compiling (DEFINE-KEYSYM :LEFT-CONTROL ...) ; compiling (DEFINE-KEYSYM :RIGHT-CONTROL ...) ; compiling (DEFINE-KEYSYM :CAPS-LOCK ...) ; compiling (DEFINE-KEYSYM :SHIFT-LOCK ...) ; compiling (DEFINE-KEYSYM :LEFT-META ...) ; compiling (DEFINE-KEYSYM :RIGHT-META ...) ; compiling (DEFINE-KEYSYM :LEFT-ALT ...) ; compiling (DEFINE-KEYSYM :RIGHT-ALT ...) ; compiling (DEFINE-KEYSYM :LEFT-SUPER ...) ; compiling (DEFINE-KEYSYM :RIGHT-SUPER ...) ; compiling (DEFINE-KEYSYM :LEFT-HYPER ...) ; compiling (DEFINE-KEYSYM :RIGHT-HYPER ...) ; compiling (DEFINE-KEYSYM #\ ...) ; compiling (DEFINE-KEYSYM #\! ...) ; compiling (DEFINE-KEYSYM #\" ...) ; compiling (DEFINE-KEYSYM #\# ...) ; compiling (DEFINE-KEYSYM #\$ ...) ; compiling (DEFINE-KEYSYM #\% ...) ; compiling (DEFINE-KEYSYM #\& ...) ; compiling (DEFINE-KEYSYM #\' ...) ; compiling (DEFINE-KEYSYM #\( ...) ; compiling (DEFINE-KEYSYM #\) ...) ; compiling (DEFINE-KEYSYM #\* ...) ; compiling (DEFINE-KEYSYM #\+ ...) ; compiling (DEFINE-KEYSYM #\, ...) ; compiling (DEFINE-KEYSYM #\- ...) ; compiling (DEFINE-KEYSYM #\. ...) ; compiling (DEFINE-KEYSYM #\/ ...) ; compiling (DEFINE-KEYSYM #\0 ...) ; compiling (DEFINE-KEYSYM #\1 ...) ; compiling (DEFINE-KEYSYM #\2 ...) ; compiling (DEFINE-KEYSYM #\3 ...) ; compiling (DEFINE-KEYSYM #\4 ...) ; compiling (DEFINE-KEYSYM #\5 ...) ; compiling (DEFINE-KEYSYM #\6 ...) ; compiling (DEFINE-KEYSYM #\7 ...) ; compiling (DEFINE-KEYSYM #\8 ...) ; compiling (DEFINE-KEYSYM #\9 ...) ; compiling (DEFINE-KEYSYM #\: ...) ; compiling (DEFINE-KEYSYM #\; ...) ; compiling (DEFINE-KEYSYM #\< ...) ; compiling (DEFINE-KEYSYM #\= ...) ; compiling (DEFINE-KEYSYM #\> ...) ; compiling (DEFINE-KEYSYM #\? ...) ; compiling (DEFINE-KEYSYM #\@ ...) ; compiling (DEFINE-KEYSYM #\A ...) ; compiling (DEFINE-KEYSYM #\B ...) ; compiling (DEFINE-KEYSYM #\C ...) ; compiling (DEFINE-KEYSYM #\D ...) ; compiling (DEFINE-KEYSYM #\E ...) ; compiling (DEFINE-KEYSYM #\F ...) ; compiling (DEFINE-KEYSYM #\G ...) ; compiling (DEFINE-KEYSYM #\H ...) ; compiling (DEFINE-KEYSYM #\I ...) ; compiling (DEFINE-KEYSYM #\J ...) ; compiling (DEFINE-KEYSYM #\K ...) ; compiling (DEFINE-KEYSYM #\L ...) ; compiling (DEFINE-KEYSYM #\M ...) ; compiling (DEFINE-KEYSYM #\N ...) ; compiling (DEFINE-KEYSYM #\O ...) ; compiling (DEFINE-KEYSYM #\P ...) ; compiling (DEFINE-KEYSYM #\Q ...) ; compiling (DEFINE-KEYSYM #\R ...) ; compiling (DEFINE-KEYSYM #\S ...) ; compiling (DEFINE-KEYSYM #\T ...) ; compiling (DEFINE-KEYSYM #\U ...) ; compiling (DEFINE-KEYSYM #\V ...) ; compiling (DEFINE-KEYSYM #\W ...) ; compiling (DEFINE-KEYSYM #\X ...) ; compiling (DEFINE-KEYSYM #\Y ...) ; compiling (DEFINE-KEYSYM #\Z ...) ; compiling (DEFINE-KEYSYM #\[ ...) ; compiling (DEFINE-KEYSYM #\\ ...) ; compiling (DEFINE-KEYSYM #\] ...) ; compiling (DEFINE-KEYSYM #\^ ...) ; compiling (DEFINE-KEYSYM #\_ ...) ; compiling (DEFINE-KEYSYM #\` ...) ; compiling (DEFINE-KEYSYM #\a ...) ; compiling (DEFINE-KEYSYM #\b ...) ; compiling (DEFINE-KEYSYM #\c ...) ; compiling (DEFINE-KEYSYM #\d ...) ; compiling (DEFINE-KEYSYM #\e ...) ; compiling (DEFINE-KEYSYM #\f ...) ; compiling (DEFINE-KEYSYM #\g ...) ; compiling (DEFINE-KEYSYM #\h ...) ; compiling (DEFINE-KEYSYM #\i ...) ; compiling (DEFINE-KEYSYM #\j ...) ; compiling (DEFINE-KEYSYM #\k ...) ; compiling (DEFINE-KEYSYM #\l ...) ; compiling (DEFINE-KEYSYM #\m ...) ; compiling (DEFINE-KEYSYM #\n ...) ; compiling (DEFINE-KEYSYM #\o ...) ; compiling (DEFINE-KEYSYM #\p ...) ; compiling (DEFINE-KEYSYM #\q ...) ; compiling (DEFINE-KEYSYM #\r ...) ; compiling (DEFINE-KEYSYM #\s ...) ; compiling (DEFINE-KEYSYM #\t ...) ; compiling (DEFINE-KEYSYM #\u ...) ; compiling (DEFINE-KEYSYM #\v ...) ; compiling (DEFINE-KEYSYM #\w ...) ; compiling (DEFINE-KEYSYM #\x ...) ; compiling (DEFINE-KEYSYM #\y ...) ; compiling (DEFINE-KEYSYM #\z ...) ; compiling (DEFINE-KEYSYM #\{ ...) ; compiling (DEFINE-KEYSYM #\| ...) ; compiling (DEFINE-KEYSYM #\} ...) ; compiling (DEFINE-KEYSYM #\~ ...) ; compiling (DEFINE-KEYSYM #\Rubout ...) ; compiling (DEFINE-KEYSYM #\Tab ...) ; compiling (DEFINE-KEYSYM #\Newline ...) ; compiling (DEFINE-KEYSYM #\Page ...) ; compiling (DEFINE-KEYSYM #\Return ...) ; compiling (DEFINE-KEYSYM #\Backspace ...) ; compiling (DO (#) ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/keysyms-tmp7S8Z6FGF.fasl written ; compilation finished in 0:00:00.018 ; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFUN WM-NAME ...) ; compiling (DEFSETF WM-NAME ...) ; compiling (DEFUN SET-STRING-PROPERTY ...) ; compiling (DEFUN WM-ICON-NAME ...) ; compiling (DEFSETF WM-ICON-NAME ...) ; compiling (DEFUN WM-CLIENT-MACHINE ...) ; compiling (DEFSETF WM-CLIENT-MACHINE ...) ; compiling (DEFUN GET-WM-CLASS ...) ; compiling (DEFUN SET-WM-CLASS ...) ; compiling (DEFUN WM-COMMAND ...) ; compiling (DEFSETF WM-COMMAND ...) ; compiling (DEFUN SET-WM-COMMAND ...) ; compiling (DEF-CLX-CLASS (WM-HINTS) ...) ; compiling (DEFUN WM-HINTS ...) ; compiling (DEFSETF WM-HINTS ...) ; compiling (DEFUN SET-WM-HINTS ...) ; compiling (DEFUN DECODE-WM-HINTS ...) ; compiling (DEFUN ENCODE-WM-HINTS ...) ; compiling (DEF-CLX-CLASS (WM-SIZE-HINTS) ...) ; compiling (DEFUN WM-NORMAL-HINTS ...) ; compiling (DEFSETF WM-NORMAL-HINTS ...) ; compiling (DEFUN SET-WM-NORMAL-HINTS ...) ; compiling (DEFUN WM-ZOOM-HINTS ...) ; compiling (DEFSETF WM-ZOOM-HINTS ...) ; compiling (DEFUN SET-WM-ZOOM-HINTS ...) ; compiling (DEFUN DECODE-WM-SIZE-HINTS ...) ; compiling (DEFUN ENCODE-WM-SIZE-HINTS ...) ; compiling (DEFUN ICON-SIZES ...) ; compiling (DEFSETF ICON-SIZES ...) ; compiling (DEFUN SET-ICON-SIZES ...) ; compiling (DEFUN WM-PROTOCOLS ...) ; compiling (DEFSETF WM-PROTOCOLS ...) ; compiling (DEFUN SET-WM-PROTOCOLS ...) ; compiling (DEFUN WM-COLORMAP-WINDOWS ...) ; compiling (DEFSETF WM-COLORMAP-WINDOWS ...) ; compiling (DEFUN SET-WM-COLORMAP-WINDOWS ...) ; compiling (DEFUN TRANSIENT-FOR ...) ; compiling (DEFSETF TRANSIENT-FOR ...) ; compiling (DEFUN SET-TRANSIENT-FOR ...) ; compiling (DEFUN SET-WM-PROPERTIES ...) ; compiling (DEFUN SET-STANDARD-PROPERTIES ...) ; compiling (DEFUN ICONIFY-WINDOW ...) ; compiling (DEFUN WITHDRAW-WINDOW ...) ; compiling (DEF-CLX-CLASS (STANDARD-COLORMAP # ...) ...) ; compiling (DEFUN RGB-COLORMAPS ...) ; compiling (DEFSETF RGB-COLORMAPS ...) ; compiling (DEFUN SET-RGB-COLORMAPS ...) ; compiling (DEFUN GET-STANDARD-COLORMAP ...) ; compiling (DEFUN SET-STANDARD-COLORMAP ...) ; compiling (DEFUN CUT-BUFFER ...) ; compiling (DEFUN (SETF CUT-BUFFER) ...) ; compiling (DEFUN ROTATE-CUT-BUFFERS ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/manager-tmpSIT3QPKP.fasl written ; compilation finished in 0:00:01.192 ; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFMACRO WITH-IMAGE-DATA-BUFFER ...) ; compiling (DEF-CLX-CLASS (IMAGE # ...) ...) ; compiling (DEFMACRO IMAGE-NAME ...) ; compiling (DEFMACRO IMAGE-X-HOT ...) ; compiling (DEFMACRO IMAGE-Y-HOT ...) ; compiling (DEFMACRO IMAGE-RED-MASK ...) ; compiling (DEFMACRO IMAGE-BLUE-MASK ...) ; compiling (DEFMACRO IMAGE-GREEN-MASK ...) ; compiling (DEFUN PRINT-IMAGE ...) ; compiling (DEFCONSTANT +EMPTY-DATA-X+ ...) ; compiling (DEFCONSTANT +EMPTY-DATA-Z+ ...) ; compiling (DEF-CLX-CLASS (IMAGE-X # ...) ...) ; compiling (DEF-CLX-CLASS (IMAGE-XY # ...) ...) ; compiling (DEF-CLX-CLASS (IMAGE-Z # ...) ...) ; compiling (DEFUN CREATE-IMAGE ...) ; compiling (DEFUN IMAGE-NOSWAP ...) ; compiling (DEFUN IMAGE-SWAP-TWO-BYTES ...) ; compiling (DEFUN IMAGE-SWAP-THREE-BYTES ...) ; compiling (DEFUN IMAGE-SWAP-FOUR-BYTES ...) ; compiling (DEFUN IMAGE-SWAP-WORDS ...) ; compiling (DEFUN IMAGE-SWAP-NIBBLES ...) ; compiling (DEFUN IMAGE-SWAP-NIBBLES-LEFT ...) ; compiling (DEFCONSTANT +IMAGE-BYTE-REVERSE+ ...) ; compiling (DEFUN IMAGE-SWAP-BITS ...) ; compiling (DEFUN IMAGE-SWAP-BITS-AND-TWO-BYTES ...) ; compiling (DEFUN IMAGE-SWAP-BITS-AND-FOUR-BYTES ...) ; compiling (DEFUN IMAGE-SWAP-BITS-AND-WORDS ...) ; compiling (DEFCONSTANT +IMAGE-SWAP-FUNCTION+ ...) ; compiling (DEFCONSTANT +IMAGE-SWAP-LSB-FIRST-P+ ...) ; compiling (DEFUN IMAGE-SWAP-FUNCTION ...) ; compiling (DEFUN READ-PIXARRAY-1 ...) ; compiling (DEFUN READ-PIXARRAY-4 ...) ; compiling (DEFUN READ-PIXARRAY-8 ...) ; compiling (DEFUN READ-PIXARRAY-16 ...) ; compiling (DEFUN READ-PIXARRAY-24 ...) ; compiling (DEFUN READ-PIXARRAY-32 ...) ; compiling (DEFUN READ-PIXARRAY-INTERNAL ...) ; compiling (DEFUN READ-PIXARRAY ...) ; compiling (DEFUN READ-XY-FORMAT-IMAGE-X ...) ; compiling (DEFUN READ-Z-FORMAT-IMAGE-X ...) ; compiling (DEFUN READ-IMAGE-XY ...) ; compiling (DEFUN READ-IMAGE-Z ...) ; compiling (DEFUN GET-IMAGE ...) ; file: /usr/share/common-lisp/source/clx/image.lisp ; in: DEFUN GET-IMAGE ; (ZEROP (XLIB:VISUAL-INFO-RED-MASK XLIB:VISUAL-INFO)) ; ==> ; (= (XLIB:VISUAL-INFO-RED-MASK XLIB:VISUAL-INFO) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP (XLIB:VISUAL-INFO-GREEN-MASK XLIB:VISUAL-INFO)) ; ==> ; (= (XLIB:VISUAL-INFO-GREEN-MASK XLIB:VISUAL-INFO) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP (XLIB:VISUAL-INFO-BLUE-MASK XLIB:VISUAL-INFO)) ; ==> ; (= (XLIB:VISUAL-INFO-BLUE-MASK XLIB:VISUAL-INFO) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (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 CONS NULL 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))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WRITE-PIXARRAY-1 ...) ; compiling (DEFUN WRITE-PIXARRAY-4 ...) ; compiling (DEFUN WRITE-PIXARRAY-8 ...) ; compiling (DEFUN WRITE-PIXARRAY-16 ...) ; compiling (DEFUN WRITE-PIXARRAY-24 ...) ; compiling (DEFUN WRITE-PIXARRAY-32 ...) ; compiling (DEFUN WRITE-PIXARRAY-INTERNAL ...) ; compiling (DEFUN WRITE-PIXARRAY ...) ; compiling (DEFUN WRITE-XY-FORMAT-IMAGE-X-DATA ...) ; compiling (DEFUN WRITE-XY-FORMAT-IMAGE-X ...) ; compiling (DEFUN WRITE-Z-FORMAT-IMAGE-X-DATA ...) ; compiling (DEFUN WRITE-Z-FORMAT-IMAGE-X ...) ; compiling (DEFUN WRITE-IMAGE-XY ...) ; compiling (DEFUN WRITE-IMAGE-Z ...) ; compiling (DEFUN PUT-IMAGE ...) ; file: /usr/share/common-lisp/source/clx/image.lisp ; in: DEFUN PUT-IMAGE ; (ETYPECASE XLIB:IMAGE ; (XLIB:IMAGE-X ; (ECASE (XLIB::IMAGE-X-FORMAT (THE XLIB:IMAGE-X XLIB:IMAGE)) ; ((:BITMAP :XY-PIXMAP) ; (XLIB::WRITE-XY-FORMAT-IMAGE-X 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)) ; (:Z-PIXMAP ; (XLIB::WRITE-Z-FORMAT-IMAGE-X 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-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))) ; --> LET COND IF ; ==> ; (TYPEP #:G32 'XLIB:IMAGE-X) ; ; note: can't open-code test of unknown type IMAGE-X ; --> LET COND IF IF ; ==> ; (TYPEP #:G32 'XLIB:IMAGE-XY) ; ; note: can't open-code test of unknown type IMAGE-XY ; --> LET COND IF IF IF ; ==> ; (TYPEP #:G32 'XLIB:IMAGE-Z) ; ; note: can't open-code test of unknown type IMAGE-Z ; (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)))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XY-FORMAT-IMAGE-X->IMAGE-X ...) ; compiling (DEFUN Z-FORMAT-IMAGE-X->IMAGE-X ...) ; compiling (DEFUN IMAGE-X->IMAGE-X ...) ; compiling (DEFUN IMAGE-X->IMAGE-XY ...) ; compiling (DEFUN IMAGE-X->IMAGE-Z ...) ; compiling (DEFUN COPY-PIXARRAY ...) ; file: /usr/share/common-lisp/source/clx/image.lisp ; in: DEFUN COPY-PIXARRAY ; (MAKE-ARRAY (LIST XLIB::HEIGHT XLIB::PADDED-WIDTH) :ELEMENT-TYPE ; (ARRAY-ELEMENT-TYPE ARRAY)) ; --> LET* TRULY-THE SB-C::MAKE-ARRAY-HEADER* ; ==> ; (MAKE-ARRAY #:SIZE :ELEMENT-TYPE (ARRAY-ELEMENT-TYPE ARRAY)) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFUN IMAGE-XY->IMAGE-X ...) ; compiling (DEFUN IMAGE-XY->IMAGE-XY ...) ; compiling (DEFUN IMAGE-XY->IMAGE-Z ...) ; compiling (DEFUN IMAGE-Z->IMAGE-X ...) ; compiling (DEFUN IMAGE-Z->IMAGE-XY ...) ; compiling (DEFUN IMAGE-Z->IMAGE-Z ...) ; compiling (DEFUN COPY-IMAGE ...) ; compiling (DEFUN READ-BITMAP-FILE ...) ; compiling (DEFUN WRITE-BITMAP-FILE ...) ; compiling (DEFUN BITMAP-IMAGE ...) ; compiling (DEFUN IMAGE-PIXMAP ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/image-tmpE0PA0714.fasl written ; compilation finished in 0:00:02.360 ; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 14 MAY 2016 06:47:26 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFSTRUCT (RESOURCE-DATABASE # ...) ...) ; compiling (DEFUN PRINT-RESOURCE-DATABASE ...) ; compiling (DEFUN MAKE-RESOURCE-DATABASE ...) ; compiling (DEFUN RESOURCE-DATABASE-TIMESTAMP ...) ; compiling (DEFUN INCF-RESOURCE-DATABASE-TIMESTAMP ...) ; compiling (DEFUN PRINT-DB ...) ; compiling (DEFPARAMETER *UPPERCASE-RESOURCE-SYMBOLS* ...) ; compiling (DEFUN RESOURCE-KEY ...) ; compiling (DEFUN STRINGABLE-EQUAL ...) ; compiling (DEFUN ADD-RESOURCE ...) ; compiling (DEFUN DELETE-RESOURCE ...) ; compiling (DEFUN DELETE-RESOURCE-INTERNAL ...) ; file: /usr/share/common-lisp/source/clx/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; compiling (DEFUN GET-RESOURCE ...) ; compiling (DEFUN GET-ENTRY-LOOKUP ...) ; compiling (DEFUN GET-ENTRY ...) ; compiling (DEFUN GET-SEARCH-RESOURCE ...) ; compiling (DEFVAR *GET-TABLE-RESULT*) ; compiling (DEFUN GET-SEARCH-TABLE ...) ; compiling (DEFUN GET-TABLES-LOOKUP ...) ; compiling (DEFUN GET-TABLES ...) ; compiling (DEFUN MAP-RESOURCE ...) ; file: /usr/share/common-lisp/source/clx/resource.lisp ; in: DEFUN MAP-RESOURCE ; (XLIB::MAP-RESOURCE-INTERNAL XLIB::RESOURCE FUNCTION XLIB::ARGS XLIB::NAME) ; ==> ; FUNCTION ; ; note: could not stack allocate FUNCTION in: ; (MAP-RESOURCE-INTERNAL RESOURCE FUNCTION ARGS NAME) ; ; note: could not stack allocate FUNCTION in: ; (MAP-RESOURCE-INTERNAL RESOURCE FUNCTION ARGS NAME) ; compiling (DEFUN MERGE-RESOURCES ...) ; compiling (DEFUN CHAR-MEMQ ...) ; compiling (DEFMACRO RESOURCE-WITH-OPEN-FILE ...) ; compiling (DEFUN READ-RESOURCES ...) ; compiling (DEFUN PARSE-RESOURCE ...) ; compiling (DEFUN WRITE-RESOURCES ...) ; compiling (DEFUN WM-RESOURCES ...) ; compiling (DEFUN SET-WM-RESOURCES ...) ; compiling (DEFUN ROOT-RESOURCES ...) ; compiling (DEFUN SET-ROOT-RESOURCES ...) ; compiling (DEFSETF ROOT-RESOURCES ...) ; compiling (DEFUN INITIALIZE-RESOURCE-DATABASE ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/resource-tmpJRWHHVG0.fasl written ; compilation finished in 0:00:00.328 ; compiling file "/usr/share/common-lisp/source/clx/shape.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE #) ...) ; compiling (DEFINE-EXTENSION "SHAPE" ...) ; compiling (DECLARE-EVENT :SHAPE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G52 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :SHAPE-NOTIFY ; ((DATA (MEMBER8 :BOUNDING :CLIP)) KIND) ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (INT16 X) ; (INT16 Y) ; (CARD16 WIDTH) ; (CARD16 HEIGHT) ; ((OR NULL CARD32) TIME) ; (BOOLEAN SHAPED-P)) ; compiling (DEFUN ENCODE-SHAPE-KIND ...) ; compiling (DEFUN ENCODE-SHAPE-OPERATION ...) ; compiling (DEFUN ENCODE-SHAPE-RECTANGLE-ORDERING ...) ; compiling (DEFUN SHAPE-QUERY-VERSION ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "SHAPE") ; NIL :SIZES 16) ; ((XLIB::DATA 0)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-RECTANGLES ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 1) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-MASK ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; 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 XLIB:PIXMAP (MEMBER :NONE)) XLIB:PIXMAP)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-COMBINE ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-OFFSET ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-QUERY-EXTENTS ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-QUERY-EXTENTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "SHAPE") ; NIL :SIZES (8 16 32)) ; ((XLIB::DATA 5) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::BOOLEAN-GET 8) (XLIB::BOOLEAN-GET 9) (XLIB::INT16-GET 12) ; (XLIB::INT16-GET 14) (XLIB::CARD16-GET 16) (XLIB::CARD16-GET 18) ; (XLIB::INT16-GET 20) (XLIB::INT16-GET 22) (XLIB::CARD16-GET 24) ; (XLIB::CARD16-GET 26))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-SELECT-INPUT ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-SELECT-INPUT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 6) ; (XLIB:WINDOW XLIB:WINDOW) ; (BOOLEAN XLIB::SELECTED-P)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-INPUT-SELECTED-P ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-INPUT-SELECTED-P ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "SHAPE") ; NIL :SIZES (8)) ; ((XLIB::DATA 7) (XLIB:WINDOW XLIB:WINDOW)) ; (XLIB::BOOLEAN-GET 1)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-GET-RECTANGLES ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-GET-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "SHAPE") ; NIL :SIZES (8 16 32)) ; ((XLIB::DATA 8) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 (ECASE XLIB::KIND (:BOUNDING 0) (:CLIP 1)))) ; (VALUES ; (XLIB::SEQUENCE-GET :LENGTH (PRINT (* 4 #)) :RESULT-TYPE XLIB::RESULT-TYPE ; :FORMAT XLIB:INT16 :INDEX XLIB::+REPLYSIZE+) ; (ECASE (XLIB::CARD8-GET 1) ; (0 :UNSORTED) ; (1 :Y-SORTED) ; (2 :YX-SORTED) ; (3 :YX-BANDED)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/shape-tmp4WZVROCX.fasl written ; compilation finished in 0:00:00.370 ; compiling file "/usr/share/common-lisp/source/clx/big-requests.lisp" (written 14 MAY 2016 06:13:13 PM): ; compiling (IN-PACKAGE "XLIB") ; compiling (DEFINE-EXTENSION "BIG-REQUESTS") ; compiling (DEFUN ENABLE-BIG-REQUESTS ...) ; file: /usr/share/common-lisp/source/clx/big-requests.lisp ; in: DEFUN ENABLE-BIG-REQUESTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::OPCODE NIL) ; ((XLIB::DATA 0)) ; (LET ((XLIB::MAXIMUM-REQUEST-LENGTH (XLIB::CARD32-GET 8))) ; (SETF (XLIB:DISPLAY-EXTENDED-MAX-REQUEST-LENGTH XLIB:DISPLAY) ; XLIB::MAXIMUM-REQUEST-LENGTH))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/big-requests-tmpA0I3UKX8.fasl written ; compilation finished in 0:00:00.013 ; compiling file "/usr/share/common-lisp/source/clx/xvidmode.lisp" (written 14 MAY 2016 06:13:15 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE #) ...) ; compiling (DEFCONSTANT +XF86VIDMODE-MAJOR-VERSION+ ...) ; compiling (DEFCONSTANT +XF86VIDMODE-MINOR-VERSION+ ...) ; compiling (DEFCONSTANT +QUERY-VERSION+ ...) ; compiling (DEFCONSTANT +GET-MODE-LINE+ ...) ; compiling (DEFCONSTANT +MOD-MODE-LINE+ ...) ; compiling (DEFCONSTANT +SWITCH-MODE+ ...) ; compiling (DEFCONSTANT +GET-MONITOR+ ...) ; compiling (DEFCONSTANT +LOCK-MODE-SWITCH+ ...) ; compiling (DEFCONSTANT +GET-ALL-MODE-LINES+ ...) ; compiling (DEFCONSTANT +ADD-MODE-LINE+ ...) ; compiling (DEFCONSTANT +DELETE-MODE-LINE+ ...) ; compiling (DEFCONSTANT +VALIDATE-MODE-LINE+ ...) ; compiling (DEFCONSTANT +SWITCH-TO-MODE+ ...) ; compiling (DEFCONSTANT +GET-VIEWPORT+ ...) ; compiling (DEFCONSTANT +SET-VIEWPORT+ ...) ; compiling (DEFCONSTANT +GET-DOT-CLOCKS+ ...) ; compiling (DEFCONSTANT +SET-CLIENT-VERSION+ ...) ; compiling (DEFCONSTANT +SET-GAMMA+ ...) ; compiling (DEFCONSTANT +GET-GAMMA+ ...) ; compiling (DEFCONSTANT +GET-GAMMA-RAMP+ ...) ; compiling (DEFCONSTANT +SET-GAMMA-RAMP+ ...) ; compiling (DEFCONSTANT +GET-GAMMA-RAMP-SIZE+ ...) ; compiling (DEFCONSTANT +GET-PERMISIONS+ ...) ; compiling (DEFINE-EXTENSION "XFree86-VidModeExtension" ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-BAD-CLOCK ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-BAD-HTIMINGS ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-BAD-VTIMINGS ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-MODE-UNSUITABLE ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-EXTENSION-DISABLED ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-CLIENT-NOT-LOCAL ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-ZOOM-LOCKED ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-BAD-CLOCK ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-BAD-HTIMINGS ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-BAD-VTIMINGS ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-MODE-UNSUITABLE ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-EXTENSION-DISABLED ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-CLIENT-NOT-LOCAL ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-ZOOM-LOCKED ...) ; compiling (DECLARE-EVENT :XFREE86-VIDMODE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/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)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G46 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :XFREE86-VIDMODE-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (INT16 STATE) ; (INT16 KIND) ; (BOOLEAN FORCED-P) ; ((OR NULL CARD32) TIME)) ; compiling (DEFSTRUCT MODE-INFO ...) ; compiling (DEFMACRO VIDMODE-OPCODE ...) ; compiling (DECLAIM (INLINE SCREEN-POSITION)) ; compiling (DEFUN SCREEN-POSITION ...) ; compiling (DECLAIM (INLINE __CARD32->CARD16__)) ; compiling (DEFUN __CARD32->CARD16__ ...) ; compiling (DEFUN XFREE86-VIDMODE-QUERY-VERSION ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES 16) ; ((XLIB::DATA XLIB::+QUERY-VERSION+)) ; (LET ((XLIB::MAJOR (XLIB::CARD16-GET 8)) ; (XLIB::MINOR (XLIB::CARD16-GET 10))) ; (DECLARE (TYPE XLIB:CARD16 XLIB::MAJOR XLIB::MINOR)) ; (WHEN (>= XLIB::MAJOR 2) ; (XLIB::XFREE86-VIDMODE-SET-CLIENT-VERSION XLIB:DISPLAY)) ; (VALUES XLIB::MAJOR XLIB::MINOR))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SET-CLIENT-VERSION ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; 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+)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-MOD-MODE-LINE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-MOD-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-MODE-LINE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; 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)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-ALL-MODE-LINES ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-ALL-MODE-LINES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-ALL-MODE-LINES+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY))) ; (VALUES ; (LOOP XLIB::WITH XLIB::BUG-P = (AND (= XLIB::MAJOR 0) (< XLIB::MINOR 8)) ; XLIB::WITH XLIB::OFFSET XLIB::OF-TYPE FIXNUM = 32 ; XLIB::FOR ...))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-ALL-MODE-LINES+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY))) ; (VALUES ; (LOOP XLIB::WITH XLIB::BUG-P = (AND (= XLIB::MAJOR 0) (< XLIB::MINOR 8)) ; XLIB::WITH XLIB::OFFSET XLIB::OF-TYPE FIXNUM = 32 ; XLIB::FOR ...))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-ADD-MODE-LINE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-ADD-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFCONSTANT +MODE-STATUS+ ...) ; compiling (DEFUN DECODE-STATUS-MODE ...) ; compiling (DEFUN XFREE86-VIDMODE-VALIDATE-MODE-LINE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; 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)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-GAMMA ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA ; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 8) 0)) 10000.0) ; ==> ; (/ (FLOAT SB-C::X SB-C::Y) SB-C::Y) ; ; 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) ; ==> ; (/ (FLOAT SB-C::X SB-C::Y) SB-C::Y) ; ; 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) ; ==> ; (/ (FLOAT SB-C::X SB-C::Y) SB-C::Y) ; ; note: unable to ; convert to multiplication by reciprocal ; because: ; 10000.0 does not have an exact reciprocal ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SET-GAMMA ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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 # # #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP-SIZE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP-SIZE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-LOCK-MODE-SWITCH ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; 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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SWITCH-TO-MODE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SWITCH-MODE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SELECT-NEXT-MODE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SELECT-PREV-MODE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-MONITOR ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-MONITOR ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-VIEWPORT ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-VIEWPORT ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SET-VIEWPORT ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; 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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MODE-INFO->V-CARD16 ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/xvidmode-tmp267Y2N80.fasl written ; compilation finished in 0:00:00.854 ; compiling file "/usr/share/common-lisp/source/clx/xrender.lisp" (written 14 MAY 2016 06:13:15 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE #)) ; compiling (PUSHNEW :CLX-EXT-RENDER ...) ; compiling (DEFINE-EXTENSION "RENDER") ; compiling (DEFCONSTANT +X-RENDERQUERYVERSION+ ...) ; compiling (DEFCONSTANT +X-RENDERQUERYPICTFORMATS+ ...) ; compiling (DEFCONSTANT +X-RENDERQUERYPICTINDEXVALUES+ ...) ; compiling (DEFCONSTANT +X-RENDERQUERYDITHERS+ ...) ; compiling (DEFCONSTANT +X-RENDERCREATEPICTURE+ ...) ; compiling (DEFCONSTANT +X-RENDERCHANGEPICTURE+ ...) ; compiling (DEFCONSTANT +X-RENDERSETPICTURECLIPRECTANGLES+ ...) ; compiling (DEFCONSTANT +X-RENDERFREEPICTURE+ ...) ; compiling (DEFCONSTANT +X-RENDERCOMPOSITE+ ...) ; compiling (DEFCONSTANT +X-RENDERSCALE+ ...) ; compiling (DEFCONSTANT +X-RENDERTRAPEZOIDS+ ...) ; compiling (DEFCONSTANT +X-RENDERTRIANGLES+ ...) ; compiling (DEFCONSTANT +X-RENDERTRISTRIP+ ...) ; compiling (DEFCONSTANT +X-RENDERTRIFAN+ ...) ; compiling (DEFCONSTANT +X-RENDERCOLORTRAPEZOIDS+ ...) ; compiling (DEFCONSTANT +X-RENDERCOLORTRIANGLES+ ...) ; compiling (DEFCONSTANT +X-RENDERTRANSFORM+ ...) ; compiling (DEFCONSTANT +X-RENDERCREATEGLYPHSET+ ...) ; compiling (DEFCONSTANT +X-RENDERREFERENCEGLYPHSET+ ...) ; compiling (DEFCONSTANT +X-RENDERFREEGLYPHSET+ ...) ; compiling (DEFCONSTANT +X-RENDERADDGLYPHS+ ...) ; compiling (DEFCONSTANT +X-RENDERADDGLYPHSFROMPICTURE+ ...) ; compiling (DEFCONSTANT +X-RENDERFREEGLYPHS+ ...) ; compiling (DEFCONSTANT +X-RENDERCOMPOSITEGLYPHS8+ ...) ; compiling (DEFCONSTANT +X-RENDERCOMPOSITEGLYPHS16+ ...) ; compiling (DEFCONSTANT +X-RENDERCOMPOSITEGLYPHS32+ ...) ; compiling (DEFCONSTANT +X-RENDERFILLRECTANGLES+ ...) ; compiling (DEFCONSTANT +X-RENDERCREATECURSOR+ ...) ; compiling (DEFCONSTANT +X-RENDERSETPICTURETRANSFORM+ ...) ; compiling (DEFCONSTANT +X-RENDERQUERYFILTERS+ ...) ; compiling (DEFCONSTANT +X-RENDERSETPICTUREFILTER+ ...) ; compiling (DEFCONSTANT +X-RENDERCREATEANIMCURSOR+ ...) ; compiling (DEFSTRUCT PICTURE-FORMAT ...) ; compiling (DEF-CLX-CLASS (GLYPH-SET #) ...) ; compiling (DEFSTRUCT RENDER-INFO ...) ; compiling (DEFUN DISPLAY-RENDER-INFO ...) ; compiling (DEFUN (SETF DISPLAY-RENDER-INFO) ...) ; compiling (DEFUN ENSURE-RENDER-INITIALIZED ...) ; compiling (DEFUN FIND-MATCHING-PICTURE-FORMATS ...) ; compiling (DEFUN FIND-WINDOW-PICTURE-FORMAT ...) ; compiling (DEFINE-ACCESSOR PICTURE ...) ; compiling (DEFINE-ACCESSOR GLYPH-SET ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFINE-ACCESSOR PICTURE-FORMAT ...) ; compiling (DEFINE-ACCESSOR RENDER-OP ...) ; compiling (DEFTYPE RENDER-OP ...) ; compiling (DEF-CLX-CLASS (PICTURE #) ...) ; compiling (DEFUN PICTURE-DRAWABLE ...) ; compiling (DEFUN %RENDER-CHANGE-PICTURE-CLIP-RECTANGLES ...) ; compiling (FOO (# REPEAT ...) ...) ; compiling (DEFUN RENDER-FREE-PICTURE ...) ; compiling (DEFUN RENDER-FREE-GLYPH-SET ...) ; compiling (DEFUN RENDER-QUERY-VERSION ...) ; compiling (DEFUN RENDER-QUERY-PICTURE-FORMATS ...) ; compiling (DEFUN RENDER-FILL-RECTANGLE ...) ; compiling (DEFUN RENDER-TRIANGLES ...) ; compiling (DEFUN RENDER-SET-PICTURE-TRANSFORM ...) ; compiling (DEFUN RENDER-QUERY-FILTERS ...) ; compiling (DEFUN RENDER-SET-FILTER ...) ; compiling (DEFUN RENDER-TRAPEZOIDS ...) ; compiling (DEFUN RENDER-COMPOSITE ...) ; compiling (DEFUN RENDER-CREATE-GLYPH-SET ...) ; compiling (DEFUN RENDER-REFERENCE-GLYPH-SET ...) ; compiling (DEFUN RENDER-COMPOSITE-GLYPHS-8 ...) ; compiling (DEFMACRO %RENDER-COMPOSITE-GLYPHS ...) ; compiling (DEFUN RENDER-COMPOSITE-GLYPHS ...) ; compiling (DEFUN RENDER-ADD-GLYPH ...) ; compiling (DEFUN RENDER-ADD-GLYPH-FROM-PICTURE ...) ; compiling (DEFUN RENDER-FREE-GLYPHS ...) ; compiling (DEFUN RENDER-CREATE-CURSOR ...) ; compiling (DEFUN RENDER-CREATE-ANIM-CURSOR ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/xrender-tmpOUPE5FSJ.fasl written ; compilation finished in 0:00:02.134 ; compiling file "/usr/share/common-lisp/source/clx/glx.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (DEFPACKAGE :GLX ...) ; compiling (IN-PACKAGE :GLX) ; compiling (DECLAIM (OPTIMIZE # ...)) ; compiling (DEFINE-EXTENSION "GLX" ...) ; compiling (DEFCONSTANT +RENDER+ ...) ; compiling (DEFCONSTANT +CREATE-CONTEXT+ ...) ; compiling (DEFCONSTANT +DESTROY-CONTEXT+ ...) ; compiling (DEFCONSTANT +MAKE-CURRENT+ ...) ; compiling (DEFCONSTANT +IS-DIRECT+ ...) ; compiling (DEFCONSTANT +QUERY-VERSION+ ...) ; compiling (DEFCONSTANT +WAIT-GL+ ...) ; compiling (DEFCONSTANT +WAIT-X+ ...) ; compiling (DEFCONSTANT +COPY-CONTEXT+ ...) ; compiling (DEFCONSTANT +SWAP-BUFFERS+ ...) ; compiling (DEFCONSTANT +GET-VISUAL-CONFIGS+ ...) ; compiling (DEFCONSTANT +DESTROY-GLX-PIXMAP+ ...) ; compiling (DEFCONSTANT +QUERY-SERVER-STRING+ ...) ; compiling (DEFCONSTANT +CLIENT-INFO+ ...) ; compiling (DEFCONSTANT +GET-FB-CONFIGS+ ...) ; compiling (DEFCONSTANT +QUERY-CONTEXT+ ...) ; compiling (DEFCONSTANT +GET-DRAWABLE-ATTRIBUTES+ ...) ; compiling (DEFCONSTANT +VENDOR+ ...) ; compiling (DEFCONSTANT +VERSION+ ...) ; compiling (DEFCONSTANT +EXTENSIONS+ ...) ; compiling (DEFTYPE ATTRIBUTE-PAIR ...) ; compiling (DEFTYPE BITFIELD ...) ; compiling (DEFTYPE BOOL32 ...) ; compiling (DEFTYPE ENUM ...) ; compiling (DEFTYPE FBCONFIGID ...) ; compiling (DEFTYPE FLOAT32 ...) ; compiling (DEFTYPE FLOAT64 ...) ; compiling (DEFTYPE CONTEXT-TAG ...) ; compiling (DEFTYPE GLX-PIXMAP ...) ; compiling (DEFTYPE GLX-PBUFFER ...) ; compiling (DEFTYPE GLX-RENDER-COMMAND ...) ; compiling (DEFTYPE GLX-WINDOW ...) ; compiling (DEF-CLX-CLASS (CONTEXT # ...) ...) ; compiling (DEFUN PRINT-CONTEXT ...) ; compiling (DEF-CLX-CLASS (VISUAL # ...) ...) ; compiling (DEFUN PRINT-VISUAL ...) ; compiling (DEFCONSTANT +DAMAGED+ ...) ; compiling (DEFCONSTANT +SAVED+ ...) ; compiling (DEFCONSTANT +WINDOW+ ...) ; compiling (DEFCONSTANT +PBUFFER+ ...) ; compiling (DECLARE-EVENT :GLX-PBUFFER-CLOBBER ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DECLARE-EVENT :GLX-PBUFFER-CLOBBER ; (XLIB:DECLARE-EVENT :GLX-PBUFFER-CLOBBER ; (XLIB:CARD16 SEQUENCE) ; (XLIB:CARD16 GLX::EVENT-TYPE) ; (XLIB:CARD16 GLX::DRAW-TYPE) ; (XLIB:RESOURCE-ID XLIB:DRAWABLE) ; (XLIB:CARD32 GLX::BUFFER-MASK) ; (XLIB:CARD16 GLX::AUX-BUFFER) ; (XLIB:CARD16 GLX::X GLX::Y GLX::WIDTH GLX::HEIGHT COUNT)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN ; --> SB-INT:NAMED-LAMBDA FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> VALUES PROG1 LET ; ==> ; #:G54 ; ; note: could not stack allocate #:G54 in: ; (DECLARE-EVENT :GLX-PBUFFER-CLOBBER ; (CARD16 SEQUENCE) ; (CARD16 EVENT-TYPE) ; (CARD16 DRAW-TYPE) ; (RESOURCE-ID DRAWABLE) ; (CARD32 BUFFER-MASK) ; (CARD16 AUX-BUFFER) ; (CARD16 X Y WIDTH HEIGHT COUNT)) ; compiling (DEFINE-CONDITION BAD-CONTEXT ...) ; compiling (DEFINE-CONDITION BAD-CONTEXT-STATE ...) ; compiling (DEFINE-CONDITION BAD-DRAWABLE ...) ; compiling (DEFINE-CONDITION BAD-PIXMAP ...) ; compiling (DEFINE-CONDITION BAD-CONTEXT-TAG ...) ; compiling (DEFINE-CONDITION BAD-CURRENT-WINDOW ...) ; compiling (DEFINE-CONDITION BAD-RENDER-REQUEST ...) ; compiling (DEFINE-CONDITION BAD-LARGE-REQUEST ...) ; compiling (DEFINE-CONDITION UNSUPPORTED-PRIVATE-REQUEST ...) ; compiling (DEFINE-CONDITION BAD-FB-CONFIG ...) ; compiling (DEFINE-CONDITION BAD-PBUFFER ...) ; compiling (DEFINE-CONDITION BAD-CURRENT-DRAWABLE ...) ; compiling (DEFINE-CONDITION BAD-WINDOW ...) ; compiling (DEFINE-ERROR BAD-CONTEXT ...) ; compiling (DEFINE-ERROR BAD-CONTEXT-STATE ...) ; compiling (DEFINE-ERROR BAD-DRAWABLE ...) ; compiling (DEFINE-ERROR BAD-PIXMAP ...) ; compiling (DEFINE-ERROR BAD-CONTEXT-TAG ...) ; compiling (DEFINE-ERROR BAD-CURRENT-WINDOW ...) ; compiling (DEFINE-ERROR BAD-RENDER-REQUEST ...) ; compiling (DEFINE-ERROR BAD-LARGE-REQUEST ...) ; compiling (DEFINE-ERROR UNSUPPORTED-PRIVATE-REQUEST ...) ; compiling (DEFINE-ERROR BAD-FB-CONFIG ...) ; compiling (DEFINE-ERROR BAD-PBUFFER ...) ; compiling (DEFINE-ERROR BAD-CURRENT-DRAWABLE ...) ; compiling (DEFINE-ERROR BAD-WINDOW ...) ; compiling (DEFUN QUERY-VERSION ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+QUERY-VERSION+) (XLIB:CARD32 1) (XLIB:CARD32 3)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-SERVER-STRING ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN QUERY-SERVER-STRING ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+QUERY-SERVER-STRING+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0)) ; (XLIB:CARD32 GLX::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (GLX::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) GLX::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR GLX::BYTES))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CLIENT-INFO ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN CLIENT-INFO ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GLX::+CLIENT-INFO+) ; (XLIB:CARD32 4) ; (XLIB:CARD32 1) ; (XLIB:CARD32 3) ; (XLIB:CARD32 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MAKE-CONTEXT ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN MAKE-CONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY GLX::CTX 'GLX::CONTEXT) ; --> XLIB:WITH-DISPLAY XLIB::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 SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; compiling (DEFUN CREATE-CONTEXT ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN CREATE-CONTEXT ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GLX::+CREATE-CONTEXT+) ; (XLIB:RESOURCE-ID (GLX::CONTEXT-ID GLX::CTX)) ; (XLIB:RESOURCE-ID GLX::VISUAL) ; (XLIB:CARD32 ; (OR (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) 0)) ; (XLIB:RESOURCE-ID GLX::SHARE-LIST) ; (BOOLEAN GLX:IS-DIRECT)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFVAR *CURRENT-CONTEXT* ...) ; compiling (DEFUN DESTROY-CONTEXT ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN DESTROY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GLX::+DESTROY-CONTEXT+) ; (XLIB:RESOURCE-ID GLX::ID)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN IS-DIRECT ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN IS-DIRECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+IS-DIRECT+) ; (XLIB:RESOURCE-ID (GLX::CONTEXT-ID GLX::CTX))) ; (XLIB::CARD8-GET 8)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-CONTEXT ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN QUERY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+QUERY-CONTEXT+) ; (XLIB:RESOURCE-ID (GLX::CONTEXT-ID GLX::CTX))) ; (LET ((GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM GLX::NUM-ATTRIBUTES)) ; (LOOP GLX::REPEAT GLX::NUM-ATTRIBUTES ; GLX::FOR GLX::I FIXNUM GLX::UPFROM 32 GLX::BY 8 ; GLX::COLLECTING (CONS (XLIB::CARD32-GET GLX::I) ; (XLIB::CARD32-GET #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LOOP GLX::REPEAT GLX::NUM-ATTRIBUTES ; GLX::FOR GLX::I FIXNUM GLX::UPFROM 32 GLX::BY 8 ; GLX::COLLECTING (CONS (XLIB::CARD32-GET GLX::I) ; (XLIB::CARD32-GET (+ GLX::I 4)))) ; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF DECF ; --> SETQ THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+QUERY-CONTEXT+) ; (XLIB:RESOURCE-ID (GLX::CONTEXT-ID GLX::CTX))) ; (LET ((GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM GLX::NUM-ATTRIBUTES)) ; (LOOP GLX::REPEAT GLX::NUM-ATTRIBUTES ; GLX::FOR GLX::I FIXNUM GLX::UPFROM 32 GLX::BY 8 ; GLX::COLLECTING (CONS (XLIB::CARD32-GET GLX::I) ; (XLIB::CARD32-GET #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GET-DRAWABLE-ATTRIBUTES ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN GET-DRAWABLE-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+GET-DRAWABLE-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; (LET ((GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM GLX::NUM-ATTRIBUTES)) ; (LOOP GLX::REPEAT GLX::NUM-ATTRIBUTES ; GLX::FOR GLX::I FIXNUM GLX::UPFROM 32 GLX::BY 8 ; GLX::COLLECTING (CONS (XLIB::CARD32-GET GLX::I) ; (XLIB::CARD32-GET #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LOOP GLX::REPEAT GLX::NUM-ATTRIBUTES ; GLX::FOR GLX::I FIXNUM GLX::UPFROM 32 GLX::BY 8 ; GLX::COLLECTING (CONS (XLIB::CARD32-GET GLX::I) ; (XLIB::CARD32-GET (+ GLX::I 4)))) ; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF DECF ; --> SETQ THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+GET-DRAWABLE-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; (LET ((GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM GLX::NUM-ATTRIBUTES)) ; (LOOP GLX::REPEAT GLX::NUM-ATTRIBUTES ; GLX::FOR GLX::I FIXNUM GLX::UPFROM 32 GLX::BY 8 ; GLX::COLLECTING (CONS (XLIB::CARD32-GET GLX::I) ; (XLIB::CARD32-GET #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MAKE-CURRENT ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN MAKE-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+MAKE-CURRENT+) ; (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID XLIB:DRAWABLE)) ; (XLIB:RESOURCE-ID (GLX::CONTEXT-ID GLX::CTX)) (XLIB:CARD32 GLX::OLD-TAG)) ; (LET ((GLX::NEW-TAG (XLIB::CARD32-GET 8))) ; (SETF (GLX::CONTEXT-TAG GLX::CTX) GLX::NEW-TAG ; (GLX::CONTEXT-DRAWABLE GLX::CTX) XLIB:DRAWABLE ; (GLX::CONTEXT-DISPLAY GLX::CTX) XLIB:DISPLAY ; GLX::*CURRENT-CONTEXT* GLX::CTX))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (GENERATE-CONFIG-PROPERTIES) ; compiling (DEFUN MAKE-VISUAL ...) ; compiling (DEFUN VISUAL-ATTRIBUTE ...) ; compiling (DEFUN GET-VISUAL-CONFIGS ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN GET-VISUAL-CONFIGS ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+GET-VISUAL-CONFIGS+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0))) ; (LET* ((GLX::NUM-VISUALS (XLIB::CARD32-GET 8)) ; (GLX::NUM-PROPERTIES (XLIB::CARD32-GET 12)) ; (GLX::NUM-ORDERED (LENGTH GLX::*VISUAL-CONFIG-PROPERTIES*))) ; (DECLARE ; (TYPE FIXNUM GLX::NUM-ORDERED GLX::NUM-VISUALS GLX::NUM-PROPERTIES)) ; (LOOP GLX::WITH GLX::INDEX FIXNUM = 28 ; GLX::REPEAT GLX::NUM-VISUALS ; GLX::COLLECTING (GLX::MAKE-VISUAL (NCONC # #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LOOP GLX::REPEAT (/ (- GLX::NUM-PROPERTIES GLX::NUM-ORDERED) 2) ; GLX::COLLECTING (CONS (XLIB::CARD32-GET (INCF GLX::INDEX 4)) ; (XLIB::CARD32-GET (INCF GLX::INDEX 4)))) ; --> BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> TRUNCATE LET VALUES LOCALLY ; ==> ; (- SB-C::X SB-C::RES) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (RATIONAL -4294967293/2 4294967295/2), not a FIXNUM. ; The result is a (VALUES (RATIONAL (-1) (1)) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a (RATIONAL -4294967293/2 4294967295/2), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES (RATIONAL (-1) (1)) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION IF AND IF IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -4294967293/2 4294967295/2), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -4294967293/2 4294967295/2), not a FIXNUM. ; etc. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+GET-VISUAL-CONFIGS+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0))) ; (LET* ((GLX::NUM-VISUALS (XLIB::CARD32-GET 8)) ; (GLX::NUM-PROPERTIES (XLIB::CARD32-GET 12)) ; (GLX::NUM-ORDERED (LENGTH GLX::*VISUAL-CONFIG-PROPERTIES*))) ; (DECLARE ; (TYPE FIXNUM GLX::NUM-ORDERED GLX::NUM-VISUALS GLX::NUM-PROPERTIES)) ; (LOOP GLX::WITH GLX::INDEX FIXNUM = 28 ; GLX::REPEAT GLX::NUM-VISUALS ; GLX::COLLECTING (GLX::MAKE-VISUAL (NCONC # #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CHOOSE-VISUAL ...) ; compiling (DEFUN RENDER ...) ; compiling (DEFUN SWAP-BUFFERS ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GLX::+SWAP-BUFFERS+) ; (XLIB:CARD32 (GLX::CONTEXT-TAG GLX::CTX)) ; (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID (GLX::CONTEXT-DRAWABLE GLX::CTX)))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WAIT-GL ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN WAIT-GL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GLX::+WAIT-GL+) ; (XLIB:CARD32 (GLX::CONTEXT-TAG GLX::CTX))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WAIT-X ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN WAIT-X ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GLX::+WAIT-X+) ; (XLIB:CARD32 (GLX::CONTEXT-TAG GLX::CTX))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/glx-tmpIGHCU6ZA.fasl written ; compilation finished in 0:00:00.580 ; compiling file "/usr/share/common-lisp/source/clx/gl.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (DEFPACKAGE :GL ...) ; compiling (IN-PACKAGE :GL) ; compiling (DEFCONSTANT +GET-STRING+ ...) ; compiling (DEFCONSTANT +NEW-LIST+ ...) ; compiling (DEFCONSTANT +END-LIST+ ...) ; compiling (DEFCONSTANT +GEN-LISTS+ ...) ; compiling (DEFCONSTANT +FINISH+ ...) ; compiling (DEFCONSTANT +DISABLE+ ...) ; compiling (DEFCONSTANT +ENABLE+ ...) ; compiling (DEFCONSTANT +FLUSH+ ...) ; compiling (DEFCONSTANT +FALSE+ ...) ; compiling (DEFCONSTANT +TRUE+ ...) ; compiling (DEFCONSTANT +BYTE+ ...) ; compiling (DEFCONSTANT +UNSIGNED-BYTE+ ...) ; compiling (DEFCONSTANT +SHORT+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT+ ...) ; compiling (DEFCONSTANT +INT+ ...) ; compiling (DEFCONSTANT +UNSIGNED-INT+ ...) ; compiling (DEFCONSTANT +FLOAT+ ...) ; compiling (DEFCONSTANT +DOUBLE+ ...) ; compiling (DEFCONSTANT +2-BYTES+ ...) ; compiling (DEFCONSTANT +3-BYTES+ ...) ; compiling (DEFCONSTANT +4-BYTES+ ...) ; compiling (DEFCONSTANT +POINTS+ ...) ; compiling (DEFCONSTANT +LINES+ ...) ; compiling (DEFCONSTANT +LINE-LOOP+ ...) ; compiling (DEFCONSTANT +LINE-STRIP+ ...) ; compiling (DEFCONSTANT +TRIANGLES+ ...) ; compiling (DEFCONSTANT +TRIANGLE-STRIP+ ...) ; compiling (DEFCONSTANT +TRIANGLE-FAN+ ...) ; compiling (DEFCONSTANT +QUADS+ ...) ; compiling (DEFCONSTANT +QUAD-STRIP+ ...) ; compiling (DEFCONSTANT +POLYGON+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-SIZE+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-TYPE+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-STRIDE+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-TYPE+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-STRIDE+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-SIZE+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-TYPE+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-STRIDE+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-TYPE+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-STRIDE+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-TYPE+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-STRIDE+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-STRIDE+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-POINTER+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-POINTER+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-POINTER+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-POINTER+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-POINTER+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-POINTER+ ...) ; compiling (DEFCONSTANT +V2F+ ...) ; compiling (DEFCONSTANT +V3F+ ...) ; compiling (DEFCONSTANT +C4UB-V2F+ ...) ; compiling (DEFCONSTANT +C4UB-V3F+ ...) ; compiling (DEFCONSTANT +C3F-V3F+ ...) ; compiling (DEFCONSTANT +N3F-V3F+ ...) ; compiling (DEFCONSTANT +C4F-N3F-V3F+ ...) ; compiling (DEFCONSTANT +T2F-V3F+ ...) ; compiling (DEFCONSTANT +T4F-V4F+ ...) ; compiling (DEFCONSTANT +T2F-C4UB-V3F+ ...) ; compiling (DEFCONSTANT +T2F-C3F-V3F+ ...) ; compiling (DEFCONSTANT +T2F-N3F-V3F+ ...) ; compiling (DEFCONSTANT +T2F-C4F-N3F-V3F+ ...) ; compiling (DEFCONSTANT +T4F-C4F-N3F-V4F+ ...) ; compiling (DEFCONSTANT +MATRIX-MODE+ ...) ; compiling (DEFCONSTANT +MODELVIEW+ ...) ; compiling (DEFCONSTANT +PROJECTION+ ...) ; compiling (DEFCONSTANT +TEXTURE+ ...) ; compiling (DEFCONSTANT +POINT-SMOOTH+ ...) ; compiling (DEFCONSTANT +POINT-SIZE+ ...) ; compiling (DEFCONSTANT +POINT-SIZE-GRANULARITY+ ...) ; compiling (DEFCONSTANT +POINT-SIZE-RANGE+ ...) ; compiling (DEFCONSTANT +LINE-SMOOTH+ ...) ; compiling (DEFCONSTANT +LINE-STIPPLE+ ...) ; compiling (DEFCONSTANT +LINE-STIPPLE-PATTERN+ ...) ; compiling (DEFCONSTANT +LINE-STIPPLE-REPEAT+ ...) ; compiling (DEFCONSTANT +LINE-WIDTH+ ...) ; compiling (DEFCONSTANT +LINE-WIDTH-GRANULARITY+ ...) ; compiling (DEFCONSTANT +LINE-WIDTH-RANGE+ ...) ; compiling (DEFCONSTANT +POINT+ ...) ; compiling (DEFCONSTANT +LINE+ ...) ; compiling (DEFCONSTANT +FILL+ ...) ; compiling (DEFCONSTANT +CW+ ...) ; compiling (DEFCONSTANT +CCW+ ...) ; compiling (DEFCONSTANT +FRONT+ ...) ; compiling (DEFCONSTANT +BACK+ ...) ; compiling (DEFCONSTANT +POLYGON-MODE+ ...) ; compiling (DEFCONSTANT +POLYGON-SMOOTH+ ...) ; compiling (DEFCONSTANT +POLYGON-STIPPLE+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG+ ...) ; compiling (DEFCONSTANT +CULL-FACE+ ...) ; compiling (DEFCONSTANT +CULL-FACE-MODE+ ...) ; compiling (DEFCONSTANT +FRONT-FACE+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-FACTOR+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-UNITS+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-POINT+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-LINE+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-FILL+ ...) ; compiling (DEFCONSTANT +COMPILE+ ...) ; compiling (DEFCONSTANT +COMPILE-AND-EXECUTE+ ...) ; compiling (DEFCONSTANT +LIST-BASE+ ...) ; compiling (DEFCONSTANT +LIST-INDEX+ ...) ; compiling (DEFCONSTANT +LIST-MODE+ ...) ; compiling (DEFCONSTANT +NEVER+ ...) ; compiling (DEFCONSTANT +LESS+ ...) ; compiling (DEFCONSTANT +EQUAL+ ...) ; compiling (DEFCONSTANT +LEQUAL+ ...) ; compiling (DEFCONSTANT +GREATER+ ...) ; compiling (DEFCONSTANT +NOTEQUAL+ ...) ; compiling (DEFCONSTANT +GEQUAL+ ...) ; compiling (DEFCONSTANT +ALWAYS+ ...) ; compiling (DEFCONSTANT +DEPTH-TEST+ ...) ; compiling (DEFCONSTANT +DEPTH-BITS+ ...) ; compiling (DEFCONSTANT +DEPTH-CLEAR-VALUE+ ...) ; compiling (DEFCONSTANT +DEPTH-FUNC+ ...) ; compiling (DEFCONSTANT +DEPTH-RANGE+ ...) ; compiling (DEFCONSTANT +DEPTH-WRITEMASK+ ...) ; compiling (DEFCONSTANT +DEPTH-COMPONENT+ ...) ; compiling (DEFCONSTANT +LIGHTING+ ...) ; compiling (DEFCONSTANT +LIGHT0+ ...) ; compiling (DEFCONSTANT +LIGHT1+ ...) ; compiling (DEFCONSTANT +LIGHT2+ ...) ; compiling (DEFCONSTANT +LIGHT3+ ...) ; compiling (DEFCONSTANT +LIGHT4+ ...) ; compiling (DEFCONSTANT +LIGHT5+ ...) ; compiling (DEFCONSTANT +LIGHT6+ ...) ; compiling (DEFCONSTANT +LIGHT7+ ...) ; compiling (DEFCONSTANT +SPOT-EXPONENT+ ...) ; compiling (DEFCONSTANT +SPOT-CUTOFF+ ...) ; compiling (DEFCONSTANT +CONSTANT-ATTENUATION+ ...) ; compiling (DEFCONSTANT +LINEAR-ATTENUATION+ ...) ; compiling (DEFCONSTANT +QUADRATIC-ATTENUATION+ ...) ; compiling (DEFCONSTANT +AMBIENT+ ...) ; compiling (DEFCONSTANT +DIFFUSE+ ...) ; compiling (DEFCONSTANT +SPECULAR+ ...) ; compiling (DEFCONSTANT +SHININESS+ ...) ; compiling (DEFCONSTANT +EMISSION+ ...) ; compiling (DEFCONSTANT +POSITION+ ...) ; compiling (DEFCONSTANT +SPOT-DIRECTION+ ...) ; compiling (DEFCONSTANT +AMBIENT-AND-DIFFUSE+ ...) ; compiling (DEFCONSTANT +COLOR-INDEXES+ ...) ; compiling (DEFCONSTANT +LIGHT-MODEL-TWO-SIDE+ ...) ; compiling (DEFCONSTANT +LIGHT-MODEL-LOCAL-VIEWER+ ...) ; compiling (DEFCONSTANT +LIGHT-MODEL-AMBIENT+ ...) ; compiling (DEFCONSTANT +FRONT-AND-BACK+ ...) ; compiling (DEFCONSTANT +SHADE-MODEL+ ...) ; compiling (DEFCONSTANT +FLAT+ ...) ; compiling (DEFCONSTANT +SMOOTH+ ...) ; compiling (DEFCONSTANT +COLOR-MATERIAL+ ...) ; compiling (DEFCONSTANT +COLOR-MATERIAL-FACE+ ...) ; compiling (DEFCONSTANT +COLOR-MATERIAL-PARAMETER+ ...) ; compiling (DEFCONSTANT +NORMALIZE+ ...) ; compiling (DEFCONSTANT +CLIP-PLANE0+ ...) ; compiling (DEFCONSTANT +CLIP-PLANE1+ ...) ; compiling (DEFCONSTANT +CLIP-PLANE2+ ...) ; compiling (DEFCONSTANT +CLIP-PLANE3+ ...) ; compiling (DEFCONSTANT +CLIP-PLANE4+ ...) ; compiling (DEFCONSTANT +CLIP-PLANE5+ ...) ; compiling (DEFCONSTANT +ACCUM-RED-BITS+ ...) ; compiling (DEFCONSTANT +ACCUM-GREEN-BITS+ ...) ; compiling (DEFCONSTANT +ACCUM-BLUE-BITS+ ...) ; compiling (DEFCONSTANT +ACCUM-ALPHA-BITS+ ...) ; compiling (DEFCONSTANT +ACCUM-CLEAR-VALUE+ ...) ; compiling (DEFCONSTANT +ACCUM+ ...) ; compiling (DEFCONSTANT +ADD+ ...) ; compiling (DEFCONSTANT +LOAD+ ...) ; compiling (DEFCONSTANT +MULT+ ...) ; compiling (DEFCONSTANT +RETURN+ ...) ; compiling (DEFCONSTANT +ALPHA-TEST+ ...) ; compiling (DEFCONSTANT +ALPHA-TEST-REF+ ...) ; compiling (DEFCONSTANT +ALPHA-TEST-FUNC+ ...) ; compiling (DEFCONSTANT +BLEND+ ...) ; compiling (DEFCONSTANT +BLEND-SRC+ ...) ; compiling (DEFCONSTANT +BLEND-DST+ ...) ; compiling (DEFCONSTANT +ZERO+ ...) ; compiling (DEFCONSTANT +ONE+ ...) ; compiling (DEFCONSTANT +SRC-COLOR+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-SRC-COLOR+ ...) ; compiling (DEFCONSTANT +DST-COLOR+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-DST-COLOR+ ...) ; compiling (DEFCONSTANT +SRC-ALPHA+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-SRC-ALPHA+ ...) ; compiling (DEFCONSTANT +DST-ALPHA+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-DST-ALPHA+ ...) ; compiling (DEFCONSTANT +SRC-ALPHA-SATURATE+ ...) ; compiling (DEFCONSTANT +CONSTANT-COLOR+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-CONSTANT-COLOR+ ...) ; compiling (DEFCONSTANT +CONSTANT-ALPHA+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-CONSTANT-ALPHA+ ...) ; compiling (DEFCONSTANT +FEEDBACK+ ...) ; compiling (DEFCONSTANT +RENDER+ ...) ; compiling (DEFCONSTANT +SELECT+ ...) ; compiling (DEFCONSTANT +2D+ ...) ; compiling (DEFCONSTANT +3D+ ...) ; compiling (DEFCONSTANT +3D-COLOR+ ...) ; compiling (DEFCONSTANT +3D-COLOR-TEXTURE+ ...) ; compiling (DEFCONSTANT +4D-COLOR-TEXTURE+ ...) ; compiling (DEFCONSTANT +POINT-TOKEN+ ...) ; compiling (DEFCONSTANT +LINE-TOKEN+ ...) ; compiling (DEFCONSTANT +LINE-RESET-TOKEN+ ...) ; compiling (DEFCONSTANT +POLYGON-TOKEN+ ...) ; compiling (DEFCONSTANT +BITMAP-TOKEN+ ...) ; compiling (DEFCONSTANT +DRAW-PIXEL-TOKEN+ ...) ; compiling (DEFCONSTANT +COPY-PIXEL-TOKEN+ ...) ; compiling (DEFCONSTANT +PASS-THROUGH-TOKEN+ ...) ; compiling (DEFCONSTANT +FEEDBACK-BUFFER-POINTER+ ...) ; compiling (DEFCONSTANT +FEEDBACK-BUFFER-SIZE+ ...) ; compiling (DEFCONSTANT +FEEDBACK-BUFFER-TYPE+ ...) ; compiling (DEFCONSTANT +SELECTION-BUFFER-POINTER+ ...) ; compiling (DEFCONSTANT +SELECTION-BUFFER-SIZE+ ...) ; compiling (DEFCONSTANT +FOG+ ...) ; compiling (DEFCONSTANT +FOG-MODE+ ...) ; compiling (DEFCONSTANT +FOG-DENSITY+ ...) ; compiling (DEFCONSTANT +FOG-COLOR+ ...) ; compiling (DEFCONSTANT +FOG-INDEX+ ...) ; compiling (DEFCONSTANT +FOG-START+ ...) ; compiling (DEFCONSTANT +FOG-END+ ...) ; compiling (DEFCONSTANT +LINEAR+ ...) ; compiling (DEFCONSTANT +EXP+ ...) ; compiling (DEFCONSTANT +EXP2+ ...) ; compiling (DEFCONSTANT +LOGIC-OP+ ...) ; compiling (DEFCONSTANT +INDEX-LOGIC-OP+ ...) ; compiling (DEFCONSTANT +COLOR-LOGIC-OP+ ...) ; compiling (DEFCONSTANT +LOGIC-OP-MODE+ ...) ; compiling (DEFCONSTANT +CLEAR+ ...) ; compiling (DEFCONSTANT +SET+ ...) ; compiling (DEFCONSTANT +COPY+ ...) ; compiling (DEFCONSTANT +COPY-INVERTED+ ...) ; compiling (DEFCONSTANT +NOOP+ ...) ; compiling (DEFCONSTANT +INVERT+ ...) ; compiling (DEFCONSTANT +AND+ ...) ; compiling (DEFCONSTANT +NAND+ ...) ; compiling (DEFCONSTANT +OR+ ...) ; compiling (DEFCONSTANT +NOR+ ...) ; compiling (DEFCONSTANT +XOR+ ...) ; compiling (DEFCONSTANT +EQUIV+ ...) ; compiling (DEFCONSTANT +AND-REVERSE+ ...) ; compiling (DEFCONSTANT +AND-INVERTED+ ...) ; compiling (DEFCONSTANT +OR-REVERSE+ ...) ; compiling (DEFCONSTANT +OR-INVERTED+ ...) ; compiling (DEFCONSTANT +STENCIL-TEST+ ...) ; compiling (DEFCONSTANT +STENCIL-WRITEMASK+ ...) ; compiling (DEFCONSTANT +STENCIL-BITS+ ...) ; compiling (DEFCONSTANT +STENCIL-FUNC+ ...) ; compiling (DEFCONSTANT +STENCIL-VALUE-MASK+ ...) ; compiling (DEFCONSTANT +STENCIL-REF+ ...) ; compiling (DEFCONSTANT +STENCIL-FAIL+ ...) ; compiling (DEFCONSTANT +STENCIL-PASS-DEPTH-PASS+ ...) ; compiling (DEFCONSTANT +STENCIL-PASS-DEPTH-FAIL+ ...) ; compiling (DEFCONSTANT +STENCIL-CLEAR-VALUE+ ...) ; compiling (DEFCONSTANT +STENCIL-INDEX+ ...) ; compiling (DEFCONSTANT +KEEP+ ...) ; compiling (DEFCONSTANT +REPLACE+ ...) ; compiling (DEFCONSTANT +INCR+ ...) ; compiling (DEFCONSTANT +DECR+ ...) ; compiling (DEFCONSTANT +NONE+ ...) ; compiling (DEFCONSTANT +LEFT+ ...) ; compiling (DEFCONSTANT +RIGHT+ ...) ; compiling (DEFCONSTANT +FRONT-LEFT+ ...) ; compiling (DEFCONSTANT +FRONT-RIGHT+ ...) ; compiling (DEFCONSTANT +BACK-LEFT+ ...) ; compiling (DEFCONSTANT +BACK-RIGHT+ ...) ; compiling (DEFCONSTANT +AUX0+ ...) ; compiling (DEFCONSTANT +AUX1+ ...) ; compiling (DEFCONSTANT +AUX2+ ...) ; compiling (DEFCONSTANT +AUX3+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX+ ...) ; compiling (DEFCONSTANT +RED+ ...) ; compiling (DEFCONSTANT +GREEN+ ...) ; compiling (DEFCONSTANT +BLUE+ ...) ; compiling (DEFCONSTANT +ALPHA+ ...) ; compiling (DEFCONSTANT +LUMINANCE+ ...) ; compiling (DEFCONSTANT +LUMINANCE-ALPHA+ ...) ; compiling (DEFCONSTANT +ALPHA-BITS+ ...) ; compiling (DEFCONSTANT +RED-BITS+ ...) ; compiling (DEFCONSTANT +GREEN-BITS+ ...) ; compiling (DEFCONSTANT +BLUE-BITS+ ...) ; compiling (DEFCONSTANT +INDEX-BITS+ ...) ; compiling (DEFCONSTANT +SUBPIXEL-BITS+ ...) ; compiling (DEFCONSTANT +AUX-BUFFERS+ ...) ; compiling (DEFCONSTANT +READ-BUFFER+ ...) ; compiling (DEFCONSTANT +DRAW-BUFFER+ ...) ; compiling (DEFCONSTANT +DOUBLEBUFFER+ ...) ; compiling (DEFCONSTANT +STEREO+ ...) ; compiling (DEFCONSTANT +BITMAP+ ...) ; compiling (DEFCONSTANT +COLOR+ ...) ; compiling (DEFCONSTANT +DEPTH+ ...) ; compiling (DEFCONSTANT +STENCIL+ ...) ; compiling (DEFCONSTANT +DITHER+ ...) ; compiling (DEFCONSTANT +RGB+ ...) ; compiling (DEFCONSTANT +RGBA+ ...) ; compiling (DEFCONSTANT +MAX-LIST-NESTING+ ...) ; compiling (DEFCONSTANT +MAX-ATTRIB-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +MAX-MODELVIEW-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +MAX-NAME-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +MAX-PROJECTION-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +MAX-TEXTURE-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +MAX-EVAL-ORDER+ ...) ; compiling (DEFCONSTANT +MAX-LIGHTS+ ...) ; compiling (DEFCONSTANT +MAX-CLIP-PLANES+ ...) ; compiling (DEFCONSTANT +MAX-TEXTURE-SIZE+ ...) ; compiling (DEFCONSTANT +MAX-PIXEL-MAP-TABLE+ ...) ; compiling (DEFCONSTANT +MAX-VIEWPORT-DIMS+ ...) ; compiling (DEFCONSTANT +MAX-CLIENT-ATTRIB-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +ATTRIB-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +CLIENT-ATTRIB-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +COLOR-CLEAR-VALUE+ ...) ; compiling (DEFCONSTANT +COLOR-WRITEMASK+ ...) ; compiling (DEFCONSTANT +CURRENT-INDEX+ ...) ; compiling (DEFCONSTANT +CURRENT-COLOR+ ...) ; compiling (DEFCONSTANT +CURRENT-NORMAL+ ...) ; compiling (DEFCONSTANT +CURRENT-RASTER-COLOR+ ...) ; compiling (DEFCONSTANT +CURRENT-RASTER-DISTANCE+ ...) ; compiling (DEFCONSTANT +CURRENT-RASTER-INDEX+ ...) ; compiling (DEFCONSTANT +CURRENT-RASTER-POSITION+ ...) ; compiling (DEFCONSTANT +CURRENT-RASTER-TEXTURE-COORDS+ ...) ; compiling (DEFCONSTANT +CURRENT-RASTER-POSITION-VALID+ ...) ; compiling (DEFCONSTANT +CURRENT-TEXTURE-COORDS+ ...) ; compiling (DEFCONSTANT +INDEX-CLEAR-VALUE+ ...) ; compiling (DEFCONSTANT +INDEX-MODE+ ...) ; compiling (DEFCONSTANT +INDEX-WRITEMASK+ ...) ; compiling (DEFCONSTANT +MODELVIEW-MATRIX+ ...) ; compiling (DEFCONSTANT +MODELVIEW-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +NAME-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +PROJECTION-MATRIX+ ...) ; compiling (DEFCONSTANT +PROJECTION-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +RENDER-MODE+ ...) ; compiling (DEFCONSTANT +RGBA-MODE+ ...) ; compiling (DEFCONSTANT +TEXTURE-MATRIX+ ...) ; compiling (DEFCONSTANT +TEXTURE-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +VIEWPORT+ ...) ; compiling (DEFCONSTANT +AUTO-NORMAL+ ...) ; compiling (DEFCONSTANT +MAP1-COLOR-4+ ...) ; compiling (DEFCONSTANT +MAP1-GRID-DOMAIN+ ...) ; compiling (DEFCONSTANT +MAP1-GRID-SEGMENTS+ ...) ; compiling (DEFCONSTANT +MAP1-INDEX+ ...) ; compiling (DEFCONSTANT +MAP1-NORMAL+ ...) ; compiling (DEFCONSTANT +MAP1-TEXTURE-COORD-1+ ...) ; compiling (DEFCONSTANT +MAP1-TEXTURE-COORD-2+ ...) ; compiling (DEFCONSTANT +MAP1-TEXTURE-COORD-3+ ...) ; compiling (DEFCONSTANT +MAP1-TEXTURE-COORD-4+ ...) ; compiling (DEFCONSTANT +MAP1-VERTEX-3+ ...) ; compiling (DEFCONSTANT +MAP1-VERTEX-4+ ...) ; compiling (DEFCONSTANT +MAP2-COLOR-4+ ...) ; compiling (DEFCONSTANT +MAP2-GRID-DOMAIN+ ...) ; compiling (DEFCONSTANT +MAP2-GRID-SEGMENTS+ ...) ; compiling (DEFCONSTANT +MAP2-INDEX+ ...) ; compiling (DEFCONSTANT +MAP2-NORMAL+ ...) ; compiling (DEFCONSTANT +MAP2-TEXTURE-COORD-1+ ...) ; compiling (DEFCONSTANT +MAP2-TEXTURE-COORD-2+ ...) ; compiling (DEFCONSTANT +MAP2-TEXTURE-COORD-3+ ...) ; compiling (DEFCONSTANT +MAP2-TEXTURE-COORD-4+ ...) ; compiling (DEFCONSTANT +MAP2-VERTEX-3+ ...) ; compiling (DEFCONSTANT +MAP2-VERTEX-4+ ...) ; compiling (DEFCONSTANT +COEFF+ ...) ; compiling (DEFCONSTANT +DOMAIN+ ...) ; compiling (DEFCONSTANT +ORDER+ ...) ; compiling (DEFCONSTANT +FOG-HINT+ ...) ; compiling (DEFCONSTANT +LINE-SMOOTH-HINT+ ...) ; compiling (DEFCONSTANT +PERSPECTIVE-CORRECTION-HINT+ ...) ; compiling (DEFCONSTANT +POINT-SMOOTH-HINT+ ...) ; compiling (DEFCONSTANT +POLYGON-SMOOTH-HINT+ ...) ; compiling (DEFCONSTANT +DONT-CARE+ ...) ; compiling (DEFCONSTANT +FASTEST+ ...) ; compiling (DEFCONSTANT +NICEST+ ...) ; compiling (DEFCONSTANT +SCISSOR-TEST+ ...) ; compiling (DEFCONSTANT +SCISSOR-BOX+ ...) ; compiling (DEFCONSTANT +MAP-COLOR+ ...) ; compiling (DEFCONSTANT +MAP-STENCIL+ ...) ; compiling (DEFCONSTANT +INDEX-SHIFT+ ...) ; compiling (DEFCONSTANT +INDEX-OFFSET+ ...) ; compiling (DEFCONSTANT +RED-SCALE+ ...) ; compiling (DEFCONSTANT +RED-BIAS+ ...) ; compiling (DEFCONSTANT +GREEN-SCALE+ ...) ; compiling (DEFCONSTANT +GREEN-BIAS+ ...) ; compiling (DEFCONSTANT +BLUE-SCALE+ ...) ; compiling (DEFCONSTANT +BLUE-BIAS+ ...) ; compiling (DEFCONSTANT +ALPHA-SCALE+ ...) ; compiling (DEFCONSTANT +ALPHA-BIAS+ ...) ; compiling (DEFCONSTANT +DEPTH-SCALE+ ...) ; compiling (DEFCONSTANT +DEPTH-BIAS+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-S-TO-S-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-I-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-R-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-G-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-B-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-A-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-R-TO-R-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-G-TO-G-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-B-TO-B-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-A-TO-A-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-S-TO-S+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-I+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-R+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-G+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-B+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-A+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-R-TO-R+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-G-TO-G+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-B-TO-B+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-A-TO-A+ ...) ; compiling (DEFCONSTANT +PACK-ALIGNMENT+ ...) ; compiling (DEFCONSTANT +PACK-LSB-FIRST+ ...) ; compiling (DEFCONSTANT +PACK-ROW-LENGTH+ ...) ; compiling (DEFCONSTANT +PACK-SKIP-PIXELS+ ...) ; compiling (DEFCONSTANT +PACK-SKIP-ROWS+ ...) ; compiling (DEFCONSTANT +PACK-SWAP-BYTES+ ...) ; compiling (DEFCONSTANT +UNPACK-ALIGNMENT+ ...) ; compiling (DEFCONSTANT +UNPACK-LSB-FIRST+ ...) ; compiling (DEFCONSTANT +UNPACK-ROW-LENGTH+ ...) ; compiling (DEFCONSTANT +UNPACK-SKIP-PIXELS+ ...) ; compiling (DEFCONSTANT +UNPACK-SKIP-ROWS+ ...) ; compiling (DEFCONSTANT +UNPACK-SWAP-BYTES+ ...) ; compiling (DEFCONSTANT +ZOOM-X+ ...) ; compiling (DEFCONSTANT +ZOOM-Y+ ...) ; compiling (DEFCONSTANT +TEXTURE-ENV+ ...) ; compiling (DEFCONSTANT +TEXTURE-ENV-MODE+ ...) ; compiling (DEFCONSTANT +TEXTURE-1D+ ...) ; compiling (DEFCONSTANT +TEXTURE-2D+ ...) ; compiling (DEFCONSTANT +TEXTURE-WRAP-S+ ...) ; compiling (DEFCONSTANT +TEXTURE-WRAP-T+ ...) ; compiling (DEFCONSTANT +TEXTURE-MAG-FILTER+ ...) ; compiling (DEFCONSTANT +TEXTURE-MIN-FILTER+ ...) ; compiling (DEFCONSTANT +TEXTURE-ENV-COLOR+ ...) ; compiling (DEFCONSTANT +TEXTURE-GEN-S+ ...) ; compiling (DEFCONSTANT +TEXTURE-GEN-T+ ...) ; compiling (DEFCONSTANT +TEXTURE-GEN-MODE+ ...) ; compiling (DEFCONSTANT +TEXTURE-BORDER-COLOR+ ...) ; compiling (DEFCONSTANT +TEXTURE-WIDTH+ ...) ; compiling (DEFCONSTANT +TEXTURE-HEIGHT+ ...) ; compiling (DEFCONSTANT +TEXTURE-BORDER+ ...) ; compiling (DEFCONSTANT +TEXTURE-COMPONENTS+ ...) ; compiling (DEFCONSTANT +TEXTURE-RED-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-GREEN-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-BLUE-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-ALPHA-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-LUMINANCE-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-INTENSITY-SIZE+ ...) ; compiling (DEFCONSTANT +NEAREST-MIPMAP-NEAREST+ ...) ; compiling (DEFCONSTANT +NEAREST-MIPMAP-LINEAR+ ...) ; compiling (DEFCONSTANT +LINEAR-MIPMAP-NEAREST+ ...) ; compiling (DEFCONSTANT +LINEAR-MIPMAP-LINEAR+ ...) ; compiling (DEFCONSTANT +OBJECT-LINEAR+ ...) ; compiling (DEFCONSTANT +OBJECT-PLANE+ ...) ; compiling (DEFCONSTANT +EYE-LINEAR+ ...) ; compiling (DEFCONSTANT +EYE-PLANE+ ...) ; compiling (DEFCONSTANT +SPHERE-MAP+ ...) ; compiling (DEFCONSTANT +DECAL+ ...) ; compiling (DEFCONSTANT +MODULATE+ ...) ; compiling (DEFCONSTANT +NEAREST+ ...) ; compiling (DEFCONSTANT +REPEAT+ ...) ; compiling (DEFCONSTANT +CLAMP+ ...) ; compiling (DEFCONSTANT +S+ ...) ; compiling (DEFCONSTANT +T+ ...) ; compiling (DEFCONSTANT +R+ ...) ; compiling (DEFCONSTANT +Q+ ...) ; compiling (DEFCONSTANT +TEXTURE-GEN-R+ ...) ; compiling (DEFCONSTANT +TEXTURE-GEN-Q+ ...) ; compiling (DEFCONSTANT +PROXY-TEXTURE-1D+ ...) ; compiling (DEFCONSTANT +PROXY-TEXTURE-2D+ ...) ; compiling (DEFCONSTANT +TEXTURE-PRIORITY+ ...) ; compiling (DEFCONSTANT +TEXTURE-RESIDENT+ ...) ; compiling (DEFCONSTANT +TEXTURE-BINDING-1D+ ...) ; compiling (DEFCONSTANT +TEXTURE-BINDING-2D+ ...) ; compiling (DEFCONSTANT +TEXTURE-INTERNAL-FORMAT+ ...) ; compiling (DEFCONSTANT +PACK-SKIP-IMAGES+ ...) ; compiling (DEFCONSTANT +PACK-IMAGE-HEIGHT+ ...) ; compiling (DEFCONSTANT +UNPACK-SKIP-IMAGES+ ...) ; compiling (DEFCONSTANT +UNPACK-IMAGE-HEIGHT+ ...) ; compiling (DEFCONSTANT +TEXTURE-3D+ ...) ; compiling (DEFCONSTANT +PROXY-TEXTURE-3D+ ...) ; compiling (DEFCONSTANT +TEXTURE-DEPTH+ ...) ; compiling (DEFCONSTANT +TEXTURE-WRAP-R+ ...) ; compiling (DEFCONSTANT +MAX-3D-TEXTURE-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-BINDING-3D+ ...) ; compiling (DEFCONSTANT +ALPHA4+ ...) ; compiling (DEFCONSTANT +ALPHA8+ ...) ; compiling (DEFCONSTANT +ALPHA12+ ...) ; compiling (DEFCONSTANT +ALPHA16+ ...) ; compiling (DEFCONSTANT +LUMINANCE4+ ...) ; compiling (DEFCONSTANT +LUMINANCE8+ ...) ; compiling (DEFCONSTANT +LUMINANCE12+ ...) ; compiling (DEFCONSTANT +LUMINANCE16+ ...) ; compiling (DEFCONSTANT +LUMINANCE4-ALPHA4+ ...) ; compiling (DEFCONSTANT +LUMINANCE6-ALPHA2+ ...) ; compiling (DEFCONSTANT +LUMINANCE8-ALPHA8+ ...) ; compiling (DEFCONSTANT +LUMINANCE12-ALPHA4+ ...) ; compiling (DEFCONSTANT +LUMINANCE12-ALPHA12+ ...) ; compiling (DEFCONSTANT +LUMINANCE16-ALPHA16+ ...) ; compiling (DEFCONSTANT +INTENSITY+ ...) ; compiling (DEFCONSTANT +INTENSITY4+ ...) ; compiling (DEFCONSTANT +INTENSITY8+ ...) ; compiling (DEFCONSTANT +INTENSITY12+ ...) ; compiling (DEFCONSTANT +INTENSITY16+ ...) ; compiling (DEFCONSTANT +R3-G3-B2+ ...) ; compiling (DEFCONSTANT +RGB4+ ...) ; compiling (DEFCONSTANT +RGB5+ ...) ; compiling (DEFCONSTANT +RGB8+ ...) ; compiling (DEFCONSTANT +RGB10+ ...) ; compiling (DEFCONSTANT +RGB12+ ...) ; compiling (DEFCONSTANT +RGB16+ ...) ; compiling (DEFCONSTANT +RGBA2+ ...) ; compiling (DEFCONSTANT +RGBA4+ ...) ; compiling (DEFCONSTANT +RGB5-A1+ ...) ; compiling (DEFCONSTANT +RGBA8+ ...) ; compiling (DEFCONSTANT +RGB10-A2+ ...) ; compiling (DEFCONSTANT +RGBA12+ ...) ; compiling (DEFCONSTANT +RGBA16+ ...) ; compiling (DEFCONSTANT +VENDOR+ ...) ; compiling (DEFCONSTANT +RENDERER+ ...) ; compiling (DEFCONSTANT +VERSION+ ...) ; compiling (DEFCONSTANT +EXTENSIONS+ ...) ; compiling (DEFCONSTANT +NO-ERROR+ ...) ; compiling (DEFCONSTANT +INVALID-VALUE+ ...) ; compiling (DEFCONSTANT +INVALID-ENUM+ ...) ; compiling (DEFCONSTANT +INVALID-OPERATION+ ...) ; compiling (DEFCONSTANT +STACK-OVERFLOW+ ...) ; compiling (DEFCONSTANT +STACK-UNDERFLOW+ ...) ; compiling (DEFCONSTANT +OUT-OF-MEMORY+ ...) ; compiling (DEFCONSTANT +RESCALE-NORMAL+ ...) ; compiling (DEFCONSTANT +CLAMP-TO-EDGE+ ...) ; compiling (DEFCONSTANT +MAX-ELEMENTS-VERTICES+ ...) ; compiling (DEFCONSTANT +MAX-ELEMENTS-INDICES+ ...) ; compiling (DEFCONSTANT +BGR+ ...) ; compiling (DEFCONSTANT +BGRA+ ...) ; compiling (DEFCONSTANT +UNSIGNED-BYTE-3-3-2+ ...) ; compiling (DEFCONSTANT +UNSIGNED-BYTE-2-3-3-REV+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT-5-6-5+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT-5-6-5-REV+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT-4-4-4-4+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT-4-4-4-4-REV+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT-5-5-5-1+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT-1-5-5-5-REV+ ...) ; compiling (DEFCONSTANT +UNSIGNED-INT-8-8-8-8+ ...) ; compiling (DEFCONSTANT +UNSIGNED-INT-8-8-8-8-REV+ ...) ; compiling (DEFCONSTANT +UNSIGNED-INT-10-10-10-2+ ...) ; compiling (DEFCONSTANT +UNSIGNED-INT-2-10-10-10-REV+ ...) ; compiling (DEFCONSTANT +LIGHT-MODEL-COLOR-CONTROL+ ...) ; compiling (DEFCONSTANT +SINGLE-COLOR+ ...) ; compiling (DEFCONSTANT +SEPARATE-SPECULAR-COLOR+ ...) ; compiling (DEFCONSTANT +TEXTURE-MIN-LOD+ ...) ; compiling (DEFCONSTANT +TEXTURE-MAX-LOD+ ...) ; compiling (DEFCONSTANT +TEXTURE-BASE-LEVEL+ ...) ; compiling (DEFCONSTANT +TEXTURE-MAX-LEVEL+ ...) ; compiling (DEFCONSTANT +SMOOTH-POINT-SIZE-RANGE+ ...) ; compiling (DEFCONSTANT +SMOOTH-POINT-SIZE-GRANULARITY+ ...) ; compiling (DEFCONSTANT +SMOOTH-LINE-WIDTH-RANGE+ ...) ; compiling (DEFCONSTANT +SMOOTH-LINE-WIDTH-GRANULARITY+ ...) ; compiling (DEFCONSTANT +ALIASED-POINT-SIZE-RANGE+ ...) ; compiling (DEFCONSTANT +ALIASED-LINE-WIDTH-RANGE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-COLOR-TABLE+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-COLOR-TABLE+ ...) ; compiling (DEFCONSTANT +PROXY-COLOR-TABLE+ ...) ; compiling (DEFCONSTANT +PROXY-POST-CONVOLUTION-COLOR-TABLE+ ...) ; compiling (DEFCONSTANT +PROXY-POST-COLOR-MATRIX-COLOR-TABLE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-SCALE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-BIAS+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-FORMAT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-WIDTH+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-RED-SIZE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-GREEN-SIZE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-BLUE-SIZE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-ALPHA-SIZE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-LUMINANCE-SIZE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-INTENSITY-SIZE+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-1D+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-2D+ ...) ; compiling (DEFCONSTANT +SEPARABLE-2D+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-BORDER-MODE+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-FILTER-SCALE+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-FILTER-BIAS+ ...) ; compiling (DEFCONSTANT +REDUCE+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-FORMAT+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-WIDTH+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-HEIGHT+ ...) ; compiling (DEFCONSTANT +MAX-CONVOLUTION-WIDTH+ ...) ; compiling (DEFCONSTANT +MAX-CONVOLUTION-HEIGHT+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-RED-SCALE+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-GREEN-SCALE+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-BLUE-SCALE+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-ALPHA-SCALE+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-RED-BIAS+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-GREEN-BIAS+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-BLUE-BIAS+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-ALPHA-BIAS+ ...) ; compiling (DEFCONSTANT +CONSTANT-BORDER+ ...) ; compiling (DEFCONSTANT +REPLICATE-BORDER+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-BORDER-COLOR+ ...) ; compiling (DEFCONSTANT +COLOR-MATRIX+ ...) ; compiling (DEFCONSTANT +COLOR-MATRIX-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +MAX-COLOR-MATRIX-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-RED-SCALE+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-GREEN-SCALE+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-BLUE-SCALE+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-ALPHA-SCALE+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-RED-BIAS+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-GREEN-BIAS+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-BLUE-BIAS+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-ALPHA-BIAS+ ...) ; compiling (DEFCONSTANT +HISTOGRAM+ ...) ; compiling (DEFCONSTANT +PROXY-HISTOGRAM+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-WIDTH+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-FORMAT+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-RED-SIZE+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-GREEN-SIZE+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-BLUE-SIZE+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-ALPHA-SIZE+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-LUMINANCE-SIZE+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-SINK+ ...) ; compiling (DEFCONSTANT +MINMAX+ ...) ; compiling (DEFCONSTANT +MINMAX-FORMAT+ ...) ; compiling (DEFCONSTANT +MINMAX-SINK+ ...) ; compiling (DEFCONSTANT +TABLE-TOO-LARGE+ ...) ; compiling (DEFCONSTANT +BLEND-EQUATION+ ...) ; compiling (DEFCONSTANT +MIN+ ...) ; compiling (DEFCONSTANT +MAX+ ...) ; compiling (DEFCONSTANT +FUNC-ADD+ ...) ; compiling (DEFCONSTANT +FUNC-SUBTRACT+ ...) ; compiling (DEFCONSTANT +FUNC-REVERSE-SUBTRACT+ ...) ; compiling (DEFCONSTANT +CURRENT-BIT+ ...) ; compiling (DEFCONSTANT +POINT-BIT+ ...) ; compiling (DEFCONSTANT +LINE-BIT+ ...) ; compiling (DEFCONSTANT +POLYGON-BIT+ ...) ; compiling (DEFCONSTANT +POLYGON-STIPPLE-BIT+ ...) ; compiling (DEFCONSTANT +PIXEL-MODE-BIT+ ...) ; compiling (DEFCONSTANT +LIGHTING-BIT+ ...) ; compiling (DEFCONSTANT +FOG-BIT+ ...) ; compiling (DEFCONSTANT +DEPTH-BUFFER-BIT+ ...) ; compiling (DEFCONSTANT +ACCUM-BUFFER-BIT+ ...) ; compiling (DEFCONSTANT +STENCIL-BUFFER-BIT+ ...) ; compiling (DEFCONSTANT +VIEWPORT-BIT+ ...) ; compiling (DEFCONSTANT +TRANSFORM-BIT+ ...) ; compiling (DEFCONSTANT +ENABLE-BIT+ ...) ; compiling (DEFCONSTANT +COLOR-BUFFER-BIT+ ...) ; compiling (DEFCONSTANT +HINT-BIT+ ...) ; compiling (DEFCONSTANT +EVAL-BIT+ ...) ; compiling (DEFCONSTANT +LIST-BIT+ ...) ; compiling (DEFCONSTANT +TEXTURE-BIT+ ...) ; compiling (DEFCONSTANT +SCISSOR-BIT+ ...) ; compiling (DEFCONSTANT +ALL-ATTRIB-BITS+ ...) ; compiling (DEFCONSTANT +CLIENT-PIXEL-STORE-BIT+ ...) ; compiling (DEFCONSTANT +CLIENT-VERTEX-ARRAY-BIT+ ...) ; compiling (DEFCONSTANT +CLIENT-ALL-ATTRIB-BITS+ ...) ; compiling (DEFCONSTANT +ARB-MULTITEXTURE+ ...) ; compiling (DEFCONSTANT +TEXTURE0-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE1-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE2-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE3-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE4-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE5-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE6-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE7-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE8-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE9-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE10-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE11-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE12-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE13-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE14-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE15-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE16-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE17-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE18-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE19-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE20-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE21-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE22-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE23-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE24-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE25-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE26-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE27-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE28-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE29-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE30-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE31-ARB+ ...) ; compiling (DEFCONSTANT +ACTIVE-TEXTURE-ARB+ ...) ; compiling (DEFCONSTANT +CLIENT-ACTIVE-TEXTURE-ARB+ ...) ; compiling (DEFCONSTANT +MAX-TEXTURE-UNITS-ARB+ ...) ; compiling (DEFCONSTANT +EXT-ABGR+ ...) ; compiling (DEFCONSTANT +ABGR-EXT+ ...) ; compiling (DEFCONSTANT +EXT-BLEND-COLOR+ ...) ; compiling (DEFCONSTANT +CONSTANT-COLOR-EXT+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-CONSTANT-COLOR-EXT+ ...) ; compiling (DEFCONSTANT +CONSTANT-ALPHA-EXT+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-CONSTANT-ALPHA-EXT+ ...) ; compiling (DEFCONSTANT +BLEND-COLOR-EXT+ ...) ; compiling (DEFCONSTANT +EXT-POLYGON-OFFSET+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-EXT+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-FACTOR-EXT+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-BIAS-EXT+ ...) ; compiling (DEFCONSTANT +EXT-TEXTURE3D+ ...) ; compiling (DEFCONSTANT +PACK-SKIP-IMAGES-EXT+ ...) ; compiling (DEFCONSTANT +PACK-IMAGE-HEIGHT-EXT+ ...) ; compiling (DEFCONSTANT +UNPACK-SKIP-IMAGES-EXT+ ...) ; compiling (DEFCONSTANT +UNPACK-IMAGE-HEIGHT-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-3D-EXT+ ...) ; compiling (DEFCONSTANT +PROXY-TEXTURE-3D-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-DEPTH-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-WRAP-R-EXT+ ...) ; compiling (DEFCONSTANT +MAX-3D-TEXTURE-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-3D-BINDING-EXT+ ...) ; compiling (DEFCONSTANT +EXT-TEXTURE-OBJECT+ ...) ; compiling (DEFCONSTANT +TEXTURE-PRIORITY-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-RESIDENT-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-1D-BINDING-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-2D-BINDING-EXT+ ...) ; compiling (DEFCONSTANT +EXT-RESCALE-NORMAL+ ...) ; compiling (DEFCONSTANT +RESCALE-NORMAL-EXT+ ...) ; compiling (DEFCONSTANT +EXT-VERTEX-ARRAY+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-EXT+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-EXT+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-EXT+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-EXT+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-TYPE-EXT+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-STRIDE-EXT+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-TYPE-EXT+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-STRIDE-EXT+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-TYPE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-STRIDE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-TYPE-EXT+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-STRIDE-EXT+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-TYPE-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-STRIDE-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-STRIDE-EXT+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-POINTER-EXT+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-POINTER-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-POINTER-EXT+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-POINTER-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-POINTER-EXT+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-POINTER-EXT+ ...) ; compiling (DEFCONSTANT +SGIS-TEXTURE-EDGE-CLAMP+ ...) ; compiling (DEFCONSTANT +CLAMP-TO-EDGE-SGIS+ ...) ; compiling (DEFCONSTANT +EXT-BLEND-MINMAX+ ...) ; compiling (DEFCONSTANT +FUNC-ADD-EXT+ ...) ; compiling (DEFCONSTANT +MIN-EXT+ ...) ; compiling (DEFCONSTANT +MAX-EXT+ ...) ; compiling (DEFCONSTANT +BLEND-EQUATION-EXT+ ...) ; compiling (DEFCONSTANT +EXT-BLEND-SUBTRACT+ ...) ; compiling (DEFCONSTANT +FUNC-SUBTRACT-EXT+ ...) ; compiling (DEFCONSTANT +FUNC-REVERSE-SUBTRACT-EXT+ ...) ; compiling (DEFCONSTANT +EXT-BLEND-LOGIC-OP+ ...) ; compiling (DEFCONSTANT +EXT-POINT-PARAMETERS+ ...) ; compiling (DEFCONSTANT +POINT-SIZE-MIN-EXT+ ...) ; compiling (DEFCONSTANT +POINT-SIZE-MAX-EXT+ ...) ; compiling (DEFCONSTANT +POINT-FADE-THRESHOLD-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +DISTANCE-ATTENUATION-EXT+ ...) ; compiling (DEFCONSTANT +EXT-PALETTED-TEXTURE+ ...) ; compiling (DEFCONSTANT +TABLE-TOO-LARGE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-FORMAT-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-WIDTH-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-RED-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-GREEN-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-BLUE-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-ALPHA-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-LUMINANCE-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-INTENSITY-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-INDEX-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX1-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX2-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX4-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX8-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX12-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX16-EXT+ ...) ; compiling (DEFCONSTANT +EXT-CLIP-VOLUME-HINT+ ...) ; compiling (DEFCONSTANT +CLIP-VOLUME-CLIPPING-HINT-EXT+ ...) ; compiling (DEFCONSTANT +EXT-COMPILED-VERTEX-ARRAY+ ...) ; compiling (DEFCONSTANT +ARRAY-ELEMENT-LOCK-FIRST-EXT+ ...) ; compiling (DEFCONSTANT +ARRAY-ELEMENT-LOCK-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +HP-OCCLUSION-TEST+ ...) ; compiling (DEFCONSTANT +OCCLUSION-TEST-HP+ ...) ; compiling (DEFCONSTANT +OCCLUSION-TEST-RESULT-HP+ ...) ; compiling (DEFCONSTANT +EXT-SHARED-TEXTURE-PALETTE+ ...) ; compiling (DEFCONSTANT +SHARED-TEXTURE-PALETTE-EXT+ ...) ; compiling (DEFCONSTANT +EXT-STENCIL-WRAP+ ...) ; compiling (DEFCONSTANT +INCR-WRAP-EXT+ ...) ; compiling (DEFCONSTANT +DECR-WRAP-EXT+ ...) ; compiling (DEFCONSTANT +NV-TEXGEN-REFLECTION+ ...) ; compiling (DEFCONSTANT +NORMAL-MAP-NV+ ...) ; compiling (DEFCONSTANT +REFLECTION-MAP-NV+ ...) ; compiling (DEFCONSTANT +EXT-TEXTURE-ENV-ADD+ ...) ; compiling (DEFCONSTANT +MESA-WINDOW-POS+ ...) ; compiling (DEFCONSTANT +MESA-RESIZE-BUFFERS+ ...) ; compiling (DEFTYPE BOOL ...) ; compiling (DEFTYPE FLOAT32 ...) ; compiling (DEFTYPE FLOAT64 ...) ; compiling (DECLAIM (INLINE ASET-FLOAT32 ...)) ; compiling (DEFUN ASET-FLOAT32 ...) ; compiling (DEFUN ASET-FLOAT64 ...) ; compiling (DEFUN BYTE-WIDTH ...) ; compiling (DEFUN SETTER ...) ; compiling (DEFUN SEQUENCE-SETTER ...) ; compiling (DEFMACRO DEFINE-SEQUENCE-SETTER ...) ; compiling (DEFINE-SEQUENCE-SETTER INT8) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT8 ; (GL::DEFINE-SEQUENCE-SETTER XLIB:INT8) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER INT16) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT16 ; (GL::DEFINE-SEQUENCE-SETTER XLIB:INT16) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER INT32) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT32 ; (GL::DEFINE-SEQUENCE-SETTER XLIB:INT32) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER BOOL) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER BOOL ; (GL::DEFINE-SEQUENCE-SETTER GL::BOOL) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER CARD8) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER CARD8 ; (GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER CARD16) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER CARD16 ; (GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER CARD32) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER CARD32 ; (GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER FLOAT32) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER FLOAT32 ; (GL::DEFINE-SEQUENCE-SETTER GL::FLOAT32) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER FLOAT64) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER FLOAT64 ; (GL::DEFINE-SEQUENCE-SETTER GL::FLOAT64) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> BLOCK ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFUN MAKE-ARGSPECS ...) ; compiling (DEFUN BYTE-WIDTH-CALCULATION ...) ; compiling (DEFUN COMPOSITE-ARGS ...) ; compiling (DEFUN MAKE-SETTER-FORMS ...) ; compiling (DEFMACRO DEFINE-RENDERING-COMMAND ...) ; compiling (DEFUN GET-STRING ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN GET-STRING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GL::+GET-STRING+) (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX)) ; (XLIB:CARD32 GL::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (GL::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) GL::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR GL::BYTES))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFINE-RENDERING-COMMAND ACCUM ...) ; compiling (DEFINE-RENDERING-COMMAND ACTIVE-TEXTURE-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND ALPHA-FUNC ...) ; compiling (DEFINE-RENDERING-COMMAND BEGIN ...) ; compiling (DEFINE-RENDERING-COMMAND BIND-TEXTURE ...) ; compiling (DEFINE-RENDERING-COMMAND BLEND-COLOR ...) ; compiling (DEFINE-RENDERING-COMMAND BLEND-EQUOTION ...) ; compiling (DEFINE-RENDERING-COMMAND BLEND-FUNC ...) ; compiling (DEFINE-RENDERING-COMMAND CALL-LIST ...) ; compiling (DEFINE-RENDERING-COMMAND CLEAR ...) ; compiling (DEFINE-RENDERING-COMMAND CLEAR-ACCUM ...) ; compiling (DEFINE-RENDERING-COMMAND CLEAR-COLOR ...) ; compiling (DEFINE-RENDERING-COMMAND CLEAR-DEPTH ...) ; compiling (DEFINE-RENDERING-COMMAND CLEAR-INDEX ...) ; compiling (DEFINE-RENDERING-COMMAND CLEAR-STENCIL ...) ; compiling (DEFINE-RENDERING-COMMAND CLIP-PLANE ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3B ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3D ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3F ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3I ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3S ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3UB ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3UI ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3US ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4B ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4D ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4F ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4I ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4S ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4UB ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4UI ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4US ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-MASK ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-MATERIAL ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-TABLE-PARAMETER-FV ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-TABLE-PARAMETER-IV ...) ; compiling (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-F ...) ; compiling (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-FV ...) ; compiling (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-I ...) ; compiling (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-IV ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-COLOR-SUB-TABLE ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-COLOR-TABLE ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-CONVOLUTION-FILTER-ID ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-CONVOLUTION-FILTER-2D ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-PIXELS ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-IMAGE-1D ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-IMAGE-2D ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-SUB-IMAGE-1D ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-SUB-IMAGE-2D ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-SUB-IMAGE-3D ...) ; compiling (DEFINE-RENDERING-COMMAND CULL-FACE ...) ; compiling (DEFINE-RENDERING-COMMAND DEPTH-FUNC ...) ; compiling (DEFINE-RENDERING-COMMAND DEPTH-MASK ...) ; compiling (DEFINE-RENDERING-COMMAND DEPTH-RANGE ...) ; compiling (DEFINE-RENDERING-COMMAND DRAW-BUFFER ...) ; compiling (DEFINE-RENDERING-COMMAND EDGE-FLAG-V ...) ; compiling (DEFINE-RENDERING-COMMAND END ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-COORD-1D ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-COORD-1F ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-COORD-2D ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-COORD-2F ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-MESH-1 ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-MESH-2 ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-POINT-1 ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-POINT-2 ...) ; compiling (DEFINE-RENDERING-COMMAND FOG-F ...) ; compiling (DEFINE-RENDERING-COMMAND FOG-FV ...) ; compiling (DEFINE-RENDERING-COMMAND FOG-I ...) ; compiling (DEFINE-RENDERING-COMMAND FOG-IV ...) ; compiling (DEFINE-RENDERING-COMMAND FRONT-FACE ...) ; compiling (DEFINE-RENDERING-COMMAND FRUSTUM ...) ; compiling (DEFINE-RENDERING-COMMAND HINT ...) ; compiling (DEFINE-RENDERING-COMMAND HISTOGRAM ...) ; compiling (DEFINE-RENDERING-COMMAND INDEX-MASK ...) ; compiling (DEFINE-RENDERING-COMMAND INDEX-D ...) ; compiling (DEFINE-RENDERING-COMMAND INDEX-F ...) ; compiling (DEFINE-RENDERING-COMMAND INDEX-I ...) ; compiling (DEFINE-RENDERING-COMMAND INDEX-S ...) ; compiling (DEFINE-RENDERING-COMMAND INDEX-UB ...) ; compiling (DEFINE-RENDERING-COMMAND INIT-NAMES ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-MODEL-F ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-MODEL-FV ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-MODEL-I ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-MODEL-IV ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-F ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-FV ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-I ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-IV ...) ; compiling (DEFINE-RENDERING-COMMAND LINE-STIPPLE ...) ; compiling (DEFINE-RENDERING-COMMAND LINE-WIDTH ...) ; compiling (DEFINE-RENDERING-COMMAND LIST-BASE ...) ; compiling (DEFINE-RENDERING-COMMAND LOAD-IDENTITY ...) ; compiling (DEFINE-RENDERING-COMMAND LOAD-MATRIX-D ...) ; compiling (DEFINE-RENDERING-COMMAND LOAD-MATRIX-F ...) ; compiling (DEFINE-RENDERING-COMMAND LOAD-NAME ...) ; compiling (DEFINE-RENDERING-COMMAND LOGIC-OP ...) ; compiling (DEFINE-RENDERING-COMMAND MAP-GRID-1D ...) ; compiling (DEFINE-RENDERING-COMMAND MAP-GRID-1F ...) ; compiling (DEFINE-RENDERING-COMMAND MAP-GRID-2D ...) ; compiling (DEFINE-RENDERING-COMMAND MAP-GRID-2F ...) ; compiling (DEFINE-RENDERING-COMMAND MATERIAL-F ...) ; compiling (DEFINE-RENDERING-COMMAND MATERIAL-FV ...) ; compiling (DEFINE-RENDERING-COMMAND MATERIAL-I ...) ; compiling (DEFINE-RENDERING-COMMAND MATERIAL-IV ...) ; compiling (DEFINE-RENDERING-COMMAND MATRIX-MODE ...) ; compiling (DEFINE-RENDERING-COMMAND MINMAX ...) ; compiling (DEFINE-RENDERING-COMMAND MULT-MATRIX-D ...) ; compiling (DEFINE-RENDERING-COMMAND MULT-MATRIX-F ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1D-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1F-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1I-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1S-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2D-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2F-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2I-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2S-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3D-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3F-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3I-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3S-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4D-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4F-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4I-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4S-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND NORMAL-3B ...) ; compiling (DEFINE-RENDERING-COMMAND NORMAL-3D ...) ; compiling (DEFINE-RENDERING-COMMAND NORMAL-3F ...) ; compiling (DEFINE-RENDERING-COMMAND NORMAL-3I ...) ; compiling (DEFINE-RENDERING-COMMAND NORMAL-3S ...) ; compiling (DEFINE-RENDERING-COMMAND ORTHO ...) ; compiling (DEFINE-RENDERING-COMMAND PASS-THROUGH ...) ; compiling (DEFINE-RENDERING-COMMAND PIXEL-TRANSFER-F ...) ; compiling (DEFINE-RENDERING-COMMAND PIXEL-TRANSFER-I ...) ; compiling (DEFINE-RENDERING-COMMAND PIXEL-ZOOM ...) ; compiling (DEFINE-RENDERING-COMMAND POINT-SIZE ...) ; compiling (DEFINE-RENDERING-COMMAND POLYGON-MODE ...) ; compiling (DEFINE-RENDERING-COMMAND POLYGON-OFFSET ...) ; compiling (DEFINE-RENDERING-COMMAND POP-ATTRIB ...) ; compiling (DEFINE-RENDERING-COMMAND POP-MATRIX ...) ; compiling (DEFINE-RENDERING-COMMAND POP-NAME ...) ; compiling (DEFINE-RENDERING-COMMAND PRIORITIZE-TEXTURES ...) ; compiling (DEFINE-RENDERING-COMMAND PUSH-ATTRIB ...) ; compiling (DEFINE-RENDERING-COMMAND PUSH-MATRIX ...) ; compiling (DEFINE-RENDERING-COMMAND PUSH-NAME ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-2D ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-2F ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-2I ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-2S ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-3D ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-3F ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-3I ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-3S ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-4D ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-4F ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-4I ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-4S ...) ; compiling (DEFINE-RENDERING-COMMAND READ-BUFFER ...) ; compiling (DEFINE-RENDERING-COMMAND RECT-D ...) ; compiling (DEFINE-RENDERING-COMMAND RECT-F ...) ; compiling (DEFINE-RENDERING-COMMAND RECT-I ...) ; compiling (DEFINE-RENDERING-COMMAND RECT-S ...) ; compiling (DEFINE-RENDERING-COMMAND RESET-HISTOGRAM ...) ; compiling (DEFINE-RENDERING-COMMAND RESET-MINMAX ...) ; compiling (DEFINE-RENDERING-COMMAND ROTATE-D ...) ; compiling (DEFINE-RENDERING-COMMAND ROTATE-F ...) ; compiling (DEFINE-RENDERING-COMMAND SCALE-D ...) ; compiling (DEFINE-RENDERING-COMMAND SCALE-F ...) ; compiling (DEFINE-RENDERING-COMMAND SCISSOR ...) ; compiling (DEFINE-RENDERING-COMMAND SHADE-MODEL ...) ; compiling (DEFINE-RENDERING-COMMAND STENCIL-FUNC ...) ; compiling (DEFINE-RENDERING-COMMAND STENCIL-MASK ...) ; compiling (DEFINE-RENDERING-COMMAND STENCIL-OP ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-ENV-F ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-ENV-FV ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-ENV-I ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-ENV-IV ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-D ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-DV ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-F ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-FV ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-I ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-IV ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-PARAMETER-F ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-PARAMETER-FV ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-PARAMETER-I ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-PARAMETER-IV ...) ; compiling (DEFINE-RENDERING-COMMAND TRANSLATE-D ...) ; compiling (DEFINE-RENDERING-COMMAND TRANSLATE-F ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-2D ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-2F ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-2I ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-2S ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-3D ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-3F ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-3I ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-3S ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-4D ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-4F ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-4I ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-4S ...) ; compiling (DEFINE-RENDERING-COMMAND VIEWPORT ...) ; compiling (DEFUN NEW-LIST ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN NEW-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GL::+NEW-LIST+) ; (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX)) ; (XLIB:CARD32 LIST) ; (XLIB:CARD32 GL::MODE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GEN-LISTS ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN GEN-LISTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GL::+GEN-LISTS+) (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX)) ; (INTEGER GL::RANGE)) ; (XLIB::CARD32-GET 8)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN END-LIST ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN END-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GL::+END-LIST+) ; (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ENABLE ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN ENABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GL::+ENABLE+) (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX)) ; (XLIB:CARD32 GL::CAP))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FLUSH ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN FLUSH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GL::+FLUSH+) ; (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FINISH ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN FINISH ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GL::+FINISH+) (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/gl-tmpBO0TUGLK.fasl written ; compilation finished in 0:00:01.912 ; compiling file "/usr/share/common-lisp/source/clx/dpms.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (DEFPACKAGE :DPMS ...) ; compiling (IN-PACKAGE :DPMS) ; compiling (DEFINE-EXTENSION "DPMS") ; compiling (DEFMACRO DPMS-OPCODE ...) ; compiling (DEFCONSTANT +GET-VERSION+ ...) ; compiling (DEFCONSTANT +CAPABLE+ ...) ; compiling (DEFCONSTANT +GET-TIMEOUTS+ ...) ; compiling (DEFCONSTANT +SET-TIMEOUTS+ ...) ; compiling (DEFCONSTANT +ENABLE+ ...) ; compiling (DEFCONSTANT +DISABLE+ ...) ; compiling (DEFCONSTANT +FORCE-LEVEL+ ...) ; compiling (DEFCONSTANT +INFO+ ...) ; compiling (DEFUN DPMS-GET-VERSION ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (DPMS::DPMS-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA DPMS::+GET-VERSION+) (XLIB:CARD16 DPMS::MAJOR-VERSION) ; (XLIB:CARD16 DPMS::MINOR-VERSION)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-CAPABLE ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-CAPABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (DPMS::DPMS-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA DPMS::+CAPABLE+)) ; (XLIB::BOOLEAN-GET 8)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-GET-TIMEOUTS ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-GET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (DPMS::DPMS-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA DPMS::+GET-TIMEOUTS+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10) (XLIB::CARD16-GET 12))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-SET-TIMEOUTS ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-SET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA DPMS::+SET-TIMEOUTS+) ; (XLIB:CARD16 DPMS::STANDBY) ; (XLIB:CARD16 DPMS::SUSPEND) ; (XLIB:CARD16 DPMS::OFF) ; (XLIB:CARD16 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-ENABLE ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-ENABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA DPMS::+ENABLE+)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-DISABLE ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-DISABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; ((XLIB::DATA DPMS::+DISABLE+))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-FORCE-LEVEL ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-FORCE-LEVEL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA DPMS::+FORCE-LEVEL+) ; (XLIB:CARD16 ; (ECASE DPMS::POWER-LEVEL ; (:DPMS-MODE-ON 0) ; (:DPMS-MODE-STANDBY 1) ; (:DPMS-MODE-SUSPEND 2) ; (:DPMS-MODE-OFF 3))) ; (XLIB:CARD16 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-INFO ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (DPMS::DPMS-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA DPMS::+INFO+)) ; (LET ((DPMS::STATE ; (IF # ; :DPMS-ENABLED ; :DPMS-DISABLED))) ; (VALUES (UNLESS (EQ DPMS::STATE :DPMS-DISABLED) (ECASE # # # # #)) ; DPMS::STATE))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/dpms-tmpIIXPIQNW.fasl written ; compilation finished in 0:00:00.121 ; compiling file "/usr/share/common-lisp/source/clx/xtest.lisp" (written 14 MAY 2016 06:13:15 PM): ; compiling (DEFPACKAGE :XTEST ...) ; compiling (IN-PACKAGE :XTEST) ; compiling (DEFINE-EXTENSION "XTEST") ; compiling (DEFMACRO OPCODE ...) ; compiling (DEFCONSTANT +MAJOR-VERSION+ ...) ; compiling (DEFCONSTANT +MINOR-VERSION+ ...) ; compiling (DEFCONSTANT +NONE+ ...) ; compiling (DEFCONSTANT +CURRENT-CURSOR+ ...) ; compiling (DEFCONSTANT +GET-VERSION+ ...) ; compiling (DEFCONSTANT +COMPARE-CURSOR+ ...) ; compiling (DEFCONSTANT +FAKE-INPUT+ ...) ; compiling (DEFCONSTANT +GRAB-CONTROL+ ...) ; compiling (DEFCONSTANT +FAKE-KEY-PRESS+ ...) ; compiling (DEFCONSTANT +FAKE-KEY-RELEASE+ ...) ; compiling (DEFCONSTANT +FAKE-BUTTON-PRESS+ ...) ; compiling (DEFCONSTANT +FAKE-BUTTON-RELEASE+ ...) ; compiling (DEFCONSTANT +FAKE-MOTION-NOTIFY+ ...) ; compiling (DEFUN SET-GC-CONTEXT-OF-GC ...) ; compiling (DEFUN GET-VERSION ...) ; file: /usr/share/common-lisp/source/clx/xtest.lisp ; in: DEFUN GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XTEST::+GET-VERSION+) (XLIB:CARD8 XTEST::MAJOR) ; (XLIB:CARD16 XTEST::MINOR)) ; (VALUES (XLIB::CARD8-GET 1) (XLIB::CARD16-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN COMPARE-CURSOR ...) ; file: /usr/share/common-lisp/source/clx/xtest.lisp ; in: DEFUN COMPARE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XTEST::+COMPARE-CURSOR+) ; (XLIB:RESOURCE-ID (XLIB:WINDOW-ID XLIB:WINDOW)) ; (XLIB:RESOURCE-ID XLIB:CURSOR-ID)) ; (VALUES (XLIB::CARD8-GET 1))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FAKE-MOTION-EVENT ...) ; file: /usr/share/common-lisp/source/clx/xtest.lisp ; in: DEFUN FAKE-MOTION-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 XTEST::+FAKE-MOTION-NOTIFY+) ; (XLIB:CARD8 ; (IF XTEST::RELATIVE ; 1 ; 0)) ; (XTEST::PAD16 0) ; (XLIB:CARD32 XTEST::DELAY) ; (XLIB:CARD32 XTEST::ROOT-WINDOW-ID) ; (XTEST::PAD32 0 0) ; (XLIB:CARD16 XTEST::X) ; (XLIB:CARD16 XTEST::Y) ; (XTEST::PAD32 0 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FAKE-BUTTON-EVENT ...) ; file: /usr/share/common-lisp/source/clx/xtest.lisp ; in: DEFUN FAKE-BUTTON-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XTEST::PRESSED ; XTEST::+FAKE-BUTTON-PRESS+ ; XTEST::+FAKE-BUTTON-RELEASE+)) ; (XLIB:CARD8 XTEST::BUTTON) ; (XTEST::PAD16 0) ; (XLIB:CARD32 XTEST::DELAY) ; (XTEST::PAD32 0 0 0 0 0 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FAKE-KEY-EVENT ...) ; file: /usr/share/common-lisp/source/clx/xtest.lisp ; in: DEFUN FAKE-KEY-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XTEST::PRESSED ; XTEST::+FAKE-KEY-PRESS+ ; XTEST::+FAKE-KEY-RELEASE+)) ; (XLIB:CARD8 XTEST::KEYCODE) ; (XTEST::PAD16 0) ; (XLIB:CARD32 XTEST::DELAY) ; (XTEST::PAD32 0 0 0 0 0 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GRAB-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/xtest.lisp ; in: DEFUN GRAB-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XTEST::+GRAB-CONTROL+) ; (XLIB:CARD8 ; (IF XTEST::GRAB? ; 1 ; 0)) ; (XTEST::PAD8 0) ; (XTEST::PAD16 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/xtest-tmpOHM494YR.fasl written ; compilation finished in 0:00:00.160 ; compiling file "/usr/share/common-lisp/source/clx/screensaver.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE #) ...) ; compiling (DEFINE-EXTENSION "MIT-SCREEN-SAVER") ; compiling (DEFUN SCREEN-SAVER-QUERY-VERSION ...) ; file: /usr/share/common-lisp/source/clx/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))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SCREEN-SAVER-QUERY-INFO ...) ; file: /usr/share/common-lisp/source/clx/screensaver.lisp ; in: DEFUN SCREEN-SAVER-QUERY-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "MIT-SCREEN-SAVER") ; NIL) ; ((XLIB::DATA 1) (XLIB:DRAWABLE XLIB:DRAWABLE)) ; (VALUES (XLIB::CARD8-GET 1) (XLIB::WINDOW-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::CARD32-GET 16) (XLIB::CARD8-GET 24))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SCREEN-SAVER-GET-IDLE ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/screensaver-tmpOVFB07XF.fasl written ; compilation finished in 0:00:00.030 ; compiling file "/usr/share/common-lisp/source/clx/xinerama.lisp" (written 14 MAY 2016 06:13:15 PM): ; compiling (DEFPACKAGE "XLIB.XINERAMA" ...) ; compiling (IN-PACKAGE "XINERAMA") ; compiling (DEFINE-EXTENSION "XINERAMA") ; compiling (DEFUN XINERAMA-OPCODE ...) ; compiling (DEFCONSTANT +MAJOR-VERSION+ ...) ; compiling (DEFCONSTANT +MINOR-VERSION+ ...) ; compiling (DEFCONSTANT +GET-VERSION+ ...) ; compiling (DEFCONSTANT +GET-STATE+ ...) ; compiling (DEFCONSTANT +GET-SCREEN-COUNT+ ...) ; compiling (DEFCONSTANT +GET-SCREEN-SIZE+ ...) ; compiling (DEFCONSTANT +IS-ACTIVE+ ...) ; compiling (DEFCONSTANT +QUERY-SCREENS+ ...) ; compiling (DEFSTRUCT SCREEN-INFO ...) ; compiling (DEFUN XINERAMA-QUERY-VERSION ...) ; file: /usr/share/common-lisp/source/clx/xinerama.lisp ; in: DEFUN XINERAMA-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB.XINERAMA::XINERAMA-OPCODE ; XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB.XINERAMA::+GET-VERSION+) ; (XLIB:CARD8 XLIB.XINERAMA::+MAJOR-VERSION+) ; (XLIB:CARD8 XLIB.XINERAMA::+MINOR-VERSION+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XINERAMA-IS-ACTIVE ...) ; file: /usr/share/common-lisp/source/clx/xinerama.lisp ; in: DEFUN XINERAMA-IS-ACTIVE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB.XINERAMA::XINERAMA-OPCODE ; XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB.XINERAMA::+IS-ACTIVE+)) ; (VALUES (XLIB::BOOLEAN-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XINERAMA-QUERY-SCREENS ...) ; file: /usr/share/common-lisp/source/clx/xinerama.lisp ; in: DEFUN XINERAMA-QUERY-SCREENS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB.XINERAMA::XINERAMA-OPCODE ; XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB.XINERAMA::+QUERY-SCREENS+)) ; (VALUES ; (LOOP XLIB.XINERAMA::WITH XLIB.XINERAMA::INDEX = 32 ; XLIB.XINERAMA::FOR NUMBER XLIB.XINERAMA::FROM 0 XLIB.XINERAMA::BELOW (XLIB::CARD32-GET ; 8) ; XLIB.XINERAMA::COLLECT ...))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (INCF XLIB.XINERAMA::INDEX 8) ; ==> ; (SETQ XLIB.XINERAMA::INDEX (+ 8 XLIB.XINERAMA::INDEX)) ; ; note: doing signed word to integer coercion (cost 20) to INDEX ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/xinerama-tmpG6VFGMYP.fasl written ; compilation finished in 0:00:00.106 ; compiling file "/usr/share/common-lisp/source/clx/demo/bezier.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE DRAW-CURVES)) ; compiling (DEFINE-EXTENSION "bezier") ; compiling (DEFUN DRAW-CURVES ...) ; file: /usr/share/common-lisp/source/clx/demo/bezier.lisp ; in: DEFUN DRAW-CURVES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA XLIB:CARD8) 1) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/demo/bezier-tmp4QIPRMOF.fasl written ; compilation finished in 0:00:00.058 ; compiling file "/usr/share/common-lisp/source/clx/demo/beziertest.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFUN BEZIER-TEST ...) ; file: /usr/share/common-lisp/source/clx/demo/beziertest.lisp ; in: DEFUN BEZIER-TEST ; (ZEROP COUNT) ; ==> ; (= COUNT 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/demo/beziertest-tmpGW0QV22K.fasl written ; compilation finished in 0:00:00.029 ; compiling file "/usr/share/common-lisp/source/clx/demo/clclock.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (DEFPACKAGE "XCLCLOCK" ...) ; compiling (IN-PACKAGE "XCLCLOCK") ; compiling (DEFVAR *DISPLAY* ...) ; compiling (DEFVAR *SCREEN* ...) ; compiling (DEFVAR *COLORMAP* ...) ; compiling (DEFVAR *FONT* ...) ; compiling (DEFVAR *WIN*) ; compiling (MULTIPLE-VALUE-BIND (WIDTH ASCENT) ...) ; compiling (DEFVAR *GCONTEXT* ...) ; compiling (DEFVAR *BACKGROUND* ...) ; compiling (DEFVAR *PALETTE* ...) ; compiling (DEFVAR *BLACK* ...) ; compiling (DEFUN ROMANIZE ...) ; compiling (DEFUN CLOCK-STRING ...) ; compiling (DEFUN UPDATE-CLOCKFACE ...) ; compiling (DEFUN CLOCK ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/demo/clclock-tmp2K9J0HSR.fasl written ; compilation finished in 0:00:00.009 ; compiling file "/usr/share/common-lisp/source/clx/demo/clipboard.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (DEFPACKAGE "CLIPBOARD" ...) ; compiling (IN-PACKAGE "CLIPBOARD") ; compiling (DEFVAR *WINDOW*) ; compiling (DEFVAR *TIME*) ; compiling (DEFVAR *DISPLAY*) ; compiling (DEFUN OWNSELECT ...) ; compiling (DEFUN DESELECT ...) ; compiling (DEFUN ASK-PASTE ...) ; compiling (DEFUN RECV-PASTE ...) ; compiling (DEFUN SEND-COPY ...) ; compiling (DEFUN MAIN ...) ; file: /usr/share/common-lisp/source/clx/demo/clipboard.lisp ; in: DEFUN MAIN ; (XLIB:EVENT-CASE (CLIPBOARD::*DISPLAY*) ; (:BUTTON-PRESS (CLIPBOARD::CODE TIME) (FORMAT T "~&ButtonPress~%") ; (FINISH-OUTPUT) ; (CASE CLIPBOARD::CODE ; (1 (SETF #) (CLIPBOARD::OWNSELECT)) ; (2 (CLIPBOARD::ASK-PASTE)) ; (3 (CLIPBOARD::DESELECT)))) ; (:CLIENT-MESSAGE NIL (FORMAT T "~&ClientMessage~%") (FINISH-OUTPUT)) ; (:SELECTION-CLEAR (CLIPBOARD::SELECTION) ; (FORMAT T "~&SelectionClear ~S~%" CLIPBOARD::SELECTION) (FINISH-OUTPUT)) ; (:SELECTION-NOTIFY ; (CLIPBOARD::SELECTION CLIPBOARD::TARGET CLIPBOARD::PROPERTY) ; (FORMAT T "~&SelectionNotify ~S ~S ~S~%" CLIPBOARD::SELECTION ; CLIPBOARD::TARGET CLIPBOARD::PROPERTY) ; (FINISH-OUTPUT) ; (UNLESS (EQ CLIPBOARD::PROPERTY NIL) ; (CLIPBOARD::RECV-PASTE CLIPBOARD::PROPERTY)) ; (XLIB:DISPLAY-FINISH-OUTPUT CLIPBOARD::*DISPLAY*)) ; (:SELECTION-REQUEST ; (CLIPBOARD::SELECTION CLIPBOARD::TARGET CLIPBOARD::PROPERTY ; CLIPBOARD::REQUESTOR TIME) ; (FORMAT T "~&SelectionRequest ~S ~S ~S~%" CLIPBOARD::SELECTION ; CLIPBOARD::TARGET CLIPBOARD::PROPERTY) ; (FINISH-OUTPUT) ; (CLIPBOARD::SEND-COPY CLIPBOARD::SELECTION CLIPBOARD::TARGET ; CLIPBOARD::PROPERTY CLIPBOARD::REQUESTOR TIME) ; (XLIB:DISPLAY-FINISH-OUTPUT CLIPBOARD::*DISPLAY*)) ; (:PROPERTY-NOTIFY (ATOM CLIPBOARD::STATE) ; (FORMAT T "~&PropertyNotify ~S ~S~%" ATOM CLIPBOARD::STATE) ; (FINISH-OUTPUT))) ; --> XLIB:EVENT-COND LET XLIB::EVENT-LOOP LET XLIB:WITH-EVENT-QUEUE MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION PROGV LET UNWIND-PROTECT FLET BLOCK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM LABELS LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION LET UNWIND-PROTECT FLET BLOCK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN LET XLIB::EVENT-DISPATCH XLIB::READING-EVENT ; --> XLIB::WITH-BUFFER-INPUT LET LET* LET CASE LET COND IF PROGN ; --> XLIB::BINDING-EVENT-VALUES LET LET LET MACROLET IF ZEROP ; ==> ; (= #:G0 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; --> XLIB:EVENT-COND LET XLIB::EVENT-LOOP LET XLIB:WITH-EVENT-QUEUE MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION PROGV LET UNWIND-PROTECT FLET BLOCK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM LABELS LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION LET UNWIND-PROTECT FLET BLOCK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN LET XLIB::EVENT-DISPATCH XLIB::READING-EVENT ; --> XLIB::WITH-BUFFER-INPUT LET LET* LET CASE LET COND IF IF IF IF PROGN ; --> XLIB::BINDING-EVENT-VALUES LET LET LET MACROLET IF ZEROP ; ==> ; (= #:G1 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; --> XLIB:EVENT-COND LET XLIB::EVENT-LOOP LET XLIB:WITH-EVENT-QUEUE MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION PROGV LET UNWIND-PROTECT FLET BLOCK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM LABELS LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION LET UNWIND-PROTECT FLET BLOCK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN LET XLIB::EVENT-DISPATCH XLIB::READING-EVENT ; --> XLIB::WITH-BUFFER-INPUT LET LET* LET CASE LET COND IF IF IF IF IF PROGN ; --> XLIB::BINDING-EVENT-VALUES LET LET LET MACROLET IF ZEROP ; ==> ; (= #:G1 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; ==> ; (= #:G0 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/demo/clipboard-tmpP44I4E0Y.fasl written ; compilation finished in 0:00:00.128 ; compiling file "/usr/share/common-lisp/source/clx/demo/clx-demos.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (DEFPACKAGE :DEMOS ...) ; compiling (IN-PACKAGE :DEMOS) ; compiling (DEFPARAMETER *DEMOS* ...) ; compiling (DEFVAR *DISPLAY* ...) ; compiling (DEFVAR *SCREEN* ...) ; compiling (DEFVAR *ROOT* ...) ; compiling (DEFVAR *BLACK-PIXEL* ...) ; compiling (DEFVAR *WHITE-PIXEL* ...) ; compiling (DEFVAR *WINDOW* ...) ; compiling (DEFMACRO DEFDEMO ...) ; compiling (DEFUN DO-ALL-DEMOS ...) ; compiling (DEFVAR *NAME-TO-FUNCTION* ...) ; compiling (DEFVAR *KEYWORD-PACKAGE* ...) ; compiling (DEFUN DEMO ...) ; compiling (DEFUN FULL-WINDOW-STATE ...) ; compiling (DEFUN GREYNETIC ...) ; compiling (DEFVAR *GREYNETIC-PIXMAP-ARRAY* ...) ; compiling (DEFUN GREYNETIC-PIXMAPPER ...) ; compiling (DEFSTRUCT QIX ...) ; compiling (DEFUN CONSTRUCT-QIX ...) ; compiling (DEFUN MAKE-CIRCULAR-LIST ...) ; compiling (DEFUN QIX ...) ; compiling (DEFDEMO QIX-DEMO ...) ; compiling (DEFCONSTANT D360 ...) ; compiling (DEFCONSTANT D270 ...) ; compiling (DEFCONSTANT D180 ...) ; compiling (DEFCONSTANT D90 ...) ; compiling (DEFCONSTANT VECMAX ...) ; compiling (DEFPARAMETER SIN-ARRAY ...) ; compiling (DEFMACRO PSIN ...) ; compiling (DEFMACRO PCOS ...) ; compiling (DEFMACRO HIGH-16BITS-* ...) ; compiling (DEFUN COMPLETE ...) ; compiling (DEFPARAMETER CONTINUOUS ...) ; compiling (DEFPARAMETER STYINC ...) ; compiling (DEFPARAMETER PETINC ...) ; compiling (DEFPARAMETER SCALFAC-FAC ...) ; compiling (DEFUN PETAL ...) ; compiling (DEFDEMO PETAL-DEMO ...) ; compiling (DEFPARAMETER DISK-THICKNESS ...) ; compiling (DEFPARAMETER DISK-SPACING ...) ; compiling (DEFVAR *HORIZONTAL-VELOCITY* ...) ; compiling (DEFVAR *VERTICAL-VELOCITY* ...) ; compiling (DEFVAR *HANOI-WINDOW* ...) ; compiling (DEFVAR *HANOI-WINDOW-HEIGHT* ...) ; compiling (DEFVAR *TRANSFER-HEIGHT* ...) ; compiling (DEFVAR *HANOI-GCONTEXT* ...) ; compiling (DEFSTRUCT DISK ...) ; compiling (DEFSTRUCT NEEDLE ...) ; compiling (DEFUN NEEDLE-TOP-HEIGHT ...) ; compiling (DEFVAR AVAILABLE-DISKS ...) ; compiling (DEFVAR NEEDLE-1 ...) ; compiling (DEFVAR NEEDLE-2 ...) ; compiling (DEFVAR NEEDLE-3 ...) ; compiling (DEFMACRO INVERT-RECTANGLE ...) ; compiling (DEFMACRO UPDATE-SCREEN ...) ; compiling (DEFUN SLIDE-UP ...) ; compiling (DEFUN SLIDE-DOWN ...) ; compiling (DEFUN LIFT-DISK ...) ; compiling (DEFUN DROP-DISK ...) ; compiling (DEFUN DROP-INITIAL-DISK ...) ; compiling (DEFUN SLIDE-RIGHT ...) ; compiling (DEFUN SLIDE-LEFT ...) ; compiling (DEFUN TRANSFER-DISK ...) ; compiling (DEFUN MOVE-ONE-DISK ...) ; compiling (DEFUN MOVE-N-DISKS ...) ; compiling (DEFUN HANOI ...) ; compiling (DEFDEMO SLOW-HANOI-DEMO ...) ; compiling (DEFDEMO FAST-HANOI-DEMO ...) ; compiling (DEFUN BOUNCE-WINDOW ...) ; compiling (DEFDEMO SHOVE-BOUNCE-DEMO ...) ; compiling (DEFDEMO BOUNCE-DEMO ...) ; compiling (DEFUN RECURRENCE ...) ; compiling (DEFUN DRAW-PPICT ...) ; compiling (DEFDEMO RECURRENCE-DEMO ...) ; compiling (DEFMACRO RECT-X ...) ; compiling (DEFMACRO RECT-Y ...) ; compiling (DEFMACRO RECT-WIDTH ...) ; compiling (DEFMACRO RECT-HEIGHT ...) ; compiling (DEFUN PLAID ...) ; compiling (DEFDEMO PLAID-DEMO ...) ; compiling (DEFVAR *BALL-SIZE-X* ...) ; compiling (DEFVAR *BALL-SIZE-Y* ...) ; compiling (DEFMACRO XOR-BALL ...) ; compiling (DEFCONSTANT BBALL-GRAVITY ...) ; compiling (DEFCONSTANT MAXIMUM-X-DRIFT ...) ; compiling (DEFVAR *MAX-BBALL-X*) ; compiling (DEFVAR *MAX-BBALL-Y*) ; compiling (DEFSTRUCT BALL ...) ; compiling (DEFUN GET-BOUNCE-IMAGE ...) ; compiling (DEFUN BOUNCE-1-BALL ...) ; compiling (DEFUN BOUNCE-BALLS ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/demo/clx-demos-tmp63LQ7EX6.fasl written ; compilation finished in 0:00:00.515 ; compiling file "/usr/share/common-lisp/source/clx/demo/gl-test.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (DEFPACKAGE :GL-TEST ...) ; compiling (IN-PACKAGE :GL-TEST) ; compiling (DEFUN TEST ...) ; compiling (DEFUN NO-FLOATS ...) ; compiling (DEFUN ANIM ...) ; compiling (DEFUN ANIM/LIST ...) ; compiling (DEFCONSTANT +PI+ ...) ; compiling (DECLAIM (TYPE SINGLE-FLOAT ...)) ; compiling (DEFUN GEAR ...) ; compiling (DEFUN DRAW ...) ; compiling (DEFUN RESHAPE ...) ; compiling (DEFUN INIT ...) ; compiling (DEFUN GEARS* ...) ; compiling (DEFUN GEARS ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/demo/gl-test-tmp86F1A8FB.fasl written ; compilation finished in 0:00:00.693 ; compiling file "/usr/share/common-lisp/source/clx/demo/mandel.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (DEFPACKAGE "XMANDEL" ...) ; compiling (IN-PACKAGE "XMANDEL") ; compiling (DEFVAR *DISPLAY* ...) ; compiling (DEFVAR *SCREEN* ...) ; compiling (DEFVAR *BACKING-STORE* ...) ; compiling (DEFVAR *COLMAP* ...) ; compiling (DEFVAR *HELPWIN* ...) ; compiling (DEFVAR *ZOOM-TABLE* ...) ; compiling (DEFVAR *ZOOMCOLMAP* ...) ; compiling (DEFVAR *WHITE* ...) ; compiling (DEFVAR *WINMAP* ...) ; compiling (DEFVAR *TEXTMAP* ...) ; compiling (DEFVAR *MODSTATE* ...) ; compiling (DECLAIM (LIST *MODSTATE*)) ; compiling (DEFUN MAKE-SHIFT-FOO ...) ; compiling (DEFSTRUCT (MANDEL-SQUARE #) ...) ; compiling (DEFUN MAKE-QUEUE ...) ; compiling (DEFCLASS QUEUE ...) ; compiling (DEFCLASS OUT-QUEUE ...) ; compiling (DEFVAR *SYSQUEUE* ...) ; compiling (DEFGENERIC EMPTY-P ...) ; compiling (DEFGENERIC EMPTY ...) ; compiling (DEFGENERIC EMPTY-WIN ...) ; compiling (DEFGENERIC ENQUEUE ...) ; compiling (DEFGENERIC QUEUE-PUSH ...) ; compiling (DEFGENERIC DEQUEUE ...) ; compiling (DEFMETHOD EMPTY-P ...) ; compiling (DEFMETHOD EMPTY-P ...) ; compiling (DEFMETHOD EMPTY-P ...) ; compiling (DEFMETHOD EMPTY ...) ; compiling (DEFMETHOD EMPTY ...) ; compiling (DEFMETHOD EMPTY ...) ; compiling (DEFMETHOD EMPTY-WIN ...) ; compiling (DEFMETHOD ENQUEUE ...) ; compiling (DEFMETHOD ENQUEUE ...) ; compiling (DEFMETHOD QUEUE-PUSH ...) ; compiling (DEFMETHOD QUEUE-PUSH ...) ; compiling (DEFMETHOD DEQUEUE ...) ; compiling (DEFMETHOD DEQUEUE ...) ; compiling (DEFUN ITER ...) ; compiling (DEFCLASS ZOOMER ...) ; compiling (DEFUN INIT-COLOURS ...) ; compiling (DEFMACRO MODCOL ...) ; compiling (DEFUN PLOT ...) ; compiling (DEFUN DISPLAY-HELP ...) ; compiling (DEFUN REPAINT-WINDOW ...) ; compiling (DEFUN FILL-SQUARE ...) ; compiling (DEFUN MAKE-SQUARE ...) ; compiling (DEFUN MANDEL-WIN ...) ; compiling (DEFUN NEW-WINDOW ...) ; compiling (DEFUN FILL-SQUARE-P ...) ; compiling (DEFMACRO Z ...) ; compiling (DEFUN DRAW-SQUARE ...) ; compiling (DEFUN CREATE-ZOOM ...) ; compiling (DEFUN UPDATE-ZOOM ...) ; compiling (DEFUN FINISH-ZOOM ...) ; compiling (DEFUN DO-ZOOM ...) ; compiling (DEFUN QUIT-WINDOW ...) ; compiling (DEFUN EVENT-LOOP ...) ; file: /usr/share/common-lisp/source/clx/demo/mandel.lisp ; in: DEFUN EVENT-LOOP ; (1- (+ XMANDEL::X XMANDEL::WIDTH)) ; ==> ; (- (+ XMANDEL::X XMANDEL::WIDTH) 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775809 9223372036854775805) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775809 9223372036854775805) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (1- (+ XMANDEL::Y XMANDEL::HEIGHT)) ; ==> ; (- (+ XMANDEL::Y XMANDEL::HEIGHT) 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775809 9223372036854775805) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775809 9223372036854775805) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (1- (+ XMANDEL::X XMANDEL::WIDTH)) ; ==> ; (- (+ XMANDEL::X XMANDEL::WIDTH) 1) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; (1- (+ XMANDEL::Y XMANDEL::HEIGHT)) ; ==> ; (- (+ XMANDEL::Y XMANDEL::HEIGHT) 1) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/demo/mandel-tmpH7D4HL98.fasl written ; compilation finished in 0:00:00.521 ; compiling file "/usr/share/common-lisp/source/clx/demo/menu.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFSTRUCT (MENU) ...) ; compiling (DEFUN CREATE-MENU ...) ; compiling (DEFUN MENU-SET-ITEM-LIST ...) ; compiling (DEFPARAMETER *MENU-ITEM-MARGIN* ...) ; compiling (DEFUN MENU-RECOMPUTE-GEOMETRY ...) ; compiling (DEFUN MENU-REFRESH ...) ; compiling (DEFUN MENU-CHOOSE ...) ; file: /usr/share/common-lisp/source/clx/demo/menu.lisp ; in: DEFUN MENU-CHOOSE ; (ZEROP COUNT) ; ==> ; (= COUNT 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; (ASSOC XLIB::EVENT-WINDOW XLIB::ITEMS) ; ==> ; (SB-KERNEL:%ASSOC SB-C::ITEM LIST) ; ; note: unable to ; optimize ; due to type uncertainty: ; can't tell whether the first argument is a (OR FIXNUM SINGLE-FLOAT ; (NOT NUMBER)) ; (POSITION XLIB:WINDOW XLIB::ITEMS :KEY #'FIRST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (EQL XLIB::MW XLIB:WINDOW) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; 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. ; compiling (DEFUN MENU-HIGHLIGHT-ITEM ...) ; compiling (DEFUN MENU-UNHIGHLIGHT-ITEM ...) ; compiling (DEFUN MENU-PRESENT ...) ; compiling (DEFUN JUST-SAY-LISP ...) ; compiling (DEFUN POP-UP ...) ; file: /usr/share/common-lisp/source/clx/demo/menu.lisp ; in: DEFUN POP-UP ; (ZEROP COUNT) ; ==> ; (= COUNT 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/demo/menu-tmpCDM7YXYI.fasl written ; compilation finished in 0:00:00.203 ; compiling file "/usr/share/common-lisp/source/clx/demo/zoid.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFINE-EXTENSION "ZoidExtension") ; compiling (DEFUN DRAW-FILLED-TRAPEZOIDS ...) ; file: /usr/share/common-lisp/source/clx/demo/zoid.lisp ; in: DEFUN DRAW-FILLED-TRAPEZOIDS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA XLIB:CARD8) 1) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFINE-GCONTEXT-ACCESSOR TRAPEZOID-ALIGNMENT ...) ; compiling (DEFUN SET-TRAPEZOID-ALIGNMENT ...) ; file: /usr/share/common-lisp/source/clx/demo/zoid.lisp ; in: DEFUN SET-TRAPEZOID-ALIGNMENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE) ; ((XLIB::DATA XLIB:CARD8) 2) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((XLIB::MEMBER8 XLIB::%ERROR :X :Y) XLIB::ALIGNMENT)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; 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 NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/demo/zoid-tmpLM57P5P.fasl written ; compilation finished in 0:00:00.074 ; compiling file "/usr/share/common-lisp/source/clx/test/image.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *IMAGE-TEST-HOST* ...) ; compiling (DEFVAR *IMAGE-TEST-NIMAGES* ...) ; compiling (DEFVAR *IMAGE-TEST-COPY* ...) ; compiling (DEFVAR *IMAGE-TEST-COPY-RANDOM-SUBIMAGE* ...) ; compiling (DEFVAR *IMAGE-TEST-PUT-RANDOM-SUBIMAGE* ...) ; compiling (DEFVAR *IMAGE-TEST-GET-IMAGE-RESULT-TYPE-CHOICES* ...) ; compiling (DEFVAR *IMAGE-TEST-GET-IMAGE-IMAGE-X-FORMAT-CHOICES* ...) ; compiling (DEFUN IMAGE-TEST ...) ; compiling (DEFUN IMAGE-TEST-CHOOSE ...) ; compiling (DEFUN IMAGE-TEST-GET-IMAGE ...) ; compiling (DEFUN IMAGE-TEST-SUBIMAGE-PARAMETERS ...) ; compiling (DEFUN IMAGE-TEST-COPY-IMAGE ...) ; compiling (DEFUN IMAGE-TEST-PUT-IMAGE ...) ; compiling (DEFUN IMAGE-INFO ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/test/image-tmpZE69DN33.fasl written ; compilation finished in 0:00:00.123 ; compiling file "/usr/share/common-lisp/source/clx/test/trapezoid.lisp" (written 14 MAY 2016 06:13:14 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFUN ZOID-TEST ...) ; file: /usr/share/common-lisp/source/clx/test/trapezoid.lisp ; in: DEFUN ZOID-TEST ; (ZEROP COUNT) ; ==> ; (= COUNT 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to open code because: The operands might not be the same type. ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/usr/share/common-lisp/source/clx/test/trapezoid-tmpG8099TO3.fasl written ; compilation finished in 0:00:00.028 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/package.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (DEFPACKAGE :STUMPWM ...) ; compiling (DEFPACKAGE :STUMPWM-USER ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/package-tmpTASQCYAW.fasl written ; compilation finished in 0:00:00.001 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/primitives.lisp" (written 11 OCT 2021 06:39:49 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (PUSHNEW :CALL-IN-MAIN-THREAD ...) ; compiling (DEFVAR *SUPPRESS-ABORT-MESSAGES* ...) ; compiling (DEFVAR *TIMEOUT-WAIT* ...) ; compiling (DEFVAR *TIMEOUT-FRAME-INDICATOR-WAIT* ...) ; compiling (DEFVAR *FRAME-INDICATOR-TIMER* ...) ; compiling (DEFVAR *FRAME-INDICATOR-TEXT* ...) ; compiling (DEFVAR *SUPPRESS-FRAME-INDICATOR* ...) ; compiling (DEFVAR *SUPPRESS-WINDOW-PLACEMENT-INDICATOR* ...) ; compiling (DEFVAR *MESSAGE-WINDOW-TIMER* ...) ; compiling (DEFVAR *GRAB-POINTER-COUNT* ...) ; compiling (DEFVAR *GRAB-POINTER-FONT* ...) ; compiling (DEFVAR *GRAB-POINTER-CHARACTER* ...) ; compiling (DEFVAR *GRAB-POINTER-CHARACTER-MASK* ...) ; compiling (DEFVAR *GRAB-POINTER-FOREGROUND* ...) ; compiling (DEFVAR *GRAB-POINTER-BACKGROUND* ...) ; compiling (DEFVAR *COMMAND-MODE-START-HOOK* ...) ; compiling (DEFVAR *COMMAND-MODE-END-HOOK* ...) ; compiling (DEFVAR *URGENT-WINDOW-HOOK* ...) ; compiling (DEFVAR *MAP-WINDOW-HOOK* ...) ; compiling (DEFVAR *UNMAP-WINDOW-HOOK* ...) ; compiling (DEFVAR *NEW-WINDOW-HOOK* ...) ; compiling (DEFVAR *DESTROY-WINDOW-HOOK* ...) ; compiling (DEFVAR *FOCUS-WINDOW-HOOK* ...) ; compiling (DEFVAR *PLACE-WINDOW-HOOK* ...) ; compiling (DEFVAR *START-HOOK* ...) ; compiling (DEFVAR *QUIT-HOOK* ...) ; compiling (DEFVAR *RESTART-HOOK* ...) ; compiling (DEFVAR *INTERNAL-LOOP-HOOK* ...) ; compiling (DEFVAR *EVENT-PROCESSING-HOOK* ...) ; compiling (DEFVAR *FOCUS-FRAME-HOOK* ...) ; compiling (DEFVAR *NEW-FRAME-HOOK* ...) ; compiling (DEFVAR *SPLIT-FRAME-HOOK* ...) ; compiling (DEFVAR *MESSAGE-HOOK* ...) ; compiling (DEFVAR *TOP-LEVEL-ERROR-HOOK* ...) ; compiling (DEFVAR *FOCUS-GROUP-HOOK* ...) ; compiling (DEFVAR *KEY-PRESS-HOOK* ...) ; compiling (DEFVAR *ROOT-CLICK-HOOK* ...) ; compiling (DEFVAR *NEW-MODE-LINE-HOOK* ...) ; compiling (DEFVAR *DESTROY-MODE-LINE-HOOK* ...) ; compiling (DEFVAR *MODE-LINE-CLICK-HOOK* ...) ; compiling (DEFVAR *PRE-COMMAND-HOOK* ...) ; compiling (DEFVAR *POST-COMMAND-HOOK* ...) ; compiling (DEFVAR *DISPLAY* ...) ; compiling (DEFVAR *SHELL-PROGRAM* ...) ; compiling (DEFVAR *MAXSIZE-BORDER-WIDTH* ...) ; compiling (DEFVAR *TRANSIENT-BORDER-WIDTH* ...) ; compiling (DEFVAR *NORMAL-BORDER-WIDTH* ...) ; compiling (DEFVAR *TEXT-COLOR* ...) ; compiling (DEFVAR *MENU-MAXIMUM-HEIGHT* ...) ; compiling (DEFVAR *MENU-SCROLLING-STEP* ...) ; compiling (DEFPARAMETER +NETWM-SUPPORTED+ ...) ; compiling (DEFPARAMETER +NETWM-ALLOWED-ACTIONS+ ...) ; compiling (DEFPARAMETER +NETWM-WINDOW-TYPES+ ...) ; compiling (DEFCONSTANT +WITHDRAWN-STATE+ ...) ; compiling (DEFCONSTANT +NORMAL-STATE+ ...) ; compiling (DEFCONSTANT +ICONIC-STATE+ ...) ; compiling (DEFVAR *WINDOW-EVENTS* ...) ; compiling (DEFVAR *WINDOW-PARENT-EVENTS* ...) ; compiling (DEFVAR *MESSAGE-WINDOW-PADDING* ...) ; compiling (DEFVAR *MESSAGE-WINDOW-GRAVITY* ...) ; compiling (DEFVAR *EDITOR-BINDINGS* ...) ; compiling (DEFVAR *INPUT-WINDOW-GRAVITY* ...) ; compiling (DEFPARAMETER +DEFAULT-FOREGROUND-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-BACKGROUND-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-WINDOW-BACKGROUND-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-BORDER-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-FONT-NAME+ ...) ; compiling (DEFPARAMETER +DEFAULT-FOCUS-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-UNFOCUS-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-FLOAT-FOCUS-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-FLOAT-UNFOCUS-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-FRAME-OUTLINE-WIDTH+ ...) ; compiling (DEFVAR *NORMAL-GRAVITY* ...) ; compiling (DEFVAR *MAXSIZE-GRAVITY* ...) ; compiling (DEFVAR *TRANSIENT-GRAVITY* ...) ; compiling (DEFVAR *TOP-LEVEL-ERROR-ACTION* ...) ; compiling (DEFVAR *WINDOW-NAME-SOURCE* ...) ; compiling (DEFSTRUCT FRAME ...) ; compiling (DEFSTRUCT (HEAD #)) ; compiling (DEFCLASS SCREEN ...) ; compiling (DEFSTRUCT CCONTEXT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFVAR *WINDOW-NUMBER-MAP* ...) ; compiling (DEFVAR *GROUP-NUMBER-MAP* ...) ; compiling (DEFVAR *FRAME-NUMBER-MAP* ...) ; compiling (DEFUN GET-FRAME-NUMBER-TRANSLATION ...) ; compiling (DEFSTRUCT MODIFIERS ...) ; compiling (DEFVAR *ALL-MODIFIERS* ...) ; compiling (DEFVAR *MODIFIERS* ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFVAR *SCREEN-LIST* ...) ; compiling (DEFVAR *INITIALIZING* ...) ; compiling (DEFVAR *PROCESSING-EXISTING-WINDOWS* ...) ; compiling (DEFVAR *EXECUTING-STUMPWM-COMMAND* ...) ; compiling (DEFVAR *INTERACTIVEP* ...) ; compiling (DEFMACRO WITH-RESTARTS-MENU ...) ; compiling (DEFUN RUN-HOOK-WITH-ARGS ...) ; compiling (DEFUN RUN-HOOK ...) ; compiling (DEFMACRO ADD-HOOK ...) ; compiling (DEFMACRO REMOVE-HOOK ...) ; compiling (DEFMACRO REMOVE-ALL-HOOKS ...) ; compiling (DEFUN SORT1 ...) ; compiling (DEFUN FIND-FREE-NUMBER ...) ; compiling (DEFUN SPLIT-SEQ ...) ; compiling (DEFUN SPLIT-STRING ...) ; compiling (DEFUN MATCH-ALL-REGEXPS ...) ; compiling (DEFUN INSERT-BEFORE ...) ; compiling (DEFVAR *DEBUG-LEVEL* ...) ; compiling (DEFVAR *DEBUG-EXPOSE-EVENTS* ...) ; compiling (DEFVAR *DEBUG-STREAM* ...) ; compiling (DEFUN DFORMAT ...) ; compiling (DEFVAR *REDIRECT-STREAM* ...) ; compiling (DEFUN REDIRECT-ALL-OUTPUT ...) ; compiling (DEFUN FORMAT-EXPAND ...) ; compiling (DEFVAR *WINDOW-FORMATTERS* ...) ; compiling (DEFVAR *WINDOW-FORMAT* ...) ; compiling (DEFVAR *WINDOW-INFO-FORMAT* ...) ; compiling (DEFPARAMETER *WINDOW-FORMAT-BY-CLASS* ...) ; compiling (DEFVAR *GROUP-FORMATTERS* ...) ; compiling (DEFVAR *GROUP-FORMAT* ...) ; compiling (DEFVAR *LIST-HIDDEN-GROUPS* ...) ; compiling (DEFVAR *X-SELECTION* ...) ; compiling (DEFVAR *LAST-COMMAND* ...) ; compiling (DEFVAR *MAX-LAST-MESSAGE-SIZE* ...) ; compiling (DEFVAR *RECORD-LAST-MSG-OVERRIDE* ...) ; compiling (DEFVAR *SUPPRESS-ECHO-TIMEOUT* ...) ; compiling (DEFVAR *IGNORE-ECHO-TIMEOUT* ...) ; compiling (DEFVAR *RUN-OR-RAISE-ALL-GROUPS* ...) ; compiling (DEFVAR *RUN-OR-RAISE-ALL-SCREENS* ...) ; compiling (DEFVAR *DENY-MAP-REQUEST* ...) ; compiling (DEFVAR *DENY-RAISE-REQUEST* ...) ; compiling (DEFVAR *SUPPRESS-DENY-MESSAGES* ...) ; compiling (DEFVAR *HONOR-WINDOW-MOVES* ...) ; compiling (DEFVAR *RESIZE-HIDES-WINDOWS* ...) ; compiling (DEFUN DENY-REQUEST-P ...) ; compiling (DEFUN FLATTEN ...) ; compiling (DEFUN LIST-SPLICE-REPLACE ...) ; compiling (DEFVAR *MIN-FRAME-WIDTH* ...) ; compiling (DEFVAR *MIN-FRAME-HEIGHT* ...) ; compiling (DEFVAR *NEW-FRAME-ACTION* ...) ; compiling (DEFVAR *NEW-WINDOW-PREFERRED-FRAME* ...) ; compiling (DEFUN BACKTRACE-STRING ...) ; compiling (DEFVAR *STARTUP-MESSAGE* ...) ; compiling (DEFVAR *DEFAULT-PACKAGE* ...) ; compiling (DEFUN CONCAT ...) ; compiling (DEFVAR *WINDOW-PLACEMENT-RULES* ...) ; compiling (DEFMACRO DEFINE-FRAME-PREFERENCE ...) ; compiling (DEFUN CLEAR-WINDOW-PLACEMENT-RULES ...) ; compiling (DEFVAR *MOUSE-FOCUS-POLICY* ...) ; compiling (DEFVAR *ROOT-CLICK-FOCUSES-FRAME* ...) ; compiling (DEFVAR *BANISH-POINTER-TO* ...) ; compiling (DEFVAR *XWIN-TO-WINDOW* ...) ; compiling (DEFVAR *RESIZE-MAP* ...) ; compiling (DEFVAR *DEFAULT-GROUP-NAME* ...) ; compiling (DEFMACRO WITH-FOCUS ...) ; compiling (DEFVAR *LAST-UNHANDLED-ERROR* ...) ; compiling (DEFVAR *SHOW-COMMAND-BACKTRACE* ...) ; compiling (DEFVAR *WINDOW-BORDER-STYLE* ...) ; compiling (DEFVAR *DATA-DIR* ...) ; compiling (DEFUN DATA-DIR-FILE ...) ; compiling (DEFMACRO WITH-DATA-FILE ...) ; compiling (DEFMACRO MOVE-TO-HEAD ...) ; compiling (DEFINE-CONDITION STUMPWM-CONDITION ...) ; compiling (DEFINE-CONDITION STUMPWM-ERROR ...) ; compiling (DEFINE-CONDITION STUMPWM-WARNING ...) ; compiling (DEFUN INTERN1 ...) ; compiling (DEFUN COMMAND-MODE-START-MESSAGE ...) ; compiling (DEFUN COMMAND-MODE-END-MESSAGE ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/primitives-tmp35U57IV6.fasl written ; compilation finished in 0:00:00.369 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/workarounds.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :XLIB) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/workarounds-tmpTZOONXRW.fasl written ; compilation finished in 0:00:00.002 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/wrappers.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFINE-CONDITION NOT-IMPLEMENTED ...) ; compiling (DEFUN SCREEN-DISPLAY-STRING ...) ; compiling (DEFUN RUN-PROG ...) ; compiling (DEFUN RUN-PROG-COLLECT-OUTPUT ...) ; compiling (DEFUN GETENV ...) ; compiling (DEFUN (SETF GETENV) ...) ; compiling (DEFUN PATHNAME-IS-EXECUTABLE-P ...) ; compiling (DEFUN PROBE-PATH ...) ; compiling (DEFUN PORTABLE-FILE-WRITE-DATE ...) ; compiling (DEFUN PRINT-BACKTRACE ...) ; compiling (DEFUN BYTES-TO-STRING ...) ; compiling (DEFUN STRING-TO-BYTES ...) ; compiling (DEFUN UTF8-TO-STRING ...) ; compiling (DEFUN STRING-TO-UTF8 ...) ; compiling (DEFUN MAKE-XLIB-WINDOW ...) ; compiling (DEFUN DIRECTORY-NO-DEREF ...) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN READ-LINE-FROM-SYSFS ...) ; compiling (DEFUN ARGV ...) ; compiling (DEFUN EXECV ...) ; compiling (DEFUN OPEN-PIPE ...) ; compiling (DEFUN MAKE-LOCK ...) ; compiling (DEFMACRO WITH-LOCK-HELD ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/wrappers-tmpWN0UKDSV.fasl written ; compilation finished in 0:00:00.135 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/pathnames.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN COMPONENT-PRESENT-P ...) ; compiling (DEFUN DIRECTORY-PATHNAME-P ...) ; compiling (DEFUN PATHNAME-AS-DIRECTORY ...) ; compiling (DEFUN DIRECTORY-WILDCARD ...) ; compiling (DEFUN LIST-DIRECTORY ...) ; compiling (DEFUN LIST-DIRECTORY-RECURSIVE ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/pathnames-tmpBF3HHBTQ.fasl written ; compilation finished in 0:00:00.042 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/font-rendering.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (DEFGENERIC FONT-EXISTS-P ...) ; compiling (DEFGENERIC OPEN-FONT ...) ; compiling (DEFGENERIC CLOSE-FONT ...) ; compiling (DEFGENERIC FONT-ASCENT ...) ; compiling (DEFGENERIC FONT-DESCENT ...) ; compiling (DEFGENERIC FONT-HEIGHT ...) ; compiling (DEFGENERIC TEXT-LINES-HEIGHT ...) ; compiling (DEFGENERIC TEXT-LINE-WIDTH ...) ; compiling (DEFGENERIC DRAW-IMAGE-GLYPHS ...) ; compiling (DEFMETHOD FONT-EXISTS-P ...) ; compiling (DEFMETHOD OPEN-FONT ...) ; compiling (DEFMETHOD CLOSE-FONT ...) ; compiling (DEFMETHOD FONT-ASCENT ...) ; compiling (DEFMETHOD FONT-DESCENT ...) ; compiling (DEFMETHOD FONT-HEIGHT ...) ; compiling (DEFMETHOD TEXT-LINE-WIDTH ...) ; compiling (DEFMETHOD DRAW-IMAGE-GLYPHS ...) ; compiling (DEFMETHOD FONT-HEIGHT ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/font-rendering-tmpGYUNPZCY.fasl written ; compilation finished in 0:00:00.031 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/keysyms.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (DEFVAR *KEYSYM-NAME-TRANSLATIONS* ...) ; compiling (DEFVAR *NAME-KEYSYM-TRANSLATIONS* ...) ; compiling (DEFUN DEFINE-KEYSYM ...) ; compiling (DEFUN KEYSYM-NAME->KEYSYM ...) ; compiling (DEFUN KEYSYM->KEYSYM-NAME ...) ; compiling (DEFINE-KEYSYM 16777215 ...) ; compiling (DEFINE-KEYSYM 65288 ...) ; compiling (DEFINE-KEYSYM 65289 ...) ; compiling (DEFINE-KEYSYM 65290 ...) ; compiling (DEFINE-KEYSYM 65291 ...) ; compiling (DEFINE-KEYSYM 65293 ...) ; compiling (DEFINE-KEYSYM 65299 ...) ; compiling (DEFINE-KEYSYM 65300 ...) ; compiling (DEFINE-KEYSYM 65301 ...) ; compiling (DEFINE-KEYSYM 65307 ...) ; compiling (DEFINE-KEYSYM 65535 ...) ; compiling (DEFINE-KEYSYM 65312 ...) ; compiling (DEFINE-KEYSYM 65335 ...) ; compiling (DEFINE-KEYSYM 65340 ...) ; compiling (DEFINE-KEYSYM 65341 ...) ; compiling (DEFINE-KEYSYM 65342 ...) ; compiling (DEFINE-KEYSYM 65313 ...) ; compiling (DEFINE-KEYSYM 65314 ...) ; compiling (DEFINE-KEYSYM 65315 ...) ; compiling (DEFINE-KEYSYM 65315 ...) ; compiling (DEFINE-KEYSYM 65316 ...) ; compiling (DEFINE-KEYSYM 65317 ...) ; compiling (DEFINE-KEYSYM 65318 ...) ; compiling (DEFINE-KEYSYM 65319 ...) ; compiling (DEFINE-KEYSYM 65320 ...) ; compiling (DEFINE-KEYSYM 65321 ...) ; compiling (DEFINE-KEYSYM 65322 ...) ; compiling (DEFINE-KEYSYM 65323 ...) ; compiling (DEFINE-KEYSYM 65324 ...) ; compiling (DEFINE-KEYSYM 65325 ...) ; compiling (DEFINE-KEYSYM 65326 ...) ; compiling (DEFINE-KEYSYM 65327 ...) ; compiling (DEFINE-KEYSYM 65328 ...) ; compiling (DEFINE-KEYSYM 65335 ...) ; compiling (DEFINE-KEYSYM 65341 ...) ; compiling (DEFINE-KEYSYM 65342 ...) ; compiling (DEFINE-KEYSYM 65360 ...) ; compiling (DEFINE-KEYSYM 65361 ...) ; compiling (DEFINE-KEYSYM 65362 ...) ; compiling (DEFINE-KEYSYM 65363 ...) ; compiling (DEFINE-KEYSYM 65364 ...) ; compiling (DEFINE-KEYSYM 65365 ...) ; compiling (DEFINE-KEYSYM 65365 ...) ; compiling (DEFINE-KEYSYM 65366 ...) ; compiling (DEFINE-KEYSYM 65366 ...) ; compiling (DEFINE-KEYSYM 65367 ...) ; compiling (DEFINE-KEYSYM 65368 ...) ; compiling (DEFINE-KEYSYM 65376 ...) ; compiling (DEFINE-KEYSYM 65377 ...) ; compiling (DEFINE-KEYSYM 65378 ...) ; compiling (DEFINE-KEYSYM 65379 ...) ; compiling (DEFINE-KEYSYM 65381 ...) ; compiling (DEFINE-KEYSYM 65382 ...) ; compiling (DEFINE-KEYSYM 65383 ...) ; compiling (DEFINE-KEYSYM 65384 ...) ; compiling (DEFINE-KEYSYM 65385 ...) ; compiling (DEFINE-KEYSYM 65386 ...) ; compiling (DEFINE-KEYSYM 65387 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 65407 ...) ; compiling (DEFINE-KEYSYM 65408 ...) ; compiling (DEFINE-KEYSYM 65417 ...) ; compiling (DEFINE-KEYSYM 65421 ...) ; compiling (DEFINE-KEYSYM 65425 ...) ; compiling (DEFINE-KEYSYM 65426 ...) ; compiling (DEFINE-KEYSYM 65427 ...) ; compiling (DEFINE-KEYSYM 65428 ...) ; compiling (DEFINE-KEYSYM 65429 ...) ; compiling (DEFINE-KEYSYM 65430 ...) ; compiling (DEFINE-KEYSYM 65431 ...) ; compiling (DEFINE-KEYSYM 65432 ...) ; compiling (DEFINE-KEYSYM 65433 ...) ; compiling (DEFINE-KEYSYM 65434 ...) ; compiling (DEFINE-KEYSYM 65434 ...) ; compiling (DEFINE-KEYSYM 65435 ...) ; compiling (DEFINE-KEYSYM 65435 ...) ; compiling (DEFINE-KEYSYM 65436 ...) ; compiling (DEFINE-KEYSYM 65437 ...) ; compiling (DEFINE-KEYSYM 65438 ...) ; compiling (DEFINE-KEYSYM 65439 ...) ; compiling (DEFINE-KEYSYM 65469 ...) ; compiling (DEFINE-KEYSYM 65450 ...) ; compiling (DEFINE-KEYSYM 65451 ...) ; compiling (DEFINE-KEYSYM 65452 ...) ; compiling (DEFINE-KEYSYM 65453 ...) ; compiling (DEFINE-KEYSYM 65454 ...) ; compiling (DEFINE-KEYSYM 65455 ...) ; compiling (DEFINE-KEYSYM 65456 ...) ; compiling (DEFINE-KEYSYM 65457 ...) ; compiling (DEFINE-KEYSYM 65458 ...) ; compiling (DEFINE-KEYSYM 65459 ...) ; compiling (DEFINE-KEYSYM 65460 ...) ; compiling (DEFINE-KEYSYM 65461 ...) ; compiling (DEFINE-KEYSYM 65462 ...) ; compiling (DEFINE-KEYSYM 65463 ...) ; compiling (DEFINE-KEYSYM 65464 ...) ; compiling (DEFINE-KEYSYM 65465 ...) ; compiling (DEFINE-KEYSYM 65470 ...) ; compiling (DEFINE-KEYSYM 65471 ...) ; compiling (DEFINE-KEYSYM 65472 ...) ; compiling (DEFINE-KEYSYM 65473 ...) ; compiling (DEFINE-KEYSYM 65474 ...) ; compiling (DEFINE-KEYSYM 65475 ...) ; compiling (DEFINE-KEYSYM 65476 ...) ; compiling (DEFINE-KEYSYM 65477 ...) ; compiling (DEFINE-KEYSYM 65478 ...) ; compiling (DEFINE-KEYSYM 65479 ...) ; compiling (DEFINE-KEYSYM 65480 ...) ; compiling (DEFINE-KEYSYM 65481 ...) ; compiling (DEFINE-KEYSYM 65482 ...) ; compiling (DEFINE-KEYSYM 65483 ...) ; compiling (DEFINE-KEYSYM 65484 ...) ; compiling (DEFINE-KEYSYM 65485 ...) ; compiling (DEFINE-KEYSYM 65486 ...) ; compiling (DEFINE-KEYSYM 65487 ...) ; compiling (DEFINE-KEYSYM 65488 ...) ; compiling (DEFINE-KEYSYM 65489 ...) ; compiling (DEFINE-KEYSYM 65490 ...) ; compiling (DEFINE-KEYSYM 65491 ...) ; compiling (DEFINE-KEYSYM 65492 ...) ; compiling (DEFINE-KEYSYM 65493 ...) ; compiling (DEFINE-KEYSYM 65494 ...) ; compiling (DEFINE-KEYSYM 65495 ...) ; compiling (DEFINE-KEYSYM 65496 ...) ; compiling (DEFINE-KEYSYM 65497 ...) ; compiling (DEFINE-KEYSYM 65498 ...) ; compiling (DEFINE-KEYSYM 65499 ...) ; compiling (DEFINE-KEYSYM 65500 ...) ; compiling (DEFINE-KEYSYM 65501 ...) ; compiling (DEFINE-KEYSYM 65502 ...) ; compiling (DEFINE-KEYSYM 65503 ...) ; compiling (DEFINE-KEYSYM 65504 ...) ; compiling (DEFINE-KEYSYM 65505 ...) ; compiling (DEFINE-KEYSYM 65506 ...) ; compiling (DEFINE-KEYSYM 65507 ...) ; compiling (DEFINE-KEYSYM 65508 ...) ; compiling (DEFINE-KEYSYM 65509 ...) ; compiling (DEFINE-KEYSYM 65510 ...) ; compiling (DEFINE-KEYSYM 65511 ...) ; compiling (DEFINE-KEYSYM 65512 ...) ; compiling (DEFINE-KEYSYM 65513 ...) ; compiling (DEFINE-KEYSYM 65514 ...) ; compiling (DEFINE-KEYSYM 65515 ...) ; compiling (DEFINE-KEYSYM 65516 ...) ; compiling (DEFINE-KEYSYM 65517 ...) ; compiling (DEFINE-KEYSYM 65518 ...) ; compiling (DEFINE-KEYSYM 65025 ...) ; compiling (DEFINE-KEYSYM 65026 ...) ; compiling (DEFINE-KEYSYM 65027 ...) ; compiling (DEFINE-KEYSYM 65028 ...) ; compiling (DEFINE-KEYSYM 65029 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 65030 ...) ; compiling (DEFINE-KEYSYM 65031 ...) ; compiling (DEFINE-KEYSYM 65032 ...) ; compiling (DEFINE-KEYSYM 65033 ...) ; compiling (DEFINE-KEYSYM 65034 ...) ; compiling (DEFINE-KEYSYM 65035 ...) ; compiling (DEFINE-KEYSYM 65036 ...) ; compiling (DEFINE-KEYSYM 65037 ...) ; compiling (DEFINE-KEYSYM 65038 ...) ; compiling (DEFINE-KEYSYM 65039 ...) ; compiling (DEFINE-KEYSYM 65056 ...) ; compiling (DEFINE-KEYSYM 65057 ...) ; compiling (DEFINE-KEYSYM 65058 ...) ; compiling (DEFINE-KEYSYM 65059 ...) ; compiling (DEFINE-KEYSYM 65060 ...) ; compiling (DEFINE-KEYSYM 65061 ...) ; compiling (DEFINE-KEYSYM 65062 ...) ; compiling (DEFINE-KEYSYM 65063 ...) ; compiling (DEFINE-KEYSYM 65064 ...) ; compiling (DEFINE-KEYSYM 65065 ...) ; compiling (DEFINE-KEYSYM 65066 ...) ; compiling (DEFINE-KEYSYM 65067 ...) ; compiling (DEFINE-KEYSYM 65068 ...) ; compiling (DEFINE-KEYSYM 65069 ...) ; compiling (DEFINE-KEYSYM 65070 ...) ; compiling (DEFINE-KEYSYM 65071 ...) ; compiling (DEFINE-KEYSYM 65072 ...) ; compiling (DEFINE-KEYSYM 65073 ...) ; compiling (DEFINE-KEYSYM 65074 ...) ; compiling (DEFINE-KEYSYM 65075 ...) ; compiling (DEFINE-KEYSYM 65076 ...) ; compiling (DEFINE-KEYSYM 65104 ...) ; compiling (DEFINE-KEYSYM 65105 ...) ; compiling (DEFINE-KEYSYM 65106 ...) ; compiling (DEFINE-KEYSYM 65107 ...) ; compiling (DEFINE-KEYSYM 65108 ...) ; compiling (DEFINE-KEYSYM 65109 ...) ; compiling (DEFINE-KEYSYM 65110 ...) ; compiling (DEFINE-KEYSYM 65111 ...) ; compiling (DEFINE-KEYSYM 65112 ...) ; compiling (DEFINE-KEYSYM 65113 ...) ; compiling (DEFINE-KEYSYM 65114 ...) ; compiling (DEFINE-KEYSYM 65115 ...) ; compiling (DEFINE-KEYSYM 65116 ...) ; compiling (DEFINE-KEYSYM 65117 ...) ; compiling (DEFINE-KEYSYM 65118 ...) ; compiling (DEFINE-KEYSYM 65119 ...) ; compiling (DEFINE-KEYSYM 65120 ...) ; compiling (DEFINE-KEYSYM 65121 ...) ; compiling (DEFINE-KEYSYM 65122 ...) ; compiling (DEFINE-KEYSYM 65232 ...) ; compiling (DEFINE-KEYSYM 65233 ...) ; compiling (DEFINE-KEYSYM 65234 ...) ; compiling (DEFINE-KEYSYM 65236 ...) ; compiling (DEFINE-KEYSYM 65237 ...) ; compiling (DEFINE-KEYSYM 65136 ...) ; compiling (DEFINE-KEYSYM 65137 ...) ; compiling (DEFINE-KEYSYM 65138 ...) ; compiling (DEFINE-KEYSYM 65139 ...) ; compiling (DEFINE-KEYSYM 65140 ...) ; compiling (DEFINE-KEYSYM 65141 ...) ; compiling (DEFINE-KEYSYM 65142 ...) ; compiling (DEFINE-KEYSYM 65143 ...) ; compiling (DEFINE-KEYSYM 65144 ...) ; compiling (DEFINE-KEYSYM 65145 ...) ; compiling (DEFINE-KEYSYM 65146 ...) ; compiling (DEFINE-KEYSYM 65248 ...) ; compiling (DEFINE-KEYSYM 65249 ...) ; compiling (DEFINE-KEYSYM 65250 ...) ; compiling (DEFINE-KEYSYM 65251 ...) ; compiling (DEFINE-KEYSYM 65252 ...) ; compiling (DEFINE-KEYSYM 65253 ...) ; compiling (DEFINE-KEYSYM 65254 ...) ; compiling (DEFINE-KEYSYM 65255 ...) ; compiling (DEFINE-KEYSYM 65256 ...) ; compiling (DEFINE-KEYSYM 65257 ...) ; compiling (DEFINE-KEYSYM 65258 ...) ; compiling (DEFINE-KEYSYM 65259 ...) ; compiling (DEFINE-KEYSYM 65260 ...) ; compiling (DEFINE-KEYSYM 65261 ...) ; compiling (DEFINE-KEYSYM 65262 ...) ; compiling (DEFINE-KEYSYM 65263 ...) ; compiling (DEFINE-KEYSYM 65264 ...) ; compiling (DEFINE-KEYSYM 65265 ...) ; compiling (DEFINE-KEYSYM 65266 ...) ; compiling (DEFINE-KEYSYM 65267 ...) ; compiling (DEFINE-KEYSYM 65268 ...) ; compiling (DEFINE-KEYSYM 65269 ...) ; compiling (DEFINE-KEYSYM 65270 ...) ; compiling (DEFINE-KEYSYM 65271 ...) ; compiling (DEFINE-KEYSYM 65272 ...) ; compiling (DEFINE-KEYSYM 65277 ...) ; compiling (DEFINE-KEYSYM 65273 ...) ; compiling (DEFINE-KEYSYM 65274 ...) ; compiling (DEFINE-KEYSYM 65275 ...) ; compiling (DEFINE-KEYSYM 65276 ...) ; compiling (DEFINE-KEYSYM 64769 ...) ; compiling (DEFINE-KEYSYM 64770 ...) ; compiling (DEFINE-KEYSYM 64771 ...) ; compiling (DEFINE-KEYSYM 64772 ...) ; compiling (DEFINE-KEYSYM 64773 ...) ; compiling (DEFINE-KEYSYM 64774 ...) ; compiling (DEFINE-KEYSYM 64775 ...) ; compiling (DEFINE-KEYSYM 64776 ...) ; compiling (DEFINE-KEYSYM 64777 ...) ; compiling (DEFINE-KEYSYM 64778 ...) ; compiling (DEFINE-KEYSYM 64779 ...) ; compiling (DEFINE-KEYSYM 64780 ...) ; compiling (DEFINE-KEYSYM 64781 ...) ; compiling (DEFINE-KEYSYM 64782 ...) ; compiling (DEFINE-KEYSYM 64783 ...) ; compiling (DEFINE-KEYSYM 64784 ...) ; compiling (DEFINE-KEYSYM 64785 ...) ; compiling (DEFINE-KEYSYM 64786 ...) ; compiling (DEFINE-KEYSYM 64787 ...) ; compiling (DEFINE-KEYSYM 64788 ...) ; compiling (DEFINE-KEYSYM 64789 ...) ; compiling (DEFINE-KEYSYM 64790 ...) ; compiling (DEFINE-KEYSYM 64791 ...) ; compiling (DEFINE-KEYSYM 64792 ...) ; compiling (DEFINE-KEYSYM 64793 ...) ; compiling (DEFINE-KEYSYM 64794 ...) ; compiling (DEFINE-KEYSYM 64795 ...) ; compiling (DEFINE-KEYSYM 64796 ...) ; compiling (DEFINE-KEYSYM 64797 ...) ; compiling (DEFINE-KEYSYM 64798 ...) ; compiling (DEFINE-KEYSYM 32 ...) ; compiling (DEFINE-KEYSYM 33 ...) ; compiling (DEFINE-KEYSYM 34 ...) ; compiling (DEFINE-KEYSYM 35 ...) ; compiling (DEFINE-KEYSYM 36 ...) ; compiling (DEFINE-KEYSYM 37 ...) ; compiling (DEFINE-KEYSYM 38 ...) ; compiling (DEFINE-KEYSYM 39 ...) ; compiling (DEFINE-KEYSYM 39 ...) ; compiling (DEFINE-KEYSYM 40 ...) ; compiling (DEFINE-KEYSYM 41 ...) ; compiling (DEFINE-KEYSYM 42 ...) ; compiling (DEFINE-KEYSYM 43 ...) ; compiling (DEFINE-KEYSYM 44 ...) ; compiling (DEFINE-KEYSYM 45 ...) ; compiling (DEFINE-KEYSYM 46 ...) ; compiling (DEFINE-KEYSYM 47 ...) ; compiling (DEFINE-KEYSYM 48 ...) ; compiling (DEFINE-KEYSYM 49 ...) ; compiling (DEFINE-KEYSYM 50 ...) ; compiling (DEFINE-KEYSYM 51 ...) ; compiling (DEFINE-KEYSYM 52 ...) ; compiling (DEFINE-KEYSYM 53 ...) ; compiling (DEFINE-KEYSYM 54 ...) ; compiling (DEFINE-KEYSYM 55 ...) ; compiling (DEFINE-KEYSYM 56 ...) ; compiling (DEFINE-KEYSYM 57 ...) ; compiling (DEFINE-KEYSYM 58 ...) ; compiling (DEFINE-KEYSYM 59 ...) ; compiling (DEFINE-KEYSYM 60 ...) ; compiling (DEFINE-KEYSYM 61 ...) ; compiling (DEFINE-KEYSYM 62 ...) ; compiling (DEFINE-KEYSYM 63 ...) ; compiling (DEFINE-KEYSYM 64 ...) ; compiling (DEFINE-KEYSYM 65 ...) ; compiling (DEFINE-KEYSYM 66 ...) ; compiling (DEFINE-KEYSYM 67 ...) ; compiling (DEFINE-KEYSYM 68 ...) ; compiling (DEFINE-KEYSYM 69 ...) ; compiling (DEFINE-KEYSYM 70 ...) ; compiling (DEFINE-KEYSYM 71 ...) ; compiling (DEFINE-KEYSYM 72 ...) ; compiling (DEFINE-KEYSYM 73 ...) ; compiling (DEFINE-KEYSYM 74 ...) ; compiling (DEFINE-KEYSYM 75 ...) ; compiling (DEFINE-KEYSYM 76 ...) ; compiling (DEFINE-KEYSYM 77 ...) ; compiling (DEFINE-KEYSYM 78 ...) ; compiling (DEFINE-KEYSYM 79 ...) ; compiling (DEFINE-KEYSYM 80 ...) ; compiling (DEFINE-KEYSYM 81 ...) ; compiling (DEFINE-KEYSYM 82 ...) ; compiling (DEFINE-KEYSYM 83 ...) ; compiling (DEFINE-KEYSYM 84 ...) ; compiling (DEFINE-KEYSYM 85 ...) ; compiling (DEFINE-KEYSYM 86 ...) ; compiling (DEFINE-KEYSYM 87 ...) ; compiling (DEFINE-KEYSYM 88 ...) ; compiling (DEFINE-KEYSYM 89 ...) ; compiling (DEFINE-KEYSYM 90 ...) ; compiling (DEFINE-KEYSYM 91 ...) ; compiling (DEFINE-KEYSYM 92 ...) ; compiling (DEFINE-KEYSYM 93 ...) ; compiling (DEFINE-KEYSYM 94 ...) ; compiling (DEFINE-KEYSYM 95 ...) ; compiling (DEFINE-KEYSYM 96 ...) ; compiling (DEFINE-KEYSYM 96 ...) ; compiling (DEFINE-KEYSYM 97 ...) ; compiling (DEFINE-KEYSYM 98 ...) ; compiling (DEFINE-KEYSYM 99 ...) ; compiling (DEFINE-KEYSYM 100 ...) ; compiling (DEFINE-KEYSYM 101 ...) ; compiling (DEFINE-KEYSYM 102 ...) ; compiling (DEFINE-KEYSYM 103 ...) ; compiling (DEFINE-KEYSYM 104 ...) ; compiling (DEFINE-KEYSYM 105 ...) ; compiling (DEFINE-KEYSYM 106 ...) ; compiling (DEFINE-KEYSYM 107 ...) ; compiling (DEFINE-KEYSYM 108 ...) ; compiling (DEFINE-KEYSYM 109 ...) ; compiling (DEFINE-KEYSYM 110 ...) ; compiling (DEFINE-KEYSYM 111 ...) ; compiling (DEFINE-KEYSYM 112 ...) ; compiling (DEFINE-KEYSYM 113 ...) ; compiling (DEFINE-KEYSYM 114 ...) ; compiling (DEFINE-KEYSYM 115 ...) ; compiling (DEFINE-KEYSYM 116 ...) ; compiling (DEFINE-KEYSYM 117 ...) ; compiling (DEFINE-KEYSYM 118 ...) ; compiling (DEFINE-KEYSYM 119 ...) ; compiling (DEFINE-KEYSYM 120 ...) ; compiling (DEFINE-KEYSYM 121 ...) ; compiling (DEFINE-KEYSYM 122 ...) ; compiling (DEFINE-KEYSYM 123 ...) ; compiling (DEFINE-KEYSYM 124 ...) ; compiling (DEFINE-KEYSYM 125 ...) ; compiling (DEFINE-KEYSYM 126 ...) ; compiling (DEFINE-KEYSYM 160 ...) ; compiling (DEFINE-KEYSYM 161 ...) ; compiling (DEFINE-KEYSYM 162 ...) ; compiling (DEFINE-KEYSYM 163 ...) ; compiling (DEFINE-KEYSYM 164 ...) ; compiling (DEFINE-KEYSYM 165 ...) ; compiling (DEFINE-KEYSYM 166 ...) ; compiling (DEFINE-KEYSYM 167 ...) ; compiling (DEFINE-KEYSYM 168 ...) ; compiling (DEFINE-KEYSYM 169 ...) ; compiling (DEFINE-KEYSYM 170 ...) ; compiling (DEFINE-KEYSYM 171 ...) ; compiling (DEFINE-KEYSYM 172 ...) ; compiling (DEFINE-KEYSYM 173 ...) ; compiling (DEFINE-KEYSYM 174 ...) ; compiling (DEFINE-KEYSYM 175 ...) ; compiling (DEFINE-KEYSYM 176 ...) ; compiling (DEFINE-KEYSYM 177 ...) ; compiling (DEFINE-KEYSYM 178 ...) ; compiling (DEFINE-KEYSYM 179 ...) ; compiling (DEFINE-KEYSYM 180 ...) ; compiling (DEFINE-KEYSYM 181 ...) ; compiling (DEFINE-KEYSYM 182 ...) ; compiling (DEFINE-KEYSYM 183 ...) ; compiling (DEFINE-KEYSYM 184 ...) ; compiling (DEFINE-KEYSYM 185 ...) ; compiling (DEFINE-KEYSYM 186 ...) ; compiling (DEFINE-KEYSYM 187 ...) ; compiling (DEFINE-KEYSYM 188 ...) ; compiling (DEFINE-KEYSYM 189 ...) ; compiling (DEFINE-KEYSYM 190 ...) ; compiling (DEFINE-KEYSYM 191 ...) ; compiling (DEFINE-KEYSYM 192 ...) ; compiling (DEFINE-KEYSYM 193 ...) ; compiling (DEFINE-KEYSYM 194 ...) ; compiling (DEFINE-KEYSYM 195 ...) ; compiling (DEFINE-KEYSYM 196 ...) ; compiling (DEFINE-KEYSYM 197 ...) ; compiling (DEFINE-KEYSYM 198 ...) ; compiling (DEFINE-KEYSYM 199 ...) ; compiling (DEFINE-KEYSYM 200 ...) ; compiling (DEFINE-KEYSYM 201 ...) ; compiling (DEFINE-KEYSYM 202 ...) ; compiling (DEFINE-KEYSYM 203 ...) ; compiling (DEFINE-KEYSYM 204 ...) ; compiling (DEFINE-KEYSYM 205 ...) ; compiling (DEFINE-KEYSYM 206 ...) ; compiling (DEFINE-KEYSYM 207 ...) ; compiling (DEFINE-KEYSYM 208 ...) ; compiling (DEFINE-KEYSYM 208 ...) ; compiling (DEFINE-KEYSYM 209 ...) ; compiling (DEFINE-KEYSYM 210 ...) ; compiling (DEFINE-KEYSYM 211 ...) ; compiling (DEFINE-KEYSYM 212 ...) ; compiling (DEFINE-KEYSYM 213 ...) ; compiling (DEFINE-KEYSYM 214 ...) ; compiling (DEFINE-KEYSYM 215 ...) ; compiling (DEFINE-KEYSYM 216 ...) ; compiling (DEFINE-KEYSYM 216 ...) ; compiling (DEFINE-KEYSYM 217 ...) ; compiling (DEFINE-KEYSYM 218 ...) ; compiling (DEFINE-KEYSYM 219 ...) ; compiling (DEFINE-KEYSYM 220 ...) ; compiling (DEFINE-KEYSYM 221 ...) ; compiling (DEFINE-KEYSYM 222 ...) ; compiling (DEFINE-KEYSYM 222 ...) ; compiling (DEFINE-KEYSYM 223 ...) ; compiling (DEFINE-KEYSYM 224 ...) ; compiling (DEFINE-KEYSYM 225 ...) ; compiling (DEFINE-KEYSYM 226 ...) ; compiling (DEFINE-KEYSYM 227 ...) ; compiling (DEFINE-KEYSYM 228 ...) ; compiling (DEFINE-KEYSYM 229 ...) ; compiling (DEFINE-KEYSYM 230 ...) ; compiling (DEFINE-KEYSYM 231 ...) ; compiling (DEFINE-KEYSYM 232 ...) ; compiling (DEFINE-KEYSYM 233 ...) ; compiling (DEFINE-KEYSYM 234 ...) ; compiling (DEFINE-KEYSYM 235 ...) ; compiling (DEFINE-KEYSYM 236 ...) ; compiling (DEFINE-KEYSYM 237 ...) ; compiling (DEFINE-KEYSYM 238 ...) ; compiling (DEFINE-KEYSYM 239 ...) ; compiling (DEFINE-KEYSYM 240 ...) ; compiling (DEFINE-KEYSYM 241 ...) ; compiling (DEFINE-KEYSYM 242 ...) ; compiling (DEFINE-KEYSYM 243 ...) ; compiling (DEFINE-KEYSYM 244 ...) ; compiling (DEFINE-KEYSYM 245 ...) ; compiling (DEFINE-KEYSYM 246 ...) ; compiling (DEFINE-KEYSYM 247 ...) ; compiling (DEFINE-KEYSYM 248 ...) ; compiling (DEFINE-KEYSYM 248 ...) ; compiling (DEFINE-KEYSYM 249 ...) ; compiling (DEFINE-KEYSYM 250 ...) ; compiling (DEFINE-KEYSYM 251 ...) ; compiling (DEFINE-KEYSYM 252 ...) ; compiling (DEFINE-KEYSYM 253 ...) ; compiling (DEFINE-KEYSYM 254 ...) ; compiling (DEFINE-KEYSYM 255 ...) ; compiling (DEFINE-KEYSYM 417 ...) ; compiling (DEFINE-KEYSYM 418 ...) ; compiling (DEFINE-KEYSYM 419 ...) ; compiling (DEFINE-KEYSYM 421 ...) ; compiling (DEFINE-KEYSYM 422 ...) ; compiling (DEFINE-KEYSYM 425 ...) ; compiling (DEFINE-KEYSYM 426 ...) ; compiling (DEFINE-KEYSYM 427 ...) ; compiling (DEFINE-KEYSYM 428 ...) ; compiling (DEFINE-KEYSYM 430 ...) ; compiling (DEFINE-KEYSYM 431 ...) ; compiling (DEFINE-KEYSYM 433 ...) ; compiling (DEFINE-KEYSYM 434 ...) ; compiling (DEFINE-KEYSYM 435 ...) ; compiling (DEFINE-KEYSYM 437 ...) ; compiling (DEFINE-KEYSYM 438 ...) ; compiling (DEFINE-KEYSYM 439 ...) ; compiling (DEFINE-KEYSYM 441 ...) ; compiling (DEFINE-KEYSYM 442 ...) ; compiling (DEFINE-KEYSYM 443 ...) ; compiling (DEFINE-KEYSYM 444 ...) ; compiling (DEFINE-KEYSYM 445 ...) ; compiling (DEFINE-KEYSYM 446 ...) ; compiling (DEFINE-KEYSYM 447 ...) ; compiling (DEFINE-KEYSYM 448 ...) ; compiling (DEFINE-KEYSYM 451 ...) ; compiling (DEFINE-KEYSYM 453 ...) ; compiling (DEFINE-KEYSYM 454 ...) ; compiling (DEFINE-KEYSYM 456 ...) ; compiling (DEFINE-KEYSYM 458 ...) ; compiling (DEFINE-KEYSYM 460 ...) ; compiling (DEFINE-KEYSYM 463 ...) ; compiling (DEFINE-KEYSYM 464 ...) ; compiling (DEFINE-KEYSYM 465 ...) ; compiling (DEFINE-KEYSYM 466 ...) ; compiling (DEFINE-KEYSYM 469 ...) ; compiling (DEFINE-KEYSYM 472 ...) ; compiling (DEFINE-KEYSYM 473 ...) ; compiling (DEFINE-KEYSYM 475 ...) ; compiling (DEFINE-KEYSYM 478 ...) ; compiling (DEFINE-KEYSYM 480 ...) ; compiling (DEFINE-KEYSYM 483 ...) ; compiling (DEFINE-KEYSYM 485 ...) ; compiling (DEFINE-KEYSYM 486 ...) ; compiling (DEFINE-KEYSYM 488 ...) ; compiling (DEFINE-KEYSYM 490 ...) ; compiling (DEFINE-KEYSYM 492 ...) ; compiling (DEFINE-KEYSYM 495 ...) ; compiling (DEFINE-KEYSYM 496 ...) ; compiling (DEFINE-KEYSYM 497 ...) ; compiling (DEFINE-KEYSYM 498 ...) ; compiling (DEFINE-KEYSYM 501 ...) ; compiling (DEFINE-KEYSYM 507 ...) ; compiling (DEFINE-KEYSYM 504 ...) ; compiling (DEFINE-KEYSYM 505 ...) ; compiling (DEFINE-KEYSYM 510 ...) ; compiling (DEFINE-KEYSYM 511 ...) ; compiling (DEFINE-KEYSYM 673 ...) ; compiling (DEFINE-KEYSYM 678 ...) ; compiling (DEFINE-KEYSYM 681 ...) ; compiling (DEFINE-KEYSYM 683 ...) ; compiling (DEFINE-KEYSYM 684 ...) ; compiling (DEFINE-KEYSYM 689 ...) ; compiling (DEFINE-KEYSYM 694 ...) ; compiling (DEFINE-KEYSYM 697 ...) ; compiling (DEFINE-KEYSYM 699 ...) ; compiling (DEFINE-KEYSYM 700 ...) ; compiling (DEFINE-KEYSYM 709 ...) ; compiling (DEFINE-KEYSYM 710 ...) ; compiling (DEFINE-KEYSYM 725 ...) ; compiling (DEFINE-KEYSYM 728 ...) ; compiling (DEFINE-KEYSYM 733 ...) ; compiling (DEFINE-KEYSYM 734 ...) ; compiling (DEFINE-KEYSYM 741 ...) ; compiling (DEFINE-KEYSYM 742 ...) ; compiling (DEFINE-KEYSYM 757 ...) ; compiling (DEFINE-KEYSYM 760 ...) ; compiling (DEFINE-KEYSYM 765 ...) ; compiling (DEFINE-KEYSYM 766 ...) ; compiling (DEFINE-KEYSYM 930 ...) ; compiling (DEFINE-KEYSYM 930 ...) ; compiling (DEFINE-KEYSYM 931 ...) ; compiling (DEFINE-KEYSYM 933 ...) ; compiling (DEFINE-KEYSYM 934 ...) ; compiling (DEFINE-KEYSYM 938 ...) ; compiling (DEFINE-KEYSYM 939 ...) ; compiling (DEFINE-KEYSYM 940 ...) ; compiling (DEFINE-KEYSYM 947 ...) ; compiling (DEFINE-KEYSYM 949 ...) ; compiling (DEFINE-KEYSYM 950 ...) ; compiling (DEFINE-KEYSYM 954 ...) ; compiling (DEFINE-KEYSYM 955 ...) ; compiling (DEFINE-KEYSYM 956 ...) ; compiling (DEFINE-KEYSYM 957 ...) ; compiling (DEFINE-KEYSYM 959 ...) ; compiling (DEFINE-KEYSYM 960 ...) ; compiling (DEFINE-KEYSYM 967 ...) ; compiling (DEFINE-KEYSYM 972 ...) ; compiling (DEFINE-KEYSYM 975 ...) ; compiling (DEFINE-KEYSYM 977 ...) ; compiling (DEFINE-KEYSYM 978 ...) ; compiling (DEFINE-KEYSYM 979 ...) ; compiling (DEFINE-KEYSYM 985 ...) ; compiling (DEFINE-KEYSYM 989 ...) ; compiling (DEFINE-KEYSYM 990 ...) ; compiling (DEFINE-KEYSYM 992 ...) ; compiling (DEFINE-KEYSYM 999 ...) ; compiling (DEFINE-KEYSYM 1004 ...) ; compiling (DEFINE-KEYSYM 1007 ...) ; compiling (DEFINE-KEYSYM 1009 ...) ; compiling (DEFINE-KEYSYM 1010 ...) ; compiling (DEFINE-KEYSYM 1011 ...) ; compiling (DEFINE-KEYSYM 1017 ...) ; compiling (DEFINE-KEYSYM 1021 ...) ; compiling (DEFINE-KEYSYM 1022 ...) ; compiling (DEFINE-KEYSYM 16784898 ...) ; compiling (DEFINE-KEYSYM 16784899 ...) ; compiling (DEFINE-KEYSYM 16784906 ...) ; compiling (DEFINE-KEYSYM 16785024 ...) ; compiling (DEFINE-KEYSYM 16785026 ...) ; compiling (DEFINE-KEYSYM 16784907 ...) ; compiling (DEFINE-KEYSYM 16785138 ...) ; compiling (DEFINE-KEYSYM 16784926 ...) ; compiling (DEFINE-KEYSYM 16784927 ...) ; compiling (DEFINE-KEYSYM 16784960 ...) ; compiling (DEFINE-KEYSYM 16784961 ...) ; compiling (DEFINE-KEYSYM 16784982 ...) ; compiling (DEFINE-KEYSYM 16785025 ...) ; compiling (DEFINE-KEYSYM 16784983 ...) ; compiling (DEFINE-KEYSYM 16785027 ...) ; compiling (DEFINE-KEYSYM 16784992 ...) ; compiling (DEFINE-KEYSYM 16785139 ...) ; compiling (DEFINE-KEYSYM 16785028 ...) ; compiling (DEFINE-KEYSYM 16785029 ...) ; compiling (DEFINE-KEYSYM 16784993 ...) ; compiling (DEFINE-KEYSYM 16777588 ...) ; compiling (DEFINE-KEYSYM 16785002 ...) ; compiling (DEFINE-KEYSYM 16777590 ...) ; compiling (DEFINE-KEYSYM 16777589 ...) ; compiling (DEFINE-KEYSYM 16785003 ...) ; compiling (DEFINE-KEYSYM 16777591 ...) ; compiling (DEFINE-KEYSYM 5052 ...) ; compiling (DEFINE-KEYSYM 5053 ...) ; compiling (DEFINE-KEYSYM 5054 ...) ; compiling (DEFINE-KEYSYM 1150 ...) ; compiling (DEFINE-KEYSYM 1185 ...) ; compiling (DEFINE-KEYSYM 1186 ...) ; compiling (DEFINE-KEYSYM 1187 ...) ; compiling (DEFINE-KEYSYM 1188 ...) ; compiling (DEFINE-KEYSYM 1189 ...) ; compiling (DEFINE-KEYSYM 1189 ...) ; compiling (DEFINE-KEYSYM 1190 ...) ; compiling (DEFINE-KEYSYM 1191 ...) ; compiling (DEFINE-KEYSYM 1192 ...) ; compiling (DEFINE-KEYSYM 1193 ...) ; compiling (DEFINE-KEYSYM 1194 ...) ; compiling (DEFINE-KEYSYM 1195 ...) ; compiling (DEFINE-KEYSYM 1196 ...) ; compiling (DEFINE-KEYSYM 1197 ...) ; compiling (DEFINE-KEYSYM 1198 ...) ; compiling (DEFINE-KEYSYM 1199 ...) ; compiling (DEFINE-KEYSYM 1199 ...) ; compiling (DEFINE-KEYSYM 1200 ...) ; compiling (DEFINE-KEYSYM 1201 ...) ; compiling (DEFINE-KEYSYM 1202 ...) ; compiling (DEFINE-KEYSYM 1203 ...) ; compiling (DEFINE-KEYSYM 1204 ...) ; compiling (DEFINE-KEYSYM 1205 ...) ; compiling (DEFINE-KEYSYM 1206 ...) ; compiling (DEFINE-KEYSYM 1207 ...) ; compiling (DEFINE-KEYSYM 1208 ...) ; compiling (DEFINE-KEYSYM 1209 ...) ; compiling (DEFINE-KEYSYM 1210 ...) ; compiling (DEFINE-KEYSYM 1211 ...) ; compiling (DEFINE-KEYSYM 1212 ...) ; compiling (DEFINE-KEYSYM 1213 ...) ; compiling (DEFINE-KEYSYM 1214 ...) ; compiling (DEFINE-KEYSYM 1215 ...) ; compiling (DEFINE-KEYSYM 1216 ...) ; compiling (DEFINE-KEYSYM 1217 ...) ; compiling (DEFINE-KEYSYM 1217 ...) ; compiling (DEFINE-KEYSYM 1218 ...) ; compiling (DEFINE-KEYSYM 1218 ...) ; compiling (DEFINE-KEYSYM 1219 ...) ; compiling (DEFINE-KEYSYM 1220 ...) ; compiling (DEFINE-KEYSYM 1221 ...) ; compiling (DEFINE-KEYSYM 1222 ...) ; compiling (DEFINE-KEYSYM 1223 ...) ; compiling (DEFINE-KEYSYM 1224 ...) ; compiling (DEFINE-KEYSYM 1225 ...) ; compiling (DEFINE-KEYSYM 1226 ...) ; compiling (DEFINE-KEYSYM 1227 ...) ; compiling (DEFINE-KEYSYM 1228 ...) ; compiling (DEFINE-KEYSYM 1228 ...) ; compiling (DEFINE-KEYSYM 1229 ...) ; compiling (DEFINE-KEYSYM 1230 ...) ; compiling (DEFINE-KEYSYM 1231 ...) ; compiling (DEFINE-KEYSYM 1232 ...) ; compiling (DEFINE-KEYSYM 1233 ...) ; compiling (DEFINE-KEYSYM 1234 ...) ; compiling (DEFINE-KEYSYM 1235 ...) ; compiling (DEFINE-KEYSYM 1236 ...) ; compiling (DEFINE-KEYSYM 1237 ...) ; compiling (DEFINE-KEYSYM 1238 ...) ; compiling (DEFINE-KEYSYM 1239 ...) ; compiling (DEFINE-KEYSYM 1240 ...) ; compiling (DEFINE-KEYSYM 1241 ...) ; compiling (DEFINE-KEYSYM 1242 ...) ; compiling (DEFINE-KEYSYM 1243 ...) ; compiling (DEFINE-KEYSYM 1244 ...) ; compiling (DEFINE-KEYSYM 1245 ...) ; compiling (DEFINE-KEYSYM 1246 ...) ; compiling (DEFINE-KEYSYM 1247 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 16778992 ...) ; compiling (DEFINE-KEYSYM 16778993 ...) ; compiling (DEFINE-KEYSYM 16778994 ...) ; compiling (DEFINE-KEYSYM 16778995 ...) ; compiling (DEFINE-KEYSYM 16778996 ...) ; compiling (DEFINE-KEYSYM 16778997 ...) ; compiling (DEFINE-KEYSYM 16778998 ...) ; compiling (DEFINE-KEYSYM 16778999 ...) ; compiling (DEFINE-KEYSYM 16779000 ...) ; compiling (DEFINE-KEYSYM 16779001 ...) ; compiling (DEFINE-KEYSYM 16778858 ...) ; compiling (DEFINE-KEYSYM 16778864 ...) ; compiling (DEFINE-KEYSYM 16778873 ...) ; compiling (DEFINE-KEYSYM 16778878 ...) ; compiling (DEFINE-KEYSYM 16778886 ...) ; compiling (DEFINE-KEYSYM 16778888 ...) ; compiling (DEFINE-KEYSYM 16778897 ...) ; compiling (DEFINE-KEYSYM 1452 ...) ; compiling (DEFINE-KEYSYM 16778964 ...) ; compiling (DEFINE-KEYSYM 16778848 ...) ; compiling (DEFINE-KEYSYM 16778849 ...) ; compiling (DEFINE-KEYSYM 16778850 ...) ; compiling (DEFINE-KEYSYM 16778851 ...) ; compiling (DEFINE-KEYSYM 16778852 ...) ; compiling (DEFINE-KEYSYM 16778853 ...) ; compiling (DEFINE-KEYSYM 16778854 ...) ; compiling (DEFINE-KEYSYM 16778855 ...) ; compiling (DEFINE-KEYSYM 16778856 ...) ; compiling (DEFINE-KEYSYM 16778857 ...) ; compiling (DEFINE-KEYSYM 1467 ...) ; compiling (DEFINE-KEYSYM 1471 ...) ; compiling (DEFINE-KEYSYM 1473 ...) ; compiling (DEFINE-KEYSYM 1474 ...) ; compiling (DEFINE-KEYSYM 1475 ...) ; compiling (DEFINE-KEYSYM 1476 ...) ; compiling (DEFINE-KEYSYM 1477 ...) ; compiling (DEFINE-KEYSYM 1478 ...) ; compiling (DEFINE-KEYSYM 1479 ...) ; compiling (DEFINE-KEYSYM 1480 ...) ; compiling (DEFINE-KEYSYM 1481 ...) ; compiling (DEFINE-KEYSYM 1482 ...) ; compiling (DEFINE-KEYSYM 1483 ...) ; compiling (DEFINE-KEYSYM 1484 ...) ; compiling (DEFINE-KEYSYM 1485 ...) ; compiling (DEFINE-KEYSYM 1486 ...) ; compiling (DEFINE-KEYSYM 1487 ...) ; compiling (DEFINE-KEYSYM 1488 ...) ; compiling (DEFINE-KEYSYM 1489 ...) ; compiling (DEFINE-KEYSYM 1490 ...) ; compiling (DEFINE-KEYSYM 1491 ...) ; compiling (DEFINE-KEYSYM 1492 ...) ; compiling (DEFINE-KEYSYM 1493 ...) ; compiling (DEFINE-KEYSYM 1494 ...) ; compiling (DEFINE-KEYSYM 1495 ...) ; compiling (DEFINE-KEYSYM 1496 ...) ; compiling (DEFINE-KEYSYM 1497 ...) ; compiling (DEFINE-KEYSYM 1498 ...) ; compiling (DEFINE-KEYSYM 1504 ...) ; compiling (DEFINE-KEYSYM 1505 ...) ; compiling (DEFINE-KEYSYM 1506 ...) ; compiling (DEFINE-KEYSYM 1507 ...) ; compiling (DEFINE-KEYSYM 1508 ...) ; compiling (DEFINE-KEYSYM 1509 ...) ; compiling (DEFINE-KEYSYM 1510 ...) ; compiling (DEFINE-KEYSYM 1511 ...) ; compiling (DEFINE-KEYSYM 1511 ...) ; compiling (DEFINE-KEYSYM 1512 ...) ; compiling (DEFINE-KEYSYM 1513 ...) ; compiling (DEFINE-KEYSYM 1514 ...) ; compiling (DEFINE-KEYSYM 1515 ...) ; compiling (DEFINE-KEYSYM 1516 ...) ; compiling (DEFINE-KEYSYM 1517 ...) ; compiling (DEFINE-KEYSYM 1518 ...) ; compiling (DEFINE-KEYSYM 1519 ...) ; compiling (DEFINE-KEYSYM 1520 ...) ; compiling (DEFINE-KEYSYM 1521 ...) ; compiling (DEFINE-KEYSYM 1522 ...) ; compiling (DEFINE-KEYSYM 16778835 ...) ; compiling (DEFINE-KEYSYM 16778836 ...) ; compiling (DEFINE-KEYSYM 16778837 ...) ; compiling (DEFINE-KEYSYM 16778904 ...) ; compiling (DEFINE-KEYSYM 16778916 ...) ; compiling (DEFINE-KEYSYM 16778921 ...) ; compiling (DEFINE-KEYSYM 16778927 ...) ; compiling (DEFINE-KEYSYM 16778938 ...) ; compiling (DEFINE-KEYSYM 16778942 ...) ; compiling (DEFINE-KEYSYM 16778956 ...) ; compiling (DEFINE-KEYSYM 16778956 ...) ; compiling (DEFINE-KEYSYM 16778962 ...) ; compiling (DEFINE-KEYSYM 16778945 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 16778386 ...) ; compiling (DEFINE-KEYSYM 16778387 ...) ; compiling (DEFINE-KEYSYM 16778390 ...) ; compiling (DEFINE-KEYSYM 16778391 ...) ; compiling (DEFINE-KEYSYM 16778394 ...) ; compiling (DEFINE-KEYSYM 16778395 ...) ; compiling (DEFINE-KEYSYM 16778396 ...) ; compiling (DEFINE-KEYSYM 16778397 ...) ; compiling (DEFINE-KEYSYM 16778402 ...) ; compiling (DEFINE-KEYSYM 16778403 ...) ; compiling (DEFINE-KEYSYM 16778414 ...) ; compiling (DEFINE-KEYSYM 16778415 ...) ; compiling (DEFINE-KEYSYM 16778416 ...) ; compiling (DEFINE-KEYSYM 16778417 ...) ; compiling (DEFINE-KEYSYM 16778418 ...) ; compiling (DEFINE-KEYSYM 16778419 ...) ; compiling (DEFINE-KEYSYM 16778422 ...) ; compiling (DEFINE-KEYSYM 16778423 ...) ; compiling (DEFINE-KEYSYM 16778424 ...) ; compiling (DEFINE-KEYSYM 16778425 ...) ; compiling (DEFINE-KEYSYM 16778426 ...) ; compiling (DEFINE-KEYSYM 16778427 ...) ; compiling (DEFINE-KEYSYM 16778456 ...) ; compiling (DEFINE-KEYSYM 16778457 ...) ; compiling (DEFINE-KEYSYM 16778466 ...) ; compiling (DEFINE-KEYSYM 16778467 ...) ; compiling (DEFINE-KEYSYM 16778472 ...) ; compiling (DEFINE-KEYSYM 16778473 ...) ; compiling (DEFINE-KEYSYM 16778478 ...) ; compiling (DEFINE-KEYSYM 16778479 ...) ; compiling (DEFINE-KEYSYM 1697 ...) ; compiling (DEFINE-KEYSYM 1698 ...) ; compiling (DEFINE-KEYSYM 1699 ...) ; compiling (DEFINE-KEYSYM 1700 ...) ; compiling (DEFINE-KEYSYM 1700 ...) ; compiling (DEFINE-KEYSYM 1701 ...) ; compiling (DEFINE-KEYSYM 1702 ...) ; compiling (DEFINE-KEYSYM 1702 ...) ; compiling (DEFINE-KEYSYM 1703 ...) ; compiling (DEFINE-KEYSYM 1703 ...) ; compiling (DEFINE-KEYSYM 1704 ...) ; compiling (DEFINE-KEYSYM 1704 ...) ; compiling (DEFINE-KEYSYM 1705 ...) ; compiling (DEFINE-KEYSYM 1705 ...) ; compiling (DEFINE-KEYSYM 1706 ...) ; compiling (DEFINE-KEYSYM 1706 ...) ; compiling (DEFINE-KEYSYM 1707 ...) ; compiling (DEFINE-KEYSYM 1708 ...) ; compiling (DEFINE-KEYSYM 1709 ...) ; compiling (DEFINE-KEYSYM 1710 ...) ; compiling (DEFINE-KEYSYM 1711 ...) ; compiling (DEFINE-KEYSYM 1711 ...) ; compiling (DEFINE-KEYSYM 1712 ...) ; compiling (DEFINE-KEYSYM 1713 ...) ; compiling (DEFINE-KEYSYM 1714 ...) ; compiling (DEFINE-KEYSYM 1715 ...) ; compiling (DEFINE-KEYSYM 1716 ...) ; compiling (DEFINE-KEYSYM 1716 ...) ; compiling (DEFINE-KEYSYM 1717 ...) ; compiling (DEFINE-KEYSYM 1718 ...) ; compiling (DEFINE-KEYSYM 1718 ...) ; compiling (DEFINE-KEYSYM 1719 ...) ; compiling (DEFINE-KEYSYM 1719 ...) ; compiling (DEFINE-KEYSYM 1720 ...) ; compiling (DEFINE-KEYSYM 1720 ...) ; compiling (DEFINE-KEYSYM 1721 ...) ; compiling (DEFINE-KEYSYM 1721 ...) ; compiling (DEFINE-KEYSYM 1722 ...) ; compiling (DEFINE-KEYSYM 1722 ...) ; compiling (DEFINE-KEYSYM 1723 ...) ; compiling (DEFINE-KEYSYM 1724 ...) ; compiling (DEFINE-KEYSYM 1725 ...) ; compiling (DEFINE-KEYSYM 1726 ...) ; compiling (DEFINE-KEYSYM 1727 ...) ; compiling (DEFINE-KEYSYM 1727 ...) ; compiling (DEFINE-KEYSYM 1728 ...) ; compiling (DEFINE-KEYSYM 1729 ...) ; compiling (DEFINE-KEYSYM 1730 ...) ; compiling (DEFINE-KEYSYM 1731 ...) ; compiling (DEFINE-KEYSYM 1732 ...) ; compiling (DEFINE-KEYSYM 1733 ...) ; compiling (DEFINE-KEYSYM 1734 ...) ; compiling (DEFINE-KEYSYM 1735 ...) ; compiling (DEFINE-KEYSYM 1736 ...) ; compiling (DEFINE-KEYSYM 1737 ...) ; compiling (DEFINE-KEYSYM 1738 ...) ; compiling (DEFINE-KEYSYM 1739 ...) ; compiling (DEFINE-KEYSYM 1740 ...) ; compiling (DEFINE-KEYSYM 1741 ...) ; compiling (DEFINE-KEYSYM 1742 ...) ; compiling (DEFINE-KEYSYM 1743 ...) ; compiling (DEFINE-KEYSYM 1744 ...) ; compiling (DEFINE-KEYSYM 1745 ...) ; compiling (DEFINE-KEYSYM 1746 ...) ; compiling (DEFINE-KEYSYM 1747 ...) ; compiling (DEFINE-KEYSYM 1748 ...) ; compiling (DEFINE-KEYSYM 1749 ...) ; compiling (DEFINE-KEYSYM 1750 ...) ; compiling (DEFINE-KEYSYM 1751 ...) ; compiling (DEFINE-KEYSYM 1752 ...) ; compiling (DEFINE-KEYSYM 1753 ...) ; compiling (DEFINE-KEYSYM 1754 ...) ; compiling (DEFINE-KEYSYM 1755 ...) ; compiling (DEFINE-KEYSYM 1756 ...) ; compiling (DEFINE-KEYSYM 1757 ...) ; compiling (DEFINE-KEYSYM 1758 ...) ; compiling (DEFINE-KEYSYM 1759 ...) ; compiling (DEFINE-KEYSYM 1760 ...) ; compiling (DEFINE-KEYSYM 1761 ...) ; compiling (DEFINE-KEYSYM 1762 ...) ; compiling (DEFINE-KEYSYM 1763 ...) ; compiling (DEFINE-KEYSYM 1764 ...) ; compiling (DEFINE-KEYSYM 1765 ...) ; compiling (DEFINE-KEYSYM 1766 ...) ; compiling (DEFINE-KEYSYM 1767 ...) ; compiling (DEFINE-KEYSYM 1768 ...) ; compiling (DEFINE-KEYSYM 1769 ...) ; compiling (DEFINE-KEYSYM 1770 ...) ; compiling (DEFINE-KEYSYM 1771 ...) ; compiling (DEFINE-KEYSYM 1772 ...) ; compiling (DEFINE-KEYSYM 1773 ...) ; compiling (DEFINE-KEYSYM 1774 ...) ; compiling (DEFINE-KEYSYM 1775 ...) ; compiling (DEFINE-KEYSYM 1776 ...) ; compiling (DEFINE-KEYSYM 1777 ...) ; compiling (DEFINE-KEYSYM 1778 ...) ; compiling (DEFINE-KEYSYM 1779 ...) ; compiling (DEFINE-KEYSYM 1780 ...) ; compiling (DEFINE-KEYSYM 1781 ...) ; compiling (DEFINE-KEYSYM 1782 ...) ; compiling (DEFINE-KEYSYM 1783 ...) ; compiling (DEFINE-KEYSYM 1784 ...) ; compiling (DEFINE-KEYSYM 1785 ...) ; compiling (DEFINE-KEYSYM 1786 ...) ; compiling (DEFINE-KEYSYM 1787 ...) ; compiling (DEFINE-KEYSYM 1788 ...) ; compiling (DEFINE-KEYSYM 1789 ...) ; compiling (DEFINE-KEYSYM 1790 ...) ; compiling (DEFINE-KEYSYM 1791 ...) ; compiling (DEFINE-KEYSYM 1953 ...) ; compiling (DEFINE-KEYSYM 1954 ...) ; compiling (DEFINE-KEYSYM 1955 ...) ; compiling (DEFINE-KEYSYM 1956 ...) ; compiling (DEFINE-KEYSYM 1957 ...) ; compiling (DEFINE-KEYSYM 1957 ...) ; compiling (DEFINE-KEYSYM 1959 ...) ; compiling (DEFINE-KEYSYM 1960 ...) ; compiling (DEFINE-KEYSYM 1961 ...) ; compiling (DEFINE-KEYSYM 1963 ...) ; compiling (DEFINE-KEYSYM 1966 ...) ; compiling (DEFINE-KEYSYM 1967 ...) ; compiling (DEFINE-KEYSYM 1969 ...) ; compiling (DEFINE-KEYSYM 1970 ...) ; compiling (DEFINE-KEYSYM 1971 ...) ; compiling (DEFINE-KEYSYM 1972 ...) ; compiling (DEFINE-KEYSYM 1973 ...) ; compiling (DEFINE-KEYSYM 1974 ...) ; compiling (DEFINE-KEYSYM 1975 ...) ; compiling (DEFINE-KEYSYM 1976 ...) ; compiling (DEFINE-KEYSYM 1977 ...) ; compiling (DEFINE-KEYSYM 1978 ...) ; compiling (DEFINE-KEYSYM 1979 ...) ; compiling (DEFINE-KEYSYM 1985 ...) ; compiling (DEFINE-KEYSYM 1986 ...) ; compiling (DEFINE-KEYSYM 1987 ...) ; compiling (DEFINE-KEYSYM 1988 ...) ; compiling (DEFINE-KEYSYM 1989 ...) ; compiling (DEFINE-KEYSYM 1990 ...) ; compiling (DEFINE-KEYSYM 1991 ...) ; compiling (DEFINE-KEYSYM 1992 ...) ; compiling (DEFINE-KEYSYM 1993 ...) ; compiling (DEFINE-KEYSYM 1994 ...) ; compiling (DEFINE-KEYSYM 1995 ...) ; compiling (DEFINE-KEYSYM 1995 ...) ; compiling (DEFINE-KEYSYM 1996 ...) ; compiling (DEFINE-KEYSYM 1997 ...) ; compiling (DEFINE-KEYSYM 1998 ...) ; compiling (DEFINE-KEYSYM 1999 ...) ; compiling (DEFINE-KEYSYM 2000 ...) ; compiling (DEFINE-KEYSYM 2001 ...) ; compiling (DEFINE-KEYSYM 2002 ...) ; compiling (DEFINE-KEYSYM 2004 ...) ; compiling (DEFINE-KEYSYM 2005 ...) ; compiling (DEFINE-KEYSYM 2006 ...) ; compiling (DEFINE-KEYSYM 2007 ...) ; compiling (DEFINE-KEYSYM 2008 ...) ; compiling (DEFINE-KEYSYM 2009 ...) ; compiling (DEFINE-KEYSYM 2017 ...) ; compiling (DEFINE-KEYSYM 2018 ...) ; compiling (DEFINE-KEYSYM 2019 ...) ; compiling (DEFINE-KEYSYM 2020 ...) ; compiling (DEFINE-KEYSYM 2021 ...) ; compiling (DEFINE-KEYSYM 2022 ...) ; compiling (DEFINE-KEYSYM 2023 ...) ; compiling (DEFINE-KEYSYM 2024 ...) ; compiling (DEFINE-KEYSYM 2025 ...) ; compiling (DEFINE-KEYSYM 2026 ...) ; compiling (DEFINE-KEYSYM 2027 ...) ; compiling (DEFINE-KEYSYM 2027 ...) ; compiling (DEFINE-KEYSYM 2028 ...) ; compiling (DEFINE-KEYSYM 2029 ...) ; compiling (DEFINE-KEYSYM 2030 ...) ; compiling (DEFINE-KEYSYM 2031 ...) ; compiling (DEFINE-KEYSYM 2032 ...) ; compiling (DEFINE-KEYSYM 2033 ...) ; compiling (DEFINE-KEYSYM 2034 ...) ; compiling (DEFINE-KEYSYM 2035 ...) ; compiling (DEFINE-KEYSYM 2036 ...) ; compiling (DEFINE-KEYSYM 2037 ...) ; compiling (DEFINE-KEYSYM 2038 ...) ; compiling (DEFINE-KEYSYM 2039 ...) ; compiling (DEFINE-KEYSYM 2040 ...) ; compiling (DEFINE-KEYSYM 2041 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 2209 ...) ; compiling (DEFINE-KEYSYM 2210 ...) ; compiling (DEFINE-KEYSYM 2211 ...) ; compiling (DEFINE-KEYSYM 2212 ...) ; compiling (DEFINE-KEYSYM 2213 ...) ; compiling (DEFINE-KEYSYM 2214 ...) ; compiling (DEFINE-KEYSYM 2215 ...) ; compiling (DEFINE-KEYSYM 2216 ...) ; compiling (DEFINE-KEYSYM 2217 ...) ; compiling (DEFINE-KEYSYM 2218 ...) ; compiling (DEFINE-KEYSYM 2219 ...) ; compiling (DEFINE-KEYSYM 2220 ...) ; compiling (DEFINE-KEYSYM 2221 ...) ; compiling (DEFINE-KEYSYM 2222 ...) ; compiling (DEFINE-KEYSYM 2223 ...) ; compiling (DEFINE-KEYSYM 2224 ...) ; compiling (DEFINE-KEYSYM 2225 ...) ; compiling (DEFINE-KEYSYM 2226 ...) ; compiling (DEFINE-KEYSYM 2227 ...) ; compiling (DEFINE-KEYSYM 2228 ...) ; compiling (DEFINE-KEYSYM 2229 ...) ; compiling (DEFINE-KEYSYM 2230 ...) ; compiling (DEFINE-KEYSYM 2231 ...) ; compiling (DEFINE-KEYSYM 2236 ...) ; compiling (DEFINE-KEYSYM 2237 ...) ; compiling (DEFINE-KEYSYM 2238 ...) ; compiling (DEFINE-KEYSYM 2239 ...) ; compiling (DEFINE-KEYSYM 2240 ...) ; compiling (DEFINE-KEYSYM 2241 ...) ; compiling (DEFINE-KEYSYM 2242 ...) ; compiling (DEFINE-KEYSYM 2245 ...) ; compiling (DEFINE-KEYSYM 2248 ...) ; compiling (DEFINE-KEYSYM 2249 ...) ; compiling (DEFINE-KEYSYM 2253 ...) ; compiling (DEFINE-KEYSYM 2254 ...) ; compiling (DEFINE-KEYSYM 2255 ...) ; compiling (DEFINE-KEYSYM 2262 ...) ; compiling (DEFINE-KEYSYM 2266 ...) ; compiling (DEFINE-KEYSYM 2267 ...) ; compiling (DEFINE-KEYSYM 2268 ...) ; compiling (DEFINE-KEYSYM 2269 ...) ; compiling (DEFINE-KEYSYM 2270 ...) ; compiling (DEFINE-KEYSYM 2271 ...) ; compiling (DEFINE-KEYSYM 2287 ...) ; compiling (DEFINE-KEYSYM 2294 ...) ; compiling (DEFINE-KEYSYM 2299 ...) ; compiling (DEFINE-KEYSYM 2300 ...) ; compiling (DEFINE-KEYSYM 2301 ...) ; compiling (DEFINE-KEYSYM 2302 ...) ; compiling (DEFINE-KEYSYM 2527 ...) ; compiling (DEFINE-KEYSYM 2528 ...) ; compiling (DEFINE-KEYSYM 2529 ...) ; compiling (DEFINE-KEYSYM 2530 ...) ; compiling (DEFINE-KEYSYM 2531 ...) ; compiling (DEFINE-KEYSYM 2532 ...) ; compiling (DEFINE-KEYSYM 2533 ...) ; compiling (DEFINE-KEYSYM 2536 ...) ; compiling (DEFINE-KEYSYM 2537 ...) ; compiling (DEFINE-KEYSYM 2538 ...) ; compiling (DEFINE-KEYSYM 2539 ...) ; compiling (DEFINE-KEYSYM 2540 ...) ; compiling (DEFINE-KEYSYM 2541 ...) ; compiling (DEFINE-KEYSYM 2542 ...) ; compiling (DEFINE-KEYSYM 2543 ...) ; compiling (DEFINE-KEYSYM 2544 ...) ; compiling (DEFINE-KEYSYM 2545 ...) ; compiling (DEFINE-KEYSYM 2546 ...) ; compiling (DEFINE-KEYSYM 2547 ...) ; compiling (DEFINE-KEYSYM 2548 ...) ; compiling (DEFINE-KEYSYM 2549 ...) ; compiling (DEFINE-KEYSYM 2550 ...) ; compiling (DEFINE-KEYSYM 2551 ...) ; compiling (DEFINE-KEYSYM 2552 ...) ; compiling (DEFINE-KEYSYM 2721 ...) ; compiling (DEFINE-KEYSYM 2722 ...) ; compiling (DEFINE-KEYSYM 2723 ...) ; compiling (DEFINE-KEYSYM 2724 ...) ; compiling (DEFINE-KEYSYM 2725 ...) ; compiling (DEFINE-KEYSYM 2726 ...) ; compiling (DEFINE-KEYSYM 2727 ...) ; compiling (DEFINE-KEYSYM 2728 ...) ; compiling (DEFINE-KEYSYM 2729 ...) ; compiling (DEFINE-KEYSYM 2730 ...) ; compiling (DEFINE-KEYSYM 2732 ...) ; compiling (DEFINE-KEYSYM 2734 ...) ; compiling (DEFINE-KEYSYM 2735 ...) ; compiling (DEFINE-KEYSYM 2736 ...) ; compiling (DEFINE-KEYSYM 2737 ...) ; compiling (DEFINE-KEYSYM 2738 ...) ; compiling (DEFINE-KEYSYM 2739 ...) ; compiling (DEFINE-KEYSYM 2740 ...) ; compiling (DEFINE-KEYSYM 2741 ...) ; compiling (DEFINE-KEYSYM 2742 ...) ; compiling (DEFINE-KEYSYM 2743 ...) ; compiling (DEFINE-KEYSYM 2744 ...) ; compiling (DEFINE-KEYSYM 2747 ...) ; compiling (DEFINE-KEYSYM 2748 ...) ; compiling (DEFINE-KEYSYM 2749 ...) ; compiling (DEFINE-KEYSYM 2750 ...) ; compiling (DEFINE-KEYSYM 2751 ...) ; compiling (DEFINE-KEYSYM 2755 ...) ; compiling (DEFINE-KEYSYM 2756 ...) ; compiling (DEFINE-KEYSYM 2757 ...) ; compiling (DEFINE-KEYSYM 2758 ...) ; compiling (DEFINE-KEYSYM 2761 ...) ; compiling (DEFINE-KEYSYM 2762 ...) ; compiling (DEFINE-KEYSYM 2763 ...) ; compiling (DEFINE-KEYSYM 2764 ...) ; compiling (DEFINE-KEYSYM 2765 ...) ; compiling (DEFINE-KEYSYM 2766 ...) ; compiling (DEFINE-KEYSYM 2767 ...) ; compiling (DEFINE-KEYSYM 2768 ...) ; compiling (DEFINE-KEYSYM 2769 ...) ; compiling (DEFINE-KEYSYM 2770 ...) ; compiling (DEFINE-KEYSYM 2771 ...) ; compiling (DEFINE-KEYSYM 2772 ...) ; compiling (DEFINE-KEYSYM 2774 ...) ; compiling (DEFINE-KEYSYM 2775 ...) ; compiling (DEFINE-KEYSYM 2777 ...) ; compiling (DEFINE-KEYSYM 2778 ...) ; compiling (DEFINE-KEYSYM 2779 ...) ; compiling (DEFINE-KEYSYM 2780 ...) ; compiling (DEFINE-KEYSYM 2781 ...) ; compiling (DEFINE-KEYSYM 2782 ...) ; compiling (DEFINE-KEYSYM 2783 ...) ; compiling (DEFINE-KEYSYM 2784 ...) ; compiling (DEFINE-KEYSYM 2785 ...) ; compiling (DEFINE-KEYSYM 2786 ...) ; compiling (DEFINE-KEYSYM 2787 ...) ; compiling (DEFINE-KEYSYM 2788 ...) ; compiling (DEFINE-KEYSYM 2789 ...) ; compiling (DEFINE-KEYSYM 2790 ...) ; compiling (DEFINE-KEYSYM 2791 ...) ; compiling (DEFINE-KEYSYM 2792 ...) ; compiling (DEFINE-KEYSYM 2793 ...) ; compiling (DEFINE-KEYSYM 2794 ...) ; compiling (DEFINE-KEYSYM 2795 ...) ; compiling (DEFINE-KEYSYM 2796 ...) ; compiling (DEFINE-KEYSYM 2797 ...) ; compiling (DEFINE-KEYSYM 2798 ...) ; compiling (DEFINE-KEYSYM 2800 ...) ; compiling (DEFINE-KEYSYM 2801 ...) ; compiling (DEFINE-KEYSYM 2802 ...) ; compiling (DEFINE-KEYSYM 2803 ...) ; compiling (DEFINE-KEYSYM 2804 ...) ; compiling (DEFINE-KEYSYM 2805 ...) ; compiling (DEFINE-KEYSYM 2806 ...) ; compiling (DEFINE-KEYSYM 2807 ...) ; compiling (DEFINE-KEYSYM 2808 ...) ; compiling (DEFINE-KEYSYM 2809 ...) ; compiling (DEFINE-KEYSYM 2810 ...) ; compiling (DEFINE-KEYSYM 2811 ...) ; compiling (DEFINE-KEYSYM 2812 ...) ; compiling (DEFINE-KEYSYM 2813 ...) ; compiling (DEFINE-KEYSYM 2814 ...) ; compiling (DEFINE-KEYSYM 2815 ...) ; compiling (DEFINE-KEYSYM 2979 ...) ; compiling (DEFINE-KEYSYM 2982 ...) ; compiling (DEFINE-KEYSYM 2984 ...) ; compiling (DEFINE-KEYSYM 2985 ...) ; compiling (DEFINE-KEYSYM 3008 ...) ; compiling (DEFINE-KEYSYM 3010 ...) ; compiling (DEFINE-KEYSYM 3011 ...) ; compiling (DEFINE-KEYSYM 3012 ...) ; compiling (DEFINE-KEYSYM 3014 ...) ; compiling (DEFINE-KEYSYM 3018 ...) ; compiling (DEFINE-KEYSYM 3020 ...) ; compiling (DEFINE-KEYSYM 3022 ...) ; compiling (DEFINE-KEYSYM 3023 ...) ; compiling (DEFINE-KEYSYM 3027 ...) ; compiling (DEFINE-KEYSYM 3030 ...) ; compiling (DEFINE-KEYSYM 3032 ...) ; compiling (DEFINE-KEYSYM 3034 ...) ; compiling (DEFINE-KEYSYM 3036 ...) ; compiling (DEFINE-KEYSYM 3068 ...) ; compiling (DEFINE-KEYSYM 3295 ...) ; compiling (DEFINE-KEYSYM 3296 ...) ; compiling (DEFINE-KEYSYM 3297 ...) ; compiling (DEFINE-KEYSYM 3297 ...) ; compiling (DEFINE-KEYSYM 3298 ...) ; compiling (DEFINE-KEYSYM 3298 ...) ; compiling (DEFINE-KEYSYM 3299 ...) ; compiling (DEFINE-KEYSYM 3299 ...) ; compiling (DEFINE-KEYSYM 3300 ...) ; compiling (DEFINE-KEYSYM 3301 ...) ; compiling (DEFINE-KEYSYM 3302 ...) ; compiling (DEFINE-KEYSYM 3302 ...) ; compiling (DEFINE-KEYSYM 3303 ...) ; compiling (DEFINE-KEYSYM 3303 ...) ; compiling (DEFINE-KEYSYM 3304 ...) ; compiling (DEFINE-KEYSYM 3304 ...) ; compiling (DEFINE-KEYSYM 3305 ...) ; compiling (DEFINE-KEYSYM 3306 ...) ; compiling (DEFINE-KEYSYM 3307 ...) ; compiling (DEFINE-KEYSYM 3308 ...) ; compiling (DEFINE-KEYSYM 3309 ...) ; compiling (DEFINE-KEYSYM 3310 ...) ; compiling (DEFINE-KEYSYM 3311 ...) ; compiling (DEFINE-KEYSYM 3312 ...) ; compiling (DEFINE-KEYSYM 3313 ...) ; compiling (DEFINE-KEYSYM 3313 ...) ; compiling (DEFINE-KEYSYM 3314 ...) ; compiling (DEFINE-KEYSYM 3315 ...) ; compiling (DEFINE-KEYSYM 3316 ...) ; compiling (DEFINE-KEYSYM 3317 ...) ; compiling (DEFINE-KEYSYM 3317 ...) ; compiling (DEFINE-KEYSYM 3318 ...) ; compiling (DEFINE-KEYSYM 3318 ...) ; compiling (DEFINE-KEYSYM 3319 ...) ; compiling (DEFINE-KEYSYM 3319 ...) ; compiling (DEFINE-KEYSYM 3320 ...) ; compiling (DEFINE-KEYSYM 3321 ...) ; compiling (DEFINE-KEYSYM 3322 ...) ; compiling (DEFINE-KEYSYM 3322 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 3489 ...) ; compiling (DEFINE-KEYSYM 3490 ...) ; compiling (DEFINE-KEYSYM 3491 ...) ; compiling (DEFINE-KEYSYM 3492 ...) ; compiling (DEFINE-KEYSYM 3493 ...) ; compiling (DEFINE-KEYSYM 3494 ...) ; compiling (DEFINE-KEYSYM 3495 ...) ; compiling (DEFINE-KEYSYM 3496 ...) ; compiling (DEFINE-KEYSYM 3497 ...) ; compiling (DEFINE-KEYSYM 3498 ...) ; compiling (DEFINE-KEYSYM 3499 ...) ; compiling (DEFINE-KEYSYM 3500 ...) ; compiling (DEFINE-KEYSYM 3501 ...) ; compiling (DEFINE-KEYSYM 3502 ...) ; compiling (DEFINE-KEYSYM 3503 ...) ; compiling (DEFINE-KEYSYM 3504 ...) ; compiling (DEFINE-KEYSYM 3505 ...) ; compiling (DEFINE-KEYSYM 3506 ...) ; compiling (DEFINE-KEYSYM 3507 ...) ; compiling (DEFINE-KEYSYM 3508 ...) ; compiling (DEFINE-KEYSYM 3509 ...) ; compiling (DEFINE-KEYSYM 3510 ...) ; compiling (DEFINE-KEYSYM 3511 ...) ; compiling (DEFINE-KEYSYM 3512 ...) ; compiling (DEFINE-KEYSYM 3513 ...) ; compiling (DEFINE-KEYSYM 3514 ...) ; compiling (DEFINE-KEYSYM 3515 ...) ; compiling (DEFINE-KEYSYM 3516 ...) ; compiling (DEFINE-KEYSYM 3517 ...) ; compiling (DEFINE-KEYSYM 3518 ...) ; compiling (DEFINE-KEYSYM 3519 ...) ; compiling (DEFINE-KEYSYM 3520 ...) ; compiling (DEFINE-KEYSYM 3521 ...) ; compiling (DEFINE-KEYSYM 3522 ...) ; compiling (DEFINE-KEYSYM 3523 ...) ; compiling (DEFINE-KEYSYM 3524 ...) ; compiling (DEFINE-KEYSYM 3525 ...) ; compiling (DEFINE-KEYSYM 3526 ...) ; compiling (DEFINE-KEYSYM 3527 ...) ; compiling (DEFINE-KEYSYM 3528 ...) ; compiling (DEFINE-KEYSYM 3529 ...) ; compiling (DEFINE-KEYSYM 3530 ...) ; compiling (DEFINE-KEYSYM 3531 ...) ; compiling (DEFINE-KEYSYM 3532 ...) ; compiling (DEFINE-KEYSYM 3533 ...) ; compiling (DEFINE-KEYSYM 3534 ...) ; compiling (DEFINE-KEYSYM 3535 ...) ; compiling (DEFINE-KEYSYM 3536 ...) ; compiling (DEFINE-KEYSYM 3537 ...) ; compiling (DEFINE-KEYSYM 3538 ...) ; compiling (DEFINE-KEYSYM 3539 ...) ; compiling (DEFINE-KEYSYM 3540 ...) ; compiling (DEFINE-KEYSYM 3541 ...) ; compiling (DEFINE-KEYSYM 3542 ...) ; compiling (DEFINE-KEYSYM 3543 ...) ; compiling (DEFINE-KEYSYM 3544 ...) ; compiling (DEFINE-KEYSYM 3545 ...) ; compiling (DEFINE-KEYSYM 3546 ...) ; compiling (DEFINE-KEYSYM 3550 ...) ; compiling (DEFINE-KEYSYM 3551 ...) ; compiling (DEFINE-KEYSYM 3552 ...) ; compiling (DEFINE-KEYSYM 3553 ...) ; compiling (DEFINE-KEYSYM 3554 ...) ; compiling (DEFINE-KEYSYM 3555 ...) ; compiling (DEFINE-KEYSYM 3556 ...) ; compiling (DEFINE-KEYSYM 3557 ...) ; compiling (DEFINE-KEYSYM 3558 ...) ; compiling (DEFINE-KEYSYM 3559 ...) ; compiling (DEFINE-KEYSYM 3560 ...) ; compiling (DEFINE-KEYSYM 3561 ...) ; compiling (DEFINE-KEYSYM 3562 ...) ; compiling (DEFINE-KEYSYM 3563 ...) ; compiling (DEFINE-KEYSYM 3564 ...) ; compiling (DEFINE-KEYSYM 3565 ...) ; compiling (DEFINE-KEYSYM 3568 ...) ; compiling (DEFINE-KEYSYM 3569 ...) ; compiling (DEFINE-KEYSYM 3570 ...) ; compiling (DEFINE-KEYSYM 3571 ...) ; compiling (DEFINE-KEYSYM 3572 ...) ; compiling (DEFINE-KEYSYM 3573 ...) ; compiling (DEFINE-KEYSYM 3574 ...) ; compiling (DEFINE-KEYSYM 3575 ...) ; compiling (DEFINE-KEYSYM 3576 ...) ; compiling (DEFINE-KEYSYM 3577 ...) ; compiling (DEFINE-KEYSYM 65329 ...) ; compiling (DEFINE-KEYSYM 65330 ...) ; compiling (DEFINE-KEYSYM 65331 ...) ; compiling (DEFINE-KEYSYM 65332 ...) ; compiling (DEFINE-KEYSYM 65333 ...) ; compiling (DEFINE-KEYSYM 65334 ...) ; compiling (DEFINE-KEYSYM 65335 ...) ; compiling (DEFINE-KEYSYM 65336 ...) ; compiling (DEFINE-KEYSYM 65337 ...) ; compiling (DEFINE-KEYSYM 65338 ...) ; compiling (DEFINE-KEYSYM 65339 ...) ; compiling (DEFINE-KEYSYM 65340 ...) ; compiling (DEFINE-KEYSYM 65341 ...) ; compiling (DEFINE-KEYSYM 65342 ...) ; compiling (DEFINE-KEYSYM 65343 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 3745 ...) ; compiling (DEFINE-KEYSYM 3746 ...) ; compiling (DEFINE-KEYSYM 3747 ...) ; compiling (DEFINE-KEYSYM 3748 ...) ; compiling (DEFINE-KEYSYM 3749 ...) ; compiling (DEFINE-KEYSYM 3750 ...) ; compiling (DEFINE-KEYSYM 3751 ...) ; compiling (DEFINE-KEYSYM 3752 ...) ; compiling (DEFINE-KEYSYM 3753 ...) ; compiling (DEFINE-KEYSYM 3754 ...) ; compiling (DEFINE-KEYSYM 3755 ...) ; compiling (DEFINE-KEYSYM 3756 ...) ; compiling (DEFINE-KEYSYM 3757 ...) ; compiling (DEFINE-KEYSYM 3758 ...) ; compiling (DEFINE-KEYSYM 3759 ...) ; compiling (DEFINE-KEYSYM 3760 ...) ; compiling (DEFINE-KEYSYM 3761 ...) ; compiling (DEFINE-KEYSYM 3762 ...) ; compiling (DEFINE-KEYSYM 3763 ...) ; compiling (DEFINE-KEYSYM 3764 ...) ; compiling (DEFINE-KEYSYM 3765 ...) ; compiling (DEFINE-KEYSYM 3766 ...) ; compiling (DEFINE-KEYSYM 3767 ...) ; compiling (DEFINE-KEYSYM 3768 ...) ; compiling (DEFINE-KEYSYM 3769 ...) ; compiling (DEFINE-KEYSYM 3770 ...) ; compiling (DEFINE-KEYSYM 3771 ...) ; compiling (DEFINE-KEYSYM 3772 ...) ; compiling (DEFINE-KEYSYM 3773 ...) ; compiling (DEFINE-KEYSYM 3774 ...) ; compiling (DEFINE-KEYSYM 3775 ...) ; compiling (DEFINE-KEYSYM 3776 ...) ; compiling (DEFINE-KEYSYM 3777 ...) ; compiling (DEFINE-KEYSYM 3778 ...) ; compiling (DEFINE-KEYSYM 3779 ...) ; compiling (DEFINE-KEYSYM 3780 ...) ; compiling (DEFINE-KEYSYM 3781 ...) ; compiling (DEFINE-KEYSYM 3782 ...) ; compiling (DEFINE-KEYSYM 3783 ...) ; compiling (DEFINE-KEYSYM 3784 ...) ; compiling (DEFINE-KEYSYM 3785 ...) ; compiling (DEFINE-KEYSYM 3786 ...) ; compiling (DEFINE-KEYSYM 3787 ...) ; compiling (DEFINE-KEYSYM 3788 ...) ; compiling (DEFINE-KEYSYM 3789 ...) ; compiling (DEFINE-KEYSYM 3790 ...) ; compiling (DEFINE-KEYSYM 3791 ...) ; compiling (DEFINE-KEYSYM 3792 ...) ; compiling (DEFINE-KEYSYM 3793 ...) ; compiling (DEFINE-KEYSYM 3794 ...) ; compiling (DEFINE-KEYSYM 3795 ...) ; compiling (DEFINE-KEYSYM 3796 ...) ; compiling (DEFINE-KEYSYM 3797 ...) ; compiling (DEFINE-KEYSYM 3798 ...) ; compiling (DEFINE-KEYSYM 3799 ...) ; compiling (DEFINE-KEYSYM 3800 ...) ; compiling (DEFINE-KEYSYM 3801 ...) ; compiling (DEFINE-KEYSYM 3802 ...) ; compiling (DEFINE-KEYSYM 3803 ...) ; compiling (DEFINE-KEYSYM 3804 ...) ; compiling (DEFINE-KEYSYM 3805 ...) ; compiling (DEFINE-KEYSYM 3806 ...) ; compiling (DEFINE-KEYSYM 3807 ...) ; compiling (DEFINE-KEYSYM 3808 ...) ; compiling (DEFINE-KEYSYM 3809 ...) ; compiling (DEFINE-KEYSYM 3810 ...) ; compiling (DEFINE-KEYSYM 3811 ...) ; compiling (DEFINE-KEYSYM 3812 ...) ; compiling (DEFINE-KEYSYM 3813 ...) ; compiling (DEFINE-KEYSYM 3814 ...) ; compiling (DEFINE-KEYSYM 3815 ...) ; compiling (DEFINE-KEYSYM 3816 ...) ; compiling (DEFINE-KEYSYM 3817 ...) ; compiling (DEFINE-KEYSYM 3818 ...) ; compiling (DEFINE-KEYSYM 3819 ...) ; compiling (DEFINE-KEYSYM 3820 ...) ; compiling (DEFINE-KEYSYM 3821 ...) ; compiling (DEFINE-KEYSYM 3822 ...) ; compiling (DEFINE-KEYSYM 3823 ...) ; compiling (DEFINE-KEYSYM 3824 ...) ; compiling (DEFINE-KEYSYM 3825 ...) ; compiling (DEFINE-KEYSYM 3826 ...) ; compiling (DEFINE-KEYSYM 3827 ...) ; compiling (DEFINE-KEYSYM 3828 ...) ; compiling (DEFINE-KEYSYM 3829 ...) ; compiling (DEFINE-KEYSYM 3830 ...) ; compiling (DEFINE-KEYSYM 3831 ...) ; compiling (DEFINE-KEYSYM 3832 ...) ; compiling (DEFINE-KEYSYM 3833 ...) ; compiling (DEFINE-KEYSYM 3834 ...) ; compiling (DEFINE-KEYSYM 3839 ...) ; compiling (DEFINE-KEYSYM 16778631 ...) ; compiling (DEFINE-KEYSYM 16778633 ...) ; compiling (DEFINE-KEYSYM 16778633 ...) ; compiling (DEFINE-KEYSYM 16778589 ...) ; compiling (DEFINE-KEYSYM 16778589 ...) ; compiling (DEFINE-KEYSYM 16778634 ...) ; compiling (DEFINE-KEYSYM 16778634 ...) ; compiling (DEFINE-KEYSYM 16778588 ...) ; compiling (DEFINE-KEYSYM 16778588 ...) ; compiling (DEFINE-KEYSYM 16778587 ...) ; compiling (DEFINE-KEYSYM 16778587 ...) ; compiling (DEFINE-KEYSYM 16778590 ...) ; compiling (DEFINE-KEYSYM 16778590 ...) ; compiling (DEFINE-KEYSYM 16778545 ...) ; compiling (DEFINE-KEYSYM 16778593 ...) ; compiling (DEFINE-KEYSYM 16778546 ...) ; compiling (DEFINE-KEYSYM 16778594 ...) ; compiling (DEFINE-KEYSYM 16778547 ...) ; compiling (DEFINE-KEYSYM 16778595 ...) ; compiling (DEFINE-KEYSYM 16778548 ...) ; compiling (DEFINE-KEYSYM 16778596 ...) ; compiling (DEFINE-KEYSYM 16778549 ...) ; compiling (DEFINE-KEYSYM 16778597 ...) ; compiling (DEFINE-KEYSYM 16778550 ...) ; compiling (DEFINE-KEYSYM 16778598 ...) ; compiling (DEFINE-KEYSYM 16778551 ...) ; compiling (DEFINE-KEYSYM 16778599 ...) ; compiling (DEFINE-KEYSYM 16778552 ...) ; compiling (DEFINE-KEYSYM 16778600 ...) ; compiling (DEFINE-KEYSYM 16778553 ...) ; compiling (DEFINE-KEYSYM 16778601 ...) ; compiling (DEFINE-KEYSYM 16778554 ...) ; compiling (DEFINE-KEYSYM 16778602 ...) ; compiling (DEFINE-KEYSYM 16778555 ...) ; compiling (DEFINE-KEYSYM 16778603 ...) ; compiling (DEFINE-KEYSYM 16778556 ...) ; compiling (DEFINE-KEYSYM 16778604 ...) ; compiling (DEFINE-KEYSYM 16778557 ...) ; compiling (DEFINE-KEYSYM 16778605 ...) ; compiling (DEFINE-KEYSYM 16778558 ...) ; compiling (DEFINE-KEYSYM 16778606 ...) ; compiling (DEFINE-KEYSYM 16778559 ...) ; compiling (DEFINE-KEYSYM 16778607 ...) ; compiling (DEFINE-KEYSYM 16778560 ...) ; compiling (DEFINE-KEYSYM 16778608 ...) ; compiling (DEFINE-KEYSYM 16778561 ...) ; compiling (DEFINE-KEYSYM 16778609 ...) ; compiling (DEFINE-KEYSYM 16778562 ...) ; compiling (DEFINE-KEYSYM 16778610 ...) ; compiling (DEFINE-KEYSYM 16778563 ...) ; compiling (DEFINE-KEYSYM 16778611 ...) ; compiling (DEFINE-KEYSYM 16778564 ...) ; compiling (DEFINE-KEYSYM 16778612 ...) ; compiling (DEFINE-KEYSYM 16778565 ...) ; compiling (DEFINE-KEYSYM 16778613 ...) ; compiling (DEFINE-KEYSYM 16778566 ...) ; compiling (DEFINE-KEYSYM 16778614 ...) ; compiling (DEFINE-KEYSYM 16778567 ...) ; compiling (DEFINE-KEYSYM 16778615 ...) ; compiling (DEFINE-KEYSYM 16778568 ...) ; compiling (DEFINE-KEYSYM 16778616 ...) ; compiling (DEFINE-KEYSYM 16778569 ...) ; compiling (DEFINE-KEYSYM 16778617 ...) ; compiling (DEFINE-KEYSYM 16778570 ...) ; compiling (DEFINE-KEYSYM 16778618 ...) ; compiling (DEFINE-KEYSYM 16778571 ...) ; compiling (DEFINE-KEYSYM 16778619 ...) ; compiling (DEFINE-KEYSYM 16778572 ...) ; compiling (DEFINE-KEYSYM 16778620 ...) ; compiling (DEFINE-KEYSYM 16778573 ...) ; compiling (DEFINE-KEYSYM 16778621 ...) ; compiling (DEFINE-KEYSYM 16778574 ...) ; compiling (DEFINE-KEYSYM 16778622 ...) ; compiling (DEFINE-KEYSYM 16778575 ...) ; compiling (DEFINE-KEYSYM 16778623 ...) ; compiling (DEFINE-KEYSYM 16778576 ...) ; compiling (DEFINE-KEYSYM 16778624 ...) ; compiling (DEFINE-KEYSYM 16778577 ...) ; compiling (DEFINE-KEYSYM 16778625 ...) ; compiling (DEFINE-KEYSYM 16778578 ...) ; compiling (DEFINE-KEYSYM 16778626 ...) ; compiling (DEFINE-KEYSYM 16778579 ...) ; compiling (DEFINE-KEYSYM 16778627 ...) ; compiling (DEFINE-KEYSYM 16778580 ...) ; compiling (DEFINE-KEYSYM 16778628 ...) ; compiling (DEFINE-KEYSYM 16778581 ...) ; compiling (DEFINE-KEYSYM 16778629 ...) ; compiling (DEFINE-KEYSYM 16778582 ...) ; compiling (DEFINE-KEYSYM 16778630 ...) ; compiling (DEFINE-KEYSYM 16778586 ...) ; compiling (DEFINE-KEYSYM 16781520 ...) ; compiling (DEFINE-KEYSYM 16781521 ...) ; compiling (DEFINE-KEYSYM 16781522 ...) ; compiling (DEFINE-KEYSYM 16781523 ...) ; compiling (DEFINE-KEYSYM 16781524 ...) ; compiling (DEFINE-KEYSYM 16781525 ...) ; compiling (DEFINE-KEYSYM 16781526 ...) ; compiling (DEFINE-KEYSYM 16781527 ...) ; compiling (DEFINE-KEYSYM 16781528 ...) ; compiling (DEFINE-KEYSYM 16781529 ...) ; compiling (DEFINE-KEYSYM 16781530 ...) ; compiling (DEFINE-KEYSYM 16781531 ...) ; compiling (DEFINE-KEYSYM 16781532 ...) ; compiling (DEFINE-KEYSYM 16781533 ...) ; compiling (DEFINE-KEYSYM 16781534 ...) ; compiling (DEFINE-KEYSYM 16781535 ...) ; compiling (DEFINE-KEYSYM 16781536 ...) ; compiling (DEFINE-KEYSYM 16781537 ...) ; compiling (DEFINE-KEYSYM 16781538 ...) ; compiling (DEFINE-KEYSYM 16781539 ...) ; compiling (DEFINE-KEYSYM 16781540 ...) ; compiling (DEFINE-KEYSYM 16781541 ...) ; compiling (DEFINE-KEYSYM 16781542 ...) ; compiling (DEFINE-KEYSYM 16781543 ...) ; compiling (DEFINE-KEYSYM 16781544 ...) ; compiling (DEFINE-KEYSYM 16781545 ...) ; compiling (DEFINE-KEYSYM 16781546 ...) ; compiling (DEFINE-KEYSYM 16781547 ...) ; compiling (DEFINE-KEYSYM 16781548 ...) ; compiling (DEFINE-KEYSYM 16781549 ...) ; compiling (DEFINE-KEYSYM 16781550 ...) ; compiling (DEFINE-KEYSYM 16781551 ...) ; compiling (DEFINE-KEYSYM 16781552 ...) ; compiling (DEFINE-KEYSYM 16781553 ...) ; compiling (DEFINE-KEYSYM 16781554 ...) ; compiling (DEFINE-KEYSYM 16781555 ...) ; compiling (DEFINE-KEYSYM 16781556 ...) ; compiling (DEFINE-KEYSYM 16781557 ...) ; compiling (DEFINE-KEYSYM 16781558 ...) ; compiling (DEFINE-KEYSYM 16785034 ...) ; compiling (DEFINE-KEYSYM 16777516 ...) ; compiling (DEFINE-KEYSYM 16777653 ...) ; compiling (DEFINE-KEYSYM 16777702 ...) ; compiling (DEFINE-KEYSYM 16777681 ...) ; compiling (DEFINE-KEYSYM 16777631 ...) ; compiling (DEFINE-KEYSYM 16785035 ...) ; compiling (DEFINE-KEYSYM 16777517 ...) ; compiling (DEFINE-KEYSYM 16777654 ...) ; compiling (DEFINE-KEYSYM 16777703 ...) ; compiling (DEFINE-KEYSYM 16777682 ...) ; compiling (DEFINE-KEYSYM 16777845 ...) ; compiling (DEFINE-KEYSYM 16777615 ...) ; compiling (DEFINE-KEYSYM 16777817 ...) ; compiling (DEFINE-KEYSYM 16784950 ...) ; compiling (DEFINE-KEYSYM 16784951 ...) ; compiling (DEFINE-KEYSYM 16785056 ...) ; compiling (DEFINE-KEYSYM 16785057 ...) ; compiling (DEFINE-KEYSYM 16785058 ...) ; compiling (DEFINE-KEYSYM 16785059 ...) ; compiling (DEFINE-KEYSYM 16785060 ...) ; compiling (DEFINE-KEYSYM 16785061 ...) ; compiling (DEFINE-KEYSYM 16785062 ...) ; compiling (DEFINE-KEYSYM 16785063 ...) ; compiling (DEFINE-KEYSYM 16785064 ...) ; compiling (DEFINE-KEYSYM 16785065 ...) ; compiling (DEFINE-KEYSYM 16785066 ...) ; compiling (DEFINE-KEYSYM 16785067 ...) ; compiling (DEFINE-KEYSYM 16785068 ...) ; compiling (DEFINE-KEYSYM 16785069 ...) ; compiling (DEFINE-KEYSYM 16785070 ...) ; compiling (DEFINE-KEYSYM 16785071 ...) ; compiling (DEFINE-KEYSYM 16785072 ...) ; compiling (DEFINE-KEYSYM 16785073 ...) ; compiling (DEFINE-KEYSYM 16785074 ...) ; compiling (DEFINE-KEYSYM 16785075 ...) ; compiling (DEFINE-KEYSYM 16785076 ...) ; compiling (DEFINE-KEYSYM 16785077 ...) ; compiling (DEFINE-KEYSYM 16785078 ...) ; compiling (DEFINE-KEYSYM 16785079 ...) ; compiling (DEFINE-KEYSYM 16785080 ...) ; compiling (DEFINE-KEYSYM 16785081 ...) ; compiling (DEFINE-KEYSYM 16785082 ...) ; compiling (DEFINE-KEYSYM 16785083 ...) ; compiling (DEFINE-KEYSYM 16785084 ...) ; compiling (DEFINE-KEYSYM 16785085 ...) ; compiling (DEFINE-KEYSYM 16785086 ...) ; compiling (DEFINE-KEYSYM 16785087 ...) ; compiling (DEFINE-KEYSYM 16785088 ...) ; compiling (DEFINE-KEYSYM 16785089 ...) ; compiling (DEFINE-KEYSYM 16785090 ...) ; compiling (DEFINE-KEYSYM 16785091 ...) ; compiling (DEFINE-KEYSYM 16785092 ...) ; compiling (DEFINE-KEYSYM 16785093 ...) ; compiling (DEFINE-KEYSYM 16785094 ...) ; compiling (DEFINE-KEYSYM 16785095 ...) ; compiling (DEFINE-KEYSYM 16785096 ...) ; compiling (DEFINE-KEYSYM 16785097 ...) ; compiling (DEFINE-KEYSYM 16785098 ...) ; compiling (DEFINE-KEYSYM 16785099 ...) ; compiling (DEFINE-KEYSYM 16785100 ...) ; compiling (DEFINE-KEYSYM 16785101 ...) ; compiling (DEFINE-KEYSYM 16785102 ...) ; compiling (DEFINE-KEYSYM 16785103 ...) ; compiling (DEFINE-KEYSYM 16785104 ...) ; compiling (DEFINE-KEYSYM 16785105 ...) ; compiling (DEFINE-KEYSYM 16785106 ...) ; compiling (DEFINE-KEYSYM 16785107 ...) ; compiling (DEFINE-KEYSYM 16785108 ...) ; compiling (DEFINE-KEYSYM 16785109 ...) ; compiling (DEFINE-KEYSYM 16785110 ...) ; compiling (DEFINE-KEYSYM 16785111 ...) ; compiling (DEFINE-KEYSYM 16785112 ...) ; compiling (DEFINE-KEYSYM 16785113 ...) ; compiling (DEFINE-KEYSYM 16785114 ...) ; compiling (DEFINE-KEYSYM 16785115 ...) ; compiling (DEFINE-KEYSYM 16785116 ...) ; compiling (DEFINE-KEYSYM 16785117 ...) ; compiling (DEFINE-KEYSYM 16785118 ...) ; compiling (DEFINE-KEYSYM 16785119 ...) ; compiling (DEFINE-KEYSYM 16785120 ...) ; compiling (DEFINE-KEYSYM 16785121 ...) ; compiling (DEFINE-KEYSYM 16785122 ...) ; compiling (DEFINE-KEYSYM 16785123 ...) ; compiling (DEFINE-KEYSYM 16785124 ...) ; compiling (DEFINE-KEYSYM 16785125 ...) ; compiling (DEFINE-KEYSYM 16785126 ...) ; compiling (DEFINE-KEYSYM 16785127 ...) ; compiling (DEFINE-KEYSYM 16785128 ...) ; compiling (DEFINE-KEYSYM 16785129 ...) ; compiling (DEFINE-KEYSYM 16785130 ...) ; compiling (DEFINE-KEYSYM 16785131 ...) ; compiling (DEFINE-KEYSYM 16785132 ...) ; compiling (DEFINE-KEYSYM 16785133 ...) ; compiling (DEFINE-KEYSYM 16785134 ...) ; compiling (DEFINE-KEYSYM 16785135 ...) ; compiling (DEFINE-KEYSYM 16785136 ...) ; compiling (DEFINE-KEYSYM 16785137 ...) ; compiling (DEFINE-KEYSYM 16785140 ...) ; compiling (DEFINE-KEYSYM 16785141 ...) ; compiling (DEFINE-KEYSYM 16785142 ...) ; compiling (DEFINE-KEYSYM 16785143 ...) ; compiling (DEFINE-KEYSYM 16785144 ...) ; compiling (DEFINE-KEYSYM 16785145 ...) ; compiling (DEFINE-KEYSYM 16777632 ...) ; compiling (DEFINE-KEYSYM 16777633 ...) ; compiling (DEFINE-KEYSYM 16777647 ...) ; compiling (DEFINE-KEYSYM 16777648 ...) ; compiling (DEFINE-KEYSYM 16785568 ...) ; compiling (DEFINE-KEYSYM 16785569 ...) ; compiling (DEFINE-KEYSYM 16785570 ...) ; compiling (DEFINE-KEYSYM 16785571 ...) ; compiling (DEFINE-KEYSYM 16785572 ...) ; compiling (DEFINE-KEYSYM 16785573 ...) ; compiling (DEFINE-KEYSYM 16785574 ...) ; compiling (DEFINE-KEYSYM 16785575 ...) ; compiling (DEFINE-KEYSYM 16785576 ...) ; compiling (DEFINE-KEYSYM 16785577 ...) ; compiling (DEFINE-KEYSYM 16785578 ...) ; compiling (DEFINE-KEYSYM 16785579 ...) ; compiling (DEFINE-KEYSYM 8364 ...) ; compiling (DEFINE-KEYSYM 16785520 ...) ; compiling (DEFINE-KEYSYM 16785524 ...) ; compiling (DEFINE-KEYSYM 16785525 ...) ; compiling (DEFINE-KEYSYM 16785526 ...) ; compiling (DEFINE-KEYSYM 16785527 ...) ; compiling (DEFINE-KEYSYM 16785528 ...) ; compiling (DEFINE-KEYSYM 16785529 ...) ; compiling (DEFINE-KEYSYM 16785536 ...) ; compiling (DEFINE-KEYSYM 16785537 ...) ; compiling (DEFINE-KEYSYM 16785538 ...) ; compiling (DEFINE-KEYSYM 16785539 ...) ; compiling (DEFINE-KEYSYM 16785540 ...) ; compiling (DEFINE-KEYSYM 16785541 ...) ; compiling (DEFINE-KEYSYM 16785542 ...) ; compiling (DEFINE-KEYSYM 16785543 ...) ; compiling (DEFINE-KEYSYM 16785544 ...) ; compiling (DEFINE-KEYSYM 16785545 ...) ; compiling (DEFINE-KEYSYM 16785922 ...) ; compiling (DEFINE-KEYSYM 16785925 ...) ; compiling (DEFINE-KEYSYM 16785928 ...) ; compiling (DEFINE-KEYSYM 16785929 ...) ; compiling (DEFINE-KEYSYM 16785931 ...) ; compiling (DEFINE-KEYSYM 16785946 ...) ; compiling (DEFINE-KEYSYM 16785947 ...) ; compiling (DEFINE-KEYSYM 16785948 ...) ; compiling (DEFINE-KEYSYM 16785964 ...) ; compiling (DEFINE-KEYSYM 16785965 ...) ; compiling (DEFINE-KEYSYM 16785973 ...) ; compiling (DEFINE-KEYSYM 16785992 ...) ; compiling (DEFINE-KEYSYM 16785991 ...) ; compiling (DEFINE-KEYSYM 16786018 ...) ; compiling (DEFINE-KEYSYM 16786019 ...) ; compiling (DEFINE-KEYSYM 268435624 ...) ; compiling (DEFINE-KEYSYM 268435625 ...) ; compiling (DEFINE-KEYSYM 268435626 ...) ; compiling (DEFINE-KEYSYM 268435627 ...) ; compiling (DEFINE-KEYSYM 268435628 ...) ; compiling (DEFINE-KEYSYM 268435631 ...) ; compiling (DEFINE-KEYSYM 268435646 ...) ; compiling (DEFINE-KEYSYM 268435694 ...) ; compiling (DEFINE-KEYSYM 268435694 ...) ; compiling (DEFINE-KEYSYM 268435702 ...) ; compiling (DEFINE-KEYSYM 268435708 ...) ; compiling (DEFINE-KEYSYM 268500736 ...) ; compiling (DEFINE-KEYSYM 268500737 ...) ; compiling (DEFINE-KEYSYM 268500738 ...) ; compiling (DEFINE-KEYSYM 268500739 ...) ; compiling (DEFINE-KEYSYM 268500740 ...) ; compiling (DEFINE-KEYSYM 268500741 ...) ; compiling (DEFINE-KEYSYM 268500742 ...) ; compiling (DEFINE-KEYSYM 268500743 ...) ; compiling (DEFINE-KEYSYM 268500744 ...) ; compiling (DEFINE-KEYSYM 268500745 ...) ; compiling (DEFINE-KEYSYM 268500746 ...) ; compiling (DEFINE-KEYSYM 268500747 ...) ; compiling (DEFINE-KEYSYM 268500748 ...) ; compiling (DEFINE-KEYSYM 268500749 ...) ; compiling (DEFINE-KEYSYM 268500750 ...) ; compiling (DEFINE-KEYSYM 268500751 ...) ; compiling (DEFINE-KEYSYM 268500752 ...) ; compiling (DEFINE-KEYSYM 268500753 ...) ; compiling (DEFINE-KEYSYM 268500754 ...) ; compiling (DEFINE-KEYSYM 268500755 ...) ; compiling (DEFINE-KEYSYM 268500756 ...) ; compiling (DEFINE-KEYSYM 268500808 ...) ; compiling (DEFINE-KEYSYM 268500809 ...) ; compiling (DEFINE-KEYSYM 268500844 ...) ; compiling (DEFINE-KEYSYM 268500845 ...) ; compiling (DEFINE-KEYSYM 268500846 ...) ; compiling (DEFINE-KEYSYM 268500847 ...) ; compiling (DEFINE-KEYSYM 268500848 ...) ; compiling (DEFINE-KEYSYM 268500849 ...) ; compiling (DEFINE-KEYSYM 268500850 ...) ; compiling (DEFINE-KEYSYM 268500851 ...) ; compiling (DEFINE-KEYSYM 268500852 ...) ; compiling (DEFINE-KEYSYM 268500853 ...) ; compiling (DEFINE-KEYSYM 268500904 ...) ; compiling (DEFINE-KEYSYM 268500905 ...) ; compiling (DEFINE-KEYSYM 268451841 ...) ; compiling (DEFINE-KEYSYM 268451842 ...) ; compiling (DEFINE-KEYSYM 268451843 ...) ; compiling (DEFINE-KEYSYM 268451844 ...) ; compiling (DEFINE-KEYSYM 268452097 ...) ; compiling (DEFINE-KEYSYM 268452098 ...) ; compiling (DEFINE-KEYSYM 268452099 ...) ; compiling (DEFINE-KEYSYM 268452100 ...) ; compiling (DEFINE-KEYSYM 268452101 ...) ; compiling (DEFINE-KEYSYM 268452102 ...) ; compiling (DEFINE-KEYSYM 268452103 ...) ; compiling (DEFINE-KEYSYM 268452104 ...) ; compiling (DEFINE-KEYSYM 268452105 ...) ; compiling (DEFINE-KEYSYM 268452106 ...) ; compiling (DEFINE-KEYSYM 268452107 ...) ; compiling (DEFINE-KEYSYM 268452108 ...) ; compiling (DEFINE-KEYSYM 268452109 ...) ; compiling (DEFINE-KEYSYM 268452110 ...) ; compiling (DEFINE-KEYSYM 268452111 ...) ; compiling (DEFINE-KEYSYM 268452353 ...) ; compiling (DEFINE-KEYSYM 268452354 ...) ; compiling (DEFINE-KEYSYM 268452355 ...) ; compiling (DEFINE-KEYSYM 268452356 ...) ; compiling (DEFINE-KEYSYM 268452357 ...) ; compiling (DEFINE-KEYSYM 268452358 ...) ; compiling (DEFINE-KEYSYM 268452359 ...) ; compiling (DEFINE-KEYSYM 268452360 ...) ; compiling (DEFINE-KEYSYM 268452361 ...) ; compiling (DEFINE-KEYSYM 268452362 ...) ; compiling (DEFINE-KEYSYM 268452363 ...) ; compiling (DEFINE-KEYSYM 268452364 ...) ; compiling (DEFINE-KEYSYM 268452365 ...) ; compiling (DEFINE-KEYSYM 268452366 ...) ; compiling (DEFINE-KEYSYM 268452367 ...) ; compiling (DEFINE-KEYSYM 268452368 ...) ; compiling (DEFINE-KEYSYM 268500736 ...) ; compiling (DEFINE-KEYSYM 268500656 ...) ; compiling (DEFINE-KEYSYM 268500574 ...) ; compiling (DEFINE-KEYSYM 268500524 ...) ; compiling (DEFINE-KEYSYM 268500519 ...) ; compiling (DEFINE-KEYSYM 268500576 ...) ; compiling (DEFINE-KEYSYM 268500606 ...) ; compiling (DEFINE-KEYSYM 268500514 ...) ; compiling (DEFINE-KEYSYM 268762882 ...) ; compiling (DEFINE-KEYSYM 268762883 ...) ; compiling (DEFINE-KEYSYM 268762884 ...) ; compiling (DEFINE-KEYSYM 268762887 ...) ; compiling (DEFINE-KEYSYM 268762888 ...) ; compiling (DEFINE-KEYSYM 268762891 ...) ; compiling (DEFINE-KEYSYM 268762907 ...) ; compiling (DEFINE-KEYSYM 268762929 ...) ; compiling (DEFINE-KEYSYM 268762930 ...) ; compiling (DEFINE-KEYSYM 268762931 ...) ; compiling (DEFINE-KEYSYM 268762944 ...) ; compiling (DEFINE-KEYSYM 268762945 ...) ; compiling (DEFINE-KEYSYM 268762946 ...) ; compiling (DEFINE-KEYSYM 268762947 ...) ; compiling (DEFINE-KEYSYM 268762948 ...) ; compiling (DEFINE-KEYSYM 268762949 ...) ; compiling (DEFINE-KEYSYM 268762961 ...) ; compiling (DEFINE-KEYSYM 268762962 ...) ; compiling (DEFINE-KEYSYM 268762963 ...) ; compiling (DEFINE-KEYSYM 268762964 ...) ; compiling (DEFINE-KEYSYM 268762965 ...) ; compiling (DEFINE-KEYSYM 268762966 ...) ; compiling (DEFINE-KEYSYM 268762967 ...) ; compiling (DEFINE-KEYSYM 268762968 ...) ; compiling (DEFINE-KEYSYM 268762969 ...) ; compiling (DEFINE-KEYSYM 268762970 ...) ; compiling (DEFINE-KEYSYM 268762971 ...) ; compiling (DEFINE-KEYSYM 268762972 ...) ; compiling (DEFINE-KEYSYM 268762973 ...) ; compiling (DEFINE-KEYSYM 268762974 ...) ; compiling (DEFINE-KEYSYM 268762976 ...) ; compiling (DEFINE-KEYSYM 268762979 ...) ; compiling (DEFINE-KEYSYM 268762981 ...) ; compiling (DEFINE-KEYSYM 268762983 ...) ; compiling (DEFINE-KEYSYM 268762985 ...) ; compiling (DEFINE-KEYSYM 268762986 ...) ; compiling (DEFINE-KEYSYM 268762993 ...) ; compiling (DEFINE-KEYSYM 268762994 ...) ; compiling (DEFINE-KEYSYM 268762995 ...) ; compiling (DEFINE-KEYSYM 268762996 ...) ; compiling (DEFINE-KEYSYM 268763000 ...) ; compiling (DEFINE-KEYSYM 268763006 ...) ; compiling (DEFINE-KEYSYM 268763125 ...) ; compiling (DEFINE-KEYSYM 268763126 ...) ; compiling (DEFINE-KEYSYM 268763127 ...) ; compiling (DEFINE-KEYSYM 268763128 ...) ; compiling (DEFINE-KEYSYM 268763135 ...) ; compiling (DEFINE-KEYSYM 268828416 ...) ; compiling (DEFINE-KEYSYM 268828417 ...) ; compiling (DEFINE-KEYSYM 268828418 ...) ; compiling (DEFINE-KEYSYM 268828419 ...) ; compiling (DEFINE-KEYSYM 268828420 ...) ; compiling (DEFINE-KEYSYM 268828421 ...) ; compiling (DEFINE-KEYSYM 268828432 ...) ; compiling (DEFINE-KEYSYM 268828433 ...) ; compiling (DEFINE-KEYSYM 268828512 ...) ; compiling (DEFINE-KEYSYM 268828528 ...) ; compiling (DEFINE-KEYSYM 268828529 ...) ; compiling (DEFINE-KEYSYM 268828530 ...) ; compiling (DEFINE-KEYSYM 268828531 ...) ; compiling (DEFINE-KEYSYM 268828532 ...) ; compiling (DEFINE-KEYSYM 268828533 ...) ; compiling (DEFINE-KEYSYM 268828534 ...) ; compiling (DEFINE-KEYSYM 268828535 ...) ; compiling (DEFINE-KEYSYM 268828536 ...) ; compiling (DEFINE-KEYSYM 268828537 ...) ; compiling (DEFINE-KEYSYM 268828538 ...) ; compiling (DEFINE-KEYSYM 268828539 ...) ; compiling (DEFINE-KEYSYM 268828540 ...) ; compiling (DEFINE-KEYSYM 268828541 ...) ; compiling (DEFINE-KEYSYM 65312 ...) ; compiling (DEFINE-KEYSYM 65365 ...) ; compiling (DEFINE-KEYSYM 65366 ...) ; compiling (DEFINE-KEYSYM 65377 ...) ; compiling (DEFINE-KEYSYM 65381 ...) ; compiling (DEFINE-KEYSYM 65382 ...) ; compiling (DEFINE-KEYSYM 65384 ...) ; compiling (DEFINE-KEYSYM 65385 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 268893952 ...) ; compiling (DEFINE-KEYSYM 268893952 ...) ; compiling (DEFINE-KEYSYM 268894209 ...) ; compiling (DEFINE-KEYSYM 268894210 ...) ; compiling (DEFINE-KEYSYM 268894211 ...) ; compiling (DEFINE-KEYSYM 268894212 ...) ; compiling (DEFINE-KEYSYM 268894213 ...) ; compiling (DEFINE-KEYSYM 269025025 ...) ; compiling (DEFINE-KEYSYM 269025026 ...) ; compiling (DEFINE-KEYSYM 269025027 ...) ; compiling (DEFINE-KEYSYM 269025028 ...) ; compiling (DEFINE-KEYSYM 269025029 ...) ; compiling (DEFINE-KEYSYM 269025030 ...) ; compiling (DEFINE-KEYSYM 269025040 ...) ; compiling (DEFINE-KEYSYM 269025041 ...) ; compiling (DEFINE-KEYSYM 269025042 ...) ; compiling (DEFINE-KEYSYM 269025043 ...) ; compiling (DEFINE-KEYSYM 269025044 ...) ; compiling (DEFINE-KEYSYM 269025045 ...) ; compiling (DEFINE-KEYSYM 269025046 ...) ; compiling (DEFINE-KEYSYM 269025047 ...) ; compiling (DEFINE-KEYSYM 269025048 ...) ; compiling (DEFINE-KEYSYM 269025049 ...) ; compiling (DEFINE-KEYSYM 269025050 ...) ; compiling (DEFINE-KEYSYM 269025051 ...) ; compiling (DEFINE-KEYSYM 269025052 ...) ; compiling (DEFINE-KEYSYM 269025053 ...) ; compiling (DEFINE-KEYSYM 269025054 ...) ; compiling (DEFINE-KEYSYM 269025055 ...) ; compiling (DEFINE-KEYSYM 269025056 ...) ; compiling (DEFINE-KEYSYM 269025057 ...) ; compiling (DEFINE-KEYSYM 269025058 ...) ; compiling (DEFINE-KEYSYM 269025059 ...) ; compiling (DEFINE-KEYSYM 269025060 ...) ; compiling (DEFINE-KEYSYM 269025061 ...) ; compiling (DEFINE-KEYSYM 269025062 ...) ; compiling (DEFINE-KEYSYM 269025063 ...) ; compiling (DEFINE-KEYSYM 269025064 ...) ; compiling (DEFINE-KEYSYM 269025065 ...) ; compiling (DEFINE-KEYSYM 269025066 ...) ; compiling (DEFINE-KEYSYM 269025067 ...) ; compiling (DEFINE-KEYSYM 269025068 ...) ; compiling (DEFINE-KEYSYM 269025069 ...) ; compiling (DEFINE-KEYSYM 269025070 ...) ; compiling (DEFINE-KEYSYM 269025071 ...) ; compiling (DEFINE-KEYSYM 269025072 ...) ; compiling (DEFINE-KEYSYM 269025073 ...) ; compiling (DEFINE-KEYSYM 269025074 ...) ; compiling (DEFINE-KEYSYM 269025075 ...) ; compiling (DEFINE-KEYSYM 269025076 ...) ; compiling (DEFINE-KEYSYM 269025077 ...) ; compiling (DEFINE-KEYSYM 269025078 ...) ; compiling (DEFINE-KEYSYM 269025079 ...) ; compiling (DEFINE-KEYSYM 269025080 ...) ; compiling (DEFINE-KEYSYM 269025081 ...) ; compiling (DEFINE-KEYSYM 269025082 ...) ; compiling (DEFINE-KEYSYM 269025083 ...) ; compiling (DEFINE-KEYSYM 269025084 ...) ; compiling (DEFINE-KEYSYM 269025085 ...) ; compiling (DEFINE-KEYSYM 269025086 ...) ; compiling (DEFINE-KEYSYM 269025087 ...) ; compiling (DEFINE-KEYSYM 269025088 ...) ; compiling (DEFINE-KEYSYM 269025089 ...) ; compiling (DEFINE-KEYSYM 269025090 ...) ; compiling (DEFINE-KEYSYM 269025091 ...) ; compiling (DEFINE-KEYSYM 269025092 ...) ; compiling (DEFINE-KEYSYM 269025093 ...) ; compiling (DEFINE-KEYSYM 269025094 ...) ; compiling (DEFINE-KEYSYM 269025095 ...) ; compiling (DEFINE-KEYSYM 269025096 ...) ; compiling (DEFINE-KEYSYM 269025097 ...) ; compiling (DEFINE-KEYSYM 269025098 ...) ; compiling (DEFINE-KEYSYM 269025099 ...) ; compiling (DEFINE-KEYSYM 269025100 ...) ; compiling (DEFINE-KEYSYM 269025101 ...) ; compiling (DEFINE-KEYSYM 269025102 ...) ; compiling (DEFINE-KEYSYM 269025103 ...) ; compiling (DEFINE-KEYSYM 269025104 ...) ; compiling (DEFINE-KEYSYM 269025105 ...) ; compiling (DEFINE-KEYSYM 269025106 ...) ; compiling (DEFINE-KEYSYM 269025107 ...) ; compiling (DEFINE-KEYSYM 269025108 ...) ; compiling (DEFINE-KEYSYM 269025109 ...) ; compiling (DEFINE-KEYSYM 269025110 ...) ; compiling (DEFINE-KEYSYM 269025111 ...) ; compiling (DEFINE-KEYSYM 269025112 ...) ; compiling (DEFINE-KEYSYM 269025113 ...) ; compiling (DEFINE-KEYSYM 269025114 ...) ; compiling (DEFINE-KEYSYM 269025115 ...) ; compiling (DEFINE-KEYSYM 269025116 ...) ; compiling (DEFINE-KEYSYM 269025117 ...) ; compiling (DEFINE-KEYSYM 269025118 ...) ; compiling (DEFINE-KEYSYM 269025119 ...) ; compiling (DEFINE-KEYSYM 269025120 ...) ; compiling (DEFINE-KEYSYM 269025121 ...) ; compiling (DEFINE-KEYSYM 269025122 ...) ; compiling (DEFINE-KEYSYM 269025123 ...) ; compiling (DEFINE-KEYSYM 269025125 ...) ; compiling (DEFINE-KEYSYM 269025126 ...) ; compiling (DEFINE-KEYSYM 269025127 ...) ; compiling (DEFINE-KEYSYM 269025128 ...) ; compiling (DEFINE-KEYSYM 269025129 ...) ; compiling (DEFINE-KEYSYM 269025130 ...) ; compiling (DEFINE-KEYSYM 269025131 ...) ; compiling (DEFINE-KEYSYM 269025132 ...) ; compiling (DEFINE-KEYSYM 269025133 ...) ; compiling (DEFINE-KEYSYM 269025134 ...) ; compiling (DEFINE-KEYSYM 269025136 ...) ; compiling (DEFINE-KEYSYM 269025138 ...) ; compiling (DEFINE-KEYSYM 269025139 ...) ; compiling (DEFINE-KEYSYM 269025140 ...) ; compiling (DEFINE-KEYSYM 269025141 ...) ; compiling (DEFINE-KEYSYM 269025142 ...) ; compiling (DEFINE-KEYSYM 269025143 ...) ; compiling (DEFINE-KEYSYM 269025144 ...) ; compiling (DEFINE-KEYSYM 269025145 ...) ; compiling (DEFINE-KEYSYM 269025146 ...) ; compiling (DEFINE-KEYSYM 269025147 ...) ; compiling (DEFINE-KEYSYM 269025148 ...) ; compiling (DEFINE-KEYSYM 269025149 ...) ; compiling (DEFINE-KEYSYM 269025150 ...) ; compiling (DEFINE-KEYSYM 269025151 ...) ; compiling (DEFINE-KEYSYM 269025152 ...) ; compiling (DEFINE-KEYSYM 269025153 ...) ; compiling (DEFINE-KEYSYM 269025154 ...) ; compiling (DEFINE-KEYSYM 269025156 ...) ; compiling (DEFINE-KEYSYM 269025157 ...) ; compiling (DEFINE-KEYSYM 269025158 ...) ; compiling (DEFINE-KEYSYM 269025159 ...) ; compiling (DEFINE-KEYSYM 269025160 ...) ; compiling (DEFINE-KEYSYM 269025161 ...) ; compiling (DEFINE-KEYSYM 269025162 ...) ; compiling (DEFINE-KEYSYM 269025163 ...) ; compiling (DEFINE-KEYSYM 269025164 ...) ; compiling (DEFINE-KEYSYM 269025165 ...) ; compiling (DEFINE-KEYSYM 269025166 ...) ; compiling (DEFINE-KEYSYM 269025167 ...) ; compiling (DEFINE-KEYSYM 269025168 ...) ; compiling (DEFINE-KEYSYM 269025169 ...) ; compiling (DEFINE-KEYSYM 269025170 ...) ; compiling (DEFINE-KEYSYM 269025171 ...) ; compiling (DEFINE-KEYSYM 269025172 ...) ; compiling (DEFINE-KEYSYM 269025173 ...) ; compiling (DEFINE-KEYSYM 269025174 ...) ; compiling (DEFINE-KEYSYM 269025175 ...) ; compiling (DEFINE-KEYSYM 269025176 ...) ; compiling (DEFINE-KEYSYM 269025177 ...) ; compiling (DEFINE-KEYSYM 269025178 ...) ; compiling (DEFINE-KEYSYM 269025179 ...) ; compiling (DEFINE-KEYSYM 269025180 ...) ; compiling (DEFINE-KEYSYM 269025181 ...) ; compiling (DEFINE-KEYSYM 269025182 ...) ; compiling (DEFINE-KEYSYM 269025183 ...) ; compiling (DEFINE-KEYSYM 269025184 ...) ; compiling (DEFINE-KEYSYM 269025185 ...) ; compiling (DEFINE-KEYSYM 269025186 ...) ; compiling (DEFINE-KEYSYM 269025187 ...) ; compiling (DEFINE-KEYSYM 269025188 ...) ; compiling (DEFINE-KEYSYM 269025189 ...) ; compiling (DEFINE-KEYSYM 269025190 ...) ; compiling (DEFINE-KEYSYM 269025191 ...) ; compiling (DEFINE-KEYSYM 269025192 ...) ; compiling (DEFINE-KEYSYM 269025193 ...) ; compiling (DEFINE-KEYSYM 269025200 ...) ; compiling (DEFINE-KEYSYM 269025201 ...) ; compiling (DEFINE-KEYSYM 269025202 ...) ; compiling (DEFINE-KEYSYM 269024769 ...) ; compiling (DEFINE-KEYSYM 269024770 ...) ; compiling (DEFINE-KEYSYM 269024771 ...) ; compiling (DEFINE-KEYSYM 269024772 ...) ; compiling (DEFINE-KEYSYM 269024773 ...) ; compiling (DEFINE-KEYSYM 269024774 ...) ; compiling (DEFINE-KEYSYM 269024775 ...) ; compiling (DEFINE-KEYSYM 269024776 ...) ; compiling (DEFINE-KEYSYM 269024777 ...) ; compiling (DEFINE-KEYSYM 269024778 ...) ; compiling (DEFINE-KEYSYM 269024779 ...) ; compiling (DEFINE-KEYSYM 269024780 ...) ; compiling (DEFINE-KEYSYM 269024800 ...) ; compiling (DEFINE-KEYSYM 269024801 ...) ; compiling (DEFINE-KEYSYM 269024802 ...) ; compiling (DEFINE-KEYSYM 269024803 ...) ; compiling (DEFINE-KEYSYM 268435624 ...) ; compiling (DEFINE-KEYSYM 268435625 ...) ; compiling (DEFINE-KEYSYM 268435627 ...) ; compiling (DEFINE-KEYSYM 268435626 ...) ; compiling (DEFINE-KEYSYM 268435628 ...) ; compiling (DEFINE-KEYSYM 268500524 ...) ; compiling (DEFINE-KEYSYM 268500656 ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/keysyms-tmpD68Q8WCA.fasl written ; compilation finished in 0:00:00.189 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/keytrans.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (DEFVAR *STUMPWM-NAME->KEYSYM-NAME-TRANSLATIONS* ...) ; compiling (DEFUN DEFINE-KEYSYM-NAME ...) ; compiling (DEFUN STUMPWM-NAME->KEYSYM-NAME ...) ; compiling (DEFUN KEYSYM-NAME->STUMPWM-NAME ...) ; compiling (DEFUN STUMPWM-NAME->KEYSYM ...) ; compiling (DEFUN KEYSYM->STUMPWM-NAME ...) ; compiling (DEFINE-KEYSYM-NAME "RET" ...) ; compiling (DEFINE-KEYSYM-NAME "ESC" ...) ; compiling (DEFINE-KEYSYM-NAME "TAB" ...) ; compiling (DEFINE-KEYSYM-NAME "DEL" ...) ; compiling (DEFINE-KEYSYM-NAME "SPC" ...) ; compiling (DEFINE-KEYSYM-NAME "!" ...) ; compiling (DEFINE-KEYSYM-NAME "\"" ...) ; compiling (DEFINE-KEYSYM-NAME "$" ...) ; compiling (DEFINE-KEYSYM-NAME "%" ...) ; compiling (DEFINE-KEYSYM-NAME "&" ...) ; compiling (DEFINE-KEYSYM-NAME "'" ...) ; compiling (DEFINE-KEYSYM-NAME "'" ...) ; compiling (DEFINE-KEYSYM-NAME "`" ...) ; compiling (DEFINE-KEYSYM-NAME "`" ...) ; compiling (DEFINE-KEYSYM-NAME "&" ...) ; compiling (DEFINE-KEYSYM-NAME "(" ...) ; compiling (DEFINE-KEYSYM-NAME ")" ...) ; compiling (DEFINE-KEYSYM-NAME "*" ...) ; compiling (DEFINE-KEYSYM-NAME "+" ...) ; compiling (DEFINE-KEYSYM-NAME "," ...) ; compiling (DEFINE-KEYSYM-NAME "-" ...) ; compiling (DEFINE-KEYSYM-NAME "." ...) ; compiling (DEFINE-KEYSYM-NAME "/" ...) ; compiling (DEFINE-KEYSYM-NAME ":" ...) ; compiling (DEFINE-KEYSYM-NAME ";" ...) ; compiling (DEFINE-KEYSYM-NAME "<" ...) ; compiling (DEFINE-KEYSYM-NAME "=" ...) ; compiling (DEFINE-KEYSYM-NAME ">" ...) ; compiling (DEFINE-KEYSYM-NAME "?" ...) ; compiling (DEFINE-KEYSYM-NAME "@" ...) ; compiling (DEFINE-KEYSYM-NAME "[" ...) ; compiling (DEFINE-KEYSYM-NAME "\\" ...) ; compiling (DEFINE-KEYSYM-NAME "]" ...) ; compiling (DEFINE-KEYSYM-NAME "^" ...) ; compiling (DEFINE-KEYSYM-NAME "_" ...) ; compiling (DEFINE-KEYSYM-NAME "#" ...) ; compiling (DEFINE-KEYSYM-NAME "{" ...) ; compiling (DEFINE-KEYSYM-NAME "|" ...) ; compiling (DEFINE-KEYSYM-NAME "}" ...) ; compiling (DEFINE-KEYSYM-NAME "~" ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/keytrans-tmp7MK9KM9C.fasl written ; compilation finished in 0:00:00.014 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/kmap.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *TOP-MAP* ...) ; compiling (DEFVAR *ROOT-MAP* ...) ; compiling (DEFSTRUCT KEY ...) ; compiling (DEFSTRUCT KMAP ...) ; compiling (DEFSTRUCT BINDING ...) ; compiling (DEFUN MAKE-SPARSE-KEYMAP ...) ; compiling (DEFUN LOOKUP-COMMAND ...) ; compiling (DEFUN LOOKUP-KEY ...) ; compiling (DEFUN KEY-MODS-P ...) ; compiling (DEFUN X11-MODS ...) ; compiling (DEFUN REPORT-KBD-PARSE-ERROR ...) ; compiling (DEFINE-CONDITION KBD-PARSE-ERROR ...) ; compiling (DEFUN PARSE-MODS ...) ; compiling (DEFUN PARSE-KEY ...) ; compiling (DEFUN PARSE-KEY-SEQ ...) ; compiling (DEFUN KBD ...) ; compiling (DEFUN COPY-KEY-INTO ...) ; compiling (DEFUN PRINT-MODS ...) ; compiling (DEFUN PRINT-KEY ...) ; compiling (DEFUN PRINT-KEY-SEQ ...) ; compiling (DEFUN DEFINE-KEY ...) ; compiling (DEFUN UNDEFINE-KEY ...) ; compiling (DEFUN LOOKUP-KEY-SEQUENCE ...) ; compiling (DEFUN KMAP-SYMBOL-P ...) ; compiling (DEFUN KMAP-OR-KMAP-SYMBOL-P ...) ; compiling (DEFUN DEREFERENCE-KMAPS ...) ; compiling (DEFUN SEARCH-KMAP ...) ; compiling (DEFVAR *TOP-MAP-LIST* ...) ; compiling (DEFUN PUSH-TOP-MAP ...) ; compiling (DEFUN POP-TOP-MAP ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/kmap-tmpJJ71X849.fasl written ; compilation finished in 0:00:00.169 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/input.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFSTRUCT INPUT-LINE ...) ; compiling (DEFVAR *INPUT-MAP* ...) ; compiling (WHEN (NULL *INPUT-MAP*) ...) ; compiling (DEFVAR *INPUT-HISTORY* ...) ; compiling (DEFVAR *INPUT-LAST-COMMAND* ...) ; compiling (DEFVAR *INPUT-COMPLETIONS* ...) ; compiling (DEFVAR *INPUT-CURRENT-COMPLETIONS* ...) ; compiling (DEFVAR *INPUT-CURRENT-COMPLETIONS-IDX* ...) ; compiling (DEFVAR *INPUT-HISTORY-IGNORE-DUPLICATES* ...) ; compiling (DEFVAR *NUMPAD-MAP* ...) ; compiling (DEFUN IS-MODIFIER ...) ; compiling (DEFUN KEYCODE->CHARACTER ...) ; compiling (DEFUN SETUP-INPUT-WINDOW ...) ; compiling (DEFUN SHUTDOWN-INPUT-WINDOW ...) ; compiling (DEFUN INPUT-HANDLE-KEY-PRESS-EVENT ...) ; compiling (DEFUN INPUT-HANDLE-SELECTION-EVENT ...) ; compiling (DEFUN READ-KEY-HANDLE-EVENT ...) ; compiling (DEFUN READ-KEY-OR-SELECTION-HANDLE-EVENT ...) ; compiling (DEFUN READ-KEY ...) ; compiling (DEFUN READ-KEY-NO-MODIFIERS ...) ; compiling (DEFUN READ-KEY-OR-SELECTION ...) ; compiling (DEFUN MAKE-INPUT-STRING ...) ; compiling (DEFUN COMPLETING-READ ...) ; compiling (DEFUN READ-ONE-LINE ...) ; compiling (DEFUN READ-ONE-CHAR ...) ; compiling (DEFUN DRAW-INPUT-BUCKET ...) ; compiling (DEFUN CODE-STATE->KEY ...) ; compiling (DEFUN INPUT-SUBMIT ...) ; compiling (DEFUN INPUT-ABORT ...) ; compiling (DEFUN INPUT-GOTO-CHAR ...) ; compiling (DEFUN INPUT-INSERT-STRING ...) ; compiling (DEFUN INPUT-POINT ...) ; compiling (DEFUN INPUT-VALIDATE-REGION ...) ; compiling (DEFUN INPUT-DELETE-REGION ...) ; compiling (DEFUN INPUT-INSERT-CHAR ...) ; compiling (DEFUN INPUT-SUBSTRING ...) ; compiling (DEFUN INPUT-FIND-COMPLETIONS ...) ; compiling (DEFUN INPUT-COMPLETE ...) ; compiling (DEFUN INPUT-COMPLETE-FORWARD ...) ; compiling (DEFUN INPUT-COMPLETE-BACKWARD ...) ; compiling (DEFUN INPUT-DELETE-BACKWARD-CHAR ...) ; compiling (DEFUN INPUT-DELETE-FORWARD-CHAR ...) ; compiling (DEFUN INPUT-FORWARD-KILL-WORD ...) ; compiling (DEFUN INPUT-BACKWARD-KILL-WORD ...) ; compiling (DEFUN INPUT-FORWARD-WORD ...) ; compiling (DEFUN INPUT-BACKWARD-WORD ...) ; compiling (DEFUN INPUT-FORWARD-CHAR ...) ; compiling (DEFUN INPUT-BACKWARD-CHAR ...) ; compiling (DEFUN INPUT-MOVE-BEGINNING-OF-LINE ...) ; compiling (DEFUN INPUT-MOVE-END-OF-LINE ...) ; compiling (DEFUN INPUT-KILL-LINE ...) ; compiling (DEFUN INPUT-KILL-TO-BEGINNING ...) ; compiling (DEFUN INPUT-HISTORY-BACK ...) ; compiling (DEFUN INPUT-HISTORY-FORWARD ...) ; compiling (DEFUN INPUT-SELF-INSERT ...) ; compiling (DEFUN INPUT-YANK-SELECTION ...) ; compiling (DEFUN INPUT-YANK-CLIPBOARD ...) ; compiling (DEFUN PROCESS-INPUT ...) ; compiling (DEFUN ALL-MODIFIER-CODES ...) ; compiling (DEFUN GET-MODIFIER-MAP ...) ; compiling (DEFUN UPDATE-MODIFIER-MAP ...) ; compiling (DEFUN MOD->STRING ...) ; compiling (DEFUN Y-OR-N-P ...) ; compiling (DEFUN YES-OR-NO-P ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/input-tmp1VUK6SR2.fasl written ; compilation finished in 0:00:00.293 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/core.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN KEY-TO-KEYCODE+STATE ...) ; compiling (DEFUN SEND-FAKE-KEY ...) ; compiling (DEFUN SEND-FAKE-CLICK ...) ; compiling (DEFUN GRAB-POINTER ...) ; compiling (DEFUN UNGRAB-POINTER ...) ; compiling (DEFUN GRAB-KEYBOARD ...) ; compiling (DEFUN UNGRAB-KEYBOARD ...) ; compiling (DEFUN WARP-POINTER ...) ; compiling (DEFUN WARP-POINTER-RELATIVE ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/core-tmpR2FIHSUG.fasl written ; compilation finished in 0:00:00.011 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/command.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFSTRUCT COMMAND-ALIAS ...) ; compiling (DEFSTRUCT COMMAND ...) ; compiling (DEFVAR *COMMAND-HASH* ...) ; compiling (DEFVAR *MAX-COMMAND-ALIAS-DEPTH* ...) ; compiling (DEFINE-CONDITION COMMAND-DOCSTRING-WARNING ...) ; compiling (DEFMACRO DEFCOMMAND ...) ; compiling (DEFMACRO DEFINE-STUMPWM-COMMAND ...) ; compiling (DEFMACRO DEFCOMMAND-ALIAS ...) ; compiling (DEFUN DEREFERENCE-COMMAND-SYMBOL ...) ; compiling (DEFUN COMMAND-ACTIVE-P ...) ; compiling (DEFUN GET-COMMAND-STRUCTURE ...) ; compiling (DEFUN ALL-COMMANDS ...) ; compiling (DEFSTRUCT ARGUMENT-LINE ...) ; compiling (DEFVAR *COMMAND-TYPE-HASH* ...) ; compiling (DEFUN ARGUMENT-LINE-END-P ...) ; compiling (DEFUN ARGUMENT-POP ...) ; compiling (DEFUN ARGUMENT-POP-OR-READ ...) ; compiling (DEFUN ARGUMENT-POP-REST ...) ; compiling (DEFUN ARGUMENT-POP-REST-OR-READ ...) ; compiling (DEFMACRO DEFINE-STUMPWM-TYPE ...) ; compiling (DEFINE-STUMPWM-TYPE :Y-OR-N ...) ; compiling (DEFUN LOOKUP-SYMBOL ...) ; compiling (DEFINE-STUMPWM-TYPE :VARIABLE ...) ; compiling (DEFINE-STUMPWM-TYPE :FUNCTION ...) ; file: /build/stumpwm-RUwlp7/stumpwm-1.0.0/command.lisp ; in: DEFINE-STUMPWM-TYPE :FUNCTION ; 'ERROR ; ; note: deleting unreachable code ; compiling (DEFINE-STUMPWM-TYPE :COMMAND ...) ; compiling (DEFINE-STUMPWM-TYPE :KEY-SEQ ...) ; compiling (DEFINE-STUMPWM-TYPE :WINDOW-NUMBER ...) ; compiling (DEFINE-STUMPWM-TYPE :NUMBER ...) ; compiling (DEFINE-STUMPWM-TYPE :STRING ...) ; compiling (DEFINE-STUMPWM-TYPE :PASSWORD ...) ; compiling (DEFINE-STUMPWM-TYPE :KEY ...) ; compiling (DEFINE-STUMPWM-TYPE :WINDOW-NAME ...) ; compiling (DEFINE-STUMPWM-TYPE :DIRECTION ...) ; compiling (DEFINE-STUMPWM-TYPE :GRAVITY ...) ; compiling (DEFUN SELECT-GROUP ...) ; compiling (DEFINE-STUMPWM-TYPE :GROUP ...) ; compiling (DEFINE-STUMPWM-TYPE :FRAME ...) ; compiling (DEFINE-STUMPWM-TYPE :SHELL ...) ; compiling (DEFINE-STUMPWM-TYPE :REST ...) ; compiling (DEFUN CALL-INTERACTIVELY ...) ; compiling (DEFUN EVAL-COMMAND ...) ; compiling (DEFUN RUN-COMMANDS ...) ; compiling (DEFCOMMAND COLON ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/command-tmp8PYELRKX.fasl written ; compilation finished in 0:00:00.277 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/menu.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *MENU-MAP* ...) ; compiling (WHEN (NULL *MENU-MAP*) ...) ; compiling (DEFSTRUCT MENU-STATE ...) ; compiling (DEFUN MENU-SCROLLING-REQUIRED ...) ; compiling (DEFUN MENU-HEIGHT ...) ; compiling (DEFUN MENU-PROMPT-VISIBLE ...) ; compiling (DEFUN BOUND-CHECK-MENU ...) ; compiling (DEFUN MENU-UP ...) ; compiling (DEFUN MENU-DOWN ...) ; compiling (DEFUN MENU-SCROLL-UP ...) ; compiling (DEFUN MENU-SCROLL-DOWN ...) ; compiling (DEFUN MENU-PAGE-UP ...) ; compiling (DEFUN MENU-PAGE-DOWN ...) ; compiling (DEFUN MENU-FINISH ...) ; compiling (DEFUN MENU-ABORT ...) ; compiling (DEFUN GET-INPUT-CHAR ...) ; compiling (DEFUN MENU-ELEMENT-NAME ...) ; compiling (DEFUN MENU-BACKSPACE ...) ; compiling (DEFUN CHECK-MENU-COMPLETE ...) ; compiling (DEFUN MENU-ITEM-MATCHES-REGEXP ...) ; file: /build/stumpwm-RUwlp7/stumpwm-1.0.0/menu.lisp ; in: DEFUN MENU-ITEM-MATCHES-REGEXP ; (DEFUN STUMPWM::MENU-ITEM-MATCHES-REGEXP ; (STUMPWM::ITEM-STRING STUMPWM::ITEM-OBJECT STUMPWM::USER-INPUT) ; #<(SIMPLE-ARRAY CHARACTER ; (255)) The default filter predicate for SELECT-FROM-MENU. When using this ; predicate, an item is visible when it matches all of the regular ; expressions in USER-INPUT (multiple regexps are separated by one or ; ... {1004F8DE5F}> ; (STUMPWM::MATCH-ALL-REGEXPS STUMPWM::USER-INPUT STUMPWM::ITEM-STRING)) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA STUMPWM::MENU-ITEM-MATCHES-REGEXP ; (STUMPWM::ITEM-STRING STUMPWM::ITEM-OBJECT STUMPWM::USER-INPUT) ; #<(SIMPLE-ARRAY CHARACTER ; (255)) The default filter predicate for SELECT-FROM-MENU. When using this ; predicate, an item is visible when it matches all of the regular ; expressions in USER-INPUT (multiple regexps are separated by one or ; ... {1004F8DE5F}> ; (BLOCK STUMPWM::MENU-ITEM-MATCHES-REGEXP ; (STUMPWM::MATCH-ALL-REGEXPS STUMPWM::USER-INPUT STUMPWM::ITEM-STRING))) ; ; caught STYLE-WARNING: ; The variable ITEM-OBJECT is defined but never used. ; compiling (DEFUN SELECT-FROM-MENU ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/menu-tmpEHTOKYT0.fasl written ; compilation finished in 0:00:00.104 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/screen.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN TRANSLATE-ID ...) ; compiling (DEFUN SCREEN-X ...) ; compiling (DEFUN SCREEN-Y ...) ; compiling (DEFUN SCREEN-HEIGHT ...) ; compiling (DEFUN SCREEN-WIDTH ...) ; compiling (DEFUN FIND-SCREEN ...) ; compiling (DEFUN SCREEN-WINDOWS ...) ; compiling (DEFUN SCREEN-MESSAGE-WINDOW ...) ; compiling (DEFUN SCREEN-MESSAGE-PIXMAP ...) ; compiling (DEFUN SCREEN-MESSAGE-GC ...) ; compiling (DEFUN SCREEN-FONT ...) ; compiling (DEFUN NETWM-UPDATE-CLIENT-LIST-STACKING ...) ; compiling (DEFUN NETWM-UPDATE-CLIENT-LIST ...) ; compiling (DEFUN SCREEN-ADD-MAPPED-WINDOW ...) ; compiling (DEFUN SCREEN-REMOVE-MAPPED-WINDOW ...) ; compiling (DEFUN SORT-SCREENS ...) ; compiling (DEFUN NEXT-SCREEN ...) ; compiling (DEFUN MOVE-SCREEN-TO-HEAD ...) ; compiling (DEFUN SWITCH-TO-SCREEN ...) ; compiling (DEFUN SCREEN-SET-FOCUS ...) ; compiling (DEFUN SCREEN-CURRENT-WINDOW ...) ; compiling (DEFUN CURRENT-WINDOW ...) ; compiling (DEFUN REGISTER-WINDOW ...) ; compiling (DEFUN UNREGISTER-WINDOW ...) ; compiling (DEFUN WINDOW-BY-ID ...) ; compiling (DEFUN FIND-WINDOW ...) ; compiling (DEFUN FIND-WINDOW-BY-PARENT ...) ; compiling (DEFUN SCREEN-ROOT ...) ; compiling (DEFUN UPDATE-COLORS-FOR-SCREEN ...) ; compiling (DEFUN UPDATE-COLORS-ALL-SCREENS ...) ; compiling (DEFUN UPDATE-BORDER-FOR-SCREEN ...) ; compiling (DEFUN UPDATE-BORDER-ALL-SCREENS ...) ; compiling (DEFUN INTERNAL-WINDOW-P ...) ; compiling (DEFMACRO SET-ANY-COLOR ...) ; compiling (DEFUN SET-FG-COLOR ...) ; compiling (DEFUN SET-BG-COLOR ...) ; compiling (DEFUN SET-BORDER-COLOR ...) ; compiling (DEFUN SET-WIN-BG-COLOR ...) ; compiling (DEFUN SET-FOCUS-COLOR ...) ; compiling (DEFUN SET-UNFOCUS-COLOR ...) ; compiling (DEFUN SET-FLOAT-FOCUS-COLOR ...) ; compiling (DEFUN SET-FLOAT-UNFOCUS-COLOR ...) ; compiling (DEFUN SET-MSG-BORDER-WIDTH ...) ; compiling (DEFUN SET-FRAME-OUTLINE-WIDTH ...) ; compiling (DEFUN SET-FONT ...) ; compiling (DEFMACRO WITH-CURRENT-SCREEN ...) ; compiling (DEFUN CURRENT-SCREEN ...) ; compiling (DEFUN NETWM-SET-PROPERTIES ...) ; compiling (DEFUN INIT-SCREEN ...) ; compiling (DEFCOMMAND SNEXT ...) ; compiling (DEFCOMMAND SPREV ...) ; compiling (DEFCOMMAND SOTHER ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/screen-tmpS6U1VHI9.fasl written ; compilation finished in 0:00:00.126 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/head.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN HEAD-BY-NUMBER ...) ; compiling (DEFUN PARSE-XINERAMA-HEAD ...) ; compiling (DEFUN MAKE-SCREEN-HEADS ...) ; compiling (DEFUN COPY-HEADS ...) ; compiling (DEFUN FRAME-HEAD ...) ; compiling (DEFUN GROUP-HEADS ...) ; compiling (DEFUN RESIZE-HEAD ...) ; compiling (DEFUN CURRENT-HEAD ...) ; compiling (DEFUN HEAD-WINDOWS ...) ; compiling (DEFUN FRAME-IS-HEAD ...) ; compiling (DEFUN ADD-HEAD ...) ; compiling (DEFUN REMOVE-HEAD ...) ; compiling (DEFUN SCALE-HEAD ...) ; compiling (DEFUN SCALE-SCREEN ...) ; compiling (DEFUN HEAD-FORCE-REFRESH ...) ; compiling (DEFCOMMAND REFRESH-HEADS ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/head-tmpVTFK6ZJW.fasl written ; compilation finished in 0:00:00.075 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/group.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *DEFAULT-GROUP-TYPE* ...) ; compiling (DEFCLASS GROUP ...) ; compiling (DEFGENERIC GROUP-STARTUP ...) ; compiling (DEFGENERIC GROUP-ADD-WINDOW ...) ; compiling (DEFGENERIC GROUP-DELETE-WINDOW ...) ; compiling (DEFGENERIC GROUP-WAKE-UP ...) ; compiling (DEFGENERIC GROUP-SUSPEND ...) ; compiling (DEFGENERIC GROUP-CURRENT-WINDOW ...) ; compiling (DEFGENERIC GROUP-CURRENT-HEAD ...) ; compiling (DEFGENERIC GROUP-RESIZE-REQUEST ...) ; compiling (DEFGENERIC GROUP-MOVE-REQUEST ...) ; compiling (DEFGENERIC GROUP-RAISE-REQUEST ...) ; compiling (DEFGENERIC GROUP-LOST-FOCUS ...) ; compiling (DEFGENERIC GROUP-INDICATE-FOCUS ...) ; compiling (DEFGENERIC GROUP-FOCUS-WINDOW ...) ; compiling (DEFGENERIC GROUP-BUTTON-PRESS ...) ; compiling (DEFGENERIC GROUP-ROOT-EXPOSURE ...) ; compiling (DEFGENERIC GROUP-ADD-HEAD ...) ; compiling (DEFGENERIC GROUP-REMOVE-HEAD ...) ; compiling (DEFGENERIC GROUP-RESIZE-HEAD ...) ; compiling (DEFGENERIC GROUP-SYNC-ALL-HEADS ...) ; compiling (DEFGENERIC GROUP-SYNC-HEAD ...) ; compiling (DEFUN CURRENT-GROUP ...) ; compiling (DEFUN MOVE-GROUP-TO-HEAD ...) ; compiling (DEFUN SORT-GROUPS ...) ; compiling (DEFUN GROUP-MAP-NUMBER ...) ; compiling (DEFUN FMT-GROUP-STATUS ...) ; compiling (DEFUN FIND-FREE-GROUP-NUMBER ...) ; compiling (DEFUN FIND-FREE-HIDDEN-GROUP-NUMBER ...) ; compiling (DEFUN NON-HIDDEN-GROUPS ...) ; compiling (DEFUN NETWM-GROUP-ID ...) ; compiling (DEFUN SWITCH-TO-GROUP ...) ; compiling (DEFUN MOVE-WINDOW-TO-GROUP ...) ; compiling (DEFUN NEXT-GROUP ...) ; compiling (DEFUN MERGE-GROUPS ...) ; compiling (DEFUN NETWM-GROUP ...) ; compiling (DEFUN NETWM-SET-GROUP ...) ; compiling (DEFUN NETWM-SET-ALLOWED-ACTIONS ...) ; compiling (DEFUN NETWM-UPDATE-GROUPS ...) ; compiling (DEFUN NETWM-SET-GROUP-PROPERTIES ...) ; compiling (DEFUN KILL-GROUP ...) ; compiling (DEFUN ADD-GROUP ...) ; compiling (DEFUN FIND-GROUP ...) ; compiling (DEFUN GROUP-FORWARD ...) ; compiling (DEFUN GROUP-FORWARD-WITH-WINDOW ...) ; compiling (DEFCOMMAND GNEW ...) ; compiling (DEFCOMMAND GNEWBG ...) ; compiling (DEFCOMMAND GNEXT ...) ; compiling (DEFCOMMAND GPREV ...) ; compiling (DEFCOMMAND GNEXT-WITH-WINDOW ...) ; compiling (DEFCOMMAND GPREV-WITH-WINDOW ...) ; compiling (DEFCOMMAND GOTHER ...) ; compiling (DEFCOMMAND GRENAME ...) ; compiling (DEFUN ECHO-GROUPS ...) ; compiling (DEFCOMMAND GROUPS ...) ; compiling (DEFCOMMAND VGROUPS ...) ; compiling (DEFCOMMAND GSELECT ...) ; compiling (DEFCOMMAND GROUPLIST ...) ; compiling (DEFCOMMAND GMOVE ...) ; compiling (DEFCOMMAND GMOVE-AND-FOLLOW ...) ; compiling (DEFCOMMAND GMOVE-MARKED ...) ; compiling (DEFCOMMAND GKILL ...) ; compiling (DEFCOMMAND GMERGE ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/group-tmp75WVSJEW.fasl written ; compilation finished in 0:00:00.298 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/bindings.lisp" (written 11 OCT 2021 06:39:49 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *ESCAPE-KEY* ...) ; compiling (DEFVAR *ESCAPE-FAKE-KEY* ...) ; compiling (DEFVAR *GROUPS-MAP* ...) ; compiling (DEFVAR *EXCHANGE-WINDOW-MAP* ...) ; compiling (DEFVAR *HELP-MAP* ...) ; compiling (DEFVAR *GROUP-TOP-MAPS* ...) ; compiling (DEFVAR *GROUP-TOP-MAP* ...) ; compiling (DEFVAR *GROUP-ROOT-MAP* ...) ; compiling (DEFVAR *TILE-GROUP-TOP-MAP* ...) ; compiling (DEFVAR *TILE-GROUP-ROOT-MAP* ...) ; compiling (DEFMACRO FILL-KEYMAP ...) ; compiling (FILL-KEYMAP *TOP-MAP* ...) ; compiling (FILL-KEYMAP *ROOT-MAP* ...) ; compiling (FILL-KEYMAP *GROUP-TOP-MAP* ...) ; compiling (FILL-KEYMAP *GROUP-ROOT-MAP* ...) ; compiling (FILL-KEYMAP *TILE-GROUP-TOP-MAP* ...) ; compiling (FILL-KEYMAP *TILE-GROUP-ROOT-MAP* ...) ; compiling (FILL-KEYMAP *GROUPS-MAP* ...) ; compiling (FILL-KEYMAP *EXCHANGE-WINDOW-MAP* ...) ; compiling (FILL-KEYMAP *HELP-MAP* ...) ; compiling (DEFCOMMAND COMMAND-MODE ...) ; compiling (DEFCOMMAND SET-PREFIX-KEY ...) ; compiling (DEFCOMMAND-ALIAS ESCAPE ...) ; compiling (DEFCOMMAND BIND ...) ; compiling (DEFCOMMAND SEND-ESCAPE ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/bindings-tmpBU5UM3S4.fasl written ; compilation finished in 0:00:00.051 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/events.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (DEFPARAMETER *EVENT-FN-TABLE* ...) ; compiling (DEFVAR *CURRENT-EVENT-TIME* ...) ; compiling (DEFMACRO DEFINE-STUMP-EVENT-HANDLER ...) ; compiling (FLET (# # ...) ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :CONFIGURE-REQUEST ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :CONFIGURE-NOTIFY ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :MAP-REQUEST ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :UNMAP-NOTIFY ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :DESTROY-NOTIFY ...) ; compiling (DEFUN READ-FROM-KEYMAP ...) ; compiling (DEFUN HANDLE-KEYMAP ...) ; compiling (DEFUN TOP-MAPS ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :KEY-PRESS ...) ; compiling (DEFUN BYTES-TO-WINDOW ...) ; compiling (DEFUN HANDLE-RP-COMMANDS ...) ; compiling (DEFUN HANDLE-STUMPWM-COMMANDS ...) ; compiling (DEFUN MAYBE-SET-URGENCY ...) ; compiling (DEFUN SAFE-ATOM-NAME ...) ; compiling (DEFUN SAFE-BYTES-TO-ATOMS ...) ; compiling (DEFUN UPDATE-WINDOW-PROPERTIES ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :PROPERTY-NOTIFY ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :MAPPING-NOTIFY ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :SELECTION-REQUEST ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :SELECTION-CLEAR ...) ; compiling (DEFUN FIND-MESSAGE-WINDOW-SCREEN ...) ; compiling (DEFUN DRAW-CROSS ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :EXPOSURE ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :REPARENT-NOTIFY ...) ; compiling (DEFUN ACTIVATE-FULLSCREEN ...) ; compiling (DEFUN DEACTIVATE-FULLSCREEN ...) ; compiling (DEFUN UPDATE-FULLSCREEN ...) ; compiling (DEFUN MAYBE-MAP-WINDOW ...) ; compiling (DEFUN MAYBE-RAISE-WINDOW ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :CLIENT-MESSAGE ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :FOCUS-OUT ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :FOCUS-IN ...) ; compiling (DEFUN FOCUS-ALL ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :ENTER-NOTIFY ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :BUTTON-PRESS ...) ; compiling (DEFUN HANDLE-EVENT ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/events-tmpOBHVA3CD.fasl written ; compilation finished in 0:00:00.254 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/window.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *DEFAULT-WINDOW-NAME* ...) ; compiling (DEFCLASS WINDOW ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFGENERIC UPDATE-DECORATION ...) ; compiling (DEFGENERIC FOCUS-WINDOW ...) ; compiling (DEFGENERIC RAISE-WINDOW ...) ; compiling (DEFGENERIC WINDOW-VISIBLE-P ...) ; compiling (DEFGENERIC WINDOW-SYNC ...) ; compiling (DEFGENERIC WINDOW-HEAD ...) ; compiling (DEFGENERIC REALLY-RAISE-WINDOW ...) ; compiling (DEFUN REGISTER-URGENT-WINDOW ...) ; compiling (DEFUN UNREGISTER-URGENT-WINDOW ...) ; compiling (DEFUN WINDOW-CLEAR-URGENCY ...) ; compiling (DEFUN WINDOW-URGENT-P ...) ; compiling (DEFCOMMAND NEXT-URGENT ...) ; compiling (DEFUN WINDOW-LEADER ...) ; compiling (DEFUN WINDOW-TRANSIENT-FOR ...) ; compiling (DEFUN WINDOW-MODAL-P ...) ; compiling (DEFUN WINDOW-TRANSIENT-P ...) ; compiling (DEFUN WINDOW-GANG ...) ; compiling (DEFUN ONLY-MODALS ...) ; compiling (DEFUN X-OF ...) ; compiling (DEFUN MODALS-OF ...) ; compiling (DEFUN TRANSIENTS-OF ...) ; compiling (DEFUN SHADOWS-OF ...) ; compiling (DEFUN ONLY-TRANSIENTS ...) ; compiling (DEFUN ALL-WINDOWS ...) ; compiling (DEFUN VISIBLE-WINDOWS ...) ; compiling (DEFUN TOP-WINDOWS ...) ; compiling (DEFUN WINDOW-NAME ...) ; compiling (DEFUN WINDOW-ID ...) ; compiling (DEFUN WINDOW-IN-CURRENT-GROUP-P ...) ; compiling (DEFUN WINDOW-SCREEN ...) ; compiling (DEFUN SEND-CLIENT-MESSAGE ...) ; compiling (DEFUN WINDOW-MAP-NUMBER ...) ; compiling (DEFUN FMT-WINDOW-STATUS ...) ; compiling (DEFUN FMT-WINDOW-MARKED ...) ; compiling (DEFUN ESCAPE-CARET ...) ; compiling (DEFUN GET-NORMALIZED-NORMAL-HINTS ...) ; compiling (DEFUN XWIN-NET-WM-NAME ...) ; compiling (DEFUN XWIN-NAME ...) ; compiling (DEFUN UPDATE-CONFIGURATION ...) ; compiling (DEFMETHOD RAISE-WINDOW ...) ; compiling (DEFUN XWIN-BORDER-WIDTH ...) ; compiling (DEFUN (SETF XWIN-BORDER-WIDTH) ...) ; compiling (DEFUN DEFAULT-BORDER-WIDTH-FOR-TYPE ...) ; compiling (DEFUN XWIN-CLASS ...) ; compiling (DEFUN XWIN-RES-NAME ...) ; compiling (DEFUN XWIN-ROLE ...) ; compiling (DEFMACRO DEFINE-WINDOW-SLOT ...) ; compiling (DEFGENERIC SORT-WINDOWS-BY-NUMBER ...) ; compiling (DEFMETHOD SORT-WINDOWS-BY-NUMBER ...) ; compiling (DEFMETHOD SORT-WINDOWS-BY-NUMBER ...) ; compiling (DEFGENERIC SORT-WINDOWS-BY-CLASS ...) ; compiling (DEFMETHOD SORT-WINDOWS-BY-CLASS ...) ; compiling (DEFMETHOD SORT-WINDOWS-BY-CLASS ...) ; compiling (DEFUN SORT-WINDOWS ...) ; compiling (DEFUN MARKED-WINDOWS ...) ; compiling (DEFUN (SETF XWIN-STATE) ...) ; compiling (DEFUN XWIN-STATE ...) ; compiling (DEFUN WINDOW-HIDDEN-P ...) ; compiling (DEFUN ADD-WM-STATE ...) ; compiling (DEFUN REMOVE-WM-STATE ...) ; compiling (DEFUN WINDOW-PROPERTY ...) ; compiling (DEFUN FIND-WM-STATE ...) ; compiling (DEFUN XWIN-UNHIDE ...) ; compiling (DEFUN UNHIDE-WINDOW ...) ; compiling (DEFUN XWIN-HIDE ...) ; compiling (DEFUN HIDE-WINDOW ...) ; compiling (DEFUN WINDOW-MAXSIZE-P ...) ; compiling (DEFUN XWIN-TYPE ...) ; compiling (DEFUN XWIN-STRUT ...) ; compiling (DEFUN XWIN-SEND-CONFIGURATION-NOTIFY ...) ; compiling (DEFUN UPDATE-WINDOW-GRAVITY ...) ; compiling (DEFUN SET-NORMAL-GRAVITY ...) ; compiling (DEFUN SET-MAXSIZE-GRAVITY ...) ; compiling (DEFUN SET-TRANSIENT-GRAVITY ...) ; compiling (DEFUN GRAVITY-FOR-WINDOW ...) ; compiling (DEFUN WINDOW-WIDTH-INC ...) ; compiling (DEFUN WINDOW-HEIGHT-INC ...) ; compiling (DEFUN SET-WINDOW-GEOMETRY ...) ; compiling (DEFUN FIND-FREE-WINDOW-NUMBER ...) ; compiling (DEFUN REPARENT-WINDOW ...) ; compiling (DEFUN PROCESS-EXISTING-WINDOWS ...) ; compiling (DEFUN XWIN-GRAB-KEYS ...) ; compiling (DEFUN GRAB-KEYS-ON-WINDOW ...) ; compiling (DEFUN XWIN-UNGRAB-KEYS ...) ; compiling (DEFUN UNGRAB-KEYS-ON-WINDOW ...) ; compiling (DEFUN XWIN-GRAB-BUTTONS ...) ; compiling (DEFUN XWIN-UNGRAB-BUTTONS ...) ; compiling (DEFUN SYNC-KEYS ...) ; compiling (DEFUN NETWM-REMOVE-WINDOW ...) ; compiling (DEFUN PROCESS-MAPPED-WINDOW ...) ; compiling (DEFUN FIND-WITHDRAWN-WINDOW ...) ; compiling (DEFUN RESTORE-WINDOW ...) ; compiling (DEFUN WITHDRAW-WINDOW ...) ; compiling (DEFUN DESTROY-WINDOW ...) ; compiling (DEFUN MOVE-WINDOW-TO-HEAD ...) ; compiling (DEFUN NO-FOCUS ...) ; compiling (DEFMETHOD FOCUS-WINDOW ...) ; compiling (DEFUN XWIN-KILL ...) ; compiling (DEFUN DEFAULT-WINDOW-MENU-FILTER ...) ; compiling (DEFVAR *WINDOW-MENU-FILTER* ...) ; compiling (DEFUN SELECT-WINDOW-FROM-MENU ...) ; compiling (DEFCOMMAND DELETE-WINDOW ...) ; compiling (DEFCOMMAND-ALIAS DELETE ...) ; compiling (DEFCOMMAND KILL-WINDOW ...) ; compiling (DEFCOMMAND-ALIAS KILL ...) ; compiling (DEFCOMMAND TITLE ...) ; compiling (DEFCOMMAND SELECT-WINDOW ...) ; compiling (DEFCOMMAND-ALIAS SELECT ...) ; compiling (DEFCOMMAND SELECT-WINDOW-BY-NAME ...) ; compiling (DEFCOMMAND SELECT-WINDOW-BY-NUMBER ...) ; compiling (DEFCOMMAND OTHER-WINDOW ...) ; compiling (DEFCOMMAND-ALIAS OTHER ...) ; compiling (DEFCOMMAND RENUMBER ...) ; compiling (DEFCOMMAND-ALIAS NUMBER ...) ; compiling (DEFCOMMAND REPACK-WINDOW-NUMBERS ...) ; compiling (DEFCOMMAND WINDOWLIST ...) ; compiling (DEFCOMMAND WINDOWLIST-BY-CLASS ...) ; compiling (DEFCOMMAND WINDOW-SEND-STRING ...) ; compiling (DEFCOMMAND-ALIAS INSERT ...) ; compiling (DEFCOMMAND MARK ...) ; compiling (DEFCOMMAND CLEAR-WINDOW-MARKS ...) ; compiling (DEFCOMMAND-ALIAS CLEAR-MARKS ...) ; compiling (DEFCOMMAND ECHO-WINDOWS ...) ; compiling (DEFCOMMAND-ALIAS WINDOWS ...) ; compiling (DEFCOMMAND INFO ...) ; compiling (DEFCOMMAND REFRESH ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/window-tmpJ6ELVFLF.fasl written ; compilation finished in 0:00:00.438 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/floating-group.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (DEFPACKAGE #:STUMPWM.FLOATING-GROUP ...) ; compiling (IN-PACKAGE :STUMPWM.FLOATING-GROUP) ; compiling (DEFCLASS FLOAT-WINDOW ...) ; compiling (DEFVAR *FLOAT-WINDOW-BORDER* ...) ; compiling (DEFVAR *FLOAT-WINDOW-TITLE-HEIGHT* ...) ; compiling (DEFMETHOD (SETF WINDOW-X) ...) ; compiling (DEFMETHOD (SETF WINDOW-Y) ...) ; compiling (DEFMETHOD (SETF WINDOW-WIDTH) ...) ; compiling (DEFMETHOD (SETF WINDOW-HEIGHT) ...) ; compiling (DEFUN FLOAT-WINDOW-MOVE-RESIZE ...) ; compiling (DEFMETHOD UPDATE-DECORATION ...) ; compiling (DEFMETHOD WINDOW-SYNC ...) ; compiling (DEFMETHOD WINDOW-HEAD ...) ; compiling (DEFMETHOD WINDOW-VISIBLE-P ...) ; compiling (DEFMETHOD (SETF WINDOW-FULLSCREEN) ...) ; compiling (DEFMETHOD REALLY-RAISE-WINDOW ...) ; compiling (DEFCLASS FLOAT-GROUP ...) ; compiling (DEFMETHOD GROUP-STARTUP ...) ; compiling (DEFMETHOD GROUP-ADD-WINDOW ...) ; compiling (DEFUN &FLOAT-FOCUS-NEXT ...) ; compiling (DEFMETHOD GROUP-DELETE-WINDOW ...) ; compiling (DEFMETHOD GROUP-WAKE-UP ...) ; compiling (DEFMETHOD GROUP-SUSPEND ...) ; compiling (DEFMETHOD GROUP-CURRENT-WINDOW ...) ; compiling (DEFMETHOD GROUP-CURRENT-HEAD ...) ; compiling (DEFUN FLOAT-WINDOW-ALIGN ...) ; compiling (DEFMETHOD GROUP-RESIZE-REQUEST ...) ; compiling (DEFMETHOD GROUP-MOVE-REQUEST ...) ; compiling (DEFMETHOD GROUP-RAISE-REQUEST ...) ; compiling (DEFMETHOD GROUP-LOST-FOCUS ...) ; compiling (DEFMETHOD GROUP-INDICATE-FOCUS ...) ; compiling (DEFMETHOD GROUP-FOCUS-WINDOW ...) ; compiling (DEFMETHOD GROUP-ROOT-EXPOSURE ...) ; compiling (DEFMETHOD GROUP-ADD-HEAD ...) ; compiling (DEFMETHOD GROUP-REMOVE-HEAD ...) ; compiling (DEFMETHOD GROUP-RESIZE-HEAD ...) ; compiling (DEFMETHOD GROUP-SYNC-ALL-HEADS ...) ; compiling (DEFMETHOD GROUP-SYNC-HEAD ...) ; compiling (DEFMETHOD GROUP-BUTTON-PRESS ...) ; compiling (DEFMETHOD GROUP-BUTTON-PRESS ...) ; compiling (PUSHNEW (QUOTE #) ...) ; compiling (DEFVAR *FLOAT-GROUP-TOP-MAP* ...) ; compiling (DEFVAR *FLOAT-GROUP-ROOT-MAP* ...) ; compiling (IN-PACKAGE :STUMPWM) ; compiling (DEFCOMMAND GNEW-FLOAT ...) ; compiling (DEFCOMMAND GNEWBG-FLOAT ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/floating-group-tmpULDB0RG.fasl written ; compilation finished in 0:00:00.178 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/tile-group.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFCLASS TILE-GROUP ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; compiling (DEFMETHOD GROUP-STARTUP ...) ; compiling (DEFMETHOD GROUP-WAKE-UP ...) ; compiling (DEFMETHOD GROUP-DELETE-WINDOW ...) ; compiling (DEFMETHOD GROUP-ADD-WINDOW ...) ; compiling (DEFMETHOD GROUP-CURRENT-WINDOW ...) ; compiling (DEFMETHOD GROUP-CURRENT-HEAD ...) ; compiling (DEFMETHOD GROUP-MOVE-REQUEST ...) ; compiling (DEFMETHOD GROUP-RESIZE-REQUEST ...) ; compiling (DEFMETHOD GROUP-RAISE-REQUEST ...) ; compiling (DEFMETHOD GROUP-LOST-FOCUS ...) ; compiling (DEFMETHOD GROUP-INDICATE-FOCUS ...) ; compiling (DEFMETHOD GROUP-FOCUS-WINDOW ...) ; compiling (DEFMETHOD GROUP-BUTTON-PRESS ...) ; compiling (DEFMETHOD GROUP-BUTTON-PRESS ...) ; compiling (DEFMETHOD GROUP-ROOT-EXPOSURE ...) ; compiling (DEFMETHOD GROUP-ADD-HEAD ...) ; compiling (DEFMETHOD GROUP-REMOVE-HEAD ...) ; compiling (DEFMETHOD GROUP-RESIZE-HEAD ...) ; compiling (DEFMETHOD GROUP-SYNC-ALL-HEADS ...) ; compiling (DEFMETHOD GROUP-SYNC-HEAD ...) ; compiling (DEFUN TILE-GROUP-FRAME-HEAD ...) ; compiling (DEFUN (SETF TILE-GROUP-FRAME-HEAD) ...) ; compiling (DEFUN POPULATE-FRAMES ...) ; compiling (DEFUN FRAME-BY-NUMBER ...) ; compiling (DEFUN FIND-FRAME ...) ; compiling (DEFUN FRAME-SET-X ...) ; compiling (DEFUN FRAME-SET-Y ...) ; compiling (DEFUN FRAME-SET-R ...) ; compiling (DEFUN FRAME-SET-B ...) ; compiling (DEFUN FRAME-R ...) ; compiling (DEFUN FRAME-B ...) ; compiling (DEFUN FRAME-DISPLAY-Y ...) ; compiling (DEFUN FRAME-DISPLAY-HEIGHT ...) ; compiling (DEFUN FRAME-INTERSECT ...) ; compiling (DEFUN FRAMES-OVERLAP-P ...) ; compiling (DEFUN FRAME-RAISE-WINDOW ...) ; compiling (DEFUN FOCUS-FRAME ...) ; compiling (DEFUN FRAME-WINDOWS ...) ; compiling (DEFUN FRAME-SORT-WINDOWS ...) ; compiling (DEFUN COPY-FRAME-TREE ...) ; compiling (DEFUN GROUP-FRAMES ...) ; compiling (DEFUN HEAD-FRAMES ...) ; compiling (DEFUN FIND-FREE-FRAME-NUMBER ...) ; compiling (DEFUN CHOOSE-NEW-FRAME-WINDOW ...) ; compiling (DEFUN SPLIT-FRAME-H ...) ; compiling (DEFUN SPLIT-FRAME-V ...) ; compiling (DEFUN RATIO-OR-PIXEL ...) ; compiling (DEFUN FUNCALL-ON-LEAF ...) ; compiling (DEFUN FUNCALL-ON-NODE ...) ; compiling (DEFUN REPLACE-FRAME-IN-TREE ...) ; compiling (DEFUN SIBLING-INTERNAL ...) ; compiling (DEFUN NEXT-SIBLING ...) ; compiling (DEFUN PREV-SIBLING ...) ; compiling (DEFUN CLOSEST-SIBLING ...) ; compiling (DEFUN MIGRATE-FRAME-WINDOWS ...) ; compiling (DEFUN TREE-ACCUM-FN ...) ; compiling (DEFUN TREE-ITERATE ...) ; compiling (DEFUN TREE-X ...) ; compiling (DEFUN TREE-Y ...) ; compiling (DEFUN TREE-WIDTH ...) ; compiling (DEFUN TREE-HEIGHT ...) ; compiling (DEFUN TREE-PARENT ...) ; compiling (DEFUN TREE-LEAF ...) ; compiling (DEFUN TREE-ROW-SPLIT ...) ; compiling (DEFUN TREE-COLUMN-SPLIT ...) ; compiling (DEFUN TREE-SPLIT-TYPE ...) ; compiling (DEFUN OFFSET-TREE ...) ; compiling (DEFUN OFFSET-TREE-DIR ...) ; compiling (DEFUN EXPAND-TREE ...) ; compiling (DEFUN JOIN-SUBTREES ...) ; compiling (DEFUN RESIZE-TREE ...) ; compiling (DEFUN REMOVE-FRAME ...) ; compiling (DEFUN SYNC-FRAME-WINDOWS ...) ; compiling (DEFUN SYNC-ALL-FRAME-WINDOWS ...) ; compiling (DEFUN SYNC-HEAD-FRAME-WINDOWS ...) ; compiling (DEFUN OFFSET-FRAMES ...) ; compiling (DEFUN RESIZE-FRAME ...) ; compiling (DEFUN BALANCE-FRAMES-INTERNAL ...) ; compiling (DEFUN SPLIT-FRAME ...) ; compiling (DEFUN DRAW-FRAME-OUTLINE ...) ; compiling (DEFUN DRAW-FRAME-OUTLINES ...) ; compiling (DEFUN CLEAR-FRAME-OUTLINES ...) ; compiling (DEFUN DRAW-FRAME-NUMBERS ...) ; compiling (DEFMACRO SAVE-FRAME-EXCURSION ...) ; compiling (DEFUN SPLIT-FRAME-IN-DIR ...) ; compiling (DEFCOMMAND (HSPLIT TILE-GROUP) ...) ; compiling (DEFCOMMAND (VSPLIT TILE-GROUP) ...) ; compiling (DEFCOMMAND (REMOVE-SPLIT TILE-GROUP) ...) ; compiling (DEFCOMMAND-ALIAS REMOVE ...) ; compiling (DEFCOMMAND (ONLY TILE-GROUP) ...) ; compiling (DEFCOMMAND (CURFRAME TILE-GROUP) ...) ; compiling (DEFUN FOCUS-FRAME-NEXT-SIBLING ...) ; compiling (DEFUN FOCUS-LAST-FRAME ...) ; compiling (DEFUN FOCUS-FRAME-AFTER ...) ; compiling (DEFUN FOCUS-NEXT-FRAME ...) ; compiling (DEFUN FOCUS-PREV-FRAME ...) ; compiling (DEFCOMMAND (FNEXT TILE-GROUP) ...) ; compiling (DEFCOMMAND (SIBLING TILE-GROUP) ...) ; compiling (DEFCOMMAND (FOTHER TILE-GROUP) ...) ; compiling (DEFUN CHOOSE-FRAME-BY-NUMBER ...) ; compiling (DEFCOMMAND (FSELECT TILE-GROUP) ...) ; compiling (DEFCOMMAND (RESIZE TILE-GROUP) ...) ; compiling (DEFUN CLEAR-FRAME ...) ; compiling (DEFCOMMAND (FCLEAR TILE-GROUP) ...) ; compiling (DEFUN GET-EDGE ...) ; compiling (DEFUN NEIGHBOUR ...) ; compiling (DEFUN MOVE-FOCUS-AND-OR-WINDOW ...) ; compiling (DEFCOMMAND (MOVE-FOCUS TILE-GROUP) ...) ; compiling (DEFCOMMAND (MOVE-WINDOW TILE-GROUP) ...) ; compiling (DEFCOMMAND (NEXT-IN-FRAME TILE-GROUP) ...) ; compiling (DEFCOMMAND (PREV-IN-FRAME TILE-GROUP) ...) ; compiling (DEFCOMMAND (OTHER-IN-FRAME TILE-GROUP) ...) ; compiling (DEFCOMMAND (BALANCE-FRAMES TILE-GROUP) ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/tile-group-tmpUTZ0UUTE.fasl written ; compilation finished in 0:00:00.445 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/tile-window.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *IGNORE-WM-INC-HINTS* ...) ; compiling (DEFCLASS TILE-WINDOW ...) ; compiling (DEFMETHOD UPDATE-DECORATION ...) ; compiling (DEFMETHOD WINDOW-SYNC ...) ; compiling (DEFMETHOD WINDOW-VISIBLE-P ...) ; compiling (DEFMETHOD WINDOW-HEAD ...) ; compiling (DEFMETHOD (SETF WINDOW-FULLSCREEN) ...) ; compiling (DEFMETHOD REALLY-RAISE-WINDOW ...) ; compiling (DEFUN RAISE-MODALS-OF ...) ; compiling (DEFUN RAISE-MODALS-OF-GANG ...) ; compiling (DEFUN RAISE-TRANSIENTS-OF-GANG ...) ; compiling (DEFUN GEOMETRY-HINTS ...) ; compiling (DEFUN MAXIMIZE-WINDOW ...) ; compiling (DEFUN FOCUS-NEXT-WINDOW ...) ; compiling (DEFUN FOCUS-PREV-WINDOW ...) ; compiling (DEFCOMMAND (NEXT TILE-GROUP) ...) ; compiling (DEFCOMMAND (PREV TILE-GROUP) ...) ; compiling (DEFUN PULL-WINDOW ...) ; compiling (DEFUN FOCUS-FORWARD ...) ; compiling (DEFCOMMAND (PULL-WINDOW-BY-NUMBER TILE-GROUP) ...) ; compiling (DEFCOMMAND-ALIAS PULL ...) ; compiling (DEFUN OTHER-HIDDEN-WINDOW ...) ; compiling (DEFUN PULL-OTHER-HIDDEN-WINDOW ...) ; compiling (DEFUN OTHER-WINDOW-IN-FRAME ...) ; compiling (DEFCOMMAND (PULL-HIDDEN-NEXT TILE-GROUP) ...) ; compiling (DEFCOMMAND (PULL-HIDDEN-PREVIOUS TILE-GROUP) ...) ; compiling (DEFCOMMAND (PULL-HIDDEN-OTHER TILE-GROUP) ...) ; compiling (DEFCOMMAND (PULL-FROM-WINDOWLIST TILE-GROUP) ...) ; compiling (DEFUN EXCHANGE-WINDOWS ...) ; compiling (DEFCOMMAND (EXCHANGE-DIRECTION TILE-GROUP) ...) ; compiling (DEFCOMMAND (ECHO-FRAME-WINDOWS TILE-GROUP) ...) ; compiling (DEFCOMMAND-ALIAS FRAME-WINDOWS ...) ; compiling (DEFCOMMAND (FULLSCREEN TILE-GROUP) ...) ; compiling (DEFCOMMAND (GRAVITY TILE-GROUP) ...) ; compiling (DEFCOMMAND (PULL-MARKED TILE-GROUP) ...) ; compiling (DEFUN MAKE-RULE-FOR-WINDOW ...) ; compiling (DEFCOMMAND (REMEMBER TILE-GROUP) ...) ; compiling (DEFCOMMAND (FORGET TILE-GROUP) ...) ; compiling (DEFCOMMAND (DUMP-WINDOW-PLACEMENT-RULES TILE-GROUP) ...) ; compiling (DEFCOMMAND-ALIAS DUMP-RULES ...) ; compiling (DEFCOMMAND (RESTORE-WINDOW-PLACEMENT-RULES TILE-GROUP) ...) ; compiling (DEFCOMMAND-ALIAS RESTORE-RULES ...) ; compiling (DEFCOMMAND (REDISPLAY TILE-GROUP) ...) ; compiling (DEFCOMMAND (UNMAXIMIZE TILE-GROUP) ...) ; compiling (DEFCOMMAND FRAME-WINDOWLIST ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/tile-window-tmpOOSRA8PZ.fasl written ; compilation finished in 0:00:00.330 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/window-placement.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (DEFUN XWIN-TO-WINDOW ...) ; compiling (DEFVAR *RULE-SCANNERS-CACHE* ...) ; compiling (DEFUN GET-OR-CREATE-RULE-SCANNER ...) ; compiling (DEFUN STRING-MATCH ...) ; compiling (DEFUN WINDOW-MATCHES-PROPERTIES-P ...) ; compiling (DEFUN WINDOW-MATCHES-RULE-P ...) ; compiling (DEFUN RULE-MATCHING-WINDOW ...) ; compiling (DEFUN GET-WINDOW-PLACEMENT ...) ; compiling (DEFUN SYNC-WINDOW-PLACEMENT ...) ; compiling (DEFUN ASSIGN-WINDOW ...) ; compiling (DEFUN PLACE-WINDOW ...) ; compiling (DEFUN PICK-PREFERRED-FRAME ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/window-placement-tmpDMIL0RVK.fasl written ; compilation finished in 0:00:00.050 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/message-window.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN MAX-WIDTH ...) ; compiling (DEFGENERIC GRAVITY-COORDS ...) ; compiling (DEFMACRO DEFINE-SIMPLE-GRAVITY ...) ; compiling (DEFINE-SIMPLE-GRAVITY :TOP-RIGHT ...) ; compiling (DEFINE-SIMPLE-GRAVITY :TOP-LEFT ...) ; compiling (DEFINE-SIMPLE-GRAVITY :BOTTOM-RIGHT ...) ; compiling (DEFINE-SIMPLE-GRAVITY :BOTTOM-LEFT ...) ; compiling (DEFINE-SIMPLE-GRAVITY :RIGHT ...) ; compiling (DEFINE-SIMPLE-GRAVITY :LEFT ...) ; compiling (DEFINE-SIMPLE-GRAVITY :TOP ...) ; compiling (DEFINE-SIMPLE-GRAVITY :BOTTOM ...) ; compiling (DEFINE-SIMPLE-GRAVITY :CENTER ...) ; compiling (DEFUN SETUP-WIN-GRAVITY ...) ; compiling (DEFUN SETUP-MESSAGE-WINDOW ...) ; compiling (DEFUN UNMAP-MESSAGE-WINDOW ...) ; compiling (DEFUN UNMAP-ALL-MESSAGE-WINDOWS ...) ; compiling (DEFUN UNMAP-FRAME-INDICATOR-WINDOW ...) ; compiling (DEFUN UNMAP-ALL-FRAME-INDICATOR-WINDOWS ...) ; compiling (DEFUN RESET-MESSAGE-WINDOW-TIMER ...) ; compiling (DEFUN RESET-FRAME-INDICATOR-TIMER ...) ; compiling (DEFUN SHOW-FRAME-OUTLINE ...) ; compiling (DEFUN SHOW-FRAME-INDICATOR ...) ; compiling (DEFUN ECHO-IN-WINDOW ...) ; compiling (DEFUN PUSH-LAST-MESSAGE ...) ; compiling (DEFUN REDRAW-CURRENT-MESSAGE ...) ; compiling (DEFUN ECHO-NTH-LAST-MESSAGE ...) ; compiling (DEFUN ECHO-STRING-LIST ...) ; compiling (DEFUN ECHO-STRING ...) ; compiling (DEFUN MESSAGE ...) ; compiling (DEFUN ERR ...) ; compiling (DEFUN MESSAGE-NO-TIMEOUT ...) ; compiling (DEFVAR *LASTMSG-NTH* ...) ; compiling (DEFCOMMAND LASTMSG ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/message-window-tmp8MR9IMIO.fasl written ; compilation finished in 0:00:00.173 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/selection.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN EXPORT-SELECTION ...) ; compiling (DEFUN SET-X-SELECTION ...) ; compiling (DEFUN SEND-SELECTION ...) ; compiling (DEFUN GET-X-SELECTION ...) ; compiling (DEFCOMMAND PUTSEL ...) ; compiling (DEFCOMMAND GETSEL ...) ; compiling (DEFCOMMAND COPY-LAST-MESSAGE ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/selection-tmpJQDKAVAY.fasl written ; compilation finished in 0:00:00.021 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/module.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *MODULE-DIR* ...) ; compiling (DEFUN BUILD-LOAD-PATH ...) ; compiling (DEFVAR *LOAD-PATH* ...) ; compiling (DEFUN SYNC-ASDF-CENTRAL-REGISTRY ...) ; compiling (DEFUN INIT-LOAD-PATH ...) ; compiling (DEFUN SET-MODULE-DIR ...) ; compiling (DEFINE-STUMPWM-TYPE :MODULE ...) ; compiling (DEFUN FIND-ASD-FILE ...) ; compiling (DEFUN LIST-MODULES ...) ; compiling (DEFUN FIND-MODULE ...) ; compiling (DEFUN ENSURE-PATHNAME ...) ; compiling (DEFCOMMAND SET-CONTRIB-DIR ...) ; compiling (DEFCOMMAND ADD-TO-LOAD-PATH ...) ; compiling (DEFCOMMAND LOAD-MODULE ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/module-tmp3I8CEEQY.fasl written ; compilation finished in 0:00:00.050 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/ioloop.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFGENERIC IO-CHANNEL-IOPORT ...) ; compiling (DEFGENERIC IO-CHANNEL-EVENTS ...) ; compiling (DEFGENERIC IO-CHANNEL-HANDLE ...) ; compiling (DEFGENERIC IO-LOOP-ADD ...) ; compiling (DEFGENERIC IO-LOOP-REMOVE ...) ; compiling (DEFGENERIC IO-LOOP-UPDATE ...) ; compiling (DEFGENERIC IO-LOOP ...) ; compiling (DEFVAR *DEFAULT-IO-LOOP* ...) ; compiling (DEFVAR *CURRENT-IO-LOOP* ...) ; compiling (DEFVAR *CURRENT-IO-CHANNEL* ...) ; compiling (DEFMETHOD IO-CHANNEL-HANDLE ...) ; compiling (DEFCLASS SBCL-IO-LOOP ...) ; compiling (DEFMETHOD IO-LOOP-ADD ...) ; compiling (DEFMETHOD IO-LOOP-REMOVE ...) ; compiling (DEFMETHOD IO-LOOP-UPDATE ...) ; compiling (DEFMETHOD IO-LOOP ...) ; compiling (DEFMETHOD IO-CHANNEL-IOPORT ...) ; compiling (DEFMETHOD IO-CHANNEL-IOPORT ...) ; compiling (DEFCLASS XLIB-IO-LOOP ...) ; compiling (DEFMETHOD IO-LOOP-ADD ...) ; compiling (DEFMETHOD IO-LOOP-REMOVE ...) ; compiling (DEFMETHOD IO-LOOP-UPDATE ...) ; compiling (DEFMETHOD IO-LOOP ...) ; compiling (DEFMETHOD IO-CHANNEL-IOPORT ...) ; compiling (SETF *DEFAULT-IO-LOOP* ...) ; compiling (DEFMETHOD IO-CHANNEL-IOPORT ...) ; compiling (DEFCLASS CALLBACK-CHANNEL ...) ; compiling (DEFMETHOD IO-LOOP-ADD ...) ; compiling (DEFMETHOD IO-LOOP-ADD ...) ; compiling (DEFMETHOD IO-LOOP-REMOVE ...) ; compiling (DEFMETHOD IO-CHANNEL-IOPORT ...) ; compiling (DEFMETHOD IO-CHANNEL-EVENTS ...) ; compiling (DEFMETHOD IO-CHANNEL-HANDLE ...) ; compiling (DEFMETHOD (SETF CALLBACK-CHANNEL-EVENTS) ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/ioloop-tmpA3RHFLWZ.fasl written ; compilation finished in 0:00:00.357 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/stumpwm.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN LOAD-RC-FILE ...) ; compiling (DEFUN ERROR-HANDLER ...) ; compiling (DEFVAR *TOPLEVEL-IO* ...) ; compiling (DEFVAR *TIMER-LIST* ...) ; compiling (DEFVAR *TIMER-LIST-LOCK* ...) ; compiling (DEFVAR *IN-MAIN-THREAD* ...) ; compiling (DEFSTRUCT TIMER ...) ; file: /build/stumpwm-RUwlp7/stumpwm-1.0.0/stumpwm.lisp ; in: DEFSTRUCT TIMER ; (DEFSTRUCT STUMPWM::TIMER TIME STUMPWM::REPEAT FUNCTION STUMPWM::ARGS) ; --> PROGN EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to STUMPWM::TIMER-P could not be inlined because the ; structure definition for STUMPWM::TIMER was not yet seen. To avoid this ; warning, DEFSTRUCT should precede references to the affected functions, or they ; must be declared locally notinline at each call site. ; compiling (DEFUN RUN-WITH-TIMER ...) ; compiling (DEFUN CANCEL-TIMER ...) ; compiling (DEFUN SCHEDULE-TIMER ...) ; compiling (DEFUN SORT-TIMERS ...) ; compiling (DEFUN UPDATE-TIMER-LIST ...) ; compiling (DEFUN EXECUTE-TIMERS ...) ; compiling (DEFUN EXECUTE-TIMER ...) ; compiling (DEFUN RUN-EXPIRED-TIMERS ...) ; compiling (DEFUN GET-NEXT-TIMEOUT ...) ; compiling (DEFGENERIC HANDLE-TOP-LEVEL-CONDITION ...) ; compiling (DEFMETHOD HANDLE-TOP-LEVEL-CONDITION ...) ; compiling (DEFMETHOD HANDLE-TOP-LEVEL-CONDITION ...) ; compiling (DEFMETHOD HANDLE-TOP-LEVEL-CONDITION ...) ; compiling (DEFCLASS STUMPWM-TIMER-CHANNEL ...) ; compiling (DEFMETHOD IO-CHANNEL-IOPORT ...) ; compiling (DEFMETHOD IO-CHANNEL-EVENTS ...) ; compiling (DEFMETHOD IO-CHANNEL-HANDLE ...) ; compiling (DEFMETHOD IO-CHANNEL-HANDLE ...) ; compiling (DEFCLASS REQUEST-CHANNEL ...) ; compiling (DEFVAR *REQUEST-CHANNEL* ...) ; compiling (DEFMETHOD IO-CHANNEL-IOPORT ...) ; compiling (DEFMETHOD IO-CHANNEL-EVENTS ...) ; compiling (DEFMETHOD IO-CHANNEL-HANDLE ...) ; compiling (DEFUN CALL-IN-MAIN-THREAD ...) ; compiling (DEFCLASS DISPLAY-CHANNEL ...) ; compiling (DEFMETHOD IO-CHANNEL-IOPORT ...) ; compiling (DEFMETHOD IO-CHANNEL-EVENTS ...) ; compiling (FLET (#) ...) ; compiling (DEFUN STUMPWM-INTERNAL-LOOP ...) ; compiling (DEFUN PARSE-DISPLAY-STRING ...) ; compiling (DEFUN STUMPWM-INTERNAL ...) ; compiling (DEFUN STUMPWM ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/stumpwm-tmpYZIB7VXO.fasl written ; compilation finished in 0:00:00.304 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/user.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN RESTARTS-MENU ...) ; compiling (DEFUN BANISH-POINTER ...) ; compiling (DEFCOMMAND BANISH ...) ; compiling (DEFCOMMAND RATWARP ...) ; compiling (DEFCOMMAND RATRELWARP ...) ; compiling (DEFCOMMAND RATCLICK ...) ; compiling (DEFUN PROGRAMS-IN-PATH ...) ; compiling (DEFSTRUCT PATH-CACHE ...) ; compiling (DEFVAR *PATH-CACHE* ...) ; compiling (DEFUN REHASH ...) ; compiling (DEFUN COMPLETE-PROGRAM ...) ; compiling (DEFCOMMAND RUN-SHELL-COMMAND ...) ; compiling (DEFCOMMAND-ALIAS EXEC ...) ; compiling (DEFCOMMAND EVAL-LINE ...) ; compiling (DEFCOMMAND-ALIAS EVAL ...) ; compiling (DEFCOMMAND ECHO ...) ; compiling (DEFUN SEND-META-KEY ...) ; compiling (DEFCOMMAND META ...) ; compiling (DEFCOMMAND LOADRC ...) ; compiling (DEFCOMMAND KEYBOARD-QUIT ...) ; compiling (DEFCOMMAND-ALIAS ABORT ...) ; compiling (DEFCOMMAND QUIT ...) ; compiling (DEFCOMMAND RESTART-SOFT ...) ; compiling (DEFCOMMAND RESTART-HARD ...) ; compiling (DEFUN FIND-MATCHING-WINDOWS ...) ; compiling (DEFUN RUN-OR-RAISE ...) ; compiling (DEFUN RUN-OR-PULL ...) ; compiling (DEFCOMMAND RELOAD ...) ; compiling (DEFCOMMAND EMACS ...) ; compiling (DEFCOMMAND COPY-UNHANDLED-ERROR ...) ; compiling (DEFMACRO DEFPROGRAM-SHORTCUT ...) ; compiling (DEFCOMMAND SHOW-WINDOW-PROPERTIES ...) ; compiling (DEFCOMMAND LIST-WINDOW-PROPERTIES ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/user-tmpR8PK79V8.fasl written ; compilation finished in 0:00:00.153 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/iresize.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *RESIZE-INCREMENT* ...) ; compiling (DEFUN SET-RESIZE-INCREMENT ...) ; compiling (DEFUN UPDATE-RESIZE-MAP ...) ; compiling (UPDATE-RESIZE-MAP) ; compiling (DEFCOMMAND (IRESIZE TILE-GROUP) ...) ; compiling (DEFUN RESIZE-UNHIDE ...) ; compiling (DEFCOMMAND (ABORT-IRESIZE TILE-GROUP) ...) ; compiling (DEFCOMMAND (EXIT-IRESIZE TILE-GROUP) ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/iresize-tmpN1ZVB1HZ.fasl written ; compilation finished in 0:00:00.035 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/help.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE NIL)) ; compiling (DEFUN COLUMNIZE ...) ; compiling (DEFUN DISPLAY-BINDINGS-FOR-KEYMAPS ...) ; compiling (DEFCOMMAND COMMANDS ...) ; compiling (DEFCOMMAND DESCRIBE-KEY ...) ; compiling (DEFCOMMAND DESCRIBE-VARIABLE ...) ; compiling (DEFCOMMAND DESCRIBE-FUNCTION ...) ; compiling (DEFCOMMAND DESCRIBE-COMMAND ...) ; compiling (DEFCOMMAND WHERE-IS ...) ; compiling (DEFUN GET-KMAPS-AT-KEY ...) ; compiling (DEFUN GET-KMAPS-AT-KEY-SEQ ...) ; compiling (DEFUN WHICH-KEY-MODE-KEY-PRESS-HOOK ...) ; file: /build/stumpwm-RUwlp7/stumpwm-1.0.0/help.lisp ; in: DEFUN WHICH-KEY-MODE-KEY-PRESS-HOOK ; (DEFUN STUMPWM::WHICH-KEY-MODE-KEY-PRESS-HOOK ; (STUMPWM::KEY STUMPWM::KEY-SEQ STUMPWM::CMD) ; "*key-press-hook* for which-key-mode" ; (DECLARE (IGNORE STUMPWM::KEY)) ; (WHEN (NOT (EQ STUMPWM:*TOP-MAP* STUMPWM:*RESIZE-MAP*)) ; (LET* ((STUMPWM::ORIENTED-KEY-SEQ #) (STUMPWM::MAPS #)) ; (WHEN (REMOVE-IF-NOT 'STUMPWM::KMAP-P STUMPWM::MAPS) ; (APPLY 'STUMPWM::DISPLAY-BINDINGS-FOR-KEYMAPS ; STUMPWM::ORIENTED-KEY-SEQ STUMPWM::MAPS))))) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA STUMPWM::WHICH-KEY-MODE-KEY-PRESS-HOOK ; (STUMPWM::KEY STUMPWM::KEY-SEQ STUMPWM::CMD) ; "*key-press-hook* for which-key-mode" ; (DECLARE (IGNORE STUMPWM::KEY)) ; (BLOCK STUMPWM::WHICH-KEY-MODE-KEY-PRESS-HOOK ; (WHEN (NOT (EQ STUMPWM:*TOP-MAP* STUMPWM:*RESIZE-MAP*)) ; (LET* (# #) ; (WHEN # #))))) ; ; caught STYLE-WARNING: ; The variable CMD is defined but never used. ; compiling (DEFCOMMAND WHICH-KEY-MODE ...) ; compiling (DEFCOMMAND MODIFIERS ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/help-tmpZGRRPISB.fasl written ; compilation finished in 0:00:00.122 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/fdump.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFSTRUCT FDUMP ...) ; compiling (DEFSTRUCT GDUMP ...) ; compiling (DEFSTRUCT SDUMP ...) ; compiling (DEFSTRUCT DDUMP ...) ; compiling (DEFUN DUMP-GROUP ...) ; compiling (DEFUN DUMP-SCREEN ...) ; compiling (DEFUN DUMP-DESKTOP ...) ; compiling (DEFUN DUMP-TO-FILE ...) ; compiling (DEFCOMMAND DUMP-GROUP-TO-FILE ...) ; compiling (DEFCOMMAND-ALIAS DUMP-GROUP ...) ; compiling (DEFCOMMAND DUMP-SCREEN-TO-FILE ...) ; compiling (DEFCOMMAND-ALIAS DUMP-SCREEN ...) ; compiling (DEFCOMMAND DUMP-DESKTOP-TO-FILE ...) ; compiling (DEFCOMMAND-ALIAS DUMP-DESKTOP ...) ; compiling (DEFUN READ-DUMP-FROM-FILE ...) ; compiling (DEFUN RESTORE-GROUP ...) ; compiling (DEFUN RESTORE-SCREEN ...) ; compiling (DEFUN RESTORE-DESKTOP ...) ; compiling (DEFCOMMAND RESTORE-FROM-FILE ...) ; compiling (DEFCOMMAND-ALIAS RESTORE ...) ; compiling (DEFCOMMAND PLACE-EXISTING-WINDOWS ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/fdump-tmpFNKDE5XP.fasl written ; compilation finished in 0:00:00.226 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/time.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *TIME-FORMAT-STRING-DEFAULT* ...) ; compiling (DEFVAR *TIME-MODELINE-STRING* ...) ; compiling (DEFVAR *TIME-MONTH-NAMES* ...) ; compiling (DEFVAR *TIME-DAY-NAMES* ...) ; compiling (DEFVAR *TIME-FORMAT-STRING-ALIST* ...) ; compiling (DEFCOMMAND ECHO-DATE ...) ; compiling (DEFCOMMAND-ALIAS TIME ...) ; compiling (DEFUN TIME-PLIST ...) ; compiling (DEFUN TIME-SECOND ...) ; compiling (DEFUN TIME-MINUTE ...) ; compiling (DEFUN TIME-HOUR ...) ; compiling (DEFUN TIME-HOUR-ZERO ...) ; compiling (DEFUN TIME-HOUR-12HR ...) ; compiling (DEFUN TIME-HOUR-12HR-ZERO ...) ; compiling (DEFUN TIME-DAY-OF-MONTH-ZERO ...) ; compiling (DEFUN TIME-DAY-OF-MONTH ...) ; compiling (DEFUN TIME-MONTH ...) ; compiling (DEFUN TIME-MONTH-NAME ...) ; compiling (DEFUN TIME-MONTH-SHORTNAME ...) ; compiling (DEFUN TIME-YEAR ...) ; compiling (DEFUN TIME-CENTURY ...) ; compiling (DEFUN TIME-YEAR-SHORT ...) ; compiling (DEFUN TIME-DAY-OF-WEEK ...) ; compiling (DEFUN TIME-DAY-OF-WEEK-SUN-START ...) ; compiling (DEFUN TIME-DOW-NAME ...) ; compiling (DEFUN TIME-DOW-SHORTNAME ...) ; compiling (DEFUN TIME-NEWLINE ...) ; compiling (DEFUN TIME-TAB ...) ; compiling (DEFUN TIME-AM-PM ...) ; compiling (DEFUN TIME-AM-PM-CAPS ...) ; compiling (DEFUN TIME-TZ ...) ; compiling (DEFUN TIME-UNIX-ERA ...) ; compiling (DEFUN TIME-DATE-AND-TIME ...) ; compiling (DEFUN TIME-DATE ...) ; compiling (DEFUN TIME-DATE-FULL ...) ; compiling (DEFUN TIME-12HR-TIME ...) ; compiling (DEFUN TIME-24HR-AND-MINUTE ...) ; compiling (DEFUN TIME-24HR-TIME ...) ; compiling (DEFUN TIME-FORMAT ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/time-tmpRJTU435C.fasl written ; compilation finished in 0:00:00.056 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/mode-line.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *MODE-LINE-POSITION* ...) ; compiling (DEFVAR *MODE-LINE-BORDER-WIDTH* ...) ; compiling (DEFVAR *MODE-LINE-PAD-X* ...) ; compiling (DEFVAR *MODE-LINE-PAD-Y* ...) ; compiling (DEFVAR *MODE-LINE-BACKGROUND-COLOR* ...) ; compiling (DEFVAR *MODE-LINE-FOREGROUND-COLOR* ...) ; compiling (DEFVAR *MODE-LINE-BORDER-COLOR* ...) ; compiling (DEFVAR *SCREEN-MODE-LINE-FORMAT* ...) ; compiling (DEFVAR *SCREEN-MODE-LINE-FORMATTERS* ...) ; compiling (DEFVAR *MODE-LINE-TIMEOUT* ...) ; compiling (DEFVAR *MODE-LINE-TIMER* ...) ; compiling (DEFUN ADD-SCREEN-MODE-LINE-FORMATTER ...) ; compiling (DEFVAR *MODE-LINES* ...) ; compiling (DEFSTRUCT (MODE-LINE #) ...) ; file: /build/stumpwm-RUwlp7/stumpwm-1.0.0/mode-line.lisp ; in: DEFSTRUCT MODE-LINE ; (DEFSTRUCT (STUMPWM::MODE-LINE (:CONSTRUCTOR STUMPWM::%MAKE-MODE-LINE)) ; STUMPWM::SCREEN ; STUMPWM::HEAD ; STUMPWM:WINDOW ; FORMAT ; POSITION ; STUMPWM::CONTENTS ; STUMPWM::CC ; STUMPWM::HEIGHT ; STUMPWM::FACTOR ; (STUMPWM::MODE :STUMP)) ; --> PROGN EVAL-WHEN ; ==> ; (SB-KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to STUMPWM::MODE-LINE-SCREEN, ; STUMPWM::MODE-LINE-POSITION, STUMPWM::MODE-LINE-HEIGHT, ; STUMPWM::MODE-LINE-FACTOR and STUMPWM::MODE-LINE-MODE could not be inlined ; because the structure definition for STUMPWM::MODE-LINE was not yet seen. To ; avoid this warning, DEFSTRUCT should precede references to the affected ; functions, or they must be declared locally notinline at each call site. ; compiling (DEFUN SCREEN-MODE-LINES ...) ; compiling (DEFUN HEAD-MODE-LINE ...) ; compiling (DEFUN FIND-MODE-LINE-BY-WINDOW ...) ; compiling (DEFUN MODE-LINE-GC ...) ; compiling (DEFUN TURN-ON-MODE-LINE-TIMER ...) ; compiling (DEFUN MAYBE-CANCEL-MODE-LINE-TIMER ...) ; compiling (DEFUN RESIZE-MODE-LINE ...) ; compiling (DEFUN UPDATE-MODE-LINE-COLOR-CONTEXT ...) ; compiling (DEFUN MAKE-MODE-LINE-WINDOW ...) ; compiling (DEFUN MAKE-MODE-LINE-GC ...) ; compiling (DEFUN MAKE-MODE-LINE-CC ...) ; compiling (DEFUN MAKE-MODE-LINE ...) ; compiling (DEFUN SYNC-MODE-LINE ...) ; compiling (DEFUN DESTROY-MODE-LINE ...) ; compiling (DEFVAR *CURRENT-MODE-LINE-FORMATTERS* ...) ; compiling (DEFVAR *CURRENT-MODE-LINE-FORMATTER-ARGS* ...) ; compiling (DEFGENERIC MODE-LINE-FORMAT-ELT ...) ; compiling (DEFMETHOD MODE-LINE-FORMAT-ELT ...) ; compiling (DEFMETHOD MODE-LINE-FORMAT-ELT ...) ; compiling (DEFMETHOD MODE-LINE-FORMAT-ELT ...) ; compiling (DEFMETHOD MODE-LINE-FORMAT-ELT ...) ; compiling (DEFUN MODE-LINE-FORMAT-STRING ...) ; compiling (DEFUN REDRAW-MODE-LINE ...) ; compiling (DEFUN UPDATE-MODE-LINES ...) ; compiling (DEFUN UPDATE-ALL-MODE-LINES ...) ; compiling (DEFUN MOVE-MODE-LINE-TO-HEAD ...) ; compiling (DEFUN UPDATE-MODE-LINE-POSITION ...) ; compiling (DEFUN PLACE-MODE-LINE-WINDOW ...) ; compiling (DEFUN TOGGLE-MODE-LINE ...) ; compiling (DEFUN ENABLE-MODE-LINE ...) ; compiling (DEFCOMMAND MODE-LINE ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/mode-line-tmpI9WG87JK.fasl written ; compilation finished in 0:00:00.244 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/mode-line-formatters.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *HIDDEN-WINDOW-COLOR* ...) ; compiling (DEFVAR *MODE-LINE-HIGHLIGHT-TEMPLATE* ...) ; compiling (DEFUN MODE-LINE-CURRENT-GROUP ...) ; compiling (ADD-SCREEN-MODE-LINE-FORMATTER #\u ...) ; compiling (DEFUN FMT-URGENT-WINDOW-LIST ...) ; compiling (ADD-SCREEN-MODE-LINE-FORMATTER #\w ...) ; compiling (DEFUN FMT-WINDOW-LIST ...) ; compiling (ADD-SCREEN-MODE-LINE-FORMATTER #\g ...) ; compiling (DEFUN FMT-GROUP-LIST ...) ; compiling (ADD-SCREEN-MODE-LINE-FORMATTER #\h ...) ; compiling (DEFUN FMT-HEAD ...) ; compiling (ADD-SCREEN-MODE-LINE-FORMATTER #\n ...) ; compiling (DEFUN FMT-GROUP ...) ; compiling (DEFUN FMT-HIGHLIGHT ...) ; compiling (ADD-SCREEN-MODE-LINE-FORMATTER #\W ...) ; compiling (DEFUN FMT-HEAD-WINDOW-LIST ...) ; compiling (DEFUN FMT-HIDDEN ...) ; compiling (ADD-SCREEN-MODE-LINE-FORMATTER #\v ...) ; compiling (DEFUN FMT-HEAD-WINDOW-LIST-HIDDEN-WINDOWS ...) ; compiling (ADD-SCREEN-MODE-LINE-FORMATTER #\d ...) ; compiling (DEFUN FMT-MODELINE-TIME ...) ; compiling (DEFVAR *BAR-MED-COLOR* ...) ; compiling (DEFVAR *BAR-HI-COLOR* ...) ; compiling (DEFVAR *BAR-CRIT-COLOR* ...) ; compiling (DEFUN BAR-ZONE-COLOR ...) ; compiling (DEFUN REPEAT ...) ; compiling (DEFUN BAR ...) ; compiling (DEFVAR *ALT-PREV-INDEX* ...) ; compiling (DEFVAR *ALT-PREV-TIME* ...) ; compiling (DEFUN ALTERNATE ...) ; compiling (DEFVAR *SCROLL-PREV-INDEX* ...) ; compiling (DEFVAR *SCROLL-PREV-TIME* ...) ; compiling (DEFVAR *SCROLL-PREV-DIR* ...) ; compiling (DEFUN SCROLL ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/mode-line-formatters-tmpYDE6I9E6.fasl written ; compilation finished in 0:00:00.062 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/color.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *COLORS* ...) ; compiling (DEFUN ADJUST-COLOR ...) ; compiling (DEFUN HEX-TO-XLIB-COLOR ...) ; compiling (DEFUN LOOKUP-COLOR ...) ; compiling (DEFUN ALLOC-COLOR ...) ; compiling (DEFUN UPDATE-COLOR-MAP ...) ; compiling (DEFUN UPDATE-SCREEN-COLOR-CONTEXT ...) ; compiling (DEFUN PARSE-COLOR ...) ; compiling (DEFUN PARSE-COLOR-STRING ...) ; compiling (DEFUN UNCOLORIFY ...) ; compiling (DEFUN FIND-COLOR ...) ; compiling (DEFUN FIND-FONT ...) ; compiling (DEFGENERIC APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFUN MAX-FONT-HEIGHT ...) ; compiling (DEFUN RESET-COLOR-CONTEXT ...) ; compiling (DEFUN RENDERED-STRING-SIZE ...) ; compiling (DEFUN RENDERED-SIZE ...) ; compiling (DEFUN RENDER-STRING ...) ; compiling (DEFUN RENDER-STRINGS ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/color-tmp319UV2V8.fasl written ; compilation finished in 0:00:00.241 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/wse.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN MOVE-WINDOWS-TO-GROUP ...) ; compiling (DEFGENERIC LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMACRO ACT-ON-MATCHING-WINDOWS ...) ; compiling (DEFUN PULL-W ...) ; compiling (DEFUN TITLED-P ...) ; compiling (DEFUN TITLE-RE-P ...) ; compiling (DEFUN CLASSED-P ...) ; compiling (DEFUN CLASS-RE-P ...) ; compiling (DEFUN TYPED-P ...) ; compiling (DEFUN TYPE-RE-P ...) ; compiling (DEFUN ROLED-P ...) ; compiling (DEFUN ROLE-RE-P ...) ; compiling (DEFUN RESED-P ...) ; compiling (DEFUN RES-RE-P ...) ; compiling (DEFUN GROUPED-P ...) ; compiling (DEFUN IN-FRAME-P ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/wse-tmpLYQINFYS.fasl written ; compilation finished in 0:00:00.032 ; compiling file "/build/stumpwm-RUwlp7/stumpwm-1.0.0/version.lisp" (written 12 JAN 2017 11:58:23 PM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFPARAMETER *VERSION* ...) ; compiling (DEFCOMMAND VERSION ...) ; /build/stumpwm-RUwlp7/stumpwm-1.0.0/.cache/common-lisp/sbcl-1.4.6.debian-linux-x64/build/stumpwm-RUwlp7/stumpwm-1.0.0/version-tmpGA31XWNO.fasl written ; compilation finished in 0:00:00.004 ; ; compilation unit finished ; caught 12 STYLE-WARNING conditions ; printed 1617 notes makeinfo stumpwm.texi make[2]: Leaving directory '/build/stumpwm-RUwlp7/stumpwm-1.0.0' make[1]: Leaving directory '/build/stumpwm-RUwlp7/stumpwm-1.0.0' dh_auto_test -i create-stamp debian/debhelper-build-stamp fakeroot debian/rules binary-indep dh binary-indep dh_testroot -i dh_prep -i debian/rules override_dh_install make[1]: Entering directory '/build/stumpwm-RUwlp7/stumpwm-1.0.0' # Rewrite source-registry post-build to ensure the correct runtime # path, does not leak the build path, and is reproducible. sed -i -e 's@\((:directory "\)[^\"]*\(")\)@\1/usr/share/common-lisp/source/stumpwm\2@g' load-stumpwm.lisp dh_install -Xmake-image.lisp -Xsample-stumpwmrc.lisp dh_installdirs /usr/bin cp debian/stumpwm.bin debian/stumpwm/usr/bin/stumpwm make[1]: Leaving directory '/build/stumpwm-RUwlp7/stumpwm-1.0.0' dh_installdocs -i dh_installchangelogs -i dh_installexamples -i dh_installman -i dh_installinfo -i dh_installmenu -i dh_perl -i dh_link -i dh_installwm -i dh_strip_nondeterminism -i dh_compress -i dh_fixperms -i dh_missing -i dh_installdeb -i dh_gencontrol -i dh_md5sums -i dh_builddeb -i dpkg-deb: building package 'stumpwm' in '../stumpwm_1.0.0-1_all.deb'. dpkg-genbuildinfo --build=all dpkg-genchanges --build=all >../stumpwm_1.0.0-1_all.changes dpkg-genchanges: info: binary-only arch-indep upload (source code and arch-specific packages not included) dpkg-source --after-build stumpwm-1.0.0 dpkg-buildpackage: info: binary-only upload (no source included) I: running special hook: sync-out /build/stumpwm-RUwlp7 /tmp/stumpwm-1.0.0-1o3envo6f I: cleaning package lists and apt cache... I: creating tarball... I: done I: removing tempdir /tmp/mmdebstrap.xhnIeEDSzV... I: success in 360.5214 seconds md5: stumpwm_1.0.0-1_all.deb: OK sha1: stumpwm_1.0.0-1_all.deb: OK sha256: stumpwm_1.0.0-1_all.deb: OK Checksums: OK