Wed Jul 14 11:43:11 UTC 2021 I: starting to build stumpwm/bullseye/arm64 on jenkins on '2021-07-14 11:42' Wed Jul 14 11:43:11 UTC 2021 I: The jenkins build log is/was available at https://jenkins.debian.net/userContent/reproducible/debian/build_service/arm64_30/12097/console.log Wed Jul 14 11:43:11 UTC 2021 I: Downloading source for bullseye/stumpwm=2:1.0.0-1 --2021-07-14 11:43:11-- http://cdn-fastly.deb.debian.org/debian/pool/main/s/stumpwm/stumpwm_1.0.0-1.dsc Connecting to 78.137.99.97:3128... connected. Proxy request sent, awaiting response... 200 OK Length: 2066 (2.0K) Saving to: ‘stumpwm_1.0.0-1.dsc’ 0K .. 100% 107M=0s 2021-07-14 11:43:11 (107 MB/s) - ‘stumpwm_1.0.0-1.dsc’ saved [2066/2066] Wed Jul 14 11:43:11 UTC 2021 I: stumpwm_1.0.0-1.dsc -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA256 Format: 3.0 (quilt) Source: stumpwm Binary: stumpwm Architecture: all Version: 2:1.0.0-1 Maintainer: Debian Common Lisp Team Uploaders: Peter Van Eynde , Desmond O. Chang , Milan Zamazal , Benda Xu Homepage: https://stumpwm.github.io/ Standards-Version: 4.1.4 Vcs-Browser: https://salsa.debian.org/common-lisp-team/stumpwm Vcs-Git: https://salsa.debian.org/common-lisp-team/stumpwm.git Build-Depends: debhelper (>= 11) Build-Depends-Indep: autoconf, cl-clx-sbcl, cl-ppcre, sbcl, texinfo Package-List: stumpwm deb x11 optional arch=all Checksums-Sha1: e679f2500c396dc59b56c28f6287dc5288fc1bc1 200794 stumpwm_1.0.0.orig.tar.gz aa6c0ef85370187a7cf9c2691c49e37a8f11b09e 12632 stumpwm_1.0.0-1.debian.tar.xz Checksums-Sha256: 31fcb6fb34af20bf4857bb4621ab4b2c9bd6bec92bfd9ddaf88a18f850ba5dd5 200794 stumpwm_1.0.0.orig.tar.gz d5c0809e8cda1a85bb87268e68745e937749d515d66b45e7ab8c7caef68adc96 12632 stumpwm_1.0.0-1.debian.tar.xz Files: 8c45abf8a32793432bc0662b91f5a7aa 200794 stumpwm_1.0.0.orig.tar.gz 21ea3115839d6064d13b6c682ed3c4dc 12632 stumpwm_1.0.0-1.debian.tar.xz -----BEGIN PGP SIGNATURE----- iQIzBAEBCAAdFiEEU5UdlScuDFuCvoxKLOzpNQ7OvkoFAlrR08MACgkQLOzpNQ7O vkpyKg//RMzaDD6bct+6J9+4v9TXrY0jgeZ6U9HCbJWxk8RTDH4SPVKSbBYGeo04 I1mzHsbvJenfVKJ8kMkq2gIQHq5XS1IgkiexkF04aLwBeKr04nfA7AfkmuvY3MrT 8k8RXVQ+KCF7ciz/BtysSMsdAC5ESG7f+Mf2rzcHCEp55NxbUAEVq5zbmZk/yURf m+VG4SW8/mL5iIUiqR0iFhCkwwjVPNc7+KTIKRQPnE6wWIerq0QOB5utkQ+815cB ucfdmZvtr7YWvIerohlZJRQnnrbqLR5Z6KTwa+pVeA1XxJoHqN4IRH/6nzgBWSMc VE0zeSTmdgtY7tgZhfWwwJ9mIxQIHCVUAM1u1vDOeLb1W2+9H/ddLhh1ZkpWheC2 aCzxVkZyzSIzo6bWVQcgo+1qGp4Z4b73ltNbsBLRGJa0FCy4BhAj7CN9L6xqoPzW x4kwTmE7cyI8bndjpZ+QY2Evjpq4S9SbFKHsxl6JUB6N/u0doNuEPKIKBOEytvlD jy3ms15YeaqrERPpCNnwj+Uw05nbUBuLiBpJJkqTuFmVR/1uRKFllWVv9+TD4f6d HB9jKmtbQcvS2kzYUU62Mt32N/MHqEh6Dv2Tn9isD+2ELrBkzydYp/QTuQoWhFnh sRVJXFdyTMJCKRueMxr1KXKlmCvy+12S/c/juboSug0apwdVRr8= =sT0B -----END PGP SIGNATURE----- Wed Jul 14 11:43:11 UTC 2021 I: Checking whether the package is not for us Wed Jul 14 11:43:11 UTC 2021 I: Starting 1st build on remote node codethink16-arm64.debian.net. Wed Jul 14 11:43:12 UTC 2021 I: Preparing to do remote build '1' on codethink16-arm64.debian.net. Wed Jul 14 11:45:55 UTC 2021 I: Deleting $TMPDIR on codethink16-arm64.debian.net. I: pbuilder: network access will be disabled during build I: Current time: Tue Jul 13 23:43:15 -12 2021 I: pbuilder-time-stamp: 1626262995 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/bullseye-reproducible-base.tgz] I: copying local configuration I: mounting /proc filesystem I: mounting /sys filesystem I: creating /{dev,run}/shm I: mounting /dev/pts filesystem I: redirecting /dev/ptmx to /dev/pts/ptmx I: policy-rc.d already exists I: Copying source file I: copying [stumpwm_1.0.0-1.dsc] I: copying [./stumpwm_1.0.0.orig.tar.gz] I: copying [./stumpwm_1.0.0-1.debian.tar.xz] I: Extracting source gpgv: unknown type of key resource 'trustedkeys.kbx' gpgv: keyblock resource '/tmp/dpkg-verify-sig.XllkLYah/trustedkeys.kbx': General error gpgv: Signature made Fri Apr 13 22:11:15 2018 -12 gpgv: using RSA key 53951D95272E0C5B82BE8C4A2CECE9350ECEBE4A gpgv: Can't check signature: No public key dpkg-source: warning: failed to verify signature on ./stumpwm_1.0.0-1.dsc dpkg-source: info: extracting stumpwm in 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: using patch list from debian/patches/series 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: using fakeroot in build. I: Installing the build-deps I: user script /srv/workspace/pbuilder/8464/tmp/hooks/D02_print_environment starting I: set BUILDDIR='/build' BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other' BUILDUSERNAME='pbuilder1' BUILD_ARCH='arm64' DEBIAN_FRONTEND='noninteractive' DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all,-fixfilepath parallel=8' DISTRIBUTION='' HOME='/var/lib/jenkins' HOST_ARCH='arm64' IFS=' ' LANG='C' LANGUAGE='en_US:en' LC_ALL='C' MAIL='/var/mail/root' OPTIND='1' PATH='/usr/sbin:/usr/bin:/sbin:/bin:/usr/games' PBCURRENTCOMMANDLINEOPERATION='build' PBUILDER_OPERATION='build' PBUILDER_PKGDATADIR='/usr/share/pbuilder' PBUILDER_PKGLIBDIR='/usr/lib/pbuilder' PBUILDER_SYSCONFDIR='/etc' PPID='8464' PS1='# ' PS2='> ' PS4='+ ' PWD='/' SHELL='/bin/bash' SHLVL='2' SUDO_COMMAND='/usr/bin/timeout -k 18.1h 18h /usr/bin/ionice -c 3 /usr/bin/nice /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/tmp.K3ytbyEG9b/pbuilderrc_NXwX --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/bullseye-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/tmp.K3ytbyEG9b/b1 --logfile b1/build.log stumpwm_1.0.0-1.dsc' SUDO_GID='117' SUDO_UID='110' SUDO_USER='jenkins' TERM='unknown' TZ='/usr/share/zoneinfo/Etc/GMT+12' USER='root' USERNAME='root' _='/usr/bin/systemd-run' http_proxy='http://192.168.101.16:3128' I: uname -a Linux codethink16-arm64 4.15.0-147-generic #151-Ubuntu SMP Fri Jun 18 19:18:37 UTC 2021 aarch64 GNU/Linux I: ls -l /bin total 5252 -rwxr-xr-x 1 root root 1282512 Jun 21 14:26 bash -rwxr-xr-x 3 root root 34808 Jul 20 2020 bunzip2 -rwxr-xr-x 3 root root 34808 Jul 20 2020 bzcat lrwxrwxrwx 1 root root 6 Jul 20 2020 bzcmp -> bzdiff -rwxr-xr-x 1 root root 2225 Jul 20 2020 bzdiff lrwxrwxrwx 1 root root 6 Jul 20 2020 bzegrep -> bzgrep -rwxr-xr-x 1 root root 4877 Sep 4 2019 bzexe lrwxrwxrwx 1 root root 6 Jul 20 2020 bzfgrep -> bzgrep -rwxr-xr-x 1 root root 3775 Jul 20 2020 bzgrep -rwxr-xr-x 3 root root 34808 Jul 20 2020 bzip2 -rwxr-xr-x 1 root root 14264 Jul 20 2020 bzip2recover lrwxrwxrwx 1 root root 6 Jul 20 2020 bzless -> bzmore -rwxr-xr-x 1 root root 1297 Jul 20 2020 bzmore -rwxr-xr-x 1 root root 39832 Sep 22 2020 cat -rwxr-xr-x 1 root root 64512 Sep 22 2020 chgrp -rwxr-xr-x 1 root root 60368 Sep 22 2020 chmod -rwxr-xr-x 1 root root 64528 Sep 22 2020 chown -rwxr-xr-x 1 root root 138896 Sep 22 2020 cp -rwxr-xr-x 1 root root 129544 Dec 10 2020 dash -rwxr-xr-x 1 root root 101384 Sep 22 2020 date -rwxr-xr-x 1 root root 80984 Sep 22 2020 dd -rwxr-xr-x 1 root root 89824 Sep 22 2020 df -rwxr-xr-x 1 root root 143088 Sep 22 2020 dir -rwxr-xr-x 1 root root 76152 Feb 7 02:38 dmesg lrwxrwxrwx 1 root root 8 Nov 6 2019 dnsdomainname -> hostname lrwxrwxrwx 1 root root 8 Nov 6 2019 domainname -> hostname -rwxr-xr-x 1 root root 35632 Sep 22 2020 echo -rwxr-xr-x 1 root root 28 Nov 9 2020 egrep -rwxr-xr-x 1 root root 31512 Sep 22 2020 false -rwxr-xr-x 1 root root 28 Nov 9 2020 fgrep -rwxr-xr-x 1 root root 64856 Feb 7 02:38 findmnt -rwsr-xr-x 1 root root 34824 Feb 26 04:12 fusermount -rwxr-xr-x 1 root root 178400 Nov 9 2020 grep -rwxr-xr-x 2 root root 2346 Mar 2 11:30 gunzip -rwxr-xr-x 1 root root 6376 Mar 2 11:30 gzexe -rwxr-xr-x 1 root root 93744 Mar 2 11:30 gzip -rwxr-xr-x 1 root root 18440 Nov 6 2019 hostname -rwxr-xr-x 1 root root 68720 Sep 22 2020 ln -rwxr-xr-x 1 root root 52720 Feb 7 2020 login -rwxr-xr-x 1 root root 143088 Sep 22 2020 ls -rwxr-xr-x 1 root root 161960 Feb 7 02:38 lsblk -rwxr-xr-x 1 root root 85200 Sep 22 2020 mkdir -rwxr-xr-x 1 root root 68744 Sep 22 2020 mknod -rwxr-xr-x 1 root root 43976 Sep 22 2020 mktemp -rwxr-xr-x 1 root root 51368 Feb 7 02:38 more -rwsr-xr-x 1 root root 51360 Feb 7 02:38 mount -rwxr-xr-x 1 root root 14496 Feb 7 02:38 mountpoint -rwxr-xr-x 1 root root 134808 Sep 22 2020 mv lrwxrwxrwx 1 root root 8 Nov 6 2019 nisdomainname -> hostname lrwxrwxrwx 1 root root 14 Apr 18 03:38 pidof -> /sbin/killall5 -rwxr-xr-x 1 root root 35720 Sep 22 2020 pwd lrwxrwxrwx 1 root root 4 Jun 21 14:26 rbash -> bash -rwxr-xr-x 1 root root 43872 Sep 22 2020 readlink -rwxr-xr-x 1 root root 68592 Sep 22 2020 rm -rwxr-xr-x 1 root root 43880 Sep 22 2020 rmdir -rwxr-xr-x 1 root root 19208 Sep 27 2020 run-parts -rwxr-xr-x 1 root root 114016 Dec 22 2018 sed lrwxrwxrwx 1 root root 4 Jul 13 21:24 sh -> dash -rwxr-xr-x 1 root root 35656 Sep 22 2020 sleep -rwxr-xr-x 1 root root 72640 Sep 22 2020 stty -rwsr-xr-x 1 root root 67776 Feb 7 02:38 su -rwxr-xr-x 1 root root 35672 Sep 22 2020 sync -rwxr-xr-x 1 root root 535768 Feb 16 21:55 tar -rwxr-xr-x 1 root root 10568 Sep 27 2020 tempfile -rwxr-xr-x 1 root root 89120 Sep 22 2020 touch -rwxr-xr-x 1 root root 31512 Sep 22 2020 true -rwxr-xr-x 1 root root 14264 Feb 26 04:12 ulockmgr_server -rwsr-xr-x 1 root root 30880 Feb 7 02:38 umount -rwxr-xr-x 1 root root 35640 Sep 22 2020 uname -rwxr-xr-x 2 root root 2346 Mar 2 11:30 uncompress -rwxr-xr-x 1 root root 143088 Sep 22 2020 vdir -rwxr-xr-x 1 root root 59584 Feb 7 02:38 wdctl lrwxrwxrwx 1 root root 8 Nov 6 2019 ypdomainname -> hostname -rwxr-xr-x 1 root root 1984 Mar 2 11:30 zcat -rwxr-xr-x 1 root root 1678 Mar 2 11:30 zcmp -rwxr-xr-x 1 root root 5880 Mar 2 11:30 zdiff -rwxr-xr-x 1 root root 29 Mar 2 11:30 zegrep -rwxr-xr-x 1 root root 29 Mar 2 11:30 zfgrep -rwxr-xr-x 1 root root 2081 Mar 2 11:30 zforce -rwxr-xr-x 1 root root 7585 Mar 2 11:30 zgrep -rwxr-xr-x 1 root root 2206 Mar 2 11:30 zless -rwxr-xr-x 1 root root 1842 Mar 2 11:30 zmore -rwxr-xr-x 1 root root 4553 Mar 2 11:30 znew I: user script /srv/workspace/pbuilder/8464/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy Version: 0.invalid.0 Architecture: arm64 Maintainer: Debian Pbuilder Team Description: Dummy package to satisfy dependencies with aptitude - created by pbuilder This package was created automatically by pbuilder to satisfy the build-dependencies of the package being currently built. Depends: debhelper (>= 11), autoconf, cl-clx-sbcl, cl-ppcre, sbcl, texinfo dpkg-deb: building package 'pbuilder-satisfydepends-dummy' in '/tmp/satisfydepends-aptitude/pbuilder-satisfydepends-dummy.deb'. Selecting previously unselected package pbuilder-satisfydepends-dummy. (Reading database ... 19646 files and directories currently installed.) Preparing to unpack .../pbuilder-satisfydepends-dummy.deb ... Unpacking pbuilder-satisfydepends-dummy (0.invalid.0) ... dpkg: pbuilder-satisfydepends-dummy: dependency problems, but configuring anyway as you requested: pbuilder-satisfydepends-dummy depends on debhelper (>= 11); however: Package debhelper is not installed. pbuilder-satisfydepends-dummy depends on autoconf; however: Package autoconf is not installed. pbuilder-satisfydepends-dummy depends on cl-clx-sbcl; however: Package cl-clx-sbcl is not installed. pbuilder-satisfydepends-dummy depends on cl-ppcre; however: Package cl-ppcre is not installed. pbuilder-satisfydepends-dummy depends on sbcl; however: Package sbcl is not installed. pbuilder-satisfydepends-dummy depends on texinfo; however: Package texinfo is not installed. Setting up pbuilder-satisfydepends-dummy (0.invalid.0) ... Reading package lists... Building dependency tree... Reading state information... Initializing package states... Writing extended state information... Building tag database... pbuilder-satisfydepends-dummy is already installed at the requested version (0.invalid.0) pbuilder-satisfydepends-dummy is already installed at the requested version (0.invalid.0) The following NEW packages will be installed: autoconf{a} automake{a} autopoint{a} autotools-dev{a} bsdextrautils{a} cl-asdf{a} cl-clx-sbcl{a} cl-ppcre{a} debhelper{a} dh-autoreconf{a} dh-strip-nondeterminism{a} dwz{a} file{a} gettext{a} gettext-base{a} groff-base{a} intltool-debian{a} libarchive-zip-perl{a} libdebhelper-perl{a} libelf1{a} libfile-stripnondeterminism-perl{a} libicu67{a} libmagic-mgc{a} libmagic1{a} libpipeline1{a} libsigsegv2{a} libsub-override-perl{a} libtext-unidecode-perl{a} libtool{a} libuchardet0{a} libxml-libxml-perl{a} libxml-namespacesupport-perl{a} libxml-sax-base-perl{a} libxml-sax-perl{a} libxml2{a} m4{a} man-db{a} po-debconf{a} sbcl{a} sensible-utils{a} tex-common{a} texinfo{a} ucf{a} The following packages are RECOMMENDED but will NOT be installed: binfmt-support cl-flexi-streams curl libarchive-cpio-perl libltdl-dev libmail-sendmail-perl libwww-perl libxml-sax-expat-perl lynx wget 0 packages upgraded, 43 newly installed, 0 to remove and 0 not upgraded. Need to get 30.2 MB of archives. After unpacking 136 MB will be used. Writing extended state information... Get: 1 http://deb.debian.org/debian bullseye/main arm64 bsdextrautils arm64 2.36.1-7 [141 kB] Get: 2 http://deb.debian.org/debian bullseye/main arm64 libuchardet0 arm64 0.0.7-1 [67.9 kB] Get: 3 http://deb.debian.org/debian bullseye/main arm64 groff-base arm64 1.22.4-6 [883 kB] Get: 4 http://deb.debian.org/debian bullseye/main arm64 libpipeline1 arm64 1.5.3-1 [33.0 kB] Get: 5 http://deb.debian.org/debian bullseye/main arm64 man-db arm64 2.9.4-2 [1336 kB] Get: 6 http://deb.debian.org/debian bullseye/main arm64 sensible-utils all 0.0.14 [14.8 kB] Get: 7 http://deb.debian.org/debian bullseye/main arm64 ucf all 3.0043 [74.0 kB] Get: 8 http://deb.debian.org/debian bullseye/main arm64 tex-common all 6.16 [53.7 kB] Get: 9 http://deb.debian.org/debian bullseye/main arm64 libmagic-mgc arm64 1:5.39-3 [273 kB] Get: 10 http://deb.debian.org/debian bullseye/main arm64 libmagic1 arm64 1:5.39-3 [121 kB] Get: 11 http://deb.debian.org/debian bullseye/main arm64 file arm64 1:5.39-3 [69.1 kB] Get: 12 http://deb.debian.org/debian bullseye/main arm64 gettext-base arm64 0.21-4 [173 kB] Get: 13 http://deb.debian.org/debian bullseye/main arm64 libsigsegv2 arm64 2.13-1 [34.7 kB] Get: 14 http://deb.debian.org/debian bullseye/main arm64 m4 arm64 1.4.18-5 [199 kB] Get: 15 http://deb.debian.org/debian bullseye/main arm64 autoconf all 2.69-14 [313 kB] Get: 16 http://deb.debian.org/debian bullseye/main arm64 autotools-dev all 20180224.1+nmu1 [77.1 kB] Get: 17 http://deb.debian.org/debian bullseye/main arm64 automake all 1:1.16.3-2 [814 kB] Get: 18 http://deb.debian.org/debian bullseye/main arm64 autopoint all 0.21-4 [510 kB] Get: 19 http://deb.debian.org/debian bullseye/main arm64 cl-asdf all 2:3.3.4-2 [1263 kB] Get: 20 http://deb.debian.org/debian bullseye/main arm64 cl-clx-sbcl arm64 0.7.4.20160323-1.1 [370 kB] Get: 21 http://deb.debian.org/debian bullseye/main arm64 cl-ppcre all 20190407.git1ca0cd9-2 [113 kB] Get: 22 http://deb.debian.org/debian bullseye/main arm64 libdebhelper-perl all 13.3.4 [189 kB] Get: 23 http://deb.debian.org/debian bullseye/main arm64 libtool all 2.4.6-15 [513 kB] Get: 24 http://deb.debian.org/debian bullseye/main arm64 dh-autoreconf all 20 [17.1 kB] Get: 25 http://deb.debian.org/debian bullseye/main arm64 libarchive-zip-perl all 1.68-1 [104 kB] Get: 26 http://deb.debian.org/debian bullseye/main arm64 libsub-override-perl all 0.09-2 [10.2 kB] Get: 27 http://deb.debian.org/debian bullseye/main arm64 libfile-stripnondeterminism-perl all 1.11.0-1 [25.6 kB] Get: 28 http://deb.debian.org/debian bullseye/main arm64 dh-strip-nondeterminism all 1.11.0-1 [15.3 kB] Get: 29 http://deb.debian.org/debian bullseye/main arm64 libelf1 arm64 0.183-1 [164 kB] Get: 30 http://deb.debian.org/debian bullseye/main arm64 dwz arm64 0.13+20210201-1 [155 kB] Get: 31 http://deb.debian.org/debian bullseye/main arm64 libicu67 arm64 67.1-7 [8467 kB] Get: 32 http://deb.debian.org/debian bullseye/main arm64 libxml2 arm64 2.9.10+dfsg-6.7 [629 kB] Get: 33 http://deb.debian.org/debian bullseye/main arm64 gettext arm64 0.21-4 [1261 kB] Get: 34 http://deb.debian.org/debian bullseye/main arm64 intltool-debian all 0.35.0+20060710.5 [26.8 kB] Get: 35 http://deb.debian.org/debian bullseye/main arm64 po-debconf all 1.0.21+nmu1 [248 kB] Get: 36 http://deb.debian.org/debian bullseye/main arm64 debhelper all 13.3.4 [1049 kB] Get: 37 http://deb.debian.org/debian bullseye/main arm64 libtext-unidecode-perl all 1.30-1 [103 kB] Get: 38 http://deb.debian.org/debian bullseye/main arm64 libxml-namespacesupport-perl all 1.12-1.1 [14.9 kB] Get: 39 http://deb.debian.org/debian bullseye/main arm64 libxml-sax-base-perl all 1.09-1.1 [20.7 kB] Get: 40 http://deb.debian.org/debian bullseye/main arm64 libxml-sax-perl all 1.02+dfsg-1 [59.0 kB] Get: 41 http://deb.debian.org/debian bullseye/main arm64 libxml-libxml-perl arm64 2.0134+dfsg-2+b1 [326 kB] Get: 42 http://deb.debian.org/debian bullseye/main arm64 sbcl arm64 2:2.1.1-2 [8126 kB] Get: 43 http://deb.debian.org/debian bullseye/main arm64 texinfo arm64 6.7.0.dfsg.2-6 [1753 kB] Fetched 30.2 MB in 7s (4318 kB/s) debconf: delaying package configuration, since apt-utils is not installed Selecting previously unselected package bsdextrautils. (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 ... 19646 files and directories currently installed.) Preparing to unpack .../00-bsdextrautils_2.36.1-7_arm64.deb ... Unpacking bsdextrautils (2.36.1-7) ... Selecting previously unselected package libuchardet0:arm64. Preparing to unpack .../01-libuchardet0_0.0.7-1_arm64.deb ... Unpacking libuchardet0:arm64 (0.0.7-1) ... Selecting previously unselected package groff-base. Preparing to unpack .../02-groff-base_1.22.4-6_arm64.deb ... Unpacking groff-base (1.22.4-6) ... Selecting previously unselected package libpipeline1:arm64. Preparing to unpack .../03-libpipeline1_1.5.3-1_arm64.deb ... Unpacking libpipeline1:arm64 (1.5.3-1) ... Selecting previously unselected package man-db. Preparing to unpack .../04-man-db_2.9.4-2_arm64.deb ... Unpacking man-db (2.9.4-2) ... Selecting previously unselected package sensible-utils. Preparing to unpack .../05-sensible-utils_0.0.14_all.deb ... Unpacking sensible-utils (0.0.14) ... Selecting previously unselected package ucf. Preparing to unpack .../06-ucf_3.0043_all.deb ... Moving old data out of the way Unpacking ucf (3.0043) ... Selecting previously unselected package tex-common. Preparing to unpack .../07-tex-common_6.16_all.deb ... Unpacking tex-common (6.16) ... Selecting previously unselected package libmagic-mgc. Preparing to unpack .../08-libmagic-mgc_1%3a5.39-3_arm64.deb ... Unpacking libmagic-mgc (1:5.39-3) ... Selecting previously unselected package libmagic1:arm64. Preparing to unpack .../09-libmagic1_1%3a5.39-3_arm64.deb ... Unpacking libmagic1:arm64 (1:5.39-3) ... Selecting previously unselected package file. Preparing to unpack .../10-file_1%3a5.39-3_arm64.deb ... Unpacking file (1:5.39-3) ... Selecting previously unselected package gettext-base. Preparing to unpack .../11-gettext-base_0.21-4_arm64.deb ... Unpacking gettext-base (0.21-4) ... Selecting previously unselected package libsigsegv2:arm64. Preparing to unpack .../12-libsigsegv2_2.13-1_arm64.deb ... Unpacking libsigsegv2:arm64 (2.13-1) ... Selecting previously unselected package m4. Preparing to unpack .../13-m4_1.4.18-5_arm64.deb ... Unpacking m4 (1.4.18-5) ... Selecting previously unselected package autoconf. Preparing to unpack .../14-autoconf_2.69-14_all.deb ... Unpacking autoconf (2.69-14) ... Selecting previously unselected package autotools-dev. Preparing to unpack .../15-autotools-dev_20180224.1+nmu1_all.deb ... Unpacking autotools-dev (20180224.1+nmu1) ... Selecting previously unselected package automake. Preparing to unpack .../16-automake_1%3a1.16.3-2_all.deb ... Unpacking automake (1:1.16.3-2) ... Selecting previously unselected package autopoint. Preparing to unpack .../17-autopoint_0.21-4_all.deb ... Unpacking autopoint (0.21-4) ... Selecting previously unselected package cl-asdf. Preparing to unpack .../18-cl-asdf_2%3a3.3.4-2_all.deb ... Unpacking cl-asdf (2:3.3.4-2) ... Selecting previously unselected package cl-clx-sbcl. Preparing to unpack .../19-cl-clx-sbcl_0.7.4.20160323-1.1_arm64.deb ... Unpacking cl-clx-sbcl (0.7.4.20160323-1.1) ... Selecting previously unselected package cl-ppcre. Preparing to unpack .../20-cl-ppcre_20190407.git1ca0cd9-2_all.deb ... Unpacking cl-ppcre (20190407.git1ca0cd9-2) ... Selecting previously unselected package libdebhelper-perl. Preparing to unpack .../21-libdebhelper-perl_13.3.4_all.deb ... Unpacking libdebhelper-perl (13.3.4) ... Selecting previously unselected package libtool. Preparing to unpack .../22-libtool_2.4.6-15_all.deb ... Unpacking libtool (2.4.6-15) ... Selecting previously unselected package dh-autoreconf. Preparing to unpack .../23-dh-autoreconf_20_all.deb ... Unpacking dh-autoreconf (20) ... Selecting previously unselected package libarchive-zip-perl. Preparing to unpack .../24-libarchive-zip-perl_1.68-1_all.deb ... Unpacking libarchive-zip-perl (1.68-1) ... Selecting previously unselected package libsub-override-perl. Preparing to unpack .../25-libsub-override-perl_0.09-2_all.deb ... Unpacking libsub-override-perl (0.09-2) ... Selecting previously unselected package libfile-stripnondeterminism-perl. Preparing to unpack .../26-libfile-stripnondeterminism-perl_1.11.0-1_all.deb ... Unpacking libfile-stripnondeterminism-perl (1.11.0-1) ... Selecting previously unselected package dh-strip-nondeterminism. Preparing to unpack .../27-dh-strip-nondeterminism_1.11.0-1_all.deb ... Unpacking dh-strip-nondeterminism (1.11.0-1) ... Selecting previously unselected package libelf1:arm64. Preparing to unpack .../28-libelf1_0.183-1_arm64.deb ... Unpacking libelf1:arm64 (0.183-1) ... Selecting previously unselected package dwz. Preparing to unpack .../29-dwz_0.13+20210201-1_arm64.deb ... Unpacking dwz (0.13+20210201-1) ... Selecting previously unselected package libicu67:arm64. Preparing to unpack .../30-libicu67_67.1-7_arm64.deb ... Unpacking libicu67:arm64 (67.1-7) ... Selecting previously unselected package libxml2:arm64. Preparing to unpack .../31-libxml2_2.9.10+dfsg-6.7_arm64.deb ... Unpacking libxml2:arm64 (2.9.10+dfsg-6.7) ... Selecting previously unselected package gettext. Preparing to unpack .../32-gettext_0.21-4_arm64.deb ... Unpacking gettext (0.21-4) ... Selecting previously unselected package intltool-debian. Preparing to unpack .../33-intltool-debian_0.35.0+20060710.5_all.deb ... Unpacking intltool-debian (0.35.0+20060710.5) ... Selecting previously unselected package po-debconf. Preparing to unpack .../34-po-debconf_1.0.21+nmu1_all.deb ... Unpacking po-debconf (1.0.21+nmu1) ... Selecting previously unselected package debhelper. Preparing to unpack .../35-debhelper_13.3.4_all.deb ... Unpacking debhelper (13.3.4) ... Selecting previously unselected package libtext-unidecode-perl. Preparing to unpack .../36-libtext-unidecode-perl_1.30-1_all.deb ... Unpacking libtext-unidecode-perl (1.30-1) ... Selecting previously unselected package libxml-namespacesupport-perl. Preparing to unpack .../37-libxml-namespacesupport-perl_1.12-1.1_all.deb ... Unpacking libxml-namespacesupport-perl (1.12-1.1) ... Selecting previously unselected package libxml-sax-base-perl. Preparing to unpack .../38-libxml-sax-base-perl_1.09-1.1_all.deb ... Unpacking libxml-sax-base-perl (1.09-1.1) ... Selecting previously unselected package libxml-sax-perl. Preparing to unpack .../39-libxml-sax-perl_1.02+dfsg-1_all.deb ... Unpacking libxml-sax-perl (1.02+dfsg-1) ... Selecting previously unselected package libxml-libxml-perl. Preparing to unpack .../40-libxml-libxml-perl_2.0134+dfsg-2+b1_arm64.deb ... Unpacking libxml-libxml-perl (2.0134+dfsg-2+b1) ... Selecting previously unselected package sbcl. Preparing to unpack .../41-sbcl_2%3a2.1.1-2_arm64.deb ... Unpacking sbcl (2:2.1.1-2) ... Selecting previously unselected package texinfo. Preparing to unpack .../42-texinfo_6.7.0.dfsg.2-6_arm64.deb ... Unpacking texinfo (6.7.0.dfsg.2-6) ... Setting up libpipeline1:arm64 (1.5.3-1) ... Setting up bsdextrautils (2.36.1-7) ... update-alternatives: using /usr/bin/write.ul to provide /usr/bin/write (write) in auto mode Setting up libicu67:arm64 (67.1-7) ... Setting up libmagic-mgc (1:5.39-3) ... Setting up cl-asdf (2:3.3.4-2) ... Setting up libarchive-zip-perl (1.68-1) ... Setting up libdebhelper-perl (13.3.4) ... Setting up libmagic1:arm64 (1:5.39-3) ... Setting up libxml-namespacesupport-perl (1.12-1.1) ... Setting up gettext-base (0.21-4) ... Setting up file (1:5.39-3) ... Setting up libxml-sax-base-perl (1.09-1.1) ... Setting up autotools-dev (20180224.1+nmu1) ... Setting up libsigsegv2:arm64 (2.13-1) ... Setting up autopoint (0.21-4) ... Setting up cl-clx-sbcl (0.7.4.20160323-1.1) ... Setting up sbcl (2:2.1.1-2) ... Setting up sensible-utils (0.0.14) ... Setting up libuchardet0:arm64 (0.0.7-1) ... Setting up libsub-override-perl (0.09-2) ... Setting up cl-ppcre (20190407.git1ca0cd9-2) ... Setting up libtext-unidecode-perl (1.30-1) ... Setting up libelf1:arm64 (0.183-1) ... Setting up libxml2:arm64 (2.9.10+dfsg-6.7) ... Setting up libfile-stripnondeterminism-perl (1.11.0-1) ... Setting up gettext (0.21-4) ... Setting up libtool (2.4.6-15) ... Setting up m4 (1.4.18-5) ... Setting up intltool-debian (0.35.0+20060710.5) ... Setting up ucf (3.0043) ... Setting up autoconf (2.69-14) ... Setting up dh-strip-nondeterminism (1.11.0-1) ... Setting up dwz (0.13+20210201-1) ... Setting up groff-base (1.22.4-6) ... Setting up automake (1:1.16.3-2) ... update-alternatives: using /usr/bin/automake-1.16 to provide /usr/bin/automake (automake) in auto mode Setting up po-debconf (1.0.21+nmu1) ... Setting up man-db (2.9.4-2) ... Not building database; man-db/auto-update is not 'true'. Setting up libxml-sax-perl (1.02+dfsg-1) ... update-perl-sax-parsers: Registering Perl SAX parser XML::SAX::PurePerl with priority 10... update-perl-sax-parsers: Updating overall Perl SAX parser modules info file... Creating config file /etc/perl/XML/SAX/ParserDetails.ini with new version Setting up dh-autoreconf (20) ... Setting up tex-common (6.16) ... update-language: texlive-base not installed and configured, doing nothing! Setting up libxml-libxml-perl (2.0134+dfsg-2+b1) ... update-perl-sax-parsers: Registering Perl SAX parser XML::LibXML::SAX::Parser with priority 50... update-perl-sax-parsers: Registering Perl SAX parser XML::LibXML::SAX with priority 50... update-perl-sax-parsers: Updating overall Perl SAX parser modules info file... Replacing config file /etc/perl/XML/SAX/ParserDetails.ini with new version Setting up debhelper (13.3.4) ... Setting up texinfo (6.7.0.dfsg.2-6) ... Processing triggers for libc-bin (2.31-12) ... Reading package lists... Building dependency tree... Reading state information... Reading extended state information... Initializing package states... Writing extended state information... Building tag database... -> Finished parsing the build-deps Reading package lists... Building dependency tree... Reading state information... fakeroot is already the newest version (1.25.3-1.1). 0 upgraded, 0 newly installed, 0 to remove and 0 not upgraded. I: Building the package I: Running cd /build/stumpwm-1.0.0/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-genchanges -S > ../stumpwm_1.0.0-1_source.changes 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 . dpkg-buildpackage: info: host architecture arm64 fakeroot debian/rules clean dh clean debian/rules override_dh_auto_clean make[1]: Entering directory '/build/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-1.0.0' dh_clean debian/rules build dh build dh_update_autotools_config dh_autoreconf debian/rules override_dh_auto_configure make[1]: Entering directory '/build/stumpwm-1.0.0' dh_auto_configure -- --with-lisp=sbcl ./configure --build=aarch64-linux-gnu --prefix=/usr --includedir=\${prefix}/include --mandir=\${prefix}/share/man --infodir=\${prefix}/share/info --sysconfdir=/etc --localstatedir=/var --disable-option-checking --disable-silent-rules --libdir=\${prefix}/lib/aarch64-linux-gnu --libexecdir=\${prefix}/lib/aarch64-linux-gnu --runstatedir=/run --disable-maintainer-mode --disable-dependency-tracking --with-lisp=sbcl 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: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp config.status: creating load-stumpwm.lisp make[1]: Leaving directory '/build/stumpwm-1.0.0' debian/rules override_dh_auto_build-indep make[1]: Entering directory '/build/stumpwm-1.0.0' XDG_CACHE_HOME=/build/stumpwm-1.0.0/.cache /usr/bin/make stumpwm.info make[2]: Entering directory '/build/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 2.1.1.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 14 JAN 2021 01:45:37 AM): ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-asdf/build/asdf-tmpGHU3ALSV.fasl ; compilation finished in 0:00:23.704 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-USER) ; processing (DEFPACKAGE :CL-PPCRE ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/packages-tmpAAURSO1.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFVAR *STANDARD-OPTIMIZE-SETTINGS* ...) ; processing (DEFVAR *SPECIAL-OPTIMIZE-SETTINGS* ...) ; processing (DEFVAR *EXTENDED-MODE-P* ...) ; processing (DECLAIM (BOOLEAN *EXTENDED-MODE-P*)) ; processing (DEFVAR *REGEX-CHAR-CODE-LIMIT* ...) ; processing (DECLAIM (FIXNUM *REGEX-CHAR-CODE-LIMIT*)) ; processing (DEFVAR *STRING* ...) ; processing (DECLAIM (SIMPLE-STRING *STRING*)) ; processing (DEFVAR *START-POS* ...) ; processing (DECLAIM (FIXNUM *START-POS*)) ; processing (DEFVAR *REAL-START-POS* ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFVAR *END-POS* ...) ; processing (DECLAIM (FIXNUM *END-POS*)) ; processing (DEFVAR *REG-STARTS* ...) ; processing (DECLAIM (SIMPLE-VECTOR *REG-STARTS*)) ; processing (DEFVAR *REGS-MAYBE-START* ...) ; processing (DECLAIM (SIMPLE-VECTOR *REGS-MAYBE-START*)) ; processing (DEFVAR *REG-ENDS* ...) ; processing (DECLAIM (SIMPLE-VECTOR *REG-ENDS*)) ; processing (DEFVAR *END-STRING-POS* ...) ; processing (DEFVAR *REP-NUM* ...) ; processing (DECLAIM (FIXNUM *REP-NUM*)) ; processing (DEFVAR *ZERO-LENGTH-NUM* ...) ; processing (DECLAIM (FIXNUM *ZERO-LENGTH-NUM*)) ; processing (DEFVAR *REPEAT-COUNTERS* ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFVAR *LAST-POS-STORES* ...) ; processing (DECLAIM (SIMPLE-VECTOR *LAST-POS-STORES*)) ; processing (DEFVAR *USE-BMH-MATCHERS* ...) ; processing (DEFVAR *OPTIMIZE-CHAR-CLASSES* ...) ; processing (DEFVAR *PROPERTY-RESOLVER* ...) ; processing (DEFVAR *ALLOW-QUOTING* ...) ; processing (DEFVAR *ALLOW-NAMED-REGISTERS* ...) ; processing (PUSHNEW :CL-PPCRE ...) ; processing (DEFVAR *HYPERDOC-BASE-URI* ...) ; processing (LET (#) ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/specials-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFMACRO DEFCONSTANT ...) ; processing (DEFMACRO WITH-UNIQUE-NAMES ...) ; processing (DEFMACRO WITH-REBINDING ...) ; processing (DECLAIM (INLINE DIGIT-CHAR-P)) ; processing (DEFUN DIGIT-CHAR-P ...) ; processing (DECLAIM (INLINE WORD-CHAR-P)) ; processing (DEFUN WORD-CHAR-P ...) ; processing (DEFCONSTANT +WHITESPACE-CHAR-STRING+ ...) ; processing (DEFUN WHITESPACEP ...) ; processing (DEFMACRO MAYBE-COERCE-TO-SIMPLE-STRING ...) ; processing (DECLAIM (INLINE NSUBSEQ)) ; processing (DEFUN NSUBSEQ ...) ; processing (DEFUN NORMALIZE-VAR-LIST ...) ; processing (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. ; processing (DEFUN COMPLEMENT* ...) ; file: /usr/share/common-lisp/source/cl-ppcre/util.lisp ; in: DEFUN COMPLEMENT* ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/util-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.144 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFVAR *SYNTAX-ERROR-STRING* ...) ; processing (DEFINE-CONDITION PPCRE-ERROR ...) ; processing (DEFINE-CONDITION PPCRE-SYNTAX-ERROR ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (SETF (DOCUMENTATION # ...) ...) ; processing (DEFINE-CONDITION PPCRE-INVOCATION-ERROR ...) ; processing (DEFMACRO SIGNAL-SYNTAX-ERROR* ...) ; processing (DEFMACRO SIGNAL-SYNTAX-ERROR ...) ; processing (DEFMACRO SIGNAL-INVOCATION-ERROR ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/errors-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.048 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFCONSTANT +PROBE-DEPTH+ ...) ; processing (DEFUN MAKE-CHAR-VECTOR ...) ; processing (DEFSTRUCT (CHARSET #) ...) ; processing (DEFMETHOD MAKE-LOAD-FORM ...) ; processing (DECLAIM (INLINE MIX)) ; processing (DEFUN MIX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (DECLAIM (INLINE COMPUTE-INDEX)) ; processing (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 VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a (OR ; (RATIONAL (-4611686018427387899) ; (4611686018427387899)) ; DOUBLE-FLOAT SINGLE-FLOAT), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR ; (RATIONAL (-4611686018427387899) ; (4611686018427387899)) ; DOUBLE-FLOAT SINGLE-FLOAT), not a RATIONAL. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; 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. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; 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 full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; etc. ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR ; (RATIONAL (-4611686018427387899) ; (4611686018427387899)) ; DOUBLE-FLOAT SINGLE-FLOAT), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR (INTEGER -1 -1) ; (INTEGER 1 4611686018427387899)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT ; (RATIONAL (-4611686018427387900) ; (9223372036854775798))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL (-4611686018427387900) ; (9223372036854775798)), not a FIXNUM. ; unable to do inline (signed-byte 64) comparison (cost 6) because: ; The first argument is a (RATIONAL (-4611686018427387900) ; (9223372036854775798)), not a (SIGNED-BYTE ; 64). ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL (-4611686018427387899) ; (9223372036854775798)), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (RATIONAL (-4611686018427387899) ; (9223372036854775798)), not a (UNSIGNED-BYTE ; 64). ; etc. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: forced to do full call ; 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 (-4611686018427387898) ; (4611686018427387900))) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR ; (RATIONAL (-4611686018427387899) ; (4611686018427387899)) ; DOUBLE-FLOAT SINGLE-FLOAT), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT ; (RATIONAL (-4611686018427387898) ; (4611686018427387900))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; processing (DEFUN IN-CHARSET-P ...) ; processing (DEFUN ADD-TO-CHARSET ...) ; processing (DEFUN %ADD-TO-CHARSET ...) ; processing (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 ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 371370.0d0) ; (SINGLE-FLOAT * 371370.0) ; (RATIONAL * 371370)), 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 full call ; 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). ; unable to do inline (signed-byte 64) arithmetic (cost 3) 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) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; 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 ; processing (DEFUN MAP-CHARSET ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (ZEROP (DECF CL-PPCRE::N)) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (DECF CL-PPCRE::N) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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) ; ; 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 ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charset-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.212 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFSTRUCT (CHARMAP #) ...) ; processing (DEFMETHOD MAKE-LOAD-FORM ...) ; processing (DECLAIM (INLINE IN-CHARMAP-P)) ; processing (DEFUN IN-CHARMAP-P ...) ; processing (DEFUN CHARMAP-CONTENTS ...) ; processing (DEFUN MAKE-CHARMAP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charmap.lisp ; in: DEFUN MAKE-CHARMAP ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; processing (DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charmap.lisp ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (1- CL-PPCRE::END) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> BLOCK LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-18) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> BLOCK LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; (1- CL-PPCRE::END) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &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 full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charmap-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.196 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (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) ; ; 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 ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; processing (DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; 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 (SIGNED-BYTE 64). ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; ; 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. ; ; 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: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; 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 (SIGNED-BYTE 64). ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; ; 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. ; ; 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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) 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. ; (<= (HASH-TABLE-COUNT HASH-TABLE) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; etc. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) 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. ; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/chartest-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.124 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DECLAIM (INLINE MAP-CHAR-TO-SPECIAL-CLASS)) ; processing (DEFUN MAP-CHAR-TO-SPECIAL-CHAR-CLASS ...) ; processing (DECLAIM (INLINE MAKE-LEXER-INTERNAL)) ; processing (DEFSTRUCT (LEXER #) ...) ; processing (DEFUN MAKE-LEXER ...) ; processing (DECLAIM (INLINE END-OF-STRING-P)) ; processing (DEFUN END-OF-STRING-P ...) ; processing (DECLAIM (INLINE LOOKING-AT-P)) ; processing (DEFUN LOOKING-AT-P ...) ; processing (DECLAIM (INLINE NEXT-CHAR-NON-EXTENDED)) ; processing (DEFUN NEXT-CHAR-NON-EXTENDED ...) ; processing (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) ; processing (DECLAIM (INLINE FAIL)) ; processing (DEFUN FAIL ...) ; processing (DEFUN GET-NUMBER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN GET-NUMBER ; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN) ; CL-PPCRE::END-POS ; CL-PPCRE::LEXER-LEN) ; ==> ; CL-PPCRE::END-POS ; ; note: doing signed word to integer coercion (cost 20) ; processing (DECLAIM (INLINE TRY-NUMBER)) ; processing (DEFUN TRY-NUMBER ...) ; processing (DECLAIM (INLINE MAKE-CHAR-FROM-CODE)) ; processing (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 ; processing (DEFUN UNESCAPE-CHAR ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; processing (DEFUN READ-CHAR-PROPERTY ...) ; processing (DEFUN COLLECT-CHAR-CLASS ...) ; processing (DEFUN MAYBE-PARSE-FLAGS ...) ; processing (DEFUN GET-QUANTIFIER ...) ; processing (DEFUN PARSE-REGISTER-NAME-AUX ...) ; processing (DECLAIM (INLINE UNGET-TOKEN)) ; processing (DEFUN UNGET-TOKEN ...) ; processing (DEFUN GET-TOKEN ...) ; processing (DECLAIM (INLINE START-OF-SUBEXPR-P)) ; processing (DEFUN START-OF-SUBEXPR-P ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/lexer-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.576 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (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) ; processing (DEFUN GREEDY-QUANT ...) ; processing (DEFUN QUANT ...) ; processing (DEFUN SEQ ...) ; processing (DEFUN REG-EXPR ...) ; processing (DEFUN PARSE-STRING ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/parser-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.092 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFCLASS REGEX ...) ; processing (DEFCLASS SEQ ...) ; processing (DEFCLASS ALTERNATION ...) ; processing (DEFCLASS LOOKAHEAD ...) ; processing (DEFCLASS LOOKBEHIND ...) ; processing (DEFCLASS REPETITION ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS REGISTER ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS STANDALONE ...) ; processing (DEFCLASS BACK-REFERENCE ...) ; processing (DEFCLASS CHAR-CLASS ...) ; processing (DEFCLASS STR ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFCLASS ANCHOR ...) ; processing (DEFCLASS EVERYTHING ...) ; processing (DEFCLASS WORD-BOUNDARY ...) ; processing (DEFCLASS BRANCH ...) ; processing (DEFCLASS FILTER ...) ; processing (DEFCLASS VOID ...) ; processing (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) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS NULL ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-tmpQ371UGST.fasl ; compilation finished in 0:00:00.064 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFMETHOD LEN ...) ; processing (DEFMETHOD STR ...) ; processing (DEFMETHOD SKIP ...) ; processing (DEFMETHOD START-OF-END-STRING-P ...) ; processing (DEFGENERIC CASE-MODE ...) ; processing (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)) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; processing (DEFMETHOD CASE-MODE ...) ; processing (DEFGENERIC COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFMETHOD COPY-REGEX ...) ; processing (DEFGENERIC REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFMETHOD REMOVE-REGISTERS ...) ; processing (DEFGENERIC EVERYTHINGP ...) ; processing (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 VECTOR. ; processing (DEFMETHOD EVERYTHINGP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (AND (= 1 (LENGTH CL-PPCRE::CHOICES)) ; (CL-PPCRE::EVERYTHINGP (FIRST CL-PPCRE::CHOICES))) ; --> IF = ; ==> ; (LENGTH ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::CHOICES) ; (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 VECTOR. ; processing (DEFMETHOD EVERYTHINGP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (AND CL-PPCRE::MAXIMUM (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; (CL-PPCRE::EVERYTHINGP CL-PPCRE::REGEX)) ; --> IF IF ; ==> ; (= 1 ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MAXIMUM))) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), 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 (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a (OR ; (COMPLEX ; SINGLE-FLOAT) ; (COMPLEX ; DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (SINGLE-FLOAT 1.0 1.0) ; (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) ; (SINGLE-FLOAT 1.0 1.0) (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (DOUBLE-FLOAT 1.0d0 1.0d0) ; (SINGLE-FLOAT 1.0 1.0) (INTEGER 1 1) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (INTEGER 1 1))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; processing (DEFMETHOD EVERYTHINGP ...) ; processing (DEFMETHOD EVERYTHINGP ...) ; processing (DEFMETHOD EVERYTHINGP ...) ; processing (DEFMETHOD EVERYTHINGP ...) ; processing (DEFGENERIC REGEX-LENGTH ...) ; processing (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-5 CL-PPCRE::LEN) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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 (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (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) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; processing (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: unable to ; optimize ; due to type uncertainty: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; etc. ; processing (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (AND CL-PPCRE::LEN (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)) ; --> IF ; ==> ; (EQL ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MAXIMUM))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; (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)) ; --> LET SYMBOL-MACROLET IF ; ==> ; (* ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN))) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; 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. ; (AND CL-PPCRE::LEN (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)) ; --> IF ; ==> ; (EQL ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MAXIMUM))) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; etc. ; (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)) ; --> LET SYMBOL-MACROLET IF ; ==> ; (* ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN))) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFMETHOD REGEX-LENGTH ...) ; processing (DEFGENERIC REGEX-MIN-LENGTH ...) ; processing (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-5 CL-PPCRE::LEN) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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 T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (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-9 #:LOOP-MAXMIN-8) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; processing (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))) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; processing (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 ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; 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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFMETHOD REGEX-MIN-LENGTH ...) ; processing (DEFGENERIC COMPUTE-OFFSETS ...) ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; processing (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) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; processing (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: unable to ; optimize ; due to type uncertainty: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; etc. ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (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)) ; --> LET SYMBOL-MACROLET IF + ; ==> ; (* ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN))) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; 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. ; --> LET SYMBOL-MACROLET IF ; ==> ; (+ CL-PPCRE::START-POS ; (* ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::LEN)))) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> LET SYMBOL-MACROLET IF + ; ==> ; (* ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN))) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> LET SYMBOL-MACROLET IF ; ==> ; (+ CL-PPCRE::START-POS ; (* ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::LEN)))) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; processing (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) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; processing (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: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-OFFSETS ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.580 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFMACRO CASE-INSENSITIVE-MODE-P ...) ; processing (DEFMACRO MULTI-LINE-MODE-P ...) ; processing (DEFMACRO SINGLE-LINE-MODE-P ...) ; processing (DEFUN SET-FLAG ...) ; processing (DEFGENERIC RESOLVE-PROPERTY ...) ; processing (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)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; processing (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) ; processing (DEFUN MAYBE-ACCUMULATE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN MAYBE-ACCUMULATE ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (DECLAIM (INLINE CONVERT-AUX)) ; processing (DEFUN CONVERT-AUX ...) ; processing (DEFGENERIC CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (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 VECTOR. ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (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) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (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. ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (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) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) BASE-STRING SYMBOL ; CHARACTER), not a STRING. ; The second argument is a (OR (VECTOR CHARACTER) BASE-STRING ; (AND (NOT NULL) SYMBOL) CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) BASE-STRING SYMBOL ; CHARACTER), not a SIMPLE-STRING. ; The second argument is a (OR (VECTOR CHARACTER) BASE-STRING ; (AND (NOT NULL) SYMBOL) ; CHARACTER), not a SIMPLE-STRING. ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-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) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; processing (DEFGENERIC CONVERT-SIMPLE-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...) ; processing (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...) ; processing (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) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS NULL ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/convert-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.776 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFGENERIC FLATTEN ...) ; processing (DEFMETHOD FLATTEN ...) ; processing (DEFMETHOD FLATTEN ...) ; processing (DEFMETHOD FLATTEN ...) ; processing (DEFMETHOD FLATTEN ...) ; processing (DEFGENERIC GATHER-STRINGS ...) ; processing (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) ; ; 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. ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> SETQ THE ; ==> ; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFMETHOD GATHER-STRINGS ...) ; processing (DEFMETHOD GATHER-STRINGS ...) ; processing (DEFMETHOD GATHER-STRINGS ...) ; processing (DEFGENERIC START-ANCHORED-P ...) ; processing (DEFMETHOD START-ANCHORED-P ...) ; processing (DEFMETHOD START-ANCHORED-P ...) ; processing (DEFMETHOD START-ANCHORED-P ...) ; processing (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)) ; ; 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 full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; processing (DEFMETHOD START-ANCHORED-P ...) ; processing (DEFMETHOD START-ANCHORED-P ...) ; processing (DEFMETHOD START-ANCHORED-P ...) ; processing (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)) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; processing (DEFGENERIC END-STRING-AUX ...) ; processing (DEFMETHOD END-STRING-AUX ...) ; processing (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)) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (MAKE-ARRAY CL-PPCRE::CONCATENATED-LENGTH :INITIAL-CONTENTS ; (REVERSE (CL-PPCRE::STR CL-PPCRE::CONCATENATED-START)) ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; 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. ; ; 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. ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; processing (DEFMETHOD END-STRING-AUX ...) ; processing (DEFMETHOD END-STRING-AUX ...) ; processing (DEFMETHOD END-STRING-AUX ...) ; processing (DEFUN END-STRING ...) ; processing (DEFGENERIC COMPUTE-MIN-REST ...) ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; processing (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-10 #:LOOP-MAXMIN-9) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; processing (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)) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; processing (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: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (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: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (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 ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; 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. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; processing (DEFMETHOD COMPUTE-MIN-REST ...) ; processing (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: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (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) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/optimize-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.400 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DECLAIM (INLINE *STRING*= ...)) ; processing (DEFUN *STRING*= ...) ; processing (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)) ; ; 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. ; processing (DEFGENERIC CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (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)) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; processing (DEFMACRO INSERT-CHAR-CLASS-TESTER ...) ; processing (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 #:TEST-FUNCTION6 (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::END-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING CL-PPCRE::START-POS ; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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::*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 (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)) ; ; 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) ; processing (DECLAIM (INLINE WORD-BOUNDARY-P)) ; processing (DEFUN WORD-BOUNDARY-P ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (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 (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::START-POS ; (- (THE FIXNUM CL-PPCRE::REG-END) (THE FIXNUM CL-PPCRE::REG-START))) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163711 13835058055282163710) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163711 13835058055282163710) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163711 13835058055282163710) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775807 ; 9223372036854775807), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163711 13835058055282163710) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; processing (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) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/closures-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.492 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFMACRO INCF-AFTER ...) ; processing (DEFMACRO GREEDY-CONSTANT-LENGTH-CLOSURE ...) ; processing (DEFUN CREATE-GREEDY-EVERYTHING-MATCHER ...) ; processing (DEFGENERIC CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; processing (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 #:TEST-FUNCTION30 (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; 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 ; (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 (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. ; ; 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 ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> IF LAMBDA FUNCTION LET ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &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 ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &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 ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &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 ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; 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 (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (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 (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &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 (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> IF LAMBDA FUNCTION LET ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; processing (DEFGENERIC CREATE-GREEDY-NO-ZERO-MATCHER ...) ; processing (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 #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*21 #:REP-NUM22) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* + ; ==> ; (AREF #:*REPEAT-COUNTERS*16 #:REP-NUM17) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*16 #:REP-NUM17) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* SB-IMPL::XSUBTRACT ; ==> ; (AREF #:*REPEAT-COUNTERS*19 #:REP-NUM20) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*19 #:REP-NUM20) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; processing (DEFGENERIC CREATE-GREEDY-MATCHER ...) ; processing (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 #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*24 #:REP-NUM25) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* + ; ==> ; (AREF #:*REPEAT-COUNTERS*17 #:REP-NUM18) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*17 #:REP-NUM18) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* SB-IMPL::XSUBTRACT ; ==> ; (AREF #:*REPEAT-COUNTERS*20 #:REP-NUM21) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*20 #:REP-NUM21) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; processing (DEFMACRO NON-GREEDY-CONSTANT-LENGTH-CLOSURE ...) ; processing (DEFGENERIC CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; processing (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 #:TEST-FUNCTION102 (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; 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 ; (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 (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. ; ; 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 ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &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 ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &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 (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &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 (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &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 (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; (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 (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; 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 (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> IF LAMBDA FUNCTION LET ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &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 (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> IF LAMBDA FUNCTION LET ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a (UNSIGNED-BYTE 64). ; etc. ; ==> ; (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a (UNSIGNED-BYTE ; 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; 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) ; ==> ; (MIN (1+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST)) ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; processing (DEFGENERIC CREATE-NON-GREEDY-NO-ZERO-MATCHER ...) ; processing (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 #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*21 #:REP-NUM22) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* + ; ==> ; (AREF #:*REPEAT-COUNTERS*16 #:REP-NUM17) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*16 #:REP-NUM17) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* SB-IMPL::XSUBTRACT ; ==> ; (AREF #:*REPEAT-COUNTERS*19 #:REP-NUM20) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*19 #:REP-NUM20) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; processing (DEFGENERIC CREATE-NON-GREEDY-MATCHER ...) ; processing (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 #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*24 #:REP-NUM25) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* + ; ==> ; (AREF #:*REPEAT-COUNTERS*17 #:REP-NUM18) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*17 #:REP-NUM18) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* SB-IMPL::XSUBTRACT ; ==> ; (AREF #:*REPEAT-COUNTERS*20 #:REP-NUM21) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*20 #:REP-NUM21) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; processing (DEFMACRO CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ...) ; processing (DEFGENERIC CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...) ; processing (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 #:TEST-FUNCTION36 (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS ; 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN))) ; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS)) ; (AND ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS ; 0 CL-PPCRE::LEN) ; CL-PPCRE::NEXT-POS))) ; --> LAMBDA FUNCTION LET + THE ; ==> ; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; (1+ CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET + THE ; ==> ; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; (1+ CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET + THE ; ==> ; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN))) ; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS)) ; (AND ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; CL-PPCRE::NEXT-POS))) ; --> LAMBDA FUNCTION LET + THE ; ==> ; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (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 + THE ; ==> ; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; (1+ CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET + THE ; ==> ; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET + THE ; ==> ; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 3) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653966460912964485513216) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; processing (DEFGENERIC CREATE-CONSTANT-REPETITION-MATCHER ...) ; processing (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 #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*39 #:REP-NUM40) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* + ; ==> ; (AREF #:*REPEAT-COUNTERS*34 #:REP-NUM35) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*34 #:REP-NUM35) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* SB-IMPL::XSUBTRACT ; ==> ; (AREF #:*REPEAT-COUNTERS*37 #:REP-NUM38) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*37 #:REP-NUM38) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> PROGN SETF LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*29 #:REP-NUM30) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* + ; ==> ; (AREF #:*REPEAT-COUNTERS*22 #:REP-NUM23) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*22 #:REP-NUM23) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* SB-IMPL::XSUBTRACT ; ==> ; (AREF #:*REPEAT-COUNTERS*25 #:REP-NUM26) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* ; ==> ; (FUNCALL #'(SETF AREF) #:NEW1 #:*REPEAT-COUNTERS*25 #:REP-NUM26) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; processing (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (AND CL-PPCRE::MAXIMUM (ZEROP CL-PPCRE::MAXIMUM)) ; --> IF ; ==> ; (ZEROP ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MAXIMUM))) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (AND CL-PPCRE::MAXIMUM (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1)) ; --> IF ; ==> ; (= ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MAXIMUM)) ; 1) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (OR ; (COMPLEX ; SINGLE-FLOAT) ; (COMPLEX ; DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (AND (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) CL-PPCRE::LEN ; (NOT CL-PPCRE::CONTAINS-REGISTER-P)) ; --> IF IF ; ==> ; (EQL ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MAXIMUM))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; (COND ; ((AND CL-PPCRE::MAXIMUM (ZEROP CL-PPCRE::MAXIMUM)) ; (ERROR "Got REPETITION with MAXIMUM 0 (should not happen)")) ; ((AND CL-PPCRE::MAXIMUM (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1)) ; (ERROR "Got REPETITION with MAXIMUM 1 and MINIMUM 1 (should not happen)")) ; ((AND (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) CL-PPCRE::LEN ; (NOT CL-PPCRE::CONTAINS-REGISTER-P)) ; (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 (NOT CL-PPCRE::CONTAINS-REGISTER-P)) ; (CL-PPCRE::CREATE-GREEDY-CONSTANT-LENGTH-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; ((AND CL-PPCRE::GREEDYP ; (OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1))) ; (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 (PLUSP CL-PPCRE::LEN) ; (NOT CL-PPCRE::CONTAINS-REGISTER-P)) ; (CL-PPCRE::CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; ((OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1)) ; (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))) ; --> IF IF IF IF ; ==> ; (EQL ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MAXIMUM))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; (OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1)) ; --> LET ; ==> ; (PLUSP ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MIN-LEN) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MIN-LEN))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (AND CL-PPCRE::LEN (PLUSP CL-PPCRE::LEN) (NOT CL-PPCRE::CONTAINS-REGISTER-P)) ; --> IF IF ; ==> ; (PLUSP ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1)) ; --> LET ; ==> ; (PLUSP ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MIN-LEN) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MIN-LEN))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (AND CL-PPCRE::MAXIMUM (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1)) ; --> IF ; ==> ; (= ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MAXIMUM)) ; 1) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; (AND (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) CL-PPCRE::LEN ; (NOT CL-PPCRE::CONTAINS-REGISTER-P)) ; --> IF IF ; ==> ; (EQL ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MAXIMUM))) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; etc. ; (COND ; ((AND CL-PPCRE::MAXIMUM (ZEROP CL-PPCRE::MAXIMUM)) ; (ERROR "Got REPETITION with MAXIMUM 0 (should not happen)")) ; ((AND CL-PPCRE::MAXIMUM (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1)) ; (ERROR "Got REPETITION with MAXIMUM 1 and MINIMUM 1 (should not happen)")) ; ((AND (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) CL-PPCRE::LEN ; (NOT CL-PPCRE::CONTAINS-REGISTER-P)) ; (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 (NOT CL-PPCRE::CONTAINS-REGISTER-P)) ; (CL-PPCRE::CREATE-GREEDY-CONSTANT-LENGTH-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; ((AND CL-PPCRE::GREEDYP ; (OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1))) ; (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 (PLUSP CL-PPCRE::LEN) ; (NOT CL-PPCRE::CONTAINS-REGISTER-P)) ; (CL-PPCRE::CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; ((OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1)) ; (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))) ; --> IF IF IF IF ; ==> ; (EQL ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MINIMUM)) ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MAXIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MAXIMUM))) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; etc. ; (OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1)) ; --> LET ; ==> ; (PLUSP ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MIN-LEN) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MIN-LEN))) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (AND CL-PPCRE::LEN (PLUSP CL-PPCRE::LEN) (NOT CL-PPCRE::CONTAINS-REGISTER-P)) ; --> IF IF ; ==> ; (PLUSP ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::LEN) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'CL-PPCRE::LEN))) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (OR (PLUSP CL-PPCRE::MIN-LEN) (EQL CL-PPCRE::MAXIMUM 1)) ; --> LET ; ==> ; (PLUSP ; (SB-C::WITH-SOURCE-FORM (SLOT-VALUE #:G0 'CL-PPCRE::MIN-LEN) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 ; 'CL-PPCRE::MIN-LEN))) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmpOU81XRV0.fasl ; compilation finished in 0:00:01.672 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFMACRO BMH-MATCHER-AUX ...) ; processing (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 (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 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. ; processing (DEFMACRO CHAR-SEARCHER-AUX ...) ; processing (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 (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. ; processing (DECLAIM (INLINE NEWLINE-SKIPPER)) ; processing (DEFUN NEWLINE-SKIPPER ...) ; processing (DEFMACRO INSERT-ADVANCE-FN ...) ; processing (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 BLOCK LOOP BLOCK ; --> TAGBODY PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> 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 ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR CL-PPCRE::*START-POS* ; (+ CL-PPCRE::*START-POS* ; CL-PPCRE::STARTS-WITH-LEN) ; 0 CL-PPCRE::STARTS-WITH-LEN)) ; ; 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) CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; 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) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> 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 ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR CL-PPCRE::*START-POS* ; (+ CL-PPCRE::*START-POS* ; CL-PPCRE::STARTS-WITH-LEN) ; 0 CL-PPCRE::STARTS-WITH-LEN)) ; ; 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) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> 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 ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 COND IF PROGN WHEN IF LOCALLY COND IF ; --> AND IF ; ==> ; (NOT ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR CL-PPCRE::*START-POS* ; (+ CL-PPCRE::*START-POS* ; CL-PPCRE::STARTS-WITH-LEN) ; 0 CL-PPCRE::STARTS-WITH-LEN)) ; ; 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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; 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) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> 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 ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR CL-PPCRE::*START-POS* ; (+ CL-PPCRE::*START-POS* ; CL-PPCRE::STARTS-WITH-LEN) ; 0 CL-PPCRE::STARTS-WITH-LEN)) ; ; 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) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> 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 ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; 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) ; (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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; 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 LOCALLY COND IF ; --> AND IF ; ==> ; (NOT ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR CL-PPCRE::*START-POS* ; (+ CL-PPCRE::*START-POS* ; CL-PPCRE::STARTS-WITH-LEN) ; 0 CL-PPCRE::STARTS-WITH-LEN)) ; ; 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) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> 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 ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR CL-PPCRE::*START-POS* ; (+ CL-PPCRE::*START-POS* ; CL-PPCRE::STARTS-WITH-LEN) ; 0 CL-PPCRE::STARTS-WITH-LEN)) ; ; 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) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> 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 ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR CL-PPCRE::*START-POS* ; (+ CL-PPCRE::*START-POS* ; CL-PPCRE::STARTS-WITH-LEN) ; 0 CL-PPCRE::STARTS-WITH-LEN)) ; ; 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::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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; 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)) ; (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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; 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) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> 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 ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; 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 WHEN IF PROGN UNLESS IF AND IF ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; 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 LOCALLY COND IF ; --> AND IF ; ==> ; (NOT ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STARTS-WITH-STR CL-PPCRE::*START-POS* ; (+ CL-PPCRE::*START-POS* ; CL-PPCRE::STARTS-WITH-LEN) ; 0 CL-PPCRE::STARTS-WITH-LEN)) ; ; 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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a REAL, not a (UNSIGNED-BYTE 64). ; 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) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &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 full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; etc. ; --> 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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a REAL, not a (UNSIGNED-BYTE 64). ; 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) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &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 full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; etc. ; --> 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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a REAL, not a (UNSIGNED-BYTE 64). ; 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) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &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 full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; etc. ; --> 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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a REAL, not a (UNSIGNED-BYTE 64). ; 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) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &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 full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; etc. ; --> 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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a REAL, not a (UNSIGNED-BYTE 64). ; 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) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &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 full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; etc. ; --> 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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a REAL, not a (UNSIGNED-BYTE 64). ; 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) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &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 full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; etc. ; --> 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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a REAL, not a (UNSIGNED-BYTE 64). ; 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) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &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 full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; etc. ; --> 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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (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 ; ==> ; (<= CL-PPCRE::*START-POS* CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a REAL, not a (UNSIGNED-BYTE 64). ; 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) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &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 full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; etc. ; --> 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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/scanner-tmpY2ML9CFA.fasl ; compilation finished in 0:00:02.048 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 07 APR 2019 03:51:26 AM): ; processing (IN-PACKAGE :CL-PPCRE) ; processing (DEFVAR *LOOK-AHEAD-FOR-SUFFIX* ...) ; processing (DEFGENERIC CREATE-SCANNER ...) ; processing (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. ; processing (DEFMETHOD CREATE-SCANNER ...) ; processing (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)) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; processing (DEFGENERIC SCAN ...) ; processing (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 VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS NULL ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; processing (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 VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS NULL ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; processing (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 VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS NULL ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; processing (DEFINE-COMPILER-MACRO SCAN ...) ; processing (DEFUN SCAN-TO-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; processing (DEFINE-COMPILER-MACRO SCAN-TO-STRINGS ...) ; processing (DEFMACRO REGISTER-GROUPS-BIND ...) ; processing (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. ... {100688D04F}> ; (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) ; processing (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, ; ... {100360703F}> ; (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) ; processing (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... {1003B48FBF}> ; (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) ; processing (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... {1003D7B92F}> ; (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) ; processing (DEFUN ALL-MATCHES ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> 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 VECTOR. ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE ; ==> ; (COERCE #:=STRING=8 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS NULL ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> 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 conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ==> ; (1+ CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (OR ; (COMPLEX ; SINGLE-FLOAT) ; (COMPLEX ; DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a RATIONAL. ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ==> ; (1+ CL-PPCRE::MATCH-END) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-COMPILER-MACRO ALL-MATCHES ...) ; processing (DEFUN ALL-MATCHES-AS-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET 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 #:=STRING=12 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS NULL ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> 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 conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ==> ; (1+ #:MATCH-END3) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (OR ; (COMPLEX ; SINGLE-FLOAT) ; (COMPLEX ; DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a RATIONAL. ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ==> ; (1+ #:MATCH-END3) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-COMPILER-MACRO ALL-MATCHES-AS-STRINGS ...) ; processing (DEFUN SPLIT ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> 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 VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE ; ==> ; (COERCE #:=STRING=6 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS NULL ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), 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 (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (OR ; (COMPLEX ; SINGLE-FLOAT) ; (COMPLEX ; DOUBLE-FLOAT)). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> BLOCK LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE ; ==> ; (AREF #:LOOP-ACROSS-VECTOR-9 #:LOOP-ACROSS-INDEX-10) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ==> ; (AREF #:LOOP-ACROSS-VECTOR-12 #:LOOP-ACROSS-INDEX-13) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> 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 conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ==> ; (1+ CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (OR ; (COMPLEX ; SINGLE-FLOAT) ; (COMPLEX ; DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) ; ; 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 full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; etc. ; (INCF CL-PPCRE::COUNTER) ; --> SETQ THE ; ==> ; (+ 1 CL-PPCRE::COUNTER) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The second argument is a (OR (DOUBLE-FLOAT (0.0d0)) (SINGLE-FLOAT (0.0)) ; (RATIONAL (0))), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64). ; The second argument is a (OR (DOUBLE-FLOAT (0.0d0)) (SINGLE-FLOAT (0.0)) ; (RATIONAL (0))), not a (UNSIGNED-BYTE 64). ; etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> 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 full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ==> ; (1+ CL-PPCRE::MATCH-END) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; etc. ; processing (DEFINE-COMPILER-MACRO SPLIT ...) ; processing (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)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; processing (DEFGENERIC BUILD-REPLACEMENT-TEMPLATE ...) ; processing (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) ; ; note: unable to ; expand inline ; because: ; upgraded array element type not known at compile time ; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The second argument is a REAL, not a (UNSIGNED-BYTE 64). ; etc. ; (1- ; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START ; :JUNK-ALLOWED T)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR INTEGER NULL), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR INTEGER NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; etc. ; processing (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...) ; processing (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...) ; processing (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...) ; processing (DEFUN BUILD-REPLACEMENT ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN BUILD-REPLACEMENT ; (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: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (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) ; ; note: unable to open code because: can't determine sequence argument type ; (APPLY CL-PPCRE::TOKEN ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; --> BLOCK MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type ; (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START ; CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> BLOCK MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (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: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; 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 conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; 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 float conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (WITH-OUTPUT-TO-STRING (CL-PPCRE::S NIL :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) ; (LOOP CL-PPCRE::FOR CL-PPCRE::TOKEN CL-PPCRE::IN CL-PPCRE::REPLACEMENT-TEMPLATE ; DO (TYPECASE CL-PPCRE::TOKEN ; (STRING (WRITE-STRING CL-PPCRE::TOKEN CL-PPCRE::S)) ; (INTEGER (WHEN # #) (WHEN # #)) ; (FUNCTION (WRITE-STRING # CL-PPCRE::S)) ; (SYMBOL (CASE CL-PPCRE::TOKEN # # # # #))))) ; --> LET ; ==> ; (MAKE-STRING 31 :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) ; ; 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. ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; etc. ; (1+ CL-PPCRE::TOKEN) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &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 full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; processing (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) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (WITH-OUTPUT-TO-STRING (CL-PPCRE::S NIL :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) ; (LOOP CL-PPCRE::FOR (CL-PPCRE::FROM CL-PPCRE::TO) CL-PPCRE::ON (APPEND ; (LIST ; CL-PPCRE::START) ; CL-PPCRE::POS-LIST ; (LIST ; CL-PPCRE::END)) ; CL-PPCRE::FOR REPLACE = NIL CL-PPCRE::THEN (AND (NOT REPLACE) ; CL-PPCRE::TO) ; CL-PPCRE::FOR ...)) ; --> LET ; ==> ; (MAKE-STRING 31 :ELEMENT-TYPE CL-PPCRE::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; processing (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 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. ; processing (DEFINE-COMPILER-MACRO REGEX-REPLACE ...) ; processing (DEFUN REGEX-REPLACE-ALL ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> 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 VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE ; ==> ; (COERCE #:=STRING=6 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS NULL ; (AND (NOT (SIMPLE-ARRAY CHARACTER (*))) ; (NOT SIMPLE-BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> 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 conversion of first argument in mixed SINGLE-FLOAT-DOUBLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed DOUBLE-FLOAT-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed SINGLE-FLOAT-(COMPLEX DOUBLE-FLOAT) numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX DOUBLE-FLOAT)-SINGLE-FLOAT numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ==> ; (1+ CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (OR ; (COMPLEX ; SINGLE-FLOAT) ; (COMPLEX ; DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a RATIONAL. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> 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 full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ==> ; (1+ CL-PPCRE::MATCH-END) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT RATIONAL ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-COMPILER-MACRO REGEX-REPLACE-ALL ...) ; processing (DEFMACRO REGEX-APROPOS-AUX ...) ; processing (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 (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... {10065D094F}> ; (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)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {10065D094F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; processing (DEFUN PRINT-SYMBOL-INFO ...) ; processing (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 ... {1006CC4B7F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> 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)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {1006CC4B7F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; processing (LET* (# #) ...) ; processing (LET* (# # ...) ...) ; processing (LET* (# # ...) ...) ; processing (DEFUN PARSE-TREE-SYNONYM ...) ; processing (DEFUN (SETF PARSE-TREE-SYNONYM) ...) ; processing (DEFMACRO DEFINE-PARSE-TREE-SYNONYM ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/api-tmpX2JYJDQE.fasl ; compilation finished in 0:00:01.348 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 AM): ; processing (IN-PACKAGE :COMMON-LISP-USER) ; processing (DEFPACKAGE XLIB ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/package-tmpOPCILR65.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 03 DEC 2018 09:26:57 PM): ; processing (IN-PACKAGE :XLIB) ; processing (DECLAIM (DECLARATION CLX-VALUES)) ; processing (DECLAIM (DECLARATION ARGLIST)) ; processing (DECLAIM (DECLARATION INDENTATION)) ; processing (DEFMACRO WITH-VECTOR ...) ; processing (DEFMACRO WITHIN-DEFINITION ...) ; processing (DEFCONSTANT +CLX-CACHED-TYPES+ ...) ; processing (DEFMACRO RESOURCE-ID-MAP-TEST ...) ; processing (DEFMACRO ATOM-CACHE-MAP-TEST ...) ; processing (DEFMACRO KEYSYM->CHARACTER-MAP-TEST ...) ; processing (ECASE SB-C:*BACKEND-BYTE-ORDER* ...) ; processing (DEFTYPE BUFFER-BYTES ...) ; processing (DEFTYPE ARRAY-INDEX ...) ; processing (DEFUN MAKE-INDEX-TYPED ...) ; processing (DEFUN MAKE-INDEX-OP ...) ; processing (DEFMACRO INDEX+ ...) ; processing (DEFMACRO INDEX-LOGAND ...) ; processing (DEFMACRO INDEX-LOGIOR ...) ; processing (DEFMACRO INDEX- ...) ; processing (DEFMACRO INDEX* ...) ; processing (DEFMACRO INDEX1+ ...) ; processing (DEFMACRO INDEX1- ...) ; processing (DEFMACRO INDEX-INCF ...) ; processing (DEFMACRO INDEX-DECF ...) ; processing (DEFMACRO INDEX-MIN ...) ; processing (DEFMACRO INDEX-MAX ...) ; processing (DEFMACRO INDEX-FLOOR ...) ; processing (DEFMACRO INDEX-CEILING ...) ; processing (DEFMACRO INDEX-TRUNCATE ...) ; processing (DEFMACRO INDEX-MOD ...) ; processing (DEFMACRO INDEX-ASH ...) ; processing (DEFMACRO INDEX-PLUSP ...) ; processing (DEFMACRO INDEX-ZEROP ...) ; processing (DEFMACRO INDEX-EVENP ...) ; processing (DEFMACRO INDEX-ODDP ...) ; processing (DEFMACRO INDEX> ...) ; processing (DEFMACRO INDEX= ...) ; processing (DEFMACRO INDEX< ...) ; processing (DEFMACRO INDEX>= ...) ; processing (DEFMACRO INDEX<= ...) ; processing (DEFCONSTANT +REPLYSIZE+ ...) ; processing (DEFVAR *EMPTY-BYTES* ...) ; processing (DECLAIM (TYPE BUFFER-BYTES ...)) ; processing (DEFSTRUCT (REPLY-BUFFER # ...) ...) ; processing (DEFCONSTANT +BUFFER-TEXT16-SIZE+ ...) ; processing (DEFTYPE BUFFER-TEXT16 ...) ; processing (DEFPARAMETER *XLIB-PACKAGE* ...) ; processing (DEFUN XINTERN ...) ; processing (DEFPARAMETER *KEYWORD-PACKAGE* ...) ; processing (DEFUN KINTERN ...) ; processing (DEFVAR *DEF-CLX-CLASS-USE-DEFCLASS* ...) ; processing (DEFMACRO DEF-CLX-CLASS ...) ; processing (DEF-CLX-CLASS (BUFFER # ...) ...) ; processing (DEFCONSTANT +IMAGE-BIT-LSB-FIRST-P+ ...) ; processing (DEFCONSTANT +IMAGE-BYTE-LSB-FIRST-P+ ...) ; processing (DEFCONSTANT +IMAGE-UNIT+ ...) ; processing (DEFCONSTANT +IMAGE-PAD+ ...) ; processing (DEFCONSTANT +X-UNIX-SOCKET-PATH+ ...) ; processing (DEFUN UNIX-SOCKET-PATH-FROM-HOST ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/depdefs-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.508 ; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 03 DEC 2018 09:26:57 PM): ; processing (IN-PACKAGE :XLIB) ; processing (PUSHNEW :CLX ...) ; processing (PUSHNEW :XLIB ...) ; processing (DEFPARAMETER *VERSION* ...) ; processing (PUSHNEW :CLX-MIT-R4 ...) ; processing (PUSHNEW :CLX-MIT-R5 ...) ; processing (DEFPARAMETER *PROTOCOL-MAJOR-VERSION* ...) ; processing (DEFPARAMETER *PROTOCOL-MINOR-VERSION* ...) ; processing (DEFPARAMETER *X-TCP-PORT* ...) ; processing (DEFTYPE GENERALIZED-BOOLEAN ...) ; processing (DEFTYPE CARD32 ...) ; processing (DEFTYPE CARD29 ...) ; processing (DEFTYPE CARD24 ...) ; processing (DEFTYPE INT32 ...) ; processing (DEFTYPE CARD16 ...) ; processing (DEFTYPE INT16 ...) ; processing (DEFTYPE CARD8 ...) ; processing (DEFTYPE INT8 ...) ; processing (DEFTYPE CARD4 ...) ; processing (DEFTYPE CHAR8 ...) ; processing (DEFTYPE RGB-VAL ...) ; processing (DEFTYPE ANGLE ...) ; processing (DEFTYPE MASK32 ...) ; processing (DEFTYPE MASK16 ...) ; processing (DEFTYPE PIXEL ...) ; processing (DEFTYPE IMAGE-DEPTH ...) ; processing (DEFTYPE RESOURCE-ID ...) ; processing (DEFTYPE KEYSYM ...) ; processing (DEF-CLX-CLASS (COLOR # ...) ...) ; processing (DEFUN PRINT-COLOR ...) ; processing (DEFUN MAKE-COLOR ...) ; processing (DEFUN COLOR-RGB ...) ; processing (DEF-CLX-CLASS (BITMAP-FORMAT # ...) ...) ; processing (DEFUN PRINT-BITMAP-FORMAT ...) ; processing (DEF-CLX-CLASS (PIXMAP-FORMAT # ...) ...) ; processing (DEFUN PRINT-PIXMAP-FORMAT ...) ; processing (DEFPARAMETER *ATOM-CACHE-SIZE* ...) ; processing (DEFPARAMETER *RESOURCE-ID-MAP-SIZE* ...) ; processing (DEF-CLX-CLASS (DISPLAY # ...) ...) ; processing (DEFUN PRINT-DISPLAY-NAME ...) ; processing (DEFUN PRINT-DISPLAY ...) ; processing (DEF-CLX-CLASS (DRAWABLE # ...) ...) ; processing (DEFUN PRINT-DRAWABLE ...) ; processing (DEF-CLX-CLASS (WINDOW # ...)) ; processing (DEF-CLX-CLASS (PIXMAP # ...)) ; processing (DEF-CLX-CLASS (VISUAL-INFO # ...) ...) ; processing (DEFUN PRINT-VISUAL-INFO ...) ; processing (DEF-CLX-CLASS (COLORMAP # ...) ...) ; processing (DEFUN PRINT-COLORMAP ...) ; processing (DEF-CLX-CLASS (CURSOR # ...) ...) ; processing (DEFUN PRINT-CURSOR ...) ; processing (DEFTYPE XATOM ...) ; processing (DEFCONSTANT +PREDEFINED-ATOMS+ ...) ; processing (DEFTYPE STRINGABLE ...) ; processing (DEFTYPE FONTABLE ...) ; processing (DEFTYPE TIMESTAMP ...) ; processing (DEFCONSTANT +BIT-GRAVITY-VECTOR+ ...) ; processing (DEFTYPE BIT-GRAVITY ...) ; processing (DEFCONSTANT +WIN-GRAVITY-VECTOR+ ...) ; processing (DEFPARAMETER *PROTOCOL-FAMILIES* ...) ; processing (DEFTYPE WIN-GRAVITY ...) ; processing (DEFTYPE GRAB-STATUS ...) ; processing (DEFTYPE ALIST ...) ; processing (DEFTYPE CLX-LIST ...) ; processing (DEFTYPE CLX-SEQUENCE ...) ; processing (DEFTYPE REPEAT-SEQ ...) ; processing (DEFTYPE POINT-SEQ ...) ; processing (DEFTYPE SEG-SEQ ...) ; processing (DEFTYPE RECT-SEQ ...) ; processing (DEFTYPE ARC-SEQ ...) ; processing (DEFTYPE GCONTEXT-STATE ...) ; processing (DEF-CLX-CLASS (GCONTEXT # ...) ...) ; processing (DEFUN PRINT-GCONTEXT ...) ; processing (DEFCONSTANT +EVENT-MASK-VECTOR+ ...) ; processing (DEFTYPE EVENT-MASK-CLASS ...) ; processing (DEFTYPE EVENT-MASK ...) ; processing (DEFCONSTANT +POINTER-EVENT-MASK-VECTOR+ ...) ; processing (DEFTYPE POINTER-EVENT-MASK-CLASS ...) ; processing (DEFTYPE POINTER-EVENT-MASK ...) ; processing (DEFCONSTANT +DEVICE-EVENT-MASK-VECTOR+ ...) ; processing (DEFTYPE DEVICE-EVENT-MASK-CLASS ...) ; processing (DEFTYPE DEVICE-EVENT-MASK ...) ; processing (DEFCONSTANT +STATE-MASK-VECTOR+ ...) ; processing (DEFTYPE MODIFIER-KEY ...) ; processing (DEFTYPE MODIFIER-MASK ...) ; processing (DEFTYPE STATE-MASK-KEY ...) ; processing (DEFCONSTANT +GCONTEXT-COMPONENTS+ ...) ; processing (DEFTYPE GCONTEXT-KEY ...) ; processing (DEFTYPE EVENT-KEY ...) ; processing (DEFTYPE ERROR-KEY ...) ; processing (DEFTYPE DRAW-DIRECTION ...) ; processing (DEFCONSTANT +BOOLE-VECTOR+ ...) ; processing (DEFTYPE BOOLE-CONSTANT ...) ; processing (DEF-CLX-CLASS (SCREEN # ...) ...) ; processing (DEFUN PRINT-SCREEN ...) ; processing (DEFUN SCREEN-ROOT-VISUAL ...) ; processing (DEFTYPE FONT-PROPS ...) ; processing (DEF-CLX-CLASS (FONT-INFO # ...) ...) ; processing (DEF-CLX-CLASS (FONT # ...) ...) ; processing (DEFUN PRINT-FONT ...) ; processing (DEFUN FONT-ID ...) ; processing (DEFUN FONT-FONT-INFO ...) ; processing (DEFUN FONT-CHAR-INFOS ...) ; processing (DEFUN MAKE-FONT ...) ; processing (MAKE-FONT-INFO-ACCESSORS IGNORE ...) ; processing (DEFUN FONT-PROPERTY ...) ; processing (MAKE-MUMBLE-EQUAL WINDOW) ; processing (MAKE-MUMBLE-EQUAL PIXMAP) ; processing (MAKE-MUMBLE-EQUAL CURSOR) ; processing (MAKE-MUMBLE-EQUAL FONT) ; processing (MAKE-MUMBLE-EQUAL GCONTEXT) ; processing (MAKE-MUMBLE-EQUAL COLORMAP) ; processing (MAKE-MUMBLE-EQUAL DRAWABLE) ; processing (DEFUN ENCODE-MASK ...) ; processing (DEFUN DECODE-MASK ...) ; processing (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 ; processing (DEFUN MAKE-EVENT-MASK ...) ; processing (DEFUN MAKE-EVENT-KEYS ...) ; processing (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 ; processing (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 ; processing (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 ; processing (DEFUN MAKE-STATE-MASK ...) ; processing (DEFUN MAKE-STATE-KEYS ...) ; processing (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 ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/clx-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.816 ; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 03 DEC 2018 09:26:57 PM): ; processing (IN-PACKAGE :XLIB) ; processing (PROCLAIM (QUOTE #)) ; processing (DEFPARAMETER *OUTPUT-BUFFER-SIZE* ...) ; processing (DEFPARAMETER *REPLY-TIMEOUT* ...) ; processing (DEFCONSTANT +WORD-0+ ...) ; processing (DEFCONSTANT +WORD-1+ ...) ; processing (DEFCONSTANT +LONG-0+ ...) ; processing (DEFCONSTANT +LONG-1+ ...) ; processing (DEFCONSTANT +LONG-2+ ...) ; processing (DEFCONSTANT +LONG-3+ ...) ; processing (DEFCONSTANT +BUFFER-SPEED+ ...) ; processing (DEFCONSTANT +BUFFER-SAFETY+ ...) ; processing (DEFCONSTANT +BUFFER-DEBUG+ ...) ; processing (DEFUN DECLARE-BUFMAC ...) ; processing (DEFUN DECLARE-BUFFUN ...) ; processing (DECLAIM (INLINE CARD8->INT8 ...)) ; processing (DEFUN CARD8->INT8 ...) ; processing (DEFUN INT8->CARD8 ...) ; processing (DEFUN CARD16->INT16 ...) ; processing (DEFUN INT16->CARD16 ...) ; processing (DEFUN CARD32->INT32 ...) ; processing (DEFUN INT32->CARD32 ...) ; processing (DECLAIM (INLINE AREF-CARD8 ...)) ; processing (DEFUN AREF-CARD8 ...) ; processing (DEFUN ASET-CARD8 ...) ; processing (DEFUN AREF-INT8 ...) ; processing (DEFUN ASET-INT8 ...) ; processing (DEFUN AREF-CARD16 ...) ; processing (DEFUN ASET-CARD16 ...) ; processing (DEFUN AREF-INT16 ...) ; processing (DEFUN ASET-INT16 ...) ; processing (DEFUN AREF-CARD32 ...) ; processing (DEFUN ASET-CARD32 ...) ; processing (DEFUN AREF-INT32 ...) ; processing (DEFUN ASET-INT32 ...) ; processing (DEFUN AREF-CARD29 ...) ; processing (DEFUN ASET-CARD29 ...) ; processing (DEFSETF AREF-CARD8 ...) ; processing (DEFSETF AREF-INT8 ...) ; processing (DEFSETF AREF-CARD16 ...) ; processing (DEFSETF AREF-INT16 ...) ; processing (DEFSETF AREF-CARD32 ...) ; processing (DEFSETF AREF-INT32 ...) ; processing (DEFSETF AREF-CARD29 ...) ; processing (DEFUN RGB-VAL->CARD16 ...) ; processing (DEFUN CARD16->RGB-VAL ...) ; processing (DEFUN RADIANS->INT16 ...) ; processing (DEFUN INT16->RADIANS ...) ; processing (DEFTYPE ANGLE ...) ; processing (DEFUN ANGLEP ...) ; processing (DECLAIM (INLINE CHAR->CARD8 ...)) ; processing (CHAR-TRANSLATORS) ; processing (DEFUN MAKE-PROCESS-LOCK ...) ; processing (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) ; processing (DEFMACRO WITHOUT-ABORTS ...) ; processing (DECLAIM (INLINE YIELD)) ; processing (DEFUN YIELD ...) ; processing (DEFUN PROCESS-BLOCK ...) ; processing (DECLAIM (INLINE PROCESS-WAKEUP)) ; processing (DEFUN PROCESS-WAKEUP ...) ; processing (DECLAIM (INLINE CURRENT-PROCESS)) ; processing (DEFUN CURRENT-PROCESS ...) ; processing (DEFVAR *WITHOUT-INTERRUPTS-SIC-LOCK* ...) ; processing (DEFMACRO WITHOUT-INTERRUPTS ...) ; processing (DEFVAR *CONDITIONAL-STORE-LOCK* ...) ; processing (DEFMACRO CONDITIONAL-STORE ...) ; processing (DEFMACRO WRAP-BUF-OUTPUT ...) ; processing (DEFMACRO WRAP-BUF-INPUT ...) ; processing (DEFUN OPEN-X-STREAM ...) ; processing (DEFUN BUFFER-READ-DEFAULT ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN BUFFER-READ-DEFAULT ; (DEFUN XLIB::BUFFER-READ-DEFAULT ; (XLIB:DISPLAY VECTOR XLIB::START XLIB::END XLIB::TIMEOUT) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE XLIB::BUFFER-BYTES VECTOR) ; (TYPE XLIB:ARRAY-INDEX XLIB::START XLIB::END) ; (TYPE (OR NULL FIXNUM) XLIB::TIMEOUT)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (COND ((AND (EQL XLIB::TIMEOUT 0) (NOT #)) :TIMEOUT) ; (T ; (SB-SYS:READ-N-BYTES (XLIB::DISPLAY-INPUT-STREAM XLIB:DISPLAY) ; VECTOR XLIB::START (- XLIB::END XLIB::START)) ; NIL))) ; --> PROGN ; ==> ; (SB-IMPL::%DEFUN 'XLIB::BUFFER-READ-DEFAULT ; (SB-INT:NAMED-LAMBDA XLIB::BUFFER-READ-DEFAULT ; (XLIB:DISPLAY VECTOR XLIB::START XLIB::END XLIB::TIMEOUT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE XLIB::BUFFER-BYTES VECTOR) ; (TYPE XLIB:ARRAY-INDEX XLIB::START XLIB::END) ; (TYPE (OR NULL FIXNUM) XLIB::TIMEOUT)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 1))) ; (BLOCK XLIB::BUFFER-READ-DEFAULT ; (COND (# :TIMEOUT) (T # NIL))))) ; ; caught STYLE-WARNING: ; Call to SB-SYS:READ-N-BYTES could not be inlined because its source code was ; not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in ; effect to save function definitions for inlining. ; processing (DEFUN BUFFER-WRITE-DEFAULT ...) ; processing (DEFUN BUFFER-FORCE-OUTPUT-DEFAULT ...) ; processing (DEFUN BUFFER-CLOSE-DEFAULT ...) ; processing (DEFUN BUFFER-INPUT-WAIT-DEFAULT ...) ; processing (DEFUN BUFFER-LISTEN-DEFAULT ...) ; processing (DEFMACRO WITH-STACK-LIST ...) ; processing (DEFMACRO WITH-STACK-LIST* ...) ; processing (DECLAIM (INLINE BUFFER-REPLACE)) ; processing (DEFUN BUFFER-REPLACE ...) ; processing (DEFMACRO WITH-GCONTEXT-BINDINGS ...) ; processing (DEFCONSTANT +TYPE-CHECK?+ ...) ; processing (DEFMACRO TYPE? ...) ; processing (DEFUN X-TYPE-ERROR ...) ; processing (DEFUN DEFAULT-ERROR-HANDLER ...) ; processing (DEFUN X-ERROR ...) ; processing (DEFUN X-CERROR ...) ; processing (DEFINE-CONDITION X-ERROR ...) ; processing (DEFUN HOST-ADDRESS ...) ; processing (DEFMACRO USE-CLOSURES ...) ; processing (DEFUN CLX-MACROEXPAND ...) ; processing (DEFUN GETENV ...) ; processing (DEFUN GET-HOST-NAME ...) ; processing (DEFUN HOMEDIR-FILE-PATHNAME ...) ; processing (DEFUN DEFAULT-RESOURCES-PATHNAME ...) ; processing (DEFUN RESOURCES-PATHNAME ...) ; processing (DEFUN AUTHORITY-PATHNAME ...) ; processing (DEFUN GET-DEFAULT-DISPLAY ...) ; processing (DEFUN GC-CLEANUP ...) ; processing (DEFUN DEFAULT-KEYSYM-TRANSLATE ...) ; processing (DEFTYPE PIXARRAY-1-ELEMENT-TYPE ...) ; processing (DEFTYPE PIXARRAY-4-ELEMENT-TYPE ...) ; processing (DEFTYPE PIXARRAY-8-ELEMENT-TYPE ...) ; processing (DEFTYPE PIXARRAY-16-ELEMENT-TYPE ...) ; processing (DEFTYPE PIXARRAY-24-ELEMENT-TYPE ...) ; processing (DEFTYPE PIXARRAY-32-ELEMENT-TYPE ...) ; processing (DEFTYPE PIXARRAY-1 ...) ; processing (DEFTYPE PIXARRAY-4 ...) ; processing (DEFTYPE PIXARRAY-8 ...) ; processing (DEFTYPE PIXARRAY-16 ...) ; processing (DEFTYPE PIXARRAY-24 ...) ; processing (DEFTYPE PIXARRAY-32 ...) ; processing (DEFTYPE PIXARRAY ...) ; processing (DEFTYPE BITMAP ...) ; processing (DEFMACRO WITH-UNDERLYING-SIMPLE-VECTOR ...) ; processing (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 ; processing (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 ; processing (DEFMACRO WRITE-IMAGE-LOAD-BYTE ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE ; (SETQ POSITION (- XLIB::INTEGER-SIZE 8 POSITION)) ; ; note: deleting unreachable code ; processing (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 ; processing (DEFUN FAST-READ-PIXARRAY-24 ...) ; processing (DEFUN PIXARRAY-ELEMENT-SIZE ...) ; processing (DEFUN COPY-BIT-RECT ...) ; processing (DEFUN FAST-READ-PIXARRAY-USING-BITBLT ...) ; processing (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 ; processing (DEFUN FAST-WRITE-PIXARRAY-24 ...) ; processing (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. ; processing (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 ; processing (DEFUN FAST-COPY-PIXARRAY ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/dependent-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.936 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 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFMACRO TYPE-CHECK ...) ; processing (DEFVAR *REQUIRED-ARG-DUMMY*) ; processing (DEFMACRO REQUIRED-ARG ...) ; processing (DEFMACRO LROUND ...) ; processing (DEFMACRO WROUND ...) ; processing (DEFUN INDEX-INCREMENT ...) ; processing (DEFUN GETIFY ...) ; processing (DEFUN PUTIFY ...) ; processing (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 ; (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 ; in: DEFMACRO DEFINE-ACCESSOR => DEFMACRO ,(PUTIFY NAME T) ; (XLIB::PUTIFY XLIB::NAME T) ; ==> ; XLIB::NAME ; ; note: deleting unreachable code ; processing (DEFINE-ACCESSOR CARD32 ...) ; processing (DEFINE-ACCESSOR CARD29 ...) ; processing (DEFINE-ACCESSOR CARD16 ...) ; processing (DEFINE-ACCESSOR CARD8 ...) ; processing (DEFINE-ACCESSOR INTEGER ...) ; processing (DEFINE-ACCESSOR INT16 ...) ; processing (DEFINE-ACCESSOR RGB-VAL ...) ; processing (DEFINE-ACCESSOR ANGLE ...) ; processing (DEFINE-ACCESSOR BIT ...) ; processing (DEFINE-ACCESSOR BOOLEAN ...) ; processing (DEFINE-ACCESSOR DRAWABLE ...) ; processing (DEFINE-ACCESSOR WINDOW ...) ; processing (DEFINE-ACCESSOR PIXMAP ...) ; processing (DEFINE-ACCESSOR GCONTEXT ...) ; processing (DEFINE-ACCESSOR CURSOR ...) ; processing (DEFINE-ACCESSOR COLORMAP ...) ; processing (DEFINE-ACCESSOR FONT ...) ; processing (DEFINE-ACCESSOR KEYWORD ...) ; processing (DEFINE-ACCESSOR RESOURCE-ID ...) ; processing (DEFINE-ACCESSOR RESOURCE-ID-OR-NIL ...) ; processing (DEFMACRO CHAR-INFO-GET ...) ; processing (DEFINE-ACCESSOR MEMBER8 ...) ; processing (DEFINE-ACCESSOR MEMBER16 ...) ; processing (DEFINE-ACCESSOR MEMBER ...) ; processing (DEFTYPE MEMBER-VECTOR ...) ; processing (DEFINE-ACCESSOR MEMBER-VECTOR ...) ; processing (DEFINE-ACCESSOR MEMBER16-VECTOR ...) ; processing (DEFINE-ACCESSOR MEMBER8-VECTOR ...) ; processing (DEFINE-ACCESSOR BOOLE-CONSTANT ...) ; processing (DEFINE-ACCESSOR NULL ...) ; processing (DEFINE-ACCESSOR PAD8 ...) ; processing (DEFINE-ACCESSOR PAD16 ...) ; processing (DEFINE-ACCESSOR PAD32 ...) ; processing (DEFINE-ACCESSOR BIT-VECTOR256 ...) ; processing (DEFINE-ACCESSOR STRING ...) ; processing (DEFINE-ACCESSOR SEQUENCE ...) ; processing (DEFMACRO CLIENT-MESSAGE-EVENT-GET-SEQUENCE ...) ; processing (DEFMACRO CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ...) ; processing (DEFINE-ACCESSOR CLIENT-MESSAGE-SEQUENCE ...) ; processing (DEFINE-ACCESSOR CODE ...) ; processing (DEFINE-ACCESSOR LENGTH ...) ; processing (DEFTYPE DATA ...) ; processing (DEFINE-ACCESSOR DATA ...) ; processing (DEFMACRO OR-EXPAND ...) ; processing (DEFINE-ACCESSOR OR ...) ; processing (SETF (GET # ...) ...) ; processing (DEFUN MASK-GET ...) ; processing (DEFUN MASK-PUT ...) ; processing (DEFINE-ACCESSOR PROGN ...) ; processing (DEFMACRO CHECK-PUT ...) ; processing (DEFUN GET-PUT-ITEMS ...) ; processing (DEFMACRO WITH-BUFFER-REQUEST-INTERNAL ...) ; processing (DEFMACRO WITH-BUFFER-REQUEST ...) ; processing (DEFMACRO WITH-BUFFER-REQUEST-AND-REPLY ...) ; processing (DEFMACRO COMPARE-REQUEST ...) ; processing (DEFMACRO PUT-ITEMS ...) ; processing (DEFMACRO DECODE-TYPE ...) ; processing (DEFMACRO ENCODE-TYPE ...) ; processing (DEFMACRO SET-DECODE-TYPE ...) ; processing (DEFSETF DECODE-TYPE ...) ; processing (DEFCONSTANT +X-CREATEWINDOW+ ...) ; processing (DEFCONSTANT +X-CHANGEWINDOWATTRIBUTES+ ...) ; processing (DEFCONSTANT +X-GETWINDOWATTRIBUTES+ ...) ; processing (DEFCONSTANT +X-DESTROYWINDOW+ ...) ; processing (DEFCONSTANT +X-DESTROYSUBWINDOWS+ ...) ; processing (DEFCONSTANT +X-CHANGESAVESET+ ...) ; processing (DEFCONSTANT +X-REPARENTWINDOW+ ...) ; processing (DEFCONSTANT +X-MAPWINDOW+ ...) ; processing (DEFCONSTANT +X-MAPSUBWINDOWS+ ...) ; processing (DEFCONSTANT +X-UNMAPWINDOW+ ...) ; processing (DEFCONSTANT +X-UNMAPSUBWINDOWS+ ...) ; processing (DEFCONSTANT +X-CONFIGUREWINDOW+ ...) ; processing (DEFCONSTANT +X-CIRCULATEWINDOW+ ...) ; processing (DEFCONSTANT +X-GETGEOMETRY+ ...) ; processing (DEFCONSTANT +X-QUERYTREE+ ...) ; processing (DEFCONSTANT +X-INTERNATOM+ ...) ; processing (DEFCONSTANT +X-GETATOMNAME+ ...) ; processing (DEFCONSTANT +X-CHANGEPROPERTY+ ...) ; processing (DEFCONSTANT +X-DELETEPROPERTY+ ...) ; processing (DEFCONSTANT +X-GETPROPERTY+ ...) ; processing (DEFCONSTANT +X-LISTPROPERTIES+ ...) ; processing (DEFCONSTANT +X-SETSELECTIONOWNER+ ...) ; processing (DEFCONSTANT +X-GETSELECTIONOWNER+ ...) ; processing (DEFCONSTANT +X-CONVERTSELECTION+ ...) ; processing (DEFCONSTANT +X-SENDEVENT+ ...) ; processing (DEFCONSTANT +X-GRABPOINTER+ ...) ; processing (DEFCONSTANT +X-UNGRABPOINTER+ ...) ; processing (DEFCONSTANT +X-GRABBUTTON+ ...) ; processing (DEFCONSTANT +X-UNGRABBUTTON+ ...) ; processing (DEFCONSTANT +X-CHANGEACTIVEPOINTERGRAB+ ...) ; processing (DEFCONSTANT +X-GRABKEYBOARD+ ...) ; processing (DEFCONSTANT +X-UNGRABKEYBOARD+ ...) ; processing (DEFCONSTANT +X-GRABKEY+ ...) ; processing (DEFCONSTANT +X-UNGRABKEY+ ...) ; processing (DEFCONSTANT +X-ALLOWEVENTS+ ...) ; processing (DEFCONSTANT +X-GRABSERVER+ ...) ; processing (DEFCONSTANT +X-UNGRABSERVER+ ...) ; processing (DEFCONSTANT +X-QUERYPOINTER+ ...) ; processing (DEFCONSTANT +X-GETMOTIONEVENTS+ ...) ; processing (DEFCONSTANT +X-TRANSLATECOORDS+ ...) ; processing (DEFCONSTANT +X-WARPPOINTER+ ...) ; processing (DEFCONSTANT +X-SETINPUTFOCUS+ ...) ; processing (DEFCONSTANT +X-GETINPUTFOCUS+ ...) ; processing (DEFCONSTANT +X-QUERYKEYMAP+ ...) ; processing (DEFCONSTANT +X-OPENFONT+ ...) ; processing (DEFCONSTANT +X-CLOSEFONT+ ...) ; processing (DEFCONSTANT +X-QUERYFONT+ ...) ; processing (DEFCONSTANT +X-QUERYTEXTEXTENTS+ ...) ; processing (DEFCONSTANT +X-LISTFONTS+ ...) ; processing (DEFCONSTANT +X-LISTFONTSWITHINFO+ ...) ; processing (DEFCONSTANT +X-SETFONTPATH+ ...) ; processing (DEFCONSTANT +X-GETFONTPATH+ ...) ; processing (DEFCONSTANT +X-CREATEPIXMAP+ ...) ; processing (DEFCONSTANT +X-FREEPIXMAP+ ...) ; processing (DEFCONSTANT +X-CREATEGC+ ...) ; processing (DEFCONSTANT +X-CHANGEGC+ ...) ; processing (DEFCONSTANT +X-COPYGC+ ...) ; processing (DEFCONSTANT +X-SETDASHES+ ...) ; processing (DEFCONSTANT +X-SETCLIPRECTANGLES+ ...) ; processing (DEFCONSTANT +X-FREEGC+ ...) ; processing (DEFCONSTANT +X-CLEARTOBACKGROUND+ ...) ; processing (DEFCONSTANT +X-COPYAREA+ ...) ; processing (DEFCONSTANT +X-COPYPLANE+ ...) ; processing (DEFCONSTANT +X-POLYPOINT+ ...) ; processing (DEFCONSTANT +X-POLYLINE+ ...) ; processing (DEFCONSTANT +X-POLYSEGMENT+ ...) ; processing (DEFCONSTANT +X-POLYRECTANGLE+ ...) ; processing (DEFCONSTANT +X-POLYARC+ ...) ; processing (DEFCONSTANT +X-FILLPOLY+ ...) ; processing (DEFCONSTANT +X-POLYFILLRECTANGLE+ ...) ; processing (DEFCONSTANT +X-POLYFILLARC+ ...) ; processing (DEFCONSTANT +X-PUTIMAGE+ ...) ; processing (DEFCONSTANT +X-GETIMAGE+ ...) ; processing (DEFCONSTANT +X-POLYTEXT8+ ...) ; processing (DEFCONSTANT +X-POLYTEXT16+ ...) ; processing (DEFCONSTANT +X-IMAGETEXT8+ ...) ; processing (DEFCONSTANT +X-IMAGETEXT16+ ...) ; processing (DEFCONSTANT +X-CREATECOLORMAP+ ...) ; processing (DEFCONSTANT +X-FREECOLORMAP+ ...) ; processing (DEFCONSTANT +X-COPYCOLORMAPANDFREE+ ...) ; processing (DEFCONSTANT +X-INSTALLCOLORMAP+ ...) ; processing (DEFCONSTANT +X-UNINSTALLCOLORMAP+ ...) ; processing (DEFCONSTANT +X-LISTINSTALLEDCOLORMAPS+ ...) ; processing (DEFCONSTANT +X-ALLOCCOLOR+ ...) ; processing (DEFCONSTANT +X-ALLOCNAMEDCOLOR+ ...) ; processing (DEFCONSTANT +X-ALLOCCOLORCELLS+ ...) ; processing (DEFCONSTANT +X-ALLOCCOLORPLANES+ ...) ; processing (DEFCONSTANT +X-FREECOLORS+ ...) ; processing (DEFCONSTANT +X-STORECOLORS+ ...) ; processing (DEFCONSTANT +X-STORENAMEDCOLOR+ ...) ; processing (DEFCONSTANT +X-QUERYCOLORS+ ...) ; processing (DEFCONSTANT +X-LOOKUPCOLOR+ ...) ; processing (DEFCONSTANT +X-CREATECURSOR+ ...) ; processing (DEFCONSTANT +X-CREATEGLYPHCURSOR+ ...) ; processing (DEFCONSTANT +X-FREECURSOR+ ...) ; processing (DEFCONSTANT +X-RECOLORCURSOR+ ...) ; processing (DEFCONSTANT +X-QUERYBESTSIZE+ ...) ; processing (DEFCONSTANT +X-QUERYEXTENSION+ ...) ; processing (DEFCONSTANT +X-LISTEXTENSIONS+ ...) ; processing (DEFCONSTANT +X-SETKEYBOARDMAPPING+ ...) ; processing (DEFCONSTANT +X-GETKEYBOARDMAPPING+ ...) ; processing (DEFCONSTANT +X-CHANGEKEYBOARDCONTROL+ ...) ; processing (DEFCONSTANT +X-GETKEYBOARDCONTROL+ ...) ; processing (DEFCONSTANT +X-BELL+ ...) ; processing (DEFCONSTANT +X-CHANGEPOINTERCONTROL+ ...) ; processing (DEFCONSTANT +X-GETPOINTERCONTROL+ ...) ; processing (DEFCONSTANT +X-SETSCREENSAVER+ ...) ; processing (DEFCONSTANT +X-GETSCREENSAVER+ ...) ; processing (DEFCONSTANT +X-CHANGEHOSTS+ ...) ; processing (DEFCONSTANT +X-LISTHOSTS+ ...) ; processing (DEFCONSTANT +X-CHANGEACCESSCONTROL+ ...) ; processing (DEFCONSTANT +X-CHANGECLOSEDOWNMODE+ ...) ; processing (DEFCONSTANT +X-KILLCLIENT+ ...) ; processing (DEFCONSTANT +X-ROTATEPROPERTIES+ ...) ; processing (DEFCONSTANT +X-FORCESCREENSAVER+ ...) ; processing (DEFCONSTANT +X-SETPOINTERMAPPING+ ...) ; processing (DEFCONSTANT +X-GETPOINTERMAPPING+ ...) ; processing (DEFCONSTANT +X-SETMODIFIERMAPPING+ ...) ; processing (DEFCONSTANT +X-GETMODIFIERMAPPING+ ...) ; processing (DEFCONSTANT +X-NOOPERATION+ ...) ; processing (DEFMACRO THREADED-ATOMIC-PUSH ...) ; processing (DEFMACRO THREADED-ATOMIC-POP ...) ; processing (DEFMACRO THREADED-NCONC ...) ; processing (DEFMACRO THREADED-PUSH ...) ; processing (DEFMACRO THREADED-POP ...) ; processing (DEFMACRO THREADED-ENQUEUE ...) ; processing (DEFMACRO THREADED-DEQUEUE ...) ; processing (DEFMACRO THREADED-REQUEUE ...) ; processing (DEFMACRO THREADED-DOLIST ...) ; processing (DEFMACRO THREADED-DELETE ...) ; processing (DEFMACRO THREADED-LENGTH ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/macros-tmp10401X32.fasl ; compilation finished in 0:00:01.612 ; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFMACRO WRITE-CARD8 ...) ; processing (DEFMACRO WRITE-INT8 ...) ; processing (DEFMACRO WRITE-CARD16 ...) ; processing (DEFMACRO WRITE-INT16 ...) ; processing (DEFMACRO WRITE-CARD32 ...) ; processing (DEFMACRO WRITE-INT32 ...) ; processing (DEFMACRO WRITE-CARD29 ...) ; processing (DEFMACRO WRITE-CHAR2B ...) ; processing (DEFMACRO SET-BUFFER-OFFSET ...) ; processing (DEFMACRO ADVANCE-BUFFER-OFFSET ...) ; processing (DEFMACRO WITH-BUFFER-OUTPUT ...) ; processing (DEFMACRO WRITING-BUFFER-CHUNKS ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/bufmac-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.140 ; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFCONSTANT +REQUESTSIZE+ ...) ; processing (DEFMACRO WITH-BUFFER ...) ; processing (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. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; etc. ; processing (DEFMACRO READ-CARD8 ...) ; processing (DEFMACRO READ-INT8 ...) ; processing (DEFMACRO READ-CARD16 ...) ; processing (DEFMACRO READ-INT16 ...) ; processing (DEFMACRO READ-CARD32 ...) ; processing (DEFMACRO READ-INT32 ...) ; processing (DEFMACRO READ-CARD29 ...) ; processing (DEFMACRO EVENT-CODE ...) ; processing (DEFMACRO READING-EVENT ...) ; processing (DEFMACRO WITH-BUFFER-INPUT ...) ; processing (DEFUN MAKE-BUFFER ...) ; processing (DEFUN MAKE-REPLY-BUFFER ...) ; processing (DEFUN BUFFER-ENSURE-SIZE ...) ; processing (DEFUN BUFFER-PAD-REQUEST ...) ; processing (DECLAIM (INLINE BUFFER-NEW-REQUEST-NUMBER)) ; processing (DEFUN BUFFER-NEW-REQUEST-NUMBER ...) ; processing (DEFUN WITH-BUFFER-REQUEST-FUNCTION ...) ; processing (DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ...) ; processing (DEFSTRUCT (PENDING-COMMAND # ...) ...) ; processing (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ...) ; processing (DEFUN BUFFER-WRITE ...) ; processing (DEFUN BUFFER-FLUSH ...) ; processing (DEFMACRO WITH-BUFFER-FLUSH-INHIBITED ...) ; processing (DEFUN BUFFER-FORCE-OUTPUT ...) ; processing (DEFUN CLOSE-BUFFER ...) ; processing (DEFUN BUFFER-INPUT ...) ; processing (DEFUN BUFFER-INPUT-WAIT ...) ; processing (DEFUN BUFFER-LISTEN ...) ; processing (DEFUN READ-SEQUENCE-STRING ...) ; processing (DEFMACRO DEFINE-TRANSFORMED-SEQUENCE-READER ...) ; processing (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-CHAR ...) ; processing (DEFMACRO DEFINE-LIST-READERS ...) ; processing (DEFINE-LIST-READERS (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM) ...) ; processing (DEFUN READ-SIMPLE-ARRAY-CARD8 ...) ; processing (DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ...) ; processing (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 #'(SETF AREF) #:NEW1 #:DATA2 #:J3) ; ; 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. ; processing (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 #'(SETF AREF) #:NEW1 #:DATA2 #:J3) ; ; 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. ; processing (DEFMACRO DEFINE-SEQUENCE-READER ...) ; processing (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD8 ...) ; processing (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT8 ...) ; processing (DEFINE-LIST-READERS (READ-LIST-CARD16 READ-LIST-CARD16-WITH-TRANSFORM) ...) ; processing (DEFUN READ-SIMPLE-ARRAY-CARD16 ...) ; processing (DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ...) ; processing (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 #'(SETF AREF) #:NEW1 #:DATA2 #:J3) ; ; 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. ; processing (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 #'(SETF AREF) #:NEW1 #:DATA2 #:J3) ; ; 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. ; processing (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD16 ...) ; processing (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT16 ...) ; processing (DEFINE-LIST-READERS (READ-LIST-CARD32 READ-LIST-CARD32-WITH-TRANSFORM) ...) ; processing (DEFUN READ-SIMPLE-ARRAY-CARD32 ...) ; processing (DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ...) ; processing (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 #'(SETF AREF) #:NEW1 #:DATA2 #:J3) ; ; 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. ; processing (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 #'(SETF AREF) #:NEW1 #:DATA2 #:J3) ; ; 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. ; processing (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD32 ...) ; processing (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT32 ...) ; processing (DEFMACRO DEFINE-TRANSFORMED-SEQUENCE-WRITER ...) ; processing (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR ...) ; processing (DEFMACRO DEFINE-LIST-WRITERS ...) ; processing (DEFINE-LIST-WRITERS (WRITE-LIST-CARD8 WRITE-LIST-CARD8-WITH-TRANSFORM) ...) ; processing (DEFUN WRITE-SIMPLE-ARRAY-CARD8 ...) ; processing (DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ...) ; processing (DEFUN WRITE-VECTOR-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::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. ; processing (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) ; ; 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. ; processing (DEFMACRO DEFINE-SEQUENCE-WRITER ...) ; processing (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD8 ...) ; processing (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT8 ...) ; processing (DEFINE-LIST-WRITERS (WRITE-LIST-CARD16 WRITE-LIST-CARD16-WITH-TRANSFORM) ...) ; processing (DEFUN WRITE-SIMPLE-ARRAY-CARD16 ...) ; processing (DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ...) ; processing (DEFUN WRITE-VECTOR-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::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. ; processing (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) ; ; 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. ; processing (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD16 ...) ; processing (DEFINE-LIST-WRITERS (WRITE-LIST-INT16 WRITE-LIST-INT16-WITH-TRANSFORM) ...) ; processing (DEFUN WRITE-SIMPLE-ARRAY-INT16 ...) ; processing (DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ...) ; processing (DEFUN WRITE-VECTOR-INT16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::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. ; processing (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) ; ; 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. ; processing (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-INT16 ...) ; processing (DEFINE-LIST-WRITERS (WRITE-LIST-CARD32 WRITE-LIST-CARD32-WITH-TRANSFORM) ...) ; processing (DEFUN WRITE-SIMPLE-ARRAY-CARD32 ...) ; processing (DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ...) ; processing (DEFUN WRITE-VECTOR-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::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. ; processing (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) ; ; 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. ; processing (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD32 ...) ; processing (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT32 ...) ; processing (DEFUN READ-BITVECTOR256 ...) ; processing (DEFUN WRITE-BITVECTOR256 ...) ; processing (DEFINE-LIST-WRITERS (WRITE-LIST-CHAR2B WRITE-LIST-CHAR2B-WITH-TRANSFORM) ...) ; processing (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B ...) ; processing (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ...) ; processing (DEFUN WRITE-VECTOR-CHAR2B ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::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. ; processing (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) ; ; 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. ; processing (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR2B ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/buffer-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:02.196 ; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFPARAMETER *KNOWN-AUTHORIZATIONS* ...) ; processing (DEFUN READ-XAUTH-ENTRY ...) ; processing (DEFUN GET-BEST-AUTHORIZATION ...) ; processing (DEFMACRO WITH-DISPLAY ...) ; processing (DEFUN INITIALIZE-RESOURCE-ALLOCATOR ...) ; processing (DEFUN RESOURCEALLOC ...) ; processing (DEFMACRO ALLOCATE-RESOURCE-ID ...) ; processing (DEFMACRO DEALLOCATE-RESOURCE-ID ...) ; processing (DEFUN DEALLOCATE-RESOURCE-ID-INTERNAL ...) ; processing (DEFUN LOOKUP-RESOURCE-ID ...) ; processing (DEFUN SAVE-ID ...); in: DEFUN ,(XINTERN 'LOOKUP- TYPE) ; '(XLIB:WINDOW XLIB:PIXMAP) ; ; note: deleting unreachable code ; processing (GENERATE-LOOKUP-FUNCTIONS IGNORE ...) ; processing (DEFUN ID-ATOM ...) ; processing (DEFUN ATOM-ID ...) ; processing (DEFUN SET-ATOM-ID ...) ; processing (DEFSETF ATOM-ID ...) ; processing (DEFUN INITIALIZE-PREDEFINED-ATOMS ...) ; processing (DEFUN VISUAL-INFO ...) ; processing (DEFMACRO WITH-EVENT-QUEUE ...) ; processing (DEFUN WITH-EVENT-QUEUE-FUNCTION ...) ; processing (DEFMACRO WITH-EVENT-QUEUE-INTERNAL ...) ; processing (DEFUN OPEN-DEFAULT-DISPLAY ...) ; processing (DEFUN OPEN-DISPLAY ...) ; processing (DEFUN DISPLAY-FORCE-OUTPUT ...) ; processing (DEFUN CLOSE-DISPLAY ...) ; processing (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 VECTOR. ; (LENGTH XLIB::AUTHORIZATION-DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH XLIB::AUTHORIZATION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; processing (DEFUN DISPLAY-PROTOCOL-VERSION ...) ; processing (DEFUN DISPLAY-VENDOR ...) ; processing (DEFUN DISPLAY-NSCREENS ...) ; processing (DEFVAR *INSIDE-DISPLAY-AFTER-FUNCTION* ...) ; processing (DEFUN DISPLAY-INVOKE-AFTER-FUNCTION ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFPARAMETER *REQUEST-NAMES* ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/display-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.664 ; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFCONSTANT +GCONTEXT-FAST-CHANGE-LENGTH+ ...); in: LAMBDA (#:EXPR #:ENV) ; (ASH 1 (POSITION (SECOND XLIB::EXTRA) XLIB::+GCONTEXT-COMPONENTS+)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type INTEGER. ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEF-GC-INTERNALS IGNORE ...) ; processing (DEFTYPE GCMASK ...) ; processing (DEFTYPE XGCMASK ...) ; processing (DEFSTRUCT (GCONTEXT-EXTENSION # ...) ...) ; processing (DEFVAR *GCONTEXT-EXTENSIONS* ...) ; processing (DEFVAR *GCONTEXT-LOCAL-STATE-CACHE* ...) ; processing (DEFMACRO GCONTEXT-STATE-NEXT ...) ; processing (DEFUN ALLOCATE-GCONTEXT-STATE ...) ; processing (DEFUN DEALLOCATE-GCONTEXT-STATE ...) ; processing (DEFVAR *TEMP-GCONTEXT-CACHE* ...) ; processing (DEFUN ALLOCATE-TEMP-GCONTEXT ...) ; processing (DEFUN DEALLOCATE-TEMP-GCONTEXT ...) ; processing (DEFMACRO XGCMASK->GCMASK ...) ; processing (DEFMACRO ACCESS-GCONTEXT ...) ; processing (DEFMACRO MODIFY-GCONTEXT ...) ; processing (DEFMACRO DEF-GC-ACCESSOR ...) ; processing (DEFMACRO INCF-INTERNAL-TIMESTAMP ...) ; processing (DEF-GC-ACCESSOR FUNCTION ...) ; processing (DEF-GC-ACCESSOR PLANE-MASK ...) ; processing (DEF-GC-ACCESSOR FOREGROUND ...) ; processing (DEF-GC-ACCESSOR BACKGROUND ...) ; processing (DEF-GC-ACCESSOR LINE-WIDTH ...) ; processing (DEF-GC-ACCESSOR LINE-STYLE ...) ; processing (DEF-GC-ACCESSOR CAP-STYLE ...) ; processing (DEF-GC-ACCESSOR JOIN-STYLE ...) ; processing (DEF-GC-ACCESSOR FILL-STYLE ...) ; processing (DEF-GC-ACCESSOR FILL-RULE ...) ; processing (DEF-GC-ACCESSOR TILE ...) ; processing (DEF-GC-ACCESSOR STIPPLE ...) ; processing (DEF-GC-ACCESSOR TS-X ...) ; processing (DEF-GC-ACCESSOR TS-Y ...) ; processing (DEF-GC-ACCESSOR SUBWINDOW-MODE ...) ; processing (DEF-GC-ACCESSOR EXPOSURES ...) ; processing (DEF-GC-ACCESSOR CLIP-X ...) ; processing (DEF-GC-ACCESSOR CLIP-Y ...) ; processing (DEF-GC-ACCESSOR DASH-OFFSET ...) ; processing (DEF-GC-ACCESSOR ARC-MODE ...) ; processing (DEFUN GCONTEXT-CLIP-MASK ...) ; processing (DEFSETF GCONTEXT-CLIP-MASK ...) ; processing (DEFUN SET-GCONTEXT-CLIP-MASK ...) ; processing (DEFUN GCONTEXT-DASHES ...) ; processing (DEFSETF GCONTEXT-DASHES ...) ; processing (DEFUN SET-GCONTEXT-DASHES ...) ; processing (DEFUN GCONTEXT-FONT ...) ; processing (DEFSETF GCONTEXT-FONT ...) ; processing (DEFUN SET-GCONTEXT-FONT ...) ; processing (DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ; (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (ZEROP (XLIB::BUFFER-LAST-REQUEST XLIB:DISPLAY)) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::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 VECTOR. ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> 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 VECTOR. ; (EQL (SVREF XLIB::SERVER-STATE XLIB::I) ; (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-SET-FUNCTION (CAR XLIB::EXTENSION)) ; XLIB:GCONTEXT XLIB::LOCAL) ; ; 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-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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (EQL (SVREF XLIB::SERVER-STATE XLIB::I) ; (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I))) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN FORCE-GCONTEXT-CHANGES ...) ; processing (DEFMACRO WITH-GCONTEXT ...) ; processing (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 (XLIB:DISPLAY-XID XLIB:DISPLAY) XLIB:DISPLAY) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (ELT XLIB::*GCONTEXT-EXTENSIONS* XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (FUNCALL XLIB::COPY-FUNCTION XLIB:GCONTEXT XLIB::TEMP-GC ; (SVREF XLIB::LOCAL-STATE ; (XLIB::INDEX+ XLIB::I XLIB::*GCONTEXT-DATA-LENGTH*))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: forced to do full call ; 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 2) 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 ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; processing (DEFUN RESTORE-GCONTEXT-TEMP-STATE ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT ; (SVREF XLIB::LOCAL-STATE XLIB::I)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: forced to do full call ; 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 2) 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 ; (SIGNED-BYTE 64) ; &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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; processing (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 (XLIB:DISPLAY-XID XLIB:DISPLAY) 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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*))) ; ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN COPY-GCONTEXT ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFMACRO DEFINE-GCONTEXT-ACCESSOR ...) ; processing (DEFUN ADD-GCONTEXT-EXTENSION ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/gcontext-tmpP3BI68WQ.fasl ; compilation finished in 0:00:02.888 ; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFVAR *EVENT-FREE-LIST* ...) ; processing (DEFCONSTANT +MAX-EVENTS+ ...) ; processing (DEFVAR *EVENT-KEY-VECTOR* ...) ; processing (DEFVAR *EVENT-MACRO-VECTOR* ...) ; processing (DEFVAR *EVENT-HANDLER-VECTOR* ...) ; processing (DEFVAR *EVENT-SEND-VECTOR* ...) ; processing (DEFUN ALLOCATE-EVENT ...) ; processing (DEFUN DEALLOCATE-EVENT ...) ; processing (DEFPARAMETER *FIRST-EXTENSION-EVENT-CODE* ...) ; processing (DEFVAR *EXTENSIONS* ...) ; processing (DEFMACRO DEFINE-EXTENSION ...) ; processing (DEFUN CANONICALIZE-EVENT-NAME ...) ; processing (DEFUN EXTENSION-EVENT-KEY-P ...) ; processing (DEFUN ALLOCATE-EXTENSION-EVENT-CODE ...) ; processing (DEFUN GET-INTERNAL-EVENT-CODE ...) ; processing (DEFUN GET-EXTERNAL-EVENT-CODE ...) ; processing (DEFMACRO EXTENSION-OPCODE ...) ; processing (DEFUN INITIALIZE-EXTENSIONS ...) ; processing (DEFVAR *PENDING-COMMAND-FREE-LIST* ...) ; processing (DEFUN START-PENDING-COMMAND ...) ; processing (DEFUN STOP-PENDING-COMMAND ...) ; processing (DEFVAR *REPLY-BUFFER-FREE-LISTS* ...) ; processing (DEFUN ALLOCATE-REPLY-BUFFER ...) ; processing (DEFUN DEALLOCATE-REPLY-BUFFER ...) ; processing (DEFUN READ-ERROR-INPUT ...) ; processing (DEFUN READ-REPLY-INPUT ...) ; processing (DEFUN READ-EVENT-INPUT ...) ; processing (DEFUN NOTE-INPUT-COMPLETE ...) ; processing (DEFUN READ-INPUT ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN READ-INPUT ; (CONS NIL NIL) ; ; note: deleting unreachable code ; processing (DEFUN REPORT-ASYNCHRONOUS-ERRORS ...) ; processing (DEFUN WAIT-FOR-EVENT ...) ; processing (DEFUN READ-REPLY ...) ; processing (DEFUN EVENT-LISTEN ...) ; processing (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) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; processing (DEFUN ENQUEUE-EVENT ...) ; processing (DEFMACRO DEFINE-EVENT ...) ; processing (DEFINE-EVENT :KEY-PRESS ...) ; processing (DEFINE-EVENT :KEY-RELEASE ...) ; processing (DEFINE-EVENT :BUTTON-PRESS ...) ; processing (DEFINE-EVENT :BUTTON-RELEASE ...) ; processing (DEFINE-EVENT :MOTION-NOTIFY ...) ; processing (DEFINE-EVENT :ENTER-NOTIFY ...) ; processing (DEFINE-EVENT :LEAVE-NOTIFY ...) ; processing (DEFINE-EVENT :FOCUS-IN ...) ; processing (DEFINE-EVENT :FOCUS-OUT ...) ; processing (DEFINE-EVENT :KEYMAP-NOTIFY ...) ; processing (DEFINE-EVENT :EXPOSURE ...) ; processing (DEFINE-EVENT :GRAPHICS-EXPOSURE ...) ; processing (DEFINE-EVENT :NO-EXPOSURE ...) ; processing (DEFINE-EVENT :VISIBILITY-NOTIFY ...) ; processing (DEFINE-EVENT :CREATE-NOTIFY ...) ; processing (DEFINE-EVENT :DESTROY-NOTIFY ...) ; processing (DEFINE-EVENT :UNMAP-NOTIFY ...) ; processing (DEFINE-EVENT :MAP-NOTIFY ...) ; processing (DEFINE-EVENT :MAP-REQUEST ...) ; processing (DEFINE-EVENT :REPARENT-NOTIFY ...) ; processing (DEFINE-EVENT :CONFIGURE-NOTIFY ...) ; processing (DEFINE-EVENT :CONFIGURE-REQUEST ...) ; processing (DEFINE-EVENT :GRAVITY-NOTIFY ...) ; processing (DEFINE-EVENT :RESIZE-REQUEST ...) ; processing (DEFINE-EVENT :CIRCULATE-NOTIFY ...) ; processing (DEFINE-EVENT :CIRCULATE-REQUEST ...) ; processing (DEFINE-EVENT :PROPERTY-NOTIFY ...) ; processing (DEFINE-EVENT :SELECTION-CLEAR ...) ; processing (DEFINE-EVENT :SELECTION-REQUEST ...) ; processing (DEFINE-EVENT :SELECTION-NOTIFY ...) ; processing (DEFINE-EVENT :COLORMAP-NOTIFY ...) ; processing (DEFINE-EVENT :CLIENT-MESSAGE ...) ; processing (DEFINE-EVENT :MAPPING-NOTIFY ...) ; processing (DEFMACRO DECLARE-EVENT ...) ; processing (DEFUN CHECK-CONSISTENCY ...) ; processing (DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE ...) ...) ; processing (DECLARE-EVENT :MOTION-NOTIFY ...) ; processing (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 BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::MODE (THE SIMPLE-VECTOR '#(:NORMAL :GRAB :UNGRAB)) :TEST ; #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; --> 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::DATA-PUT MACROLET XLIB::WRITE-CARD8 XLIB::ASET-CARD8 THE ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::KIND ; (THE SIMPLE-VECTOR ; '#(:ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR ; :NONLINEAR-VIRTUAL)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (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 BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::MODE ; (THE SIMPLE-VECTOR '#(:NORMAL :WHILE-GRABBED :GRAB :UNGRAB)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; --> 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::DATA-PUT MACROLET XLIB::WRITE-CARD8 XLIB::ASET-CARD8 THE ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::KIND ; (THE SIMPLE-VECTOR ; '#(:ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR ; :NONLINEAR-VIRTUAL :POINTER :POINTER-ROOT :NONE)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DECLARE-EVENT :KEYMAP-NOTIFY ...) ; processing (DECLARE-EVENT :EXPOSURE ...) ; processing (DECLARE-EVENT :GRAPHICS-EXPOSURE ...) ; processing (DECLARE-EVENT :NO-EXPOSURE ...) ; processing (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 BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::STATE ; (THE SIMPLE-VECTOR ; '#(:UNOBSCURED :PARTIALLY-OBSCURED :FULLY-OBSCURED)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DECLARE-EVENT :CREATE-NOTIFY ...) ; processing (DECLARE-EVENT :DESTROY-NOTIFY ...) ; processing (DECLARE-EVENT :UNMAP-NOTIFY ...) ; processing (DECLARE-EVENT :MAP-NOTIFY ...) ; processing (DECLARE-EVENT :MAP-REQUEST ...) ; processing (DECLARE-EVENT :REPARENT-NOTIFY ...) ; processing (DECLARE-EVENT :CONFIGURE-NOTIFY ...) ; processing (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 BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::DATA-PUT MACROLET XLIB::WRITE-CARD8 XLIB::ASET-CARD8 THE ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::STACK-MODE ; (THE SIMPLE-VECTOR ; '#(:ABOVE :BELOW :TOP-IF :BOTTOM-IF :OPPOSITE)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DECLARE-EVENT :GRAVITY-NOTIFY ...) ; processing (DECLARE-EVENT :RESIZE-REQUEST ...) ; processing (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 BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::PLACE (THE SIMPLE-VECTOR '#(:TOP :BOTTOM)) :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (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 BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::PLACE (THE SIMPLE-VECTOR '#(:TOP :BOTTOM)) :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (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 BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::STATE (THE SIMPLE-VECTOR '#(:NEW-VALUE :DELETED)) :TEST ; #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DECLARE-EVENT :SELECTION-CLEAR ...) ; processing (DECLARE-EVENT :SELECTION-REQUEST ...) ; processing (DECLARE-EVENT :SELECTION-NOTIFY ...) ; processing (DECLARE-EVENT :COLORMAP-NOTIFY ...) ; processing (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 XLIB::HANDLER :DISPLAY XLIB:DISPLAY :EVENT-KEY ; (SVREF XLIB::*EVENT-KEY-VECTOR* (XLIB::EVENT-CODE XLIB::EVENT)) ; :EVENT-CODE (LOGAND 127 (XLIB::CARD8-GET 0)) :SEND-EVENT-P ; (LOGBITP 7 (XLIB::CARD8-GET 0)) :FORMAT (XLIB::DATA-GET 2) ...) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> 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 (LENGTH XLIB::DATA) 20) ; ; 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 (LENGTH XLIB::DATA) 10) ; ; 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 (LENGTH XLIB::DATA) 5) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; processing (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 BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::REQUEST ; (THE SIMPLE-VECTOR '#(:MODIFIER :KEYBOARD :POINTER)) :TEST ; #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFUN EVENT-LOOP-SETUP ...) ; processing (DEFUN EVENT-LOOP-STEP-BEFORE ...) ; processing (DEFUN DEQUEUE-EVENT ...) ; processing (DEFUN EVENT-LOOP-STEP-AFTER ...) ; processing (DEFMACRO EVENT-LOOP ...) ; processing (DEFUN DISCARD-CURRENT-EVENT ...) ; processing (DEFUN PROCESS-EVENT ...) ; processing (DEFUN MAKE-EVENT-HANDLERS ...) ; processing (DEFUN EVENT-HANDLER ...) ; processing (DEFUN SET-EVENT-HANDLER ...) ; processing (DEFSETF EVENT-HANDLER ...) ; processing (DEFMACRO EVENT-CASE ...) ; processing (DEFMACRO EVENT-COND ...) ; processing (DEFUN GET-EVENT-CODE ...) ; processing (DEFUN UNIVERSAL-EVENT-GET-MACRO ...) ; processing (DEFMACRO EVENT-DISPATCH ...) ; processing (DEFMACRO BINDING-EVENT-VALUES ...) ; processing (DEFPARAMETER *XERROR-VECTOR* ...) ; processing (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) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; processing (DEFUN REPORT-ERROR ...) ; processing (DEFUN REQUEST-NAME ...) ; processing (DEFUN REPORT-REQUEST-ERROR ...) ; processing (DEFINE-CONDITION REQUEST-ERROR ...) ; processing (DEFINE-CONDITION RESOURCE-ERROR ...) ; processing (DEFINE-CONDITION UNKNOWN-ERROR ...) ; processing (DEFINE-CONDITION ACCESS-ERROR ...) ; processing (DEFINE-CONDITION ALLOC-ERROR ...) ; processing (DEFINE-CONDITION ATOM-ERROR ...) ; processing (DEFINE-CONDITION COLORMAP-ERROR ...) ; processing (DEFINE-CONDITION CURSOR-ERROR ...) ; processing (DEFINE-CONDITION DRAWABLE-ERROR ...) ; processing (DEFINE-CONDITION FONT-ERROR ...) ; processing (DEFINE-CONDITION GCONTEXT-ERROR ...) ; processing (DEFINE-CONDITION ID-CHOICE-ERROR ...) ; processing (DEFINE-CONDITION ILLEGAL-REQUEST-ERROR ...) ; processing (DEFINE-CONDITION LENGTH-ERROR ...) ; processing (DEFINE-CONDITION MATCH-ERROR ...) ; processing (DEFINE-CONDITION NAME-ERROR ...) ; processing (DEFINE-CONDITION PIXMAP-ERROR ...) ; processing (DEFINE-CONDITION VALUE-ERROR ...) ; processing (DEFINE-CONDITION WINDOW-ERROR ...) ; processing (DEFINE-CONDITION IMPLEMENTATION-ERROR ...) ; processing (DEFINE-CONDITION X-TYPE-ERROR ...) ; processing (DEFINE-CONDITION CLOSED-DISPLAY ...) ; processing (DEFINE-CONDITION LOOKUP-ERROR ...) ; processing (DEFINE-CONDITION CONNECTION-FAILURE ...) ; processing (DEFINE-CONDITION REPLY-LENGTH-ERROR ...) ; processing (DEFINE-CONDITION REPLY-TIMEOUT ...) ; processing (DEFINE-CONDITION SEQUENCE-ERROR ...) ; processing (DEFINE-CONDITION UNEXPECTED-REPLY ...) ; processing (DEFINE-CONDITION MISSING-PARAMETER ...) ; processing (DEFINE-CONDITION INVALID-FONT ...) ; processing (DEFINE-CONDITION DEVICE-BUSY ...) ; processing (DEFINE-CONDITION UNIMPLEMENTED-EVENT ...) ; processing (DEFINE-CONDITION UNDEFINED-EVENT ...) ; processing (DEFINE-CONDITION ABSENT-EXTENSION ...) ; processing (DEFINE-CONDITION INCONSISTENT-PARAMETERS ...) ; processing (DEFINE-CONDITION RESOURCE-IDS-EXHAUSTED ...) ; processing (DEFUN GET-ERROR-KEY ...) ; processing (DEFMACRO DEFINE-ERROR ...) ; processing (DEFUN DECODE-CORE-ERROR ...) ; processing (DEFUN DECODE-RESOURCE-ERROR ...) ; processing (DEFINE-ERROR UNKNOWN-ERROR ...) ; processing (DEFINE-ERROR REQUEST-ERROR ...) ; processing (DEFINE-ERROR VALUE-ERROR ...) ; processing (DEFINE-ERROR WINDOW-ERROR ...) ; processing (DEFINE-ERROR PIXMAP-ERROR ...) ; processing (DEFINE-ERROR ATOM-ERROR ...) ; processing (DEFINE-ERROR CURSOR-ERROR ...) ; processing (DEFINE-ERROR FONT-ERROR ...) ; processing (DEFINE-ERROR MATCH-ERROR ...) ; processing (DEFINE-ERROR DRAWABLE-ERROR ...) ; processing (DEFINE-ERROR ACCESS-ERROR ...) ; processing (DEFINE-ERROR ALLOC-ERROR ...) ; processing (DEFINE-ERROR COLORMAP-ERROR ...) ; processing (DEFINE-ERROR GCONTEXT-ERROR ...) ; processing (DEFINE-ERROR ID-CHOICE-ERROR ...) ; processing (DEFINE-ERROR NAME-ERROR ...) ; processing (DEFINE-ERROR LENGTH-ERROR ...) ; processing (DEFINE-ERROR IMPLEMENTATION-ERROR ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/input-tmpQDARA81Z.fasl ; compilation finished in 0:00:03.448 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (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 (XLIB:DISPLAY-XID XLIB:DISPLAY) 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* LET INCF LET* ; ==> ; (+ XLIB::%INDEX (XLIB::BUFFER-BOFFSET #:%BUFFER84)) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 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 (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 4) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 8) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 16) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 32) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 64) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 128) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 256) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 512) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 1024) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 2048) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 4096) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 8192) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 16384) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &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* LET INCF LET* ; ==> ; (+ XLIB::%INDEX (XLIB::BUFFER-BOFFSET #:%BUFFER84)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-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* LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::MEMBER-VECTOR-PUT XLIB::MEMBER-PUT XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::GRAVITY ; (THE SIMPLE-VECTOR ; '#(:UNMAP :NORTH-WEST :NORTH :NORTH-EAST :WEST :CENTER ; :EAST :SOUTH-WEST :SOUTH :SOUTH-EAST :STATIC)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB:BIT-GRAVITY ; (THE SIMPLE-VECTOR ; '#(:FORGET :NORTH-WEST :NORTH :NORTH-EAST :WEST :CENTER ; :EAST :SOUTH-WEST :SOUTH :SOUTH-EAST :STATIC)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN LOOKUP-XATOM ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFSETF SELECTION-OWNER ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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) ; ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFMACRO WITH-SERVER-GRABBED ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (XLIB:DISPLAY-XID XLIB:DISPLAY) 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (XLIB:DISPLAY-XID XLIB:DISPLAY) 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (XLIB:DISPLAY-XID XLIB:DISPLAY) 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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-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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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-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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN STORE-COLOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN STORE-COLOR ; (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN STORE-COLORS ...) ; processing (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 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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (XLIB:DISPLAY-XID XLIB:DISPLAY) 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (XLIB:DISPLAY-XID XLIB:DISPLAY) 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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* LET INCF LET* ; ==> ; (+ XLIB::%INDEX (XLIB::BUFFER-BOFFSET #:%BUFFER34)) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-(COMPLEX FLOAT) numeric operation ; due to type uncertainty: ; The second argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; --> 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 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 (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 4) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 8) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 16) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 32) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 64) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 128) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &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* LET INCF LET* ; ==> ; (+ XLIB::%INDEX (XLIB::BUFFER-BOFFSET #:%BUFFER34)) ; ; note: forced to do full call ; 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 (unsigned-byte 64) arithmetic (cost 5) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFSETF POINTER-MAPPING ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-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::CHECK-PUT XLIB::MEMBER8-PUT ; --> XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::EXPOSURES (THE SIMPLE-VECTOR '#(:ON :OFF :DEFAULT)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::BLANKING (THE SIMPLE-VECTOR '#(:ON :OFF :DEFAULT)) :TEST ; #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN ADD-ACCESS-HOST ...) ; processing (DEFUN REMOVE-ACCESS-HOST ...) ; processing (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 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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFSETF ACCESS-CONTROL ...) ; processing (DEFUN CLOSE-DOWN-MODE ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFSETF CLOSE-DOWN-MODE ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/requests-tmpYEMMM7SE.fasl ; compilation finished in 0:00:06.096 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFTYPE CHAR-INFO-VEC ...) ; processing (DEF-CHAR-INFO-ACCESSORS IGNORE ...) ; processing (DEFUN OPEN-FONT ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN OPEN-FONT ; (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 (XLIB:DISPLAY-XID XLIB:DISPLAY) 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (XLIB:DISPLAY-XID XLIB:DISPLAY) 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 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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN DISCARD-FONT-INFO ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN SET-FONT-PATH ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN SET-FONT-PATH ; (CEILING XLIB::REQUEST-LENGTH 4) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; 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 (SIGNED-BYTE 64). ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; ; 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. ; ; 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) BASE-STRING SYMBOL ; CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CEILING XLIB::REQUEST-LENGTH 4) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) 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. ; (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFSETF FONT-PATH ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/fonts-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.728 ; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFVAR *INHIBIT-APPENDING* ...) ; processing (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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* ; ==> ; (LDB (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* ; ==> ; (LDB (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* ; ==> ; (LDB (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* ; ==> ; (LDB (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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)) ; ; 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)) ; ; 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)) ; ; 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)) ; ; 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)) ; ; 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)) ; ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN DRAW-ARCS ...) ; processing (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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/graphics-tmpIO5N7K88.fasl ; compilation finished in 0:00:01.016 ; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFPARAMETER *MAX-STRING-SIZE* ...) ; processing (DEFTYPE TRANSLATION-FUNCTION ...) ; processing (DEFUN TRANSLATE-DEFAULT ...) ; processing (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 VECTOR. ; (FUNCALL (OR XLIB::TRANSLATE #'XLIB:TRANSLATE-DEFAULT) SEQUENCE ; XLIB::SRC-START XLIB::END XLIB:FONT XLIB::WBUF 0) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; processing (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 VECTOR. ; (FUNCALL (OR XLIB::TRANSLATE #'XLIB:TRANSLATE-DEFAULT) SEQUENCE ; XLIB::SRC-START XLIB::END XLIB:FONT XLIB::WBUF 0) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (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: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN TEXT-EXTENTS-LOCAL ...) ; processing (DEFTYPE INDEX-SIZE ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN DRAW-GLYPHS ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-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-C::%%ALLOCATE-CLOSURES ; ==> ; (SB-C::%ALLOCATE-CLOSURES ; #S(SB-C::OPAQUE-BOX ; :VALUE (#'(FLET WITH-RECURSIVE-LOCK-THUNK IN 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 ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-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-C::%%ALLOCATE-CLOSURES ; ==> ; (SB-C::%ALLOCATE-CLOSURES ; #S(SB-C::OPAQUE-BOX ; :VALUE (#'(FLET WITH-RECURSIVE-LOCK-THUNK IN DRAW-GLYPHS16)))) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the second argument of CLOSURE-INIT ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN DRAW-IMAGE-GLYPHS ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL (OR XLIB::TRANSLATE #'XLIB:TRANSLATE-DEFAULT) SEQUENCE XLIB::START ; XLIB::END XLIB:FONT XLIB::BUFFER-BBUF ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16)) ; ; 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-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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL (OR XLIB::TRANSLATE #'XLIB:TRANSLATE-DEFAULT) SEQUENCE XLIB::START ; XLIB::END XLIB:FONT XLIB::BUFFER 0) ; ; 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-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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN DISPLAY-KEYCODE-RANGE ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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) ; ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN KEYBOARD-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN KEYBOARD-MAPPING ; (1+ XLIB::I) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 #'(SETF AREF) #:NEW1 #:RESULT27 #:I28 #:J29) ; ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (1+ XLIB::I) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/text-tmpCM21U60Z.fasl ; compilation finished in 0:00:01.900 ; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 14 MAY 2016 06:13:13 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFCONSTANT +ATTRIBUTE-SIZE+ ...) ; processing (DEFCONSTANT +GEOMETRY-SIZE+ ...) ; processing (DEFCONSTANT +CONTEXT-SIZE+ ...) ; processing (DEFVAR *WINDOW-ATTRIBUTES* ...) ; processing (DEFVAR *CONTEXT-FREE-LIST* ...) ; processing (DEFUN ALLOCATE-CONTEXT ...) ; processing (DEFUN DEALLOCATE-CONTEXT ...) ; processing (DEFMACRO STATE-ATTRIBUTES ...) ; processing (DEFMACRO STATE-ATTRIBUTE-CHANGES ...) ; processing (DEFMACRO STATE-GEOMETRY ...) ; processing (DEFMACRO STATE-GEOMETRY-CHANGES ...) ; processing (DEFMACRO DRAWABLE-EQUAL-FUNCTION ...) ; processing (DEFMACRO WINDOW-EQUAL-FUNCTION ...) ; processing (DEFMACRO WITH-STATE ...) ; processing (DEFUN CLEANUP-STATE-ENTRY ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFMACRO WITH-ATTRIBUTES ...) ; processing (DEFMACRO WITH-GEOMETRY ...) ; processing (DEFUN WINDOW-VISUAL ...) ; processing (DEFUN WINDOW-VISUAL-INFO ...) ; processing (DEFUN WINDOW-CLASS ...) ; processing (DEFUN SET-WINDOW-BACKGROUND ...) ; processing (DEFSETF WINDOW-BACKGROUND ...) ; processing (DEFUN SET-WINDOW-BORDER ...) ; processing (DEFSETF WINDOW-BORDER ...) ; processing (DEFUN WINDOW-BIT-GRAVITY ...) ; processing (DEFUN SET-WINDOW-BIT-GRAVITY ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN SET-WINDOW-BIT-GRAVITY ; (XLIB::ENCODE-TYPE (XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) ; XLIB::GRAVITY) ; --> MACROLET XLIB::CHECK-PUT XLIB::MEMBER-VECTOR-PUT XLIB::MEMBER-PUT ; --> XLIB::WRITE-CARD29 ; ==> ; (POSITION XLIB::GRAVITY ; (THE SIMPLE-VECTOR ; '#(:FORGET :NORTH-WEST :NORTH :NORTH-EAST :WEST :CENTER :EAST ; :SOUTH-WEST :SOUTH :SOUTH-EAST :STATIC)) ; :TEST #'EQ) ; ; caught STYLE-WARNING: ; This is not a (UNSIGNED-BYTE 32): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFSETF WINDOW-BIT-GRAVITY ...) ; processing (DEFUN WINDOW-GRAVITY ...) ; processing (DEFUN SET-WINDOW-GRAVITY ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN SET-WINDOW-GRAVITY ; (XLIB::ENCODE-TYPE (XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) ; XLIB::GRAVITY) ; --> MACROLET XLIB::CHECK-PUT XLIB::MEMBER-VECTOR-PUT XLIB::MEMBER-PUT ; --> XLIB::WRITE-CARD29 ; ==> ; (POSITION XLIB::GRAVITY ; (THE SIMPLE-VECTOR ; '#(:UNMAP :NORTH-WEST :NORTH :NORTH-EAST :WEST :CENTER :EAST ; :SOUTH-WEST :SOUTH :SOUTH-EAST :STATIC)) ; :TEST #'EQ) ; ; caught STYLE-WARNING: ; This is not a (UNSIGNED-BYTE 32): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFSETF WINDOW-GRAVITY ...) ; processing (DEFUN WINDOW-BACKING-STORE ...) ; processing (DEFUN SET-WINDOW-BACKING-STORE ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN SET-WINDOW-BACKING-STORE ; (XLIB::ENCODE-TYPE (MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) WHEN) ; --> MACROLET XLIB::CHECK-PUT XLIB::MEMBER-PUT XLIB::WRITE-CARD29 ; ==> ; (POSITION WHEN (THE SIMPLE-VECTOR '#(:NOT-USEFUL :WHEN-MAPPED :ALWAYS)) :TEST ; #'EQ) ; ; caught STYLE-WARNING: ; This is not a (UNSIGNED-BYTE 32): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFSETF WINDOW-BACKING-STORE ...) ; processing (DEFUN WINDOW-BACKING-PLANES ...) ; processing (DEFUN SET-WINDOW-BACKING-PLANES ...) ; processing (DEFSETF WINDOW-BACKING-PLANES ...) ; processing (DEFUN WINDOW-BACKING-PIXEL ...) ; processing (DEFUN SET-WINDOW-BACKING-PIXEL ...) ; processing (DEFSETF WINDOW-BACKING-PIXEL ...) ; processing (DEFUN WINDOW-SAVE-UNDER ...) ; processing (DEFUN SET-WINDOW-SAVE-UNDER ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN SET-WINDOW-SAVE-UNDER ; (XLIB::ENCODE-TYPE (MEMBER :OFF :ON) WHEN) ; --> MACROLET XLIB::CHECK-PUT XLIB::MEMBER-PUT XLIB::WRITE-CARD29 ; ==> ; (POSITION WHEN (THE SIMPLE-VECTOR '#(:OFF :ON)) :TEST #'EQ) ; ; caught STYLE-WARNING: ; This is not a (UNSIGNED-BYTE 32): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFSETF WINDOW-SAVE-UNDER ...) ; processing (DEFUN WINDOW-OVERRIDE-REDIRECT ...) ; processing (DEFUN SET-WINDOW-OVERRIDE-REDIRECT ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN SET-WINDOW-OVERRIDE-REDIRECT ; (XLIB::ENCODE-TYPE (MEMBER :OFF :ON) WHEN) ; --> MACROLET XLIB::CHECK-PUT XLIB::MEMBER-PUT XLIB::WRITE-CARD29 ; ==> ; (POSITION WHEN (THE SIMPLE-VECTOR '#(:OFF :ON)) :TEST #'EQ) ; ; caught STYLE-WARNING: ; This is not a (UNSIGNED-BYTE 32): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFSETF WINDOW-OVERRIDE-REDIRECT ...) ; processing (DEFUN WINDOW-EVENT-MASK ...) ; processing (DEFSETF WINDOW-EVENT-MASK ...) ; processing (DEFUN WINDOW-DO-NOT-PROPAGATE-MASK ...) ; processing (DEFSETF WINDOW-DO-NOT-PROPAGATE-MASK ...) ; processing (DEFUN WINDOW-COLORMAP ...) ; processing (DEFUN SET-WINDOW-COLORMAP ...) ; processing (DEFSETF WINDOW-COLORMAP ...) ; processing (DEFUN WINDOW-CURSOR ...) ; processing (DEFUN SET-WINDOW-CURSOR ...) ; processing (DEFSETF WINDOW-CURSOR ...) ; processing (DEFUN WINDOW-COLORMAP-INSTALLED-P ...) ; processing (DEFUN WINDOW-ALL-EVENT-MASKS ...) ; processing (DEFUN WINDOW-MAP-STATE ...) ; processing (DEFUN DRAWABLE-ROOT ...) ; processing (DEFUN DRAWABLE-X ...) ; processing (DEFUN SET-DRAWABLE-X ...) ; processing (DEFSETF DRAWABLE-X ...) ; processing (DEFUN DRAWABLE-Y ...) ; processing (DEFUN SET-DRAWABLE-Y ...) ; processing (DEFSETF DRAWABLE-Y ...) ; processing (DEFUN DRAWABLE-WIDTH ...) ; processing (DEFUN SET-DRAWABLE-WIDTH ...) ; processing (DEFSETF DRAWABLE-WIDTH ...) ; processing (DEFUN DRAWABLE-HEIGHT ...) ; processing (DEFUN SET-DRAWABLE-HEIGHT ...) ; processing (DEFSETF DRAWABLE-HEIGHT ...) ; processing (DEFUN DRAWABLE-DEPTH ...) ; processing (DEFUN DRAWABLE-BORDER-WIDTH ...) ; processing (DEFUN SET-DRAWABLE-BORDER-WIDTH ...) ; processing (DEFSETF DRAWABLE-BORDER-WIDTH ...) ; processing (DEFUN SET-WINDOW-PRIORITY ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN SET-WINDOW-PRIORITY ; (XLIB::CHANGE-DRAWABLE-GEOMETRY XLIB:WINDOW 6 ; (XLIB::ENCODE-TYPE (MEMBER :ABOVE :BELOW :TOP-IF :BOTTOM-IF :OPPOSITE) ; XLIB::MODE)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFSETF WINDOW-PRIORITY ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/attributes-tmp9DT7SEFG.fasl ; compilation finished in 0:00:01.224 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 03 DEC 2018 09:26:57 PM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFVAR *KEYSYM-SETS* ...) ; processing (DEFUN DEFINE-KEYSYM-SET ...) ; processing (DEFUN KEYSYM-SET ...) ; processing (DEFMACRO KEYSYM ...) ; processing (DEFVAR *KEYSYM->CHARACTER-MAP* ...) ; processing (DEFMACRO KEYSYM-MAPPING-OBJECT ...) ; processing (DEFMACRO KEYSYM-MAPPING-TRANSLATE ...) ; processing (DEFMACRO KEYSYM-MAPPING-LOWERCASE ...) ; processing (DEFMACRO KEYSYM-MAPPING-MODIFIERS ...) ; processing (DEFMACRO KEYSYM-MAPPING-MASK ...) ; processing (DEFVAR *DEFAULT-KEYSYM-TRANSLATE-MASK* ...) ; processing (DEFUN DEFINE-KEYSYM ...) ; processing (DEFUN UNDEFINE-KEYSYM ...) ; processing (DEFUN KEYSYM-DOWNCASE ...) ; processing (DEFUN KEYSYM-UPPERCASE-ALPHABETIC-P ...) ; processing (DEFUN CHARACTER->KEYSYMS ...) ; processing (DEFCONSTANT CHARACTER-SET-SWITCH-KEYSYM ...) ; processing (DEFCONSTANT LEFT-SHIFT-KEYSYM ...) ; processing (DEFCONSTANT RIGHT-SHIFT-KEYSYM ...) ; processing (DEFCONSTANT LEFT-CONTROL-KEYSYM ...) ; processing (DEFCONSTANT RIGHT-CONTROL-KEYSYM ...) ; processing (DEFCONSTANT CAPS-LOCK-KEYSYM ...) ; processing (DEFCONSTANT SHIFT-LOCK-KEYSYM ...) ; processing (DEFCONSTANT LEFT-META-KEYSYM ...) ; processing (DEFCONSTANT RIGHT-META-KEYSYM ...) ; processing (DEFCONSTANT LEFT-ALT-KEYSYM ...) ; processing (DEFCONSTANT RIGHT-ALT-KEYSYM ...) ; processing (DEFCONSTANT LEFT-SUPER-KEYSYM ...) ; processing (DEFCONSTANT RIGHT-SUPER-KEYSYM ...) ; processing (DEFCONSTANT LEFT-HYPER-KEYSYM ...) ; processing (DEFCONSTANT RIGHT-HYPER-KEYSYM ...) ; processing (DEFUN DISPLAY-KEYBOARD-MAPPING ...) ; processing (DEFUN KEYCODE->KEYSYM ...) ; processing (DEFUN KEYSYM->CHARACTER ...) ; processing (DEFUN MAPPING-MATCHES-P ...) ; processing (DEFUN DEFAULT-KEYSYM-INDEX ...) ; processing (DEFUN KEYSYM-SHIFT-P ...) ; processing (DEFUN KEYCODE->CHARACTER ...) ; processing (DEFUN GET-DISPLAY-MODIFIER-MAPPING ...) ; processing (DEFUN STATE-KEYSYMP ...) ; processing (DEFUN MAPPING-NOTIFY ...) ; processing (DEFUN KEYSYM-IN-MAP-P ...) ; processing (DEFUN CHARACTER-IN-MAP-P ...) ; processing (DEFUN KEYSYM->KEYCODES ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/translate-tmp8065ESJT.fasl ; compilation finished in 0:00:00.452 ; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFINE-KEYSYM-SET :LATIN-1 ...) ; processing (DEFINE-KEYSYM-SET :LATIN-2 ...) ; processing (DEFINE-KEYSYM-SET :LATIN-3 ...) ; processing (DEFINE-KEYSYM-SET :LATIN-4 ...) ; processing (DEFINE-KEYSYM-SET :KANA ...) ; processing (DEFINE-KEYSYM-SET :ARABIC ...) ; processing (DEFINE-KEYSYM-SET :CYRILLIC ...) ; processing (DEFINE-KEYSYM-SET :GREEK ...) ; processing (DEFINE-KEYSYM-SET :TECH ...) ; processing (DEFINE-KEYSYM-SET :SPECIAL ...) ; processing (DEFINE-KEYSYM-SET :PUBLISH ...) ; processing (DEFINE-KEYSYM-SET :APL ...) ; processing (DEFINE-KEYSYM-SET :HEBREW ...) ; processing (DEFINE-KEYSYM-SET :THAI ...) ; processing (DEFINE-KEYSYM-SET :KOREAN ...) ; processing (DEFINE-KEYSYM-SET :LATIN-5 ...) ; processing (DEFINE-KEYSYM-SET :LATIN-6 ...) ; processing (DEFINE-KEYSYM-SET :LATIN-7 ...) ; processing (DEFINE-KEYSYM-SET :LATIN-8 ...) ; processing (DEFINE-KEYSYM-SET :LATIN-9 ...) ; processing (DEFINE-KEYSYM-SET :CURRENCY ...) ; processing (DEFINE-KEYSYM-SET :|3270| ...) ; processing (DEFINE-KEYSYM-SET :XKB ...) ; processing (DEFINE-KEYSYM-SET :KEYBOARD ...) ; processing (DEFINE-KEYSYM :CHARACTER-SET-SWITCH ...) ; processing (DEFINE-KEYSYM :LEFT-SHIFT ...) ; processing (DEFINE-KEYSYM :RIGHT-SHIFT ...) ; processing (DEFINE-KEYSYM :LEFT-CONTROL ...) ; processing (DEFINE-KEYSYM :RIGHT-CONTROL ...) ; processing (DEFINE-KEYSYM :CAPS-LOCK ...) ; processing (DEFINE-KEYSYM :SHIFT-LOCK ...) ; processing (DEFINE-KEYSYM :LEFT-META ...) ; processing (DEFINE-KEYSYM :RIGHT-META ...) ; processing (DEFINE-KEYSYM :LEFT-ALT ...) ; processing (DEFINE-KEYSYM :RIGHT-ALT ...) ; processing (DEFINE-KEYSYM :LEFT-SUPER ...) ; processing (DEFINE-KEYSYM :RIGHT-SUPER ...) ; processing (DEFINE-KEYSYM :LEFT-HYPER ...) ; processing (DEFINE-KEYSYM :RIGHT-HYPER ...) ; processing (DEFINE-KEYSYM #\ ...) ; processing (DEFINE-KEYSYM #\! ...) ; processing (DEFINE-KEYSYM #\" ...) ; processing (DEFINE-KEYSYM #\# ...) ; processing (DEFINE-KEYSYM #\$ ...) ; processing (DEFINE-KEYSYM #\% ...) ; processing (DEFINE-KEYSYM #\& ...) ; processing (DEFINE-KEYSYM #\' ...) ; processing (DEFINE-KEYSYM #\( ...) ; processing (DEFINE-KEYSYM #\) ...) ; processing (DEFINE-KEYSYM #\* ...) ; processing (DEFINE-KEYSYM #\+ ...) ; processing (DEFINE-KEYSYM #\, ...) ; processing (DEFINE-KEYSYM #\- ...) ; processing (DEFINE-KEYSYM #\. ...) ; processing (DEFINE-KEYSYM #\/ ...) ; processing (DEFINE-KEYSYM #\0 ...) ; processing (DEFINE-KEYSYM #\1 ...) ; processing (DEFINE-KEYSYM #\2 ...) ; processing (DEFINE-KEYSYM #\3 ...) ; processing (DEFINE-KEYSYM #\4 ...) ; processing (DEFINE-KEYSYM #\5 ...) ; processing (DEFINE-KEYSYM #\6 ...) ; processing (DEFINE-KEYSYM #\7 ...) ; processing (DEFINE-KEYSYM #\8 ...) ; processing (DEFINE-KEYSYM #\9 ...) ; processing (DEFINE-KEYSYM #\: ...) ; processing (DEFINE-KEYSYM #\; ...) ; processing (DEFINE-KEYSYM #\< ...) ; processing (DEFINE-KEYSYM #\= ...) ; processing (DEFINE-KEYSYM #\> ...) ; processing (DEFINE-KEYSYM #\? ...) ; processing (DEFINE-KEYSYM #\@ ...) ; processing (DEFINE-KEYSYM #\A ...) ; processing (DEFINE-KEYSYM #\B ...) ; processing (DEFINE-KEYSYM #\C ...) ; processing (DEFINE-KEYSYM #\D ...) ; processing (DEFINE-KEYSYM #\E ...) ; processing (DEFINE-KEYSYM #\F ...) ; processing (DEFINE-KEYSYM #\G ...) ; processing (DEFINE-KEYSYM #\H ...) ; processing (DEFINE-KEYSYM #\I ...) ; processing (DEFINE-KEYSYM #\J ...) ; processing (DEFINE-KEYSYM #\K ...) ; processing (DEFINE-KEYSYM #\L ...) ; processing (DEFINE-KEYSYM #\M ...) ; processing (DEFINE-KEYSYM #\N ...) ; processing (DEFINE-KEYSYM #\O ...) ; processing (DEFINE-KEYSYM #\P ...) ; processing (DEFINE-KEYSYM #\Q ...) ; processing (DEFINE-KEYSYM #\R ...) ; processing (DEFINE-KEYSYM #\S ...) ; processing (DEFINE-KEYSYM #\T ...) ; processing (DEFINE-KEYSYM #\U ...) ; processing (DEFINE-KEYSYM #\V ...) ; processing (DEFINE-KEYSYM #\W ...) ; processing (DEFINE-KEYSYM #\X ...) ; processing (DEFINE-KEYSYM #\Y ...) ; processing (DEFINE-KEYSYM #\Z ...) ; processing (DEFINE-KEYSYM #\[ ...) ; processing (DEFINE-KEYSYM #\\ ...) ; processing (DEFINE-KEYSYM #\] ...) ; processing (DEFINE-KEYSYM #\^ ...) ; processing (DEFINE-KEYSYM #\_ ...) ; processing (DEFINE-KEYSYM #\` ...) ; processing (DEFINE-KEYSYM #\a ...) ; processing (DEFINE-KEYSYM #\b ...) ; processing (DEFINE-KEYSYM #\c ...) ; processing (DEFINE-KEYSYM #\d ...) ; processing (DEFINE-KEYSYM #\e ...) ; processing (DEFINE-KEYSYM #\f ...) ; processing (DEFINE-KEYSYM #\g ...) ; processing (DEFINE-KEYSYM #\h ...) ; processing (DEFINE-KEYSYM #\i ...) ; processing (DEFINE-KEYSYM #\j ...) ; processing (DEFINE-KEYSYM #\k ...) ; processing (DEFINE-KEYSYM #\l ...) ; processing (DEFINE-KEYSYM #\m ...) ; processing (DEFINE-KEYSYM #\n ...) ; processing (DEFINE-KEYSYM #\o ...) ; processing (DEFINE-KEYSYM #\p ...) ; processing (DEFINE-KEYSYM #\q ...) ; processing (DEFINE-KEYSYM #\r ...) ; processing (DEFINE-KEYSYM #\s ...) ; processing (DEFINE-KEYSYM #\t ...) ; processing (DEFINE-KEYSYM #\u ...) ; processing (DEFINE-KEYSYM #\v ...) ; processing (DEFINE-KEYSYM #\w ...) ; processing (DEFINE-KEYSYM #\x ...) ; processing (DEFINE-KEYSYM #\y ...) ; processing (DEFINE-KEYSYM #\z ...) ; processing (DEFINE-KEYSYM #\{ ...) ; processing (DEFINE-KEYSYM #\| ...) ; processing (DEFINE-KEYSYM #\} ...) ; processing (DEFINE-KEYSYM #\~ ...) ; processing (DEFINE-KEYSYM #\Rubout ...) ; processing (DEFINE-KEYSYM #\Tab ...) ; processing (DEFINE-KEYSYM #\Newline ...) ; processing (DEFINE-KEYSYM #\Page ...) ; processing (DEFINE-KEYSYM #\Return ...) ; processing (DEFINE-KEYSYM #\Backspace ...) ; processing (DO (#) ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/keysyms-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.036 ; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFUN WM-NAME ...) ; processing (DEFSETF WM-NAME ...) ; processing (DEFUN SET-STRING-PROPERTY ...) ; processing (DEFUN WM-ICON-NAME ...) ; processing (DEFSETF WM-ICON-NAME ...) ; processing (DEFUN WM-CLIENT-MACHINE ...) ; processing (DEFSETF WM-CLIENT-MACHINE ...) ; processing (DEFUN GET-WM-CLASS ...) ; processing (DEFUN SET-WM-CLASS ...) ; processing (DEFUN WM-COMMAND ...) ; processing (DEFSETF WM-COMMAND ...) ; processing (DEFUN SET-WM-COMMAND ...) ; processing (DEF-CLX-CLASS (WM-HINTS) ...) ; processing (DEFUN WM-HINTS ...) ; processing (DEFSETF WM-HINTS ...) ; processing (DEFUN SET-WM-HINTS ...) ; processing (DEFUN DECODE-WM-HINTS ...) ; processing (DEFUN ENCODE-WM-HINTS ...) ; processing (DEF-CLX-CLASS (WM-SIZE-HINTS) ...) ; processing (DEFUN WM-NORMAL-HINTS ...) ; processing (DEFSETF WM-NORMAL-HINTS ...) ; processing (DEFUN SET-WM-NORMAL-HINTS ...) ; processing (DEFUN WM-ZOOM-HINTS ...) ; processing (DEFSETF WM-ZOOM-HINTS ...) ; processing (DEFUN SET-WM-ZOOM-HINTS ...) ; processing (DEFUN DECODE-WM-SIZE-HINTS ...) ; processing (DEFUN ENCODE-WM-SIZE-HINTS ...) ; processing (DEFUN ICON-SIZES ...) ; processing (DEFSETF ICON-SIZES ...) ; processing (DEFUN SET-ICON-SIZES ...) ; processing (DEFUN WM-PROTOCOLS ...) ; processing (DEFSETF WM-PROTOCOLS ...) ; processing (DEFUN SET-WM-PROTOCOLS ...) ; processing (DEFUN WM-COLORMAP-WINDOWS ...) ; processing (DEFSETF WM-COLORMAP-WINDOWS ...) ; processing (DEFUN SET-WM-COLORMAP-WINDOWS ...) ; processing (DEFUN TRANSIENT-FOR ...) ; processing (DEFSETF TRANSIENT-FOR ...) ; processing (DEFUN SET-TRANSIENT-FOR ...) ; processing (DEFUN SET-WM-PROPERTIES ...) ; processing (DEFUN SET-STANDARD-PROPERTIES ...) ; processing (DEFUN ICONIFY-WINDOW ...) ; processing (DEFUN WITHDRAW-WINDOW ...) ; processing (DEF-CLX-CLASS (STANDARD-COLORMAP # ...) ...) ; processing (DEFUN RGB-COLORMAPS ...) ; processing (DEFSETF RGB-COLORMAPS ...) ; processing (DEFUN SET-RGB-COLORMAPS ...) ; processing (DEFUN GET-STANDARD-COLORMAP ...) ; processing (DEFUN SET-STANDARD-COLORMAP ...) ; processing (DEFUN CUT-BUFFER ...) ; processing (DEFUN (SETF CUT-BUFFER) ...) ; processing (DEFUN ROTATE-CUT-BUFFERS ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/manager-tmpSIT3QPKP.fasl ; compilation finished in 0:00:01.816 ; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFMACRO WITH-IMAGE-DATA-BUFFER ...) ; processing (DEF-CLX-CLASS (IMAGE # ...) ...) ; processing (DEFMACRO IMAGE-NAME ...) ; processing (DEFMACRO IMAGE-X-HOT ...) ; processing (DEFMACRO IMAGE-Y-HOT ...) ; processing (DEFMACRO IMAGE-RED-MASK ...) ; processing (DEFMACRO IMAGE-BLUE-MASK ...) ; processing (DEFMACRO IMAGE-GREEN-MASK ...) ; processing (DEFUN PRINT-IMAGE ...) ; processing (DEFCONSTANT +EMPTY-DATA-X+ ...) ; processing (DEFCONSTANT +EMPTY-DATA-Z+ ...) ; processing (DEF-CLX-CLASS (IMAGE-X # ...) ...) ; processing (DEF-CLX-CLASS (IMAGE-XY # ...) ...) ; processing (DEF-CLX-CLASS (IMAGE-Z # ...) ...) ; processing (DEFUN CREATE-IMAGE ...) ; processing (DEFUN IMAGE-NOSWAP ...) ; processing (DEFUN IMAGE-SWAP-TWO-BYTES ...) ; processing (DEFUN IMAGE-SWAP-THREE-BYTES ...) ; processing (DEFUN IMAGE-SWAP-FOUR-BYTES ...) ; processing (DEFUN IMAGE-SWAP-WORDS ...) ; processing (DEFUN IMAGE-SWAP-NIBBLES ...) ; processing (DEFUN IMAGE-SWAP-NIBBLES-LEFT ...) ; processing (DEFCONSTANT +IMAGE-BYTE-REVERSE+ ...) ; processing (DEFUN IMAGE-SWAP-BITS ...) ; processing (DEFUN IMAGE-SWAP-BITS-AND-TWO-BYTES ...) ; processing (DEFUN IMAGE-SWAP-BITS-AND-FOUR-BYTES ...) ; processing (DEFUN IMAGE-SWAP-BITS-AND-WORDS ...) ; processing (DEFCONSTANT +IMAGE-SWAP-FUNCTION+ ...) ; processing (DEFCONSTANT +IMAGE-SWAP-LSB-FIRST-P+ ...) ; processing (DEFUN IMAGE-SWAP-FUNCTION ...) ; processing (DEFUN READ-PIXARRAY-1 ...) ; processing (DEFUN READ-PIXARRAY-4 ...) ; processing (DEFUN READ-PIXARRAY-8 ...) ; processing (DEFUN READ-PIXARRAY-16 ...) ; processing (DEFUN READ-PIXARRAY-24 ...) ; processing (DEFUN READ-PIXARRAY-32 ...) ; processing (DEFUN READ-PIXARRAY-INTERNAL ...) ; processing (DEFUN READ-PIXARRAY ...) ; processing (DEFUN READ-XY-FORMAT-IMAGE-X ...) ; processing (DEFUN READ-Z-FORMAT-IMAGE-X ...) ; processing (DEFUN READ-IMAGE-XY ...) ; processing (DEFUN READ-IMAGE-Z ...) ; processing (DEFUN GET-IMAGE ...) ; file: /usr/share/common-lisp/source/clx/image.lisp ; in: DEFUN GET-IMAGE ; (FIND XLIB::DEPTH (XLIB:DISPLAY-PIXMAP-FORMATS XLIB:DISPLAY) :KEY ; #'XLIB:PIXMAP-FORMAT-DEPTH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (ZEROP (XLIB:VISUAL-INFO-RED-MASK XLIB:VISUAL-INFO)) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP (XLIB:VISUAL-INFO-GREEN-MASK XLIB:VISUAL-INFO)) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP (XLIB:VISUAL-INFO-BLUE-MASK XLIB:VISUAL-INFO)) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> 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::DATA-PUT MACROLET XLIB::WRITE-CARD8 ; --> XLIB::ASET-CARD8 THE XLIB::MEMBER-PUT XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 ; ==> ; (THE XLIB:CARD29 ; (POSITION FORMAT (THE SIMPLE-VECTOR '#(ERROR :XY-PIXMAP :Z-PIXMAP)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFUN WRITE-PIXARRAY-1 ...) ; processing (DEFUN WRITE-PIXARRAY-4 ...) ; processing (DEFUN WRITE-PIXARRAY-8 ...) ; processing (DEFUN WRITE-PIXARRAY-16 ...) ; processing (DEFUN WRITE-PIXARRAY-24 ...) ; processing (DEFUN WRITE-PIXARRAY-32 ...) ; processing (DEFUN WRITE-PIXARRAY-INTERNAL ...) ; processing (DEFUN WRITE-PIXARRAY ...) ; processing (DEFUN WRITE-XY-FORMAT-IMAGE-X-DATA ...) ; processing (DEFUN WRITE-XY-FORMAT-IMAGE-X ...) ; processing (DEFUN WRITE-Z-FORMAT-IMAGE-X-DATA ...) ; processing (DEFUN WRITE-Z-FORMAT-IMAGE-X ...) ; processing (DEFUN WRITE-IMAGE-XY ...) ; processing (DEFUN WRITE-IMAGE-Z ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN XY-FORMAT-IMAGE-X->IMAGE-X ...) ; processing (DEFUN Z-FORMAT-IMAGE-X->IMAGE-X ...) ; processing (DEFUN IMAGE-X->IMAGE-X ...) ; processing (DEFUN IMAGE-X->IMAGE-XY ...) ; processing (DEFUN IMAGE-X->IMAGE-Z ...) ; processing (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)) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; processing (DEFUN IMAGE-XY->IMAGE-X ...) ; processing (DEFUN IMAGE-XY->IMAGE-XY ...) ; processing (DEFUN IMAGE-XY->IMAGE-Z ...) ; processing (DEFUN IMAGE-Z->IMAGE-X ...) ; processing (DEFUN IMAGE-Z->IMAGE-XY ...) ; processing (DEFUN IMAGE-Z->IMAGE-Z ...) ; processing (DEFUN COPY-IMAGE ...) ; processing (DEFUN READ-BITMAP-FILE ...) ; processing (DEFUN WRITE-BITMAP-FILE ...) ; processing (DEFUN BITMAP-IMAGE ...) ; processing (DEFUN IMAGE-PIXMAP ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/image-tmpE0PA0714.fasl ; compilation finished in 0:00:03.600 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 03 DEC 2018 09:26:57 PM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFSTRUCT (RESOURCE-DATABASE # ...) ...) ; processing (DEFUN PRINT-RESOURCE-DATABASE ...) ; processing (DEFUN MAKE-RESOURCE-DATABASE ...) ; processing (DEFUN RESOURCE-DATABASE-TIMESTAMP ...) ; processing (DEFUN INCF-RESOURCE-DATABASE-TIMESTAMP ...) ; processing (DEFUN PRINT-DB ...) ; processing (DEFPARAMETER *UPPERCASE-RESOURCE-SYMBOLS* ...) ; processing (DEFUN RESOURCE-KEY ...) ; processing (DEFUN STRINGABLE-EQUAL ...) ; processing (DEFUN ADD-RESOURCE ...) ; processing (DEFUN DELETE-RESOURCE ...) ; processing (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 ; processing (DEFUN GET-RESOURCE ...) ; processing (DEFUN GET-ENTRY-LOOKUP ...) ; processing (DEFUN GET-ENTRY ...) ; processing (DEFUN GET-SEARCH-RESOURCE ...) ; processing (DEFVAR *GET-TABLE-RESULT*) ; processing (DEFUN GET-SEARCH-TABLE ...) ; processing (DEFUN GET-TABLES-LOOKUP ...) ; processing (DEFUN GET-TABLES ...) ; processing (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) ; processing (DEFUN MERGE-RESOURCES ...) ; processing (DEFUN CHAR-MEMQ ...) ; processing (DEFMACRO RESOURCE-WITH-OPEN-FILE ...) ; processing (DEFUN READ-RESOURCES ...) ; processing (DEFUN PARSE-RESOURCE ...) ; processing (DEFUN WRITE-RESOURCES ...) ; processing (DEFUN WM-RESOURCES ...) ; processing (DEFUN SET-WM-RESOURCES ...) ; processing (DEFUN ROOT-RESOURCES ...) ; processing (DEFUN SET-ROOT-RESOURCES ...) ; processing (DEFSETF ROOT-RESOURCES ...) ; processing (DEFUN INITIALIZE-RESOURCE-DATABASE ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/resource-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.560 ; compiling file "/usr/share/common-lisp/source/clx/shape.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (EXPORT (QUOTE #) ...) ; processing (DEFINE-EXTENSION "SHAPE" ...) ; processing (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 BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::DATA-PUT MACROLET XLIB::WRITE-CARD8 XLIB::ASET-CARD8 THE ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::KIND (THE SIMPLE-VECTOR '#(:BOUNDING :CLIP)) :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFUN ENCODE-SHAPE-KIND ...) ; processing (DEFUN ENCODE-SHAPE-OPERATION ...) ; processing (DEFUN ENCODE-SHAPE-RECTANGLE-ORDERING ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-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::CHECK-PUT XLIB::OR-PUT COND IF ; --> THE XLIB::MEMBER-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB:PIXMAP (THE SIMPLE-VECTOR '#(:NONE)) :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/shape-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.572 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/big-requests.lisp" (written 14 MAY 2016 06:13:13 AM): ; processing (IN-PACKAGE "XLIB") ; processing (DEFINE-EXTENSION "BIG-REQUESTS") ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/big-requests-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.044 ; compiling file "/usr/share/common-lisp/source/clx/xvidmode.lisp" (written 14 MAY 2016 06:13:15 AM): ; processing (IN-PACKAGE :XLIB) ; processing (EXPORT (QUOTE #) ...) ; processing (DEFCONSTANT +XF86VIDMODE-MAJOR-VERSION+ ...) ; processing (DEFCONSTANT +XF86VIDMODE-MINOR-VERSION+ ...) ; processing (DEFCONSTANT +QUERY-VERSION+ ...) ; processing (DEFCONSTANT +GET-MODE-LINE+ ...) ; processing (DEFCONSTANT +MOD-MODE-LINE+ ...) ; processing (DEFCONSTANT +SWITCH-MODE+ ...) ; processing (DEFCONSTANT +GET-MONITOR+ ...) ; processing (DEFCONSTANT +LOCK-MODE-SWITCH+ ...) ; processing (DEFCONSTANT +GET-ALL-MODE-LINES+ ...) ; processing (DEFCONSTANT +ADD-MODE-LINE+ ...) ; processing (DEFCONSTANT +DELETE-MODE-LINE+ ...) ; processing (DEFCONSTANT +VALIDATE-MODE-LINE+ ...) ; processing (DEFCONSTANT +SWITCH-TO-MODE+ ...) ; processing (DEFCONSTANT +GET-VIEWPORT+ ...) ; processing (DEFCONSTANT +SET-VIEWPORT+ ...) ; processing (DEFCONSTANT +GET-DOT-CLOCKS+ ...) ; processing (DEFCONSTANT +SET-CLIENT-VERSION+ ...) ; processing (DEFCONSTANT +SET-GAMMA+ ...) ; processing (DEFCONSTANT +GET-GAMMA+ ...) ; processing (DEFCONSTANT +GET-GAMMA-RAMP+ ...) ; processing (DEFCONSTANT +SET-GAMMA-RAMP+ ...) ; processing (DEFCONSTANT +GET-GAMMA-RAMP-SIZE+ ...) ; processing (DEFCONSTANT +GET-PERMISIONS+ ...) ; processing (DEFINE-EXTENSION "XFree86-VidModeExtension" ...) ; processing (DEFINE-CONDITION XF86-VIDMODE-BAD-CLOCK ...) ; processing (DEFINE-CONDITION XF86-VIDMODE-BAD-HTIMINGS ...) ; processing (DEFINE-CONDITION XF86-VIDMODE-BAD-VTIMINGS ...) ; processing (DEFINE-CONDITION XF86-VIDMODE-MODE-UNSUITABLE ...) ; processing (DEFINE-CONDITION XF86-VIDMODE-EXTENSION-DISABLED ...) ; processing (DEFINE-CONDITION XF86-VIDMODE-CLIENT-NOT-LOCAL ...) ; processing (DEFINE-CONDITION XF86-VIDMODE-ZOOM-LOCKED ...) ; processing (DEFINE-ERROR XF86-VIDMODE-BAD-CLOCK ...) ; processing (DEFINE-ERROR XF86-VIDMODE-BAD-HTIMINGS ...) ; processing (DEFINE-ERROR XF86-VIDMODE-BAD-VTIMINGS ...) ; processing (DEFINE-ERROR XF86-VIDMODE-MODE-UNSUITABLE ...) ; processing (DEFINE-ERROR XF86-VIDMODE-EXTENSION-DISABLED ...) ; processing (DEFINE-ERROR XF86-VIDMODE-CLIENT-NOT-LOCAL ...) ; processing (DEFINE-ERROR XF86-VIDMODE-ZOOM-LOCKED ...) ; processing (DECLARE-EVENT :XFREE86-VIDMODE-NOTIFY ...) ; processing (DEFSTRUCT MODE-INFO ...) ; processing (DEFMACRO VIDMODE-OPCODE ...) ; processing (DECLAIM (INLINE SCREEN-POSITION)) ; processing (DEFUN SCREEN-POSITION ...) ; processing (DECLAIM (INLINE __CARD32->CARD16__)) ; processing (DEFUN __CARD32->CARD16__ ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-PERMISIONS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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-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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN XFREE86-VIDMODE-GET-MODE-LINE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-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-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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+DELETE-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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::+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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFCONSTANT +MODE-STATUS+ ...) ; processing (DEFUN DECODE-STATUS-MODE ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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) ; ; note: unable to ; convert to multiplication by reciprocal ; because: ; 10000.0 does not have an exact reciprocal ; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 12) 0)) 10000.0) ; ; note: unable to ; convert to multiplication by reciprocal ; because: ; 10000.0 does not have an exact reciprocal ; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 16) 0)) 10000.0) ; ; note: unable to ; convert to multiplication by reciprocal ; because: ; 10000.0 does not have an exact reciprocal ; (XLIB::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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN XFREE86-VIDMODE-SET-GAMMA ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA ; (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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::+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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE) ; ((SEQUENCE :FORMAT XLIB:CARD16) ; (IF (ZEROP (MOD XLIB::SIZE 2)) ; (CONCATENATE 'VECTOR XLIB::RED XLIB::GREEN XLIB::BLUE) ; (CONCATENATE 'VECTOR XLIB::RED '#(0) XLIB::GREEN '#(0) XLIB::BLUE ; '#(0))))) ; --> 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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-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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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::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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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-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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-DOT-CLOCKS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 16) ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD32-GET 12) :FORMAT ; XLIB:CARD32 :INDEX 32 :RESULT-TYPE 'LIST))) ; --> 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; 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-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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN MODE-INFO->V-CARD16 ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/xvidmode-tmp267Y2N80.fasl ; compilation finished in 0:00:01.616 ; compiling file "/usr/share/common-lisp/source/clx/xrender.lisp" (written 14 MAY 2016 06:13:15 AM): ; processing (IN-PACKAGE :XLIB) ; processing (EXPORT (QUOTE #)) ; processing (PUSHNEW :CLX-EXT-RENDER ...) ; processing (DEFINE-EXTENSION "RENDER") ; processing (DEFCONSTANT +X-RENDERQUERYVERSION+ ...) ; processing (DEFCONSTANT +X-RENDERQUERYPICTFORMATS+ ...) ; processing (DEFCONSTANT +X-RENDERQUERYPICTINDEXVALUES+ ...) ; processing (DEFCONSTANT +X-RENDERQUERYDITHERS+ ...) ; processing (DEFCONSTANT +X-RENDERCREATEPICTURE+ ...) ; processing (DEFCONSTANT +X-RENDERCHANGEPICTURE+ ...) ; processing (DEFCONSTANT +X-RENDERSETPICTURECLIPRECTANGLES+ ...) ; processing (DEFCONSTANT +X-RENDERFREEPICTURE+ ...) ; processing (DEFCONSTANT +X-RENDERCOMPOSITE+ ...) ; processing (DEFCONSTANT +X-RENDERSCALE+ ...) ; processing (DEFCONSTANT +X-RENDERTRAPEZOIDS+ ...) ; processing (DEFCONSTANT +X-RENDERTRIANGLES+ ...) ; processing (DEFCONSTANT +X-RENDERTRISTRIP+ ...) ; processing (DEFCONSTANT +X-RENDERTRIFAN+ ...) ; processing (DEFCONSTANT +X-RENDERCOLORTRAPEZOIDS+ ...) ; processing (DEFCONSTANT +X-RENDERCOLORTRIANGLES+ ...) ; processing (DEFCONSTANT +X-RENDERTRANSFORM+ ...) ; processing (DEFCONSTANT +X-RENDERCREATEGLYPHSET+ ...) ; processing (DEFCONSTANT +X-RENDERREFERENCEGLYPHSET+ ...) ; processing (DEFCONSTANT +X-RENDERFREEGLYPHSET+ ...) ; processing (DEFCONSTANT +X-RENDERADDGLYPHS+ ...) ; processing (DEFCONSTANT +X-RENDERADDGLYPHSFROMPICTURE+ ...) ; processing (DEFCONSTANT +X-RENDERFREEGLYPHS+ ...) ; processing (DEFCONSTANT +X-RENDERCOMPOSITEGLYPHS8+ ...) ; processing (DEFCONSTANT +X-RENDERCOMPOSITEGLYPHS16+ ...) ; processing (DEFCONSTANT +X-RENDERCOMPOSITEGLYPHS32+ ...) ; processing (DEFCONSTANT +X-RENDERFILLRECTANGLES+ ...) ; processing (DEFCONSTANT +X-RENDERCREATECURSOR+ ...) ; processing (DEFCONSTANT +X-RENDERSETPICTURETRANSFORM+ ...) ; processing (DEFCONSTANT +X-RENDERQUERYFILTERS+ ...) ; processing (DEFCONSTANT +X-RENDERSETPICTUREFILTER+ ...) ; processing (DEFCONSTANT +X-RENDERCREATEANIMCURSOR+ ...) ; processing (DEFSTRUCT PICTURE-FORMAT ...) ; processing (DEF-CLX-CLASS (GLYPH-SET #) ...) ; processing (DEFSTRUCT RENDER-INFO ...) ; processing (DEFUN DISPLAY-RENDER-INFO ...) ; processing (DEFUN (SETF DISPLAY-RENDER-INFO) ...) ; processing (DEFUN ENSURE-RENDER-INITIALIZED ...) ; processing (DEFUN FIND-MATCHING-PICTURE-FORMATS ...) ; processing (DEFUN FIND-WINDOW-PICTURE-FORMAT ...) ; processing (DEFINE-ACCESSOR PICTURE ...) ; processing (DEFINE-ACCESSOR GLYPH-SET ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFINE-ACCESSOR PICTURE-FORMAT ...) ; processing (DEFINE-ACCESSOR RENDER-OP ...) ; processing (DEFTYPE RENDER-OP ...) ; processing (DEF-CLX-CLASS (PICTURE #) ...) ; processing (DEFUN PICTURE-DRAWABLE ...) ; processing (DEFUN %RENDER-CHANGE-PICTURE-CLIP-RECTANGLES ...) ; processing (FOO (# REPEAT ...) ...) ; file: /usr/share/common-lisp/source/clx/xrender.lisp ; in: ; MACROLET ((FOO (&REST SPECS) ; `(PROGN ; ,@(LOOP FOR (TYPE SLOT DEFAULT) IN SPECS ; FOR INDEX FROM 0 ; COLLECT `(PROGN # #)) ; (DEFUN SYNCHRONISE-PICTURE-STATE (PICTURE) (WHEN # # ,# #)) ; (DEFUN RENDER-CREATE-PICTURE (DRAWABLE &KEY FORMAT # ,@#) ; (LET # ; # ; # ; # ; # ; # ; # ; # ; # ; PICTURE)) ; (DEFCONSTANT +PICTURE-STATE-LENGTH+ ,(LENGTH SPECS))))) ; (XLIB::FOO ((MEMBER :OFF :ON) XLIB::REPEAT :OFF) ; ((OR (MEMBER :NONE) XLIB::PICTURE) XLIB::ALPHA-MAP :NONE) ; (XLIB:INT16 XLIB::ALPHA-X-ORIGIN 0) (XLIB:INT16 XLIB::ALPHA-Y-ORIGIN 0) ; (XLIB:INT16 XLIB::CLIP-X-ORIGIN 0) (XLIB:INT16 XLIB::CLIP-Y-ORIGIN 0) ; ((OR (MEMBER :NONE) XLIB:PIXMAP) XLIB::CLIP-MASK :NONE) ; ((MEMBER :OFF :ON) XLIB::GRAPHICS-EXPOSURES :ON) ; ((MEMBER :CLIP-BY-CHILDREN :INCLUDE-INFERIORS) XLIB::SUBWINDOW-MODE ; :CLIP-BY-CHILDREN) ; ((MEMBER :SHARP :SMOOTH) XLIB::POLY-EDGE :SMOOTH) ; ((MEMBER :PRECISE :IMPRECISE) XLIB::POLY-MODE :PRECISE) ...) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK WHEN IF PROGN LET XLIB::WITH-BUFFER-REQUEST 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 LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::MEMBER-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::.ITEM. (THE SIMPLE-VECTOR '#(:OFF :ON)) :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK WHEN IF PROGN LET XLIB::WITH-BUFFER-REQUEST 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 LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::OR-PUT COND THE XLIB::MEMBER-PUT XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::.ITEM. (THE SIMPLE-VECTOR '#(:NONE)) :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK WHEN IF PROGN LET XLIB::WITH-BUFFER-REQUEST 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 LET UNLESS IF PROGN XLIB::CHECK-PUT ; --> XLIB::MEMBER-PUT XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::.ITEM. (THE SIMPLE-VECTOR '#(:PRECISE :IMPRECISE)) :TEST ; #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::.ITEM. (THE SIMPLE-VECTOR '#(:SHARP :SMOOTH)) :TEST ; #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::.ITEM. ; (THE SIMPLE-VECTOR '#(:CLIP-BY-CHILDREN :INCLUDE-INFERIORS)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::.ITEM. (THE SIMPLE-VECTOR '#(:OFF :ON)) :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET LET XLIB::WITH-BUFFER-REQUEST 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 XLIB::CHECK-PUT XLIB::MEMBER-PUT XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::COMPONENT-ALPHA (THE SIMPLE-VECTOR '#(:OFF :ON)) :TEST ; #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET LET XLIB::WITH-BUFFER-REQUEST 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 XLIB::CHECK-PUT XLIB::OR-PUT COND THE XLIB::MEMBER-PUT ; --> XLIB::WRITE-CARD29 XLIB::ASET-CARD29 ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::DITHER (THE SIMPLE-VECTOR '#(:NONE)) :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET LET XLIB::WITH-BUFFER-REQUEST 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 XLIB::CHECK-PUT XLIB::MEMBER-PUT XLIB::WRITE-CARD29 ; --> XLIB::ASET-CARD29 ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::POLY-MODE (THE SIMPLE-VECTOR '#(:PRECISE :IMPRECISE)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::POLY-EDGE (THE SIMPLE-VECTOR '#(:SHARP :SMOOTH)) :TEST ; #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::SUBWINDOW-MODE ; (THE SIMPLE-VECTOR '#(:CLIP-BY-CHILDREN :INCLUDE-INFERIORS)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::GRAPHICS-EXPOSURES (THE SIMPLE-VECTOR '#(:OFF :ON)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ==> ; (THE XLIB:CARD29 ; (POSITION XLIB::REPEAT (THE SIMPLE-VECTOR '#(:OFF :ON)) :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Constant NIL conflicts with its asserted type (UNSIGNED-BYTE 29). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFUN RENDER-FREE-PICTURE ...) ; processing (DEFUN RENDER-FREE-GLYPH-SET ...) ; processing (DEFUN RENDER-QUERY-VERSION ...) ; processing (DEFUN RENDER-QUERY-PICTURE-FORMATS ...) ; processing (DEFUN RENDER-FILL-RECTANGLE ...) ; file: /usr/share/common-lisp/source/clx/xrender.lisp ; in: DEFUN RENDER-FILL-RECTANGLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "RENDER")) ; (XLIB::DATA XLIB::+X-RENDERFILLRECTANGLES+) ; (XLIB::RENDER-OP XLIB::OP) ; (XLIB::PAD8 0) ; (XLIB::PAD16 0) ; (XLIB:RESOURCE-ID (XLIB::PICTURE-ID XLIB::PICTURE)) ; (XLIB:CARD16 (ELT XLIB:COLOR 0)) ; (XLIB:CARD16 (ELT XLIB:COLOR 1)) ; (XLIB:CARD16 (ELT XLIB:COLOR 2)) ; (XLIB:CARD16 (ELT XLIB:COLOR 3)) ; (XLIB:INT16 XLIB::X1) ; ...) ; --> 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::RENDER-OP-PUT ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::OP ; (THE SIMPLE-VECTOR ; '#(:CLEAR :SRC :DST :OVER :OVER-REVERSE :IN :IN-REVERSE ; :OUT :OUT-REVERSE :ATOP :ATOP-REVERSE :XOR ...)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Derived type of SB-C::VAL is ; (VALUES NULL &OPTIONAL), ; conflicting with its asserted type ; (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFUN RENDER-TRIANGLES ...) ; file: /usr/share/common-lisp/source/clx/xrender.lisp ; in: DEFUN RENDER-TRIANGLES ; (XLIB::GUTS) ; --> LET LABELS XLIB::WITH-BUFFER-REQUEST 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::RENDER-OP-PUT ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::OP ; (THE SIMPLE-VECTOR ; '#(:CLEAR :SRC :DST :OVER :OVER-REVERSE :IN :IN-REVERSE ; :OUT :OUT-REVERSE :ATOP :ATOP-REVERSE :XOR ...)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Derived type of SB-C::VAL is ; (VALUES NULL &OPTIONAL), ; conflicting with its asserted type ; (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; caught STYLE-WARNING: ; Derived type of SB-C::VAL is ; (VALUES NULL &OPTIONAL), ; conflicting with its asserted type ; (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFUN RENDER-SET-PICTURE-TRANSFORM ...) ; processing (DEFUN RENDER-QUERY-FILTERS ...) ; processing (DEFUN RENDER-SET-FILTER ...) ; processing (DEFUN RENDER-TRAPEZOIDS ...) ; file: /usr/share/common-lisp/source/clx/xrender.lisp ; in: DEFUN RENDER-TRAPEZOIDS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "RENDER")) ; (XLIB::DATA XLIB::+X-RENDERTRAPEZOIDS+) ; (XLIB::RENDER-OP XLIB::OP) ; (XLIB::PAD8 0) ; (XLIB::PAD16 0) ; (XLIB:RESOURCE-ID (XLIB::PICTURE-ID XLIB::SOURCE)) ; (XLIB:RESOURCE-ID (XLIB::PICTURE-ID XLIB::PICTURE)) ; ((OR (MEMBER :NONE) XLIB::PICTURE-FORMAT) XLIB::MASK-FORMAT) ; (XLIB:INT16 XLIB::SRC-X) ; (XLIB:INT16 XLIB::SRC-Y) ; ((SEQUENCE :FORMAT XLIB:INT32 :TRANSFORM #'XLIB::FUNK) ; XLIB::COORD-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::CHECK-PUT XLIB::RENDER-OP-PUT ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::OP ; (THE SIMPLE-VECTOR ; '#(:CLEAR :SRC :DST :OVER :OVER-REVERSE :IN :IN-REVERSE ; :OUT :OUT-REVERSE :ATOP :ATOP-REVERSE :XOR ...)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Derived type of SB-C::VAL is ; (VALUES NULL &OPTIONAL), ; conflicting with its asserted type ; (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFUN RENDER-COMPOSITE ...) ; file: /usr/share/common-lisp/source/clx/xrender.lisp ; in: DEFUN RENDER-COMPOSITE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "RENDER")) ; (XLIB::DATA XLIB::+X-RENDERCOMPOSITE+) ; (XLIB::RENDER-OP XLIB::OP) ; (XLIB::PAD8 0) ; (XLIB::PAD16 0) ; (XLIB:RESOURCE-ID (XLIB::PICTURE-ID XLIB::SOURCE)) ; (XLIB:RESOURCE-ID ; (IF XLIB::MASK ; (XLIB::PICTURE-ID XLIB::MASK) ; 0)) ; (XLIB:RESOURCE-ID (XLIB::PICTURE-ID XLIB::DEST)) ; (XLIB:INT16 XLIB::SRC-X) ; (XLIB:INT16 XLIB::SRC-Y) ; (XLIB:INT16 XLIB::MASK-X) ; ...) ; --> 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::RENDER-OP-PUT ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::OP ; (THE SIMPLE-VECTOR ; '#(:CLEAR :SRC :DST :OVER :OVER-REVERSE :IN :IN-REVERSE ; :OUT :OUT-REVERSE :ATOP :ATOP-REVERSE :XOR ...)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Derived type of SB-C::VAL is ; (VALUES NULL &OPTIONAL), ; conflicting with its asserted type ; (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFUN RENDER-CREATE-GLYPH-SET ...) ; processing (DEFUN RENDER-REFERENCE-GLYPH-SET ...) ; processing (DEFUN RENDER-COMPOSITE-GLYPHS-8 ...) ; file: /usr/share/common-lisp/source/clx/xrender.lisp ; in: DEFUN RENDER-COMPOSITE-GLYPHS-8 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "RENDER")) ; (XLIB::DATA XLIB::+X-RENDERCOMPOSITEGLYPHS8+) ; (XLIB::RENDER-OP XLIB::ALU) ; (XLIB::PAD8 0) ; (XLIB::PAD16 0) ; (XLIB::PICTURE XLIB::SOURCE) ; (XLIB::PICTURE XLIB::DEST) ; ((OR (MEMBER :NONE) XLIB::PICTURE-FORMAT) XLIB::MASK-FORMAT) ; (XLIB::GLYPH-SET XLIB::GLYPH-SET) ; (XLIB:INT16 XLIB::SRC-X) ; (XLIB:INT16 XLIB::SRC-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::CHECK-PUT XLIB::RENDER-OP-PUT ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::ALU ; (THE SIMPLE-VECTOR ; '#(:CLEAR :SRC :DST :OVER :OVER-REVERSE :IN :IN-REVERSE ; :OUT :OUT-REVERSE :ATOP :ATOP-REVERSE :XOR ...)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Derived type of SB-C::VAL is ; (VALUES NULL &OPTIONAL), ; conflicting with its asserted type ; (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFMACRO %RENDER-COMPOSITE-GLYPHS ...) ; processing (DEFUN RENDER-COMPOSITE-GLYPHS ...) ; file: /usr/share/common-lisp/source/clx/xrender.lisp ; in: DEFUN RENDER-COMPOSITE-GLYPHS ; (XLIB::%RENDER-COMPOSITE-GLYPHS XLIB::+X-RENDERCOMPOSITEGLYPHS32+ XLIB:CARD32 ; #'(LAMBDA (ELT) ; (IF (CHARACTERP ELT) ; (CHAR-CODE ELT) ; ELT)) ; XLIB:DISPLAY XLIB::DEST XLIB::GLYPH-SET ; XLIB::SOURCE XLIB::DEST-X XLIB::DEST-Y ; SEQUENCE XLIB::ALU ...) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* ; --> XLIB::WITH-BUFFER-REQUEST 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::RENDER-OP-PUT ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::ALU ; (THE SIMPLE-VECTOR ; '#(:CLEAR :SRC :DST :OVER :OVER-REVERSE :IN :IN-REVERSE ; :OUT :OUT-REVERSE :ATOP :ATOP-REVERSE :XOR ...)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Derived type of SB-C::VAL is ; (VALUES NULL &OPTIONAL), ; conflicting with its asserted type ; (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; (XLIB::%RENDER-COMPOSITE-GLYPHS XLIB::+X-RENDERCOMPOSITEGLYPHS32+ XLIB:CARD32 ; #'CHAR-CODE XLIB:DISPLAY XLIB::DEST ; XLIB::GLYPH-SET XLIB::SOURCE XLIB::DEST-X ; XLIB::DEST-Y SEQUENCE XLIB::ALU ...) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* ; --> XLIB::WITH-BUFFER-REQUEST 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::RENDER-OP-PUT ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::ALU ; (THE SIMPLE-VECTOR ; '#(:CLEAR :SRC :DST :OVER :OVER-REVERSE :IN :IN-REVERSE ; :OUT :OUT-REVERSE :ATOP :ATOP-REVERSE :XOR ...)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Derived type of SB-C::VAL is ; (VALUES NULL &OPTIONAL), ; conflicting with its asserted type ; (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; (XLIB::%RENDER-COMPOSITE-GLYPHS XLIB::+X-RENDERCOMPOSITEGLYPHS32+ XLIB:CARD32 ; NIL XLIB:DISPLAY XLIB::DEST XLIB::GLYPH-SET ; XLIB::SOURCE XLIB::DEST-X XLIB::DEST-Y ; SEQUENCE XLIB::ALU ...) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* ; --> XLIB::WITH-BUFFER-REQUEST 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::RENDER-OP-PUT ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::ALU ; (THE SIMPLE-VECTOR ; '#(:CLEAR :SRC :DST :OVER :OVER-REVERSE :IN :IN-REVERSE ; :OUT :OUT-REVERSE :ATOP :ATOP-REVERSE :XOR ...)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Derived type of SB-C::VAL is ; (VALUES NULL &OPTIONAL), ; conflicting with its asserted type ; (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; (XLIB::%RENDER-COMPOSITE-GLYPHS XLIB::+X-RENDERCOMPOSITEGLYPHS16+ XLIB:CARD16 ; NIL XLIB:DISPLAY XLIB::DEST XLIB::GLYPH-SET ; XLIB::SOURCE XLIB::DEST-X XLIB::DEST-Y ; SEQUENCE XLIB::ALU ...) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* ; --> XLIB::WITH-BUFFER-REQUEST 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::RENDER-OP-PUT ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::ALU ; (THE SIMPLE-VECTOR ; '#(:CLEAR :SRC :DST :OVER :OVER-REVERSE :IN :IN-REVERSE ; :OUT :OUT-REVERSE :ATOP :ATOP-REVERSE :XOR ...)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Derived type of SB-C::VAL is ; (VALUES NULL &OPTIONAL), ; conflicting with its asserted type ; (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; (XLIB::%RENDER-COMPOSITE-GLYPHS XLIB::+X-RENDERCOMPOSITEGLYPHS8+ XLIB:CARD8 ; NIL XLIB:DISPLAY XLIB::DEST XLIB::GLYPH-SET ; XLIB::SOURCE XLIB::DEST-X XLIB::DEST-Y ; SEQUENCE XLIB::ALU ...) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* ; --> XLIB::WITH-BUFFER-REQUEST 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::RENDER-OP-PUT ; --> XLIB::MEMBER8-PUT XLIB::WRITE-CARD8 XLIB::ASET-CARD8 ; ==> ; (THE XLIB:CARD8 ; (POSITION XLIB::ALU ; (THE SIMPLE-VECTOR ; '#(:CLEAR :SRC :DST :OVER :OVER-REVERSE :IN :IN-REVERSE ; :OUT :OUT-REVERSE :ATOP :ATOP-REVERSE :XOR ...)) ; :TEST #'EQ)) ; ; caught STYLE-WARNING: ; Derived type of SB-C::VAL is ; (VALUES NULL &OPTIONAL), ; conflicting with its asserted type ; (UNSIGNED-BYTE 8). ; See also: ; The SBCL Manual, Node "Handling of Types" ; processing (DEFUN RENDER-ADD-GLYPH ...) ; processing (DEFUN RENDER-ADD-GLYPH-FROM-PICTURE ...) ; processing (DEFUN RENDER-FREE-GLYPHS ...) ; processing (DEFUN RENDER-CREATE-CURSOR ...) ; processing (DEFUN RENDER-CREATE-ANIM-CURSOR ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/xrender-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:03.848 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/glx.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (DEFPACKAGE :GLX ...) ; processing (IN-PACKAGE :GLX) ; processing (DECLAIM (OPTIMIZE # ...)) ; processing (DEFINE-EXTENSION "GLX" ...) ; processing (DEFCONSTANT +RENDER+ ...) ; processing (DEFCONSTANT +CREATE-CONTEXT+ ...) ; processing (DEFCONSTANT +DESTROY-CONTEXT+ ...) ; processing (DEFCONSTANT +MAKE-CURRENT+ ...) ; processing (DEFCONSTANT +IS-DIRECT+ ...) ; processing (DEFCONSTANT +QUERY-VERSION+ ...) ; processing (DEFCONSTANT +WAIT-GL+ ...) ; processing (DEFCONSTANT +WAIT-X+ ...) ; processing (DEFCONSTANT +COPY-CONTEXT+ ...) ; processing (DEFCONSTANT +SWAP-BUFFERS+ ...) ; processing (DEFCONSTANT +GET-VISUAL-CONFIGS+ ...) ; processing (DEFCONSTANT +DESTROY-GLX-PIXMAP+ ...) ; processing (DEFCONSTANT +QUERY-SERVER-STRING+ ...) ; processing (DEFCONSTANT +CLIENT-INFO+ ...) ; processing (DEFCONSTANT +GET-FB-CONFIGS+ ...) ; processing (DEFCONSTANT +QUERY-CONTEXT+ ...) ; processing (DEFCONSTANT +GET-DRAWABLE-ATTRIBUTES+ ...) ; processing (DEFCONSTANT +VENDOR+ ...) ; processing (DEFCONSTANT +VERSION+ ...) ; processing (DEFCONSTANT +EXTENSIONS+ ...) ; processing (DEFTYPE ATTRIBUTE-PAIR ...) ; processing (DEFTYPE BITFIELD ...) ; processing (DEFTYPE BOOL32 ...) ; processing (DEFTYPE ENUM ...) ; processing (DEFTYPE FBCONFIGID ...) ; processing (DEFTYPE FLOAT32 ...) ; processing (DEFTYPE FLOAT64 ...) ; processing (DEFTYPE CONTEXT-TAG ...) ; processing (DEFTYPE GLX-PIXMAP ...) ; processing (DEFTYPE GLX-PBUFFER ...) ; processing (DEFTYPE GLX-RENDER-COMMAND ...) ; processing (DEFTYPE GLX-WINDOW ...) ; processing (DEF-CLX-CLASS (CONTEXT # ...) ...) ; processing (DEFUN PRINT-CONTEXT ...) ; processing (DEF-CLX-CLASS (VISUAL # ...) ...) ; processing (DEFUN PRINT-VISUAL ...) ; processing (DEFCONSTANT +DAMAGED+ ...) ; processing (DEFCONSTANT +SAVED+ ...) ; processing (DEFCONSTANT +WINDOW+ ...) ; processing (DEFCONSTANT +PBUFFER+ ...) ; processing (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 #:G50) ; ; note: could not stack allocate #:G51 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)) ; processing (DEFINE-CONDITION BAD-CONTEXT ...) ; processing (DEFINE-CONDITION BAD-CONTEXT-STATE ...) ; processing (DEFINE-CONDITION BAD-DRAWABLE ...) ; processing (DEFINE-CONDITION BAD-PIXMAP ...) ; processing (DEFINE-CONDITION BAD-CONTEXT-TAG ...) ; processing (DEFINE-CONDITION BAD-CURRENT-WINDOW ...) ; processing (DEFINE-CONDITION BAD-RENDER-REQUEST ...) ; processing (DEFINE-CONDITION BAD-LARGE-REQUEST ...) ; processing (DEFINE-CONDITION UNSUPPORTED-PRIVATE-REQUEST ...) ; processing (DEFINE-CONDITION BAD-FB-CONFIG ...) ; processing (DEFINE-CONDITION BAD-PBUFFER ...) ; processing (DEFINE-CONDITION BAD-CURRENT-DRAWABLE ...) ; processing (DEFINE-CONDITION BAD-WINDOW ...) ; processing (DEFINE-ERROR BAD-CONTEXT ...) ; processing (DEFINE-ERROR BAD-CONTEXT-STATE ...) ; processing (DEFINE-ERROR BAD-DRAWABLE ...) ; processing (DEFINE-ERROR BAD-PIXMAP ...) ; processing (DEFINE-ERROR BAD-CONTEXT-TAG ...) ; processing (DEFINE-ERROR BAD-CURRENT-WINDOW ...) ; processing (DEFINE-ERROR BAD-RENDER-REQUEST ...) ; processing (DEFINE-ERROR BAD-LARGE-REQUEST ...) ; processing (DEFINE-ERROR UNSUPPORTED-PRIVATE-REQUEST ...) ; processing (DEFINE-ERROR BAD-FB-CONFIG ...) ; processing (DEFINE-ERROR BAD-PBUFFER ...) ; processing (DEFINE-ERROR BAD-CURRENT-DRAWABLE ...) ; processing (DEFINE-ERROR BAD-WINDOW ...) ; processing (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))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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)) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; processing (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)) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFVAR *CURRENT-CONTEXT* ...) ; processing (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)) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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)) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 #))))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (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)))) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; processing (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 #))))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (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)))) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; etc. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; processing (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))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (GENERATE-CONFIG-PROPERTIES) ; processing (DEFUN MAKE-VISUAL ...) ; processing (DEFUN VISUAL-ATTRIBUTE ...) ; processing (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 # #))))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (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)))) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (RATIONAL 0 4294967295/2), not a FIXNUM. ; The result is a (VALUES (RATIONAL (-1) (1)) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (RATIONAL 0 4294967295/2), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (RATIONAL (-1) (1)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL (-1) (1)), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (RATIONAL (-1) (1)), not a (UNSIGNED-BYTE 64). ; etc. ; processing (DEFUN CHOOSE-VISUAL ...) ; processing (DEFUN RENDER ...) ; processing (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)))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/glx-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:01.408 ; compiling file "/usr/share/common-lisp/source/clx/gl.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (DEFPACKAGE :GL ...) ; processing (IN-PACKAGE :GL) ; processing (DEFCONSTANT +GET-STRING+ ...) ; processing (DEFCONSTANT +NEW-LIST+ ...) ; processing (DEFCONSTANT +END-LIST+ ...) ; processing (DEFCONSTANT +GEN-LISTS+ ...) ; processing (DEFCONSTANT +FINISH+ ...) ; processing (DEFCONSTANT +DISABLE+ ...) ; processing (DEFCONSTANT +ENABLE+ ...) ; processing (DEFCONSTANT +FLUSH+ ...) ; processing (DEFCONSTANT +FALSE+ ...) ; processing (DEFCONSTANT +TRUE+ ...) ; processing (DEFCONSTANT +BYTE+ ...) ; processing (DEFCONSTANT +UNSIGNED-BYTE+ ...) ; processing (DEFCONSTANT +SHORT+ ...) ; processing (DEFCONSTANT +UNSIGNED-SHORT+ ...) ; processing (DEFCONSTANT +INT+ ...) ; processing (DEFCONSTANT +UNSIGNED-INT+ ...) ; processing (DEFCONSTANT +FLOAT+ ...) ; processing (DEFCONSTANT +DOUBLE+ ...) ; processing (DEFCONSTANT +2-BYTES+ ...) ; processing (DEFCONSTANT +3-BYTES+ ...) ; processing (DEFCONSTANT +4-BYTES+ ...) ; processing (DEFCONSTANT +POINTS+ ...) ; processing (DEFCONSTANT +LINES+ ...) ; processing (DEFCONSTANT +LINE-LOOP+ ...) ; processing (DEFCONSTANT +LINE-STRIP+ ...) ; processing (DEFCONSTANT +TRIANGLES+ ...) ; processing (DEFCONSTANT +TRIANGLE-STRIP+ ...) ; processing (DEFCONSTANT +TRIANGLE-FAN+ ...) ; processing (DEFCONSTANT +QUADS+ ...) ; processing (DEFCONSTANT +QUAD-STRIP+ ...) ; processing (DEFCONSTANT +POLYGON+ ...) ; processing (DEFCONSTANT +VERTEX-ARRAY+ ...) ; processing (DEFCONSTANT +NORMAL-ARRAY+ ...) ; processing (DEFCONSTANT +COLOR-ARRAY+ ...) ; processing (DEFCONSTANT +INDEX-ARRAY+ ...) ; processing (DEFCONSTANT +TEXTURE-COORD-ARRAY+ ...) ; processing (DEFCONSTANT +EDGE-FLAG-ARRAY+ ...) ; processing (DEFCONSTANT +VERTEX-ARRAY-SIZE+ ...) ; processing (DEFCONSTANT +VERTEX-ARRAY-TYPE+ ...) ; processing (DEFCONSTANT +VERTEX-ARRAY-STRIDE+ ...) ; processing (DEFCONSTANT +NORMAL-ARRAY-TYPE+ ...) ; processing (DEFCONSTANT +NORMAL-ARRAY-STRIDE+ ...) ; processing (DEFCONSTANT +COLOR-ARRAY-SIZE+ ...) ; processing (DEFCONSTANT +COLOR-ARRAY-TYPE+ ...) ; processing (DEFCONSTANT +COLOR-ARRAY-STRIDE+ ...) ; processing (DEFCONSTANT +INDEX-ARRAY-TYPE+ ...) ; processing (DEFCONSTANT +INDEX-ARRAY-STRIDE+ ...) ; processing (DEFCONSTANT +TEXTURE-COORD-ARRAY-SIZE+ ...) ; processing (DEFCONSTANT +TEXTURE-COORD-ARRAY-TYPE+ ...) ; processing (DEFCONSTANT +TEXTURE-COORD-ARRAY-STRIDE+ ...) ; processing (DEFCONSTANT +EDGE-FLAG-ARRAY-STRIDE+ ...) ; processing (DEFCONSTANT +VERTEX-ARRAY-POINTER+ ...) ; processing (DEFCONSTANT +NORMAL-ARRAY-POINTER+ ...) ; processing (DEFCONSTANT +COLOR-ARRAY-POINTER+ ...) ; processing (DEFCONSTANT +INDEX-ARRAY-POINTER+ ...) ; processing (DEFCONSTANT +TEXTURE-COORD-ARRAY-POINTER+ ...) ; processing (DEFCONSTANT +EDGE-FLAG-ARRAY-POINTER+ ...) ; processing (DEFCONSTANT +V2F+ ...) ; processing (DEFCONSTANT +V3F+ ...) ; processing (DEFCONSTANT +C4UB-V2F+ ...) ; processing (DEFCONSTANT +C4UB-V3F+ ...) ; processing (DEFCONSTANT +C3F-V3F+ ...) ; processing (DEFCONSTANT +N3F-V3F+ ...) ; processing (DEFCONSTANT +C4F-N3F-V3F+ ...) ; processing (DEFCONSTANT +T2F-V3F+ ...) ; processing (DEFCONSTANT +T4F-V4F+ ...) ; processing (DEFCONSTANT +T2F-C4UB-V3F+ ...) ; processing (DEFCONSTANT +T2F-C3F-V3F+ ...) ; processing (DEFCONSTANT +T2F-N3F-V3F+ ...) ; processing (DEFCONSTANT +T2F-C4F-N3F-V3F+ ...) ; processing (DEFCONSTANT +T4F-C4F-N3F-V4F+ ...) ; processing (DEFCONSTANT +MATRIX-MODE+ ...) ; processing (DEFCONSTANT +MODELVIEW+ ...) ; processing (DEFCONSTANT +PROJECTION+ ...) ; processing (DEFCONSTANT +TEXTURE+ ...) ; processing (DEFCONSTANT +POINT-SMOOTH+ ...) ; processing (DEFCONSTANT +POINT-SIZE+ ...) ; processing (DEFCONSTANT +POINT-SIZE-GRANULARITY+ ...) ; processing (DEFCONSTANT +POINT-SIZE-RANGE+ ...) ; processing (DEFCONSTANT +LINE-SMOOTH+ ...) ; processing (DEFCONSTANT +LINE-STIPPLE+ ...) ; processing (DEFCONSTANT +LINE-STIPPLE-PATTERN+ ...) ; processing (DEFCONSTANT +LINE-STIPPLE-REPEAT+ ...) ; processing (DEFCONSTANT +LINE-WIDTH+ ...) ; processing (DEFCONSTANT +LINE-WIDTH-GRANULARITY+ ...) ; processing (DEFCONSTANT +LINE-WIDTH-RANGE+ ...) ; processing (DEFCONSTANT +POINT+ ...) ; processing (DEFCONSTANT +LINE+ ...) ; processing (DEFCONSTANT +FILL+ ...) ; processing (DEFCONSTANT +CW+ ...) ; processing (DEFCONSTANT +CCW+ ...) ; processing (DEFCONSTANT +FRONT+ ...) ; processing (DEFCONSTANT +BACK+ ...) ; processing (DEFCONSTANT +POLYGON-MODE+ ...) ; processing (DEFCONSTANT +POLYGON-SMOOTH+ ...) ; processing (DEFCONSTANT +POLYGON-STIPPLE+ ...) ; processing (DEFCONSTANT +EDGE-FLAG+ ...) ; processing (DEFCONSTANT +CULL-FACE+ ...) ; processing (DEFCONSTANT +CULL-FACE-MODE+ ...) ; processing (DEFCONSTANT +FRONT-FACE+ ...) ; processing (DEFCONSTANT +POLYGON-OFFSET-FACTOR+ ...) ; processing (DEFCONSTANT +POLYGON-OFFSET-UNITS+ ...) ; processing (DEFCONSTANT +POLYGON-OFFSET-POINT+ ...) ; processing (DEFCONSTANT +POLYGON-OFFSET-LINE+ ...) ; processing (DEFCONSTANT +POLYGON-OFFSET-FILL+ ...) ; processing (DEFCONSTANT +COMPILE+ ...) ; processing (DEFCONSTANT +COMPILE-AND-EXECUTE+ ...) ; processing (DEFCONSTANT +LIST-BASE+ ...) ; processing (DEFCONSTANT +LIST-INDEX+ ...) ; processing (DEFCONSTANT +LIST-MODE+ ...) ; processing (DEFCONSTANT +NEVER+ ...) ; processing (DEFCONSTANT +LESS+ ...) ; processing (DEFCONSTANT +EQUAL+ ...) ; processing (DEFCONSTANT +LEQUAL+ ...) ; processing (DEFCONSTANT +GREATER+ ...) ; processing (DEFCONSTANT +NOTEQUAL+ ...) ; processing (DEFCONSTANT +GEQUAL+ ...) ; processing (DEFCONSTANT +ALWAYS+ ...) ; processing (DEFCONSTANT +DEPTH-TEST+ ...) ; processing (DEFCONSTANT +DEPTH-BITS+ ...) ; processing (DEFCONSTANT +DEPTH-CLEAR-VALUE+ ...) ; processing (DEFCONSTANT +DEPTH-FUNC+ ...) ; processing (DEFCONSTANT +DEPTH-RANGE+ ...) ; processing (DEFCONSTANT +DEPTH-WRITEMASK+ ...) ; processing (DEFCONSTANT +DEPTH-COMPONENT+ ...) ; processing (DEFCONSTANT +LIGHTING+ ...) ; processing (DEFCONSTANT +LIGHT0+ ...) ; processing (DEFCONSTANT +LIGHT1+ ...) ; processing (DEFCONSTANT +LIGHT2+ ...) ; processing (DEFCONSTANT +LIGHT3+ ...) ; processing (DEFCONSTANT +LIGHT4+ ...) ; processing (DEFCONSTANT +LIGHT5+ ...) ; processing (DEFCONSTANT +LIGHT6+ ...) ; processing (DEFCONSTANT +LIGHT7+ ...) ; processing (DEFCONSTANT +SPOT-EXPONENT+ ...) ; processing (DEFCONSTANT +SPOT-CUTOFF+ ...) ; processing (DEFCONSTANT +CONSTANT-ATTENUATION+ ...) ; processing (DEFCONSTANT +LINEAR-ATTENUATION+ ...) ; processing (DEFCONSTANT +QUADRATIC-ATTENUATION+ ...) ; processing (DEFCONSTANT +AMBIENT+ ...) ; processing (DEFCONSTANT +DIFFUSE+ ...) ; processing (DEFCONSTANT +SPECULAR+ ...) ; processing (DEFCONSTANT +SHININESS+ ...) ; processing (DEFCONSTANT +EMISSION+ ...) ; processing (DEFCONSTANT +POSITION+ ...) ; processing (DEFCONSTANT +SPOT-DIRECTION+ ...) ; processing (DEFCONSTANT +AMBIENT-AND-DIFFUSE+ ...) ; processing (DEFCONSTANT +COLOR-INDEXES+ ...) ; processing (DEFCONSTANT +LIGHT-MODEL-TWO-SIDE+ ...) ; processing (DEFCONSTANT +LIGHT-MODEL-LOCAL-VIEWER+ ...) ; processing (DEFCONSTANT +LIGHT-MODEL-AMBIENT+ ...) ; processing (DEFCONSTANT +FRONT-AND-BACK+ ...) ; processing (DEFCONSTANT +SHADE-MODEL+ ...) ; processing (DEFCONSTANT +FLAT+ ...) ; processing (DEFCONSTANT +SMOOTH+ ...) ; processing (DEFCONSTANT +COLOR-MATERIAL+ ...) ; processing (DEFCONSTANT +COLOR-MATERIAL-FACE+ ...) ; processing (DEFCONSTANT +COLOR-MATERIAL-PARAMETER+ ...) ; processing (DEFCONSTANT +NORMALIZE+ ...) ; processing (DEFCONSTANT +CLIP-PLANE0+ ...) ; processing (DEFCONSTANT +CLIP-PLANE1+ ...) ; processing (DEFCONSTANT +CLIP-PLANE2+ ...) ; processing (DEFCONSTANT +CLIP-PLANE3+ ...) ; processing (DEFCONSTANT +CLIP-PLANE4+ ...) ; processing (DEFCONSTANT +CLIP-PLANE5+ ...) ; processing (DEFCONSTANT +ACCUM-RED-BITS+ ...) ; processing (DEFCONSTANT +ACCUM-GREEN-BITS+ ...) ; processing (DEFCONSTANT +ACCUM-BLUE-BITS+ ...) ; processing (DEFCONSTANT +ACCUM-ALPHA-BITS+ ...) ; processing (DEFCONSTANT +ACCUM-CLEAR-VALUE+ ...) ; processing (DEFCONSTANT +ACCUM+ ...) ; processing (DEFCONSTANT +ADD+ ...) ; processing (DEFCONSTANT +LOAD+ ...) ; processing (DEFCONSTANT +MULT+ ...) ; processing (DEFCONSTANT +RETURN+ ...) ; processing (DEFCONSTANT +ALPHA-TEST+ ...) ; processing (DEFCONSTANT +ALPHA-TEST-REF+ ...) ; processing (DEFCONSTANT +ALPHA-TEST-FUNC+ ...) ; processing (DEFCONSTANT +BLEND+ ...) ; processing (DEFCONSTANT +BLEND-SRC+ ...) ; processing (DEFCONSTANT +BLEND-DST+ ...) ; processing (DEFCONSTANT +ZERO+ ...) ; processing (DEFCONSTANT +ONE+ ...) ; processing (DEFCONSTANT +SRC-COLOR+ ...) ; processing (DEFCONSTANT +ONE-MINUS-SRC-COLOR+ ...) ; processing (DEFCONSTANT +DST-COLOR+ ...) ; processing (DEFCONSTANT +ONE-MINUS-DST-COLOR+ ...) ; processing (DEFCONSTANT +SRC-ALPHA+ ...) ; processing (DEFCONSTANT +ONE-MINUS-SRC-ALPHA+ ...) ; processing (DEFCONSTANT +DST-ALPHA+ ...) ; processing (DEFCONSTANT +ONE-MINUS-DST-ALPHA+ ...) ; processing (DEFCONSTANT +SRC-ALPHA-SATURATE+ ...) ; processing (DEFCONSTANT +CONSTANT-COLOR+ ...) ; processing (DEFCONSTANT +ONE-MINUS-CONSTANT-COLOR+ ...) ; processing (DEFCONSTANT +CONSTANT-ALPHA+ ...) ; processing (DEFCONSTANT +ONE-MINUS-CONSTANT-ALPHA+ ...) ; processing (DEFCONSTANT +FEEDBACK+ ...) ; processing (DEFCONSTANT +RENDER+ ...) ; processing (DEFCONSTANT +SELECT+ ...) ; processing (DEFCONSTANT +2D+ ...) ; processing (DEFCONSTANT +3D+ ...) ; processing (DEFCONSTANT +3D-COLOR+ ...) ; processing (DEFCONSTANT +3D-COLOR-TEXTURE+ ...) ; processing (DEFCONSTANT +4D-COLOR-TEXTURE+ ...) ; processing (DEFCONSTANT +POINT-TOKEN+ ...) ; processing (DEFCONSTANT +LINE-TOKEN+ ...) ; processing (DEFCONSTANT +LINE-RESET-TOKEN+ ...) ; processing (DEFCONSTANT +POLYGON-TOKEN+ ...) ; processing (DEFCONSTANT +BITMAP-TOKEN+ ...) ; processing (DEFCONSTANT +DRAW-PIXEL-TOKEN+ ...) ; processing (DEFCONSTANT +COPY-PIXEL-TOKEN+ ...) ; processing (DEFCONSTANT +PASS-THROUGH-TOKEN+ ...) ; processing (DEFCONSTANT +FEEDBACK-BUFFER-POINTER+ ...) ; processing (DEFCONSTANT +FEEDBACK-BUFFER-SIZE+ ...) ; processing (DEFCONSTANT +FEEDBACK-BUFFER-TYPE+ ...) ; processing (DEFCONSTANT +SELECTION-BUFFER-POINTER+ ...) ; processing (DEFCONSTANT +SELECTION-BUFFER-SIZE+ ...) ; processing (DEFCONSTANT +FOG+ ...) ; processing (DEFCONSTANT +FOG-MODE+ ...) ; processing (DEFCONSTANT +FOG-DENSITY+ ...) ; processing (DEFCONSTANT +FOG-COLOR+ ...) ; processing (DEFCONSTANT +FOG-INDEX+ ...) ; processing (DEFCONSTANT +FOG-START+ ...) ; processing (DEFCONSTANT +FOG-END+ ...) ; processing (DEFCONSTANT +LINEAR+ ...) ; processing (DEFCONSTANT +EXP+ ...) ; processing (DEFCONSTANT +EXP2+ ...) ; processing (DEFCONSTANT +LOGIC-OP+ ...) ; processing (DEFCONSTANT +INDEX-LOGIC-OP+ ...) ; processing (DEFCONSTANT +COLOR-LOGIC-OP+ ...) ; processing (DEFCONSTANT +LOGIC-OP-MODE+ ...) ; processing (DEFCONSTANT +CLEAR+ ...) ; processing (DEFCONSTANT +SET+ ...) ; processing (DEFCONSTANT +COPY+ ...) ; processing (DEFCONSTANT +COPY-INVERTED+ ...) ; processing (DEFCONSTANT +NOOP+ ...) ; processing (DEFCONSTANT +INVERT+ ...) ; processing (DEFCONSTANT +AND+ ...) ; processing (DEFCONSTANT +NAND+ ...) ; processing (DEFCONSTANT +OR+ ...) ; processing (DEFCONSTANT +NOR+ ...) ; processing (DEFCONSTANT +XOR+ ...) ; processing (DEFCONSTANT +EQUIV+ ...) ; processing (DEFCONSTANT +AND-REVERSE+ ...) ; processing (DEFCONSTANT +AND-INVERTED+ ...) ; processing (DEFCONSTANT +OR-REVERSE+ ...) ; processing (DEFCONSTANT +OR-INVERTED+ ...) ; processing (DEFCONSTANT +STENCIL-TEST+ ...) ; processing (DEFCONSTANT +STENCIL-WRITEMASK+ ...) ; processing (DEFCONSTANT +STENCIL-BITS+ ...) ; processing (DEFCONSTANT +STENCIL-FUNC+ ...) ; processing (DEFCONSTANT +STENCIL-VALUE-MASK+ ...) ; processing (DEFCONSTANT +STENCIL-REF+ ...) ; processing (DEFCONSTANT +STENCIL-FAIL+ ...) ; processing (DEFCONSTANT +STENCIL-PASS-DEPTH-PASS+ ...) ; processing (DEFCONSTANT +STENCIL-PASS-DEPTH-FAIL+ ...) ; processing (DEFCONSTANT +STENCIL-CLEAR-VALUE+ ...) ; processing (DEFCONSTANT +STENCIL-INDEX+ ...) ; processing (DEFCONSTANT +KEEP+ ...) ; processing (DEFCONSTANT +REPLACE+ ...) ; processing (DEFCONSTANT +INCR+ ...) ; processing (DEFCONSTANT +DECR+ ...) ; processing (DEFCONSTANT +NONE+ ...) ; processing (DEFCONSTANT +LEFT+ ...) ; processing (DEFCONSTANT +RIGHT+ ...) ; processing (DEFCONSTANT +FRONT-LEFT+ ...) ; processing (DEFCONSTANT +FRONT-RIGHT+ ...) ; processing (DEFCONSTANT +BACK-LEFT+ ...) ; processing (DEFCONSTANT +BACK-RIGHT+ ...) ; processing (DEFCONSTANT +AUX0+ ...) ; processing (DEFCONSTANT +AUX1+ ...) ; processing (DEFCONSTANT +AUX2+ ...) ; processing (DEFCONSTANT +AUX3+ ...) ; processing (DEFCONSTANT +COLOR-INDEX+ ...) ; processing (DEFCONSTANT +RED+ ...) ; processing (DEFCONSTANT +GREEN+ ...) ; processing (DEFCONSTANT +BLUE+ ...) ; processing (DEFCONSTANT +ALPHA+ ...) ; processing (DEFCONSTANT +LUMINANCE+ ...) ; processing (DEFCONSTANT +LUMINANCE-ALPHA+ ...) ; processing (DEFCONSTANT +ALPHA-BITS+ ...) ; processing (DEFCONSTANT +RED-BITS+ ...) ; processing (DEFCONSTANT +GREEN-BITS+ ...) ; processing (DEFCONSTANT +BLUE-BITS+ ...) ; processing (DEFCONSTANT +INDEX-BITS+ ...) ; processing (DEFCONSTANT +SUBPIXEL-BITS+ ...) ; processing (DEFCONSTANT +AUX-BUFFERS+ ...) ; processing (DEFCONSTANT +READ-BUFFER+ ...) ; processing (DEFCONSTANT +DRAW-BUFFER+ ...) ; processing (DEFCONSTANT +DOUBLEBUFFER+ ...) ; processing (DEFCONSTANT +STEREO+ ...) ; processing (DEFCONSTANT +BITMAP+ ...) ; processing (DEFCONSTANT +COLOR+ ...) ; processing (DEFCONSTANT +DEPTH+ ...) ; processing (DEFCONSTANT +STENCIL+ ...) ; processing (DEFCONSTANT +DITHER+ ...) ; processing (DEFCONSTANT +RGB+ ...) ; processing (DEFCONSTANT +RGBA+ ...) ; processing (DEFCONSTANT +MAX-LIST-NESTING+ ...) ; processing (DEFCONSTANT +MAX-ATTRIB-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +MAX-MODELVIEW-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +MAX-NAME-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +MAX-PROJECTION-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +MAX-TEXTURE-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +MAX-EVAL-ORDER+ ...) ; processing (DEFCONSTANT +MAX-LIGHTS+ ...) ; processing (DEFCONSTANT +MAX-CLIP-PLANES+ ...) ; processing (DEFCONSTANT +MAX-TEXTURE-SIZE+ ...) ; processing (DEFCONSTANT +MAX-PIXEL-MAP-TABLE+ ...) ; processing (DEFCONSTANT +MAX-VIEWPORT-DIMS+ ...) ; processing (DEFCONSTANT +MAX-CLIENT-ATTRIB-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +ATTRIB-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +CLIENT-ATTRIB-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +COLOR-CLEAR-VALUE+ ...) ; processing (DEFCONSTANT +COLOR-WRITEMASK+ ...) ; processing (DEFCONSTANT +CURRENT-INDEX+ ...) ; processing (DEFCONSTANT +CURRENT-COLOR+ ...) ; processing (DEFCONSTANT +CURRENT-NORMAL+ ...) ; processing (DEFCONSTANT +CURRENT-RASTER-COLOR+ ...) ; processing (DEFCONSTANT +CURRENT-RASTER-DISTANCE+ ...) ; processing (DEFCONSTANT +CURRENT-RASTER-INDEX+ ...) ; processing (DEFCONSTANT +CURRENT-RASTER-POSITION+ ...) ; processing (DEFCONSTANT +CURRENT-RASTER-TEXTURE-COORDS+ ...) ; processing (DEFCONSTANT +CURRENT-RASTER-POSITION-VALID+ ...) ; processing (DEFCONSTANT +CURRENT-TEXTURE-COORDS+ ...) ; processing (DEFCONSTANT +INDEX-CLEAR-VALUE+ ...) ; processing (DEFCONSTANT +INDEX-MODE+ ...) ; processing (DEFCONSTANT +INDEX-WRITEMASK+ ...) ; processing (DEFCONSTANT +MODELVIEW-MATRIX+ ...) ; processing (DEFCONSTANT +MODELVIEW-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +NAME-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +PROJECTION-MATRIX+ ...) ; processing (DEFCONSTANT +PROJECTION-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +RENDER-MODE+ ...) ; processing (DEFCONSTANT +RGBA-MODE+ ...) ; processing (DEFCONSTANT +TEXTURE-MATRIX+ ...) ; processing (DEFCONSTANT +TEXTURE-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +VIEWPORT+ ...) ; processing (DEFCONSTANT +AUTO-NORMAL+ ...) ; processing (DEFCONSTANT +MAP1-COLOR-4+ ...) ; processing (DEFCONSTANT +MAP1-GRID-DOMAIN+ ...) ; processing (DEFCONSTANT +MAP1-GRID-SEGMENTS+ ...) ; processing (DEFCONSTANT +MAP1-INDEX+ ...) ; processing (DEFCONSTANT +MAP1-NORMAL+ ...) ; processing (DEFCONSTANT +MAP1-TEXTURE-COORD-1+ ...) ; processing (DEFCONSTANT +MAP1-TEXTURE-COORD-2+ ...) ; processing (DEFCONSTANT +MAP1-TEXTURE-COORD-3+ ...) ; processing (DEFCONSTANT +MAP1-TEXTURE-COORD-4+ ...) ; processing (DEFCONSTANT +MAP1-VERTEX-3+ ...) ; processing (DEFCONSTANT +MAP1-VERTEX-4+ ...) ; processing (DEFCONSTANT +MAP2-COLOR-4+ ...) ; processing (DEFCONSTANT +MAP2-GRID-DOMAIN+ ...) ; processing (DEFCONSTANT +MAP2-GRID-SEGMENTS+ ...) ; processing (DEFCONSTANT +MAP2-INDEX+ ...) ; processing (DEFCONSTANT +MAP2-NORMAL+ ...) ; processing (DEFCONSTANT +MAP2-TEXTURE-COORD-1+ ...) ; processing (DEFCONSTANT +MAP2-TEXTURE-COORD-2+ ...) ; processing (DEFCONSTANT +MAP2-TEXTURE-COORD-3+ ...) ; processing (DEFCONSTANT +MAP2-TEXTURE-COORD-4+ ...) ; processing (DEFCONSTANT +MAP2-VERTEX-3+ ...) ; processing (DEFCONSTANT +MAP2-VERTEX-4+ ...) ; processing (DEFCONSTANT +COEFF+ ...) ; processing (DEFCONSTANT +DOMAIN+ ...) ; processing (DEFCONSTANT +ORDER+ ...) ; processing (DEFCONSTANT +FOG-HINT+ ...) ; processing (DEFCONSTANT +LINE-SMOOTH-HINT+ ...) ; processing (DEFCONSTANT +PERSPECTIVE-CORRECTION-HINT+ ...) ; processing (DEFCONSTANT +POINT-SMOOTH-HINT+ ...) ; processing (DEFCONSTANT +POLYGON-SMOOTH-HINT+ ...) ; processing (DEFCONSTANT +DONT-CARE+ ...) ; processing (DEFCONSTANT +FASTEST+ ...) ; processing (DEFCONSTANT +NICEST+ ...) ; processing (DEFCONSTANT +SCISSOR-TEST+ ...) ; processing (DEFCONSTANT +SCISSOR-BOX+ ...) ; processing (DEFCONSTANT +MAP-COLOR+ ...) ; processing (DEFCONSTANT +MAP-STENCIL+ ...) ; processing (DEFCONSTANT +INDEX-SHIFT+ ...) ; processing (DEFCONSTANT +INDEX-OFFSET+ ...) ; processing (DEFCONSTANT +RED-SCALE+ ...) ; processing (DEFCONSTANT +RED-BIAS+ ...) ; processing (DEFCONSTANT +GREEN-SCALE+ ...) ; processing (DEFCONSTANT +GREEN-BIAS+ ...) ; processing (DEFCONSTANT +BLUE-SCALE+ ...) ; processing (DEFCONSTANT +BLUE-BIAS+ ...) ; processing (DEFCONSTANT +ALPHA-SCALE+ ...) ; processing (DEFCONSTANT +ALPHA-BIAS+ ...) ; processing (DEFCONSTANT +DEPTH-SCALE+ ...) ; processing (DEFCONSTANT +DEPTH-BIAS+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-S-TO-S-SIZE+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-I-TO-I-SIZE+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-I-TO-R-SIZE+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-I-TO-G-SIZE+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-I-TO-B-SIZE+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-I-TO-A-SIZE+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-R-TO-R-SIZE+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-G-TO-G-SIZE+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-B-TO-B-SIZE+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-A-TO-A-SIZE+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-S-TO-S+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-I-TO-I+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-I-TO-R+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-I-TO-G+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-I-TO-B+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-I-TO-A+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-R-TO-R+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-G-TO-G+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-B-TO-B+ ...) ; processing (DEFCONSTANT +PIXEL-MAP-A-TO-A+ ...) ; processing (DEFCONSTANT +PACK-ALIGNMENT+ ...) ; processing (DEFCONSTANT +PACK-LSB-FIRST+ ...) ; processing (DEFCONSTANT +PACK-ROW-LENGTH+ ...) ; processing (DEFCONSTANT +PACK-SKIP-PIXELS+ ...) ; processing (DEFCONSTANT +PACK-SKIP-ROWS+ ...) ; processing (DEFCONSTANT +PACK-SWAP-BYTES+ ...) ; processing (DEFCONSTANT +UNPACK-ALIGNMENT+ ...) ; processing (DEFCONSTANT +UNPACK-LSB-FIRST+ ...) ; processing (DEFCONSTANT +UNPACK-ROW-LENGTH+ ...) ; processing (DEFCONSTANT +UNPACK-SKIP-PIXELS+ ...) ; processing (DEFCONSTANT +UNPACK-SKIP-ROWS+ ...) ; processing (DEFCONSTANT +UNPACK-SWAP-BYTES+ ...) ; processing (DEFCONSTANT +ZOOM-X+ ...) ; processing (DEFCONSTANT +ZOOM-Y+ ...) ; processing (DEFCONSTANT +TEXTURE-ENV+ ...) ; processing (DEFCONSTANT +TEXTURE-ENV-MODE+ ...) ; processing (DEFCONSTANT +TEXTURE-1D+ ...) ; processing (DEFCONSTANT +TEXTURE-2D+ ...) ; processing (DEFCONSTANT +TEXTURE-WRAP-S+ ...) ; processing (DEFCONSTANT +TEXTURE-WRAP-T+ ...) ; processing (DEFCONSTANT +TEXTURE-MAG-FILTER+ ...) ; processing (DEFCONSTANT +TEXTURE-MIN-FILTER+ ...) ; processing (DEFCONSTANT +TEXTURE-ENV-COLOR+ ...) ; processing (DEFCONSTANT +TEXTURE-GEN-S+ ...) ; processing (DEFCONSTANT +TEXTURE-GEN-T+ ...) ; processing (DEFCONSTANT +TEXTURE-GEN-MODE+ ...) ; processing (DEFCONSTANT +TEXTURE-BORDER-COLOR+ ...) ; processing (DEFCONSTANT +TEXTURE-WIDTH+ ...) ; processing (DEFCONSTANT +TEXTURE-HEIGHT+ ...) ; processing (DEFCONSTANT +TEXTURE-BORDER+ ...) ; processing (DEFCONSTANT +TEXTURE-COMPONENTS+ ...) ; processing (DEFCONSTANT +TEXTURE-RED-SIZE+ ...) ; processing (DEFCONSTANT +TEXTURE-GREEN-SIZE+ ...) ; processing (DEFCONSTANT +TEXTURE-BLUE-SIZE+ ...) ; processing (DEFCONSTANT +TEXTURE-ALPHA-SIZE+ ...) ; processing (DEFCONSTANT +TEXTURE-LUMINANCE-SIZE+ ...) ; processing (DEFCONSTANT +TEXTURE-INTENSITY-SIZE+ ...) ; processing (DEFCONSTANT +NEAREST-MIPMAP-NEAREST+ ...) ; processing (DEFCONSTANT +NEAREST-MIPMAP-LINEAR+ ...) ; processing (DEFCONSTANT +LINEAR-MIPMAP-NEAREST+ ...) ; processing (DEFCONSTANT +LINEAR-MIPMAP-LINEAR+ ...) ; processing (DEFCONSTANT +OBJECT-LINEAR+ ...) ; processing (DEFCONSTANT +OBJECT-PLANE+ ...) ; processing (DEFCONSTANT +EYE-LINEAR+ ...) ; processing (DEFCONSTANT +EYE-PLANE+ ...) ; processing (DEFCONSTANT +SPHERE-MAP+ ...) ; processing (DEFCONSTANT +DECAL+ ...) ; processing (DEFCONSTANT +MODULATE+ ...) ; processing (DEFCONSTANT +NEAREST+ ...) ; processing (DEFCONSTANT +REPEAT+ ...) ; processing (DEFCONSTANT +CLAMP+ ...) ; processing (DEFCONSTANT +S+ ...) ; processing (DEFCONSTANT +T+ ...) ; processing (DEFCONSTANT +R+ ...) ; processing (DEFCONSTANT +Q+ ...) ; processing (DEFCONSTANT +TEXTURE-GEN-R+ ...) ; processing (DEFCONSTANT +TEXTURE-GEN-Q+ ...) ; processing (DEFCONSTANT +PROXY-TEXTURE-1D+ ...) ; processing (DEFCONSTANT +PROXY-TEXTURE-2D+ ...) ; processing (DEFCONSTANT +TEXTURE-PRIORITY+ ...) ; processing (DEFCONSTANT +TEXTURE-RESIDENT+ ...) ; processing (DEFCONSTANT +TEXTURE-BINDING-1D+ ...) ; processing (DEFCONSTANT +TEXTURE-BINDING-2D+ ...) ; processing (DEFCONSTANT +TEXTURE-INTERNAL-FORMAT+ ...) ; processing (DEFCONSTANT +PACK-SKIP-IMAGES+ ...) ; processing (DEFCONSTANT +PACK-IMAGE-HEIGHT+ ...) ; processing (DEFCONSTANT +UNPACK-SKIP-IMAGES+ ...) ; processing (DEFCONSTANT +UNPACK-IMAGE-HEIGHT+ ...) ; processing (DEFCONSTANT +TEXTURE-3D+ ...) ; processing (DEFCONSTANT +PROXY-TEXTURE-3D+ ...) ; processing (DEFCONSTANT +TEXTURE-DEPTH+ ...) ; processing (DEFCONSTANT +TEXTURE-WRAP-R+ ...) ; processing (DEFCONSTANT +MAX-3D-TEXTURE-SIZE+ ...) ; processing (DEFCONSTANT +TEXTURE-BINDING-3D+ ...) ; processing (DEFCONSTANT +ALPHA4+ ...) ; processing (DEFCONSTANT +ALPHA8+ ...) ; processing (DEFCONSTANT +ALPHA12+ ...) ; processing (DEFCONSTANT +ALPHA16+ ...) ; processing (DEFCONSTANT +LUMINANCE4+ ...) ; processing (DEFCONSTANT +LUMINANCE8+ ...) ; processing (DEFCONSTANT +LUMINANCE12+ ...) ; processing (DEFCONSTANT +LUMINANCE16+ ...) ; processing (DEFCONSTANT +LUMINANCE4-ALPHA4+ ...) ; processing (DEFCONSTANT +LUMINANCE6-ALPHA2+ ...) ; processing (DEFCONSTANT +LUMINANCE8-ALPHA8+ ...) ; processing (DEFCONSTANT +LUMINANCE12-ALPHA4+ ...) ; processing (DEFCONSTANT +LUMINANCE12-ALPHA12+ ...) ; processing (DEFCONSTANT +LUMINANCE16-ALPHA16+ ...) ; processing (DEFCONSTANT +INTENSITY+ ...) ; processing (DEFCONSTANT +INTENSITY4+ ...) ; processing (DEFCONSTANT +INTENSITY8+ ...) ; processing (DEFCONSTANT +INTENSITY12+ ...) ; processing (DEFCONSTANT +INTENSITY16+ ...) ; processing (DEFCONSTANT +R3-G3-B2+ ...) ; processing (DEFCONSTANT +RGB4+ ...) ; processing (DEFCONSTANT +RGB5+ ...) ; processing (DEFCONSTANT +RGB8+ ...) ; processing (DEFCONSTANT +RGB10+ ...) ; processing (DEFCONSTANT +RGB12+ ...) ; processing (DEFCONSTANT +RGB16+ ...) ; processing (DEFCONSTANT +RGBA2+ ...) ; processing (DEFCONSTANT +RGBA4+ ...) ; processing (DEFCONSTANT +RGB5-A1+ ...) ; processing (DEFCONSTANT +RGBA8+ ...) ; processing (DEFCONSTANT +RGB10-A2+ ...) ; processing (DEFCONSTANT +RGBA12+ ...) ; processing (DEFCONSTANT +RGBA16+ ...) ; processing (DEFCONSTANT +VENDOR+ ...) ; processing (DEFCONSTANT +RENDERER+ ...) ; processing (DEFCONSTANT +VERSION+ ...) ; processing (DEFCONSTANT +EXTENSIONS+ ...) ; processing (DEFCONSTANT +NO-ERROR+ ...) ; processing (DEFCONSTANT +INVALID-VALUE+ ...) ; processing (DEFCONSTANT +INVALID-ENUM+ ...) ; processing (DEFCONSTANT +INVALID-OPERATION+ ...) ; processing (DEFCONSTANT +STACK-OVERFLOW+ ...) ; processing (DEFCONSTANT +STACK-UNDERFLOW+ ...) ; processing (DEFCONSTANT +OUT-OF-MEMORY+ ...) ; processing (DEFCONSTANT +RESCALE-NORMAL+ ...) ; processing (DEFCONSTANT +CLAMP-TO-EDGE+ ...) ; processing (DEFCONSTANT +MAX-ELEMENTS-VERTICES+ ...) ; processing (DEFCONSTANT +MAX-ELEMENTS-INDICES+ ...) ; processing (DEFCONSTANT +BGR+ ...) ; processing (DEFCONSTANT +BGRA+ ...) ; processing (DEFCONSTANT +UNSIGNED-BYTE-3-3-2+ ...) ; processing (DEFCONSTANT +UNSIGNED-BYTE-2-3-3-REV+ ...) ; processing (DEFCONSTANT +UNSIGNED-SHORT-5-6-5+ ...) ; processing (DEFCONSTANT +UNSIGNED-SHORT-5-6-5-REV+ ...) ; processing (DEFCONSTANT +UNSIGNED-SHORT-4-4-4-4+ ...) ; processing (DEFCONSTANT +UNSIGNED-SHORT-4-4-4-4-REV+ ...) ; processing (DEFCONSTANT +UNSIGNED-SHORT-5-5-5-1+ ...) ; processing (DEFCONSTANT +UNSIGNED-SHORT-1-5-5-5-REV+ ...) ; processing (DEFCONSTANT +UNSIGNED-INT-8-8-8-8+ ...) ; processing (DEFCONSTANT +UNSIGNED-INT-8-8-8-8-REV+ ...) ; processing (DEFCONSTANT +UNSIGNED-INT-10-10-10-2+ ...) ; processing (DEFCONSTANT +UNSIGNED-INT-2-10-10-10-REV+ ...) ; processing (DEFCONSTANT +LIGHT-MODEL-COLOR-CONTROL+ ...) ; processing (DEFCONSTANT +SINGLE-COLOR+ ...) ; processing (DEFCONSTANT +SEPARATE-SPECULAR-COLOR+ ...) ; processing (DEFCONSTANT +TEXTURE-MIN-LOD+ ...) ; processing (DEFCONSTANT +TEXTURE-MAX-LOD+ ...) ; processing (DEFCONSTANT +TEXTURE-BASE-LEVEL+ ...) ; processing (DEFCONSTANT +TEXTURE-MAX-LEVEL+ ...) ; processing (DEFCONSTANT +SMOOTH-POINT-SIZE-RANGE+ ...) ; processing (DEFCONSTANT +SMOOTH-POINT-SIZE-GRANULARITY+ ...) ; processing (DEFCONSTANT +SMOOTH-LINE-WIDTH-RANGE+ ...) ; processing (DEFCONSTANT +SMOOTH-LINE-WIDTH-GRANULARITY+ ...) ; processing (DEFCONSTANT +ALIASED-POINT-SIZE-RANGE+ ...) ; processing (DEFCONSTANT +ALIASED-LINE-WIDTH-RANGE+ ...) ; processing (DEFCONSTANT +COLOR-TABLE+ ...) ; processing (DEFCONSTANT +POST-CONVOLUTION-COLOR-TABLE+ ...) ; processing (DEFCONSTANT +POST-COLOR-MATRIX-COLOR-TABLE+ ...) ; processing (DEFCONSTANT +PROXY-COLOR-TABLE+ ...) ; processing (DEFCONSTANT +PROXY-POST-CONVOLUTION-COLOR-TABLE+ ...) ; processing (DEFCONSTANT +PROXY-POST-COLOR-MATRIX-COLOR-TABLE+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-SCALE+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-BIAS+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-FORMAT+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-WIDTH+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-RED-SIZE+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-GREEN-SIZE+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-BLUE-SIZE+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-ALPHA-SIZE+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-LUMINANCE-SIZE+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-INTENSITY-SIZE+ ...) ; processing (DEFCONSTANT +CONVOLUTION-1D+ ...) ; processing (DEFCONSTANT +CONVOLUTION-2D+ ...) ; processing (DEFCONSTANT +SEPARABLE-2D+ ...) ; processing (DEFCONSTANT +CONVOLUTION-BORDER-MODE+ ...) ; processing (DEFCONSTANT +CONVOLUTION-FILTER-SCALE+ ...) ; processing (DEFCONSTANT +CONVOLUTION-FILTER-BIAS+ ...) ; processing (DEFCONSTANT +REDUCE+ ...) ; processing (DEFCONSTANT +CONVOLUTION-FORMAT+ ...) ; processing (DEFCONSTANT +CONVOLUTION-WIDTH+ ...) ; processing (DEFCONSTANT +CONVOLUTION-HEIGHT+ ...) ; processing (DEFCONSTANT +MAX-CONVOLUTION-WIDTH+ ...) ; processing (DEFCONSTANT +MAX-CONVOLUTION-HEIGHT+ ...) ; processing (DEFCONSTANT +POST-CONVOLUTION-RED-SCALE+ ...) ; processing (DEFCONSTANT +POST-CONVOLUTION-GREEN-SCALE+ ...) ; processing (DEFCONSTANT +POST-CONVOLUTION-BLUE-SCALE+ ...) ; processing (DEFCONSTANT +POST-CONVOLUTION-ALPHA-SCALE+ ...) ; processing (DEFCONSTANT +POST-CONVOLUTION-RED-BIAS+ ...) ; processing (DEFCONSTANT +POST-CONVOLUTION-GREEN-BIAS+ ...) ; processing (DEFCONSTANT +POST-CONVOLUTION-BLUE-BIAS+ ...) ; processing (DEFCONSTANT +POST-CONVOLUTION-ALPHA-BIAS+ ...) ; processing (DEFCONSTANT +CONSTANT-BORDER+ ...) ; processing (DEFCONSTANT +REPLICATE-BORDER+ ...) ; processing (DEFCONSTANT +CONVOLUTION-BORDER-COLOR+ ...) ; processing (DEFCONSTANT +COLOR-MATRIX+ ...) ; processing (DEFCONSTANT +COLOR-MATRIX-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +MAX-COLOR-MATRIX-STACK-DEPTH+ ...) ; processing (DEFCONSTANT +POST-COLOR-MATRIX-RED-SCALE+ ...) ; processing (DEFCONSTANT +POST-COLOR-MATRIX-GREEN-SCALE+ ...) ; processing (DEFCONSTANT +POST-COLOR-MATRIX-BLUE-SCALE+ ...) ; processing (DEFCONSTANT +POST-COLOR-MATRIX-ALPHA-SCALE+ ...) ; processing (DEFCONSTANT +POST-COLOR-MATRIX-RED-BIAS+ ...) ; processing (DEFCONSTANT +POST-COLOR-MATRIX-GREEN-BIAS+ ...) ; processing (DEFCONSTANT +POST-COLOR-MATRIX-BLUE-BIAS+ ...) ; processing (DEFCONSTANT +POST-COLOR-MATRIX-ALPHA-BIAS+ ...) ; processing (DEFCONSTANT +HISTOGRAM+ ...) ; processing (DEFCONSTANT +PROXY-HISTOGRAM+ ...) ; processing (DEFCONSTANT +HISTOGRAM-WIDTH+ ...) ; processing (DEFCONSTANT +HISTOGRAM-FORMAT+ ...) ; processing (DEFCONSTANT +HISTOGRAM-RED-SIZE+ ...) ; processing (DEFCONSTANT +HISTOGRAM-GREEN-SIZE+ ...) ; processing (DEFCONSTANT +HISTOGRAM-BLUE-SIZE+ ...) ; processing (DEFCONSTANT +HISTOGRAM-ALPHA-SIZE+ ...) ; processing (DEFCONSTANT +HISTOGRAM-LUMINANCE-SIZE+ ...) ; processing (DEFCONSTANT +HISTOGRAM-SINK+ ...) ; processing (DEFCONSTANT +MINMAX+ ...) ; processing (DEFCONSTANT +MINMAX-FORMAT+ ...) ; processing (DEFCONSTANT +MINMAX-SINK+ ...) ; processing (DEFCONSTANT +TABLE-TOO-LARGE+ ...) ; processing (DEFCONSTANT +BLEND-EQUATION+ ...) ; processing (DEFCONSTANT +MIN+ ...) ; processing (DEFCONSTANT +MAX+ ...) ; processing (DEFCONSTANT +FUNC-ADD+ ...) ; processing (DEFCONSTANT +FUNC-SUBTRACT+ ...) ; processing (DEFCONSTANT +FUNC-REVERSE-SUBTRACT+ ...) ; processing (DEFCONSTANT +CURRENT-BIT+ ...) ; processing (DEFCONSTANT +POINT-BIT+ ...) ; processing (DEFCONSTANT +LINE-BIT+ ...) ; processing (DEFCONSTANT +POLYGON-BIT+ ...) ; processing (DEFCONSTANT +POLYGON-STIPPLE-BIT+ ...) ; processing (DEFCONSTANT +PIXEL-MODE-BIT+ ...) ; processing (DEFCONSTANT +LIGHTING-BIT+ ...) ; processing (DEFCONSTANT +FOG-BIT+ ...) ; processing (DEFCONSTANT +DEPTH-BUFFER-BIT+ ...) ; processing (DEFCONSTANT +ACCUM-BUFFER-BIT+ ...) ; processing (DEFCONSTANT +STENCIL-BUFFER-BIT+ ...) ; processing (DEFCONSTANT +VIEWPORT-BIT+ ...) ; processing (DEFCONSTANT +TRANSFORM-BIT+ ...) ; processing (DEFCONSTANT +ENABLE-BIT+ ...) ; processing (DEFCONSTANT +COLOR-BUFFER-BIT+ ...) ; processing (DEFCONSTANT +HINT-BIT+ ...) ; processing (DEFCONSTANT +EVAL-BIT+ ...) ; processing (DEFCONSTANT +LIST-BIT+ ...) ; processing (DEFCONSTANT +TEXTURE-BIT+ ...) ; processing (DEFCONSTANT +SCISSOR-BIT+ ...) ; processing (DEFCONSTANT +ALL-ATTRIB-BITS+ ...) ; processing (DEFCONSTANT +CLIENT-PIXEL-STORE-BIT+ ...) ; processing (DEFCONSTANT +CLIENT-VERTEX-ARRAY-BIT+ ...) ; processing (DEFCONSTANT +CLIENT-ALL-ATTRIB-BITS+ ...) ; processing (DEFCONSTANT +ARB-MULTITEXTURE+ ...) ; processing (DEFCONSTANT +TEXTURE0-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE1-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE2-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE3-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE4-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE5-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE6-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE7-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE8-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE9-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE10-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE11-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE12-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE13-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE14-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE15-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE16-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE17-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE18-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE19-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE20-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE21-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE22-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE23-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE24-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE25-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE26-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE27-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE28-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE29-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE30-ARB+ ...) ; processing (DEFCONSTANT +TEXTURE31-ARB+ ...) ; processing (DEFCONSTANT +ACTIVE-TEXTURE-ARB+ ...) ; processing (DEFCONSTANT +CLIENT-ACTIVE-TEXTURE-ARB+ ...) ; processing (DEFCONSTANT +MAX-TEXTURE-UNITS-ARB+ ...) ; processing (DEFCONSTANT +EXT-ABGR+ ...) ; processing (DEFCONSTANT +ABGR-EXT+ ...) ; processing (DEFCONSTANT +EXT-BLEND-COLOR+ ...) ; processing (DEFCONSTANT +CONSTANT-COLOR-EXT+ ...) ; processing (DEFCONSTANT +ONE-MINUS-CONSTANT-COLOR-EXT+ ...) ; processing (DEFCONSTANT +CONSTANT-ALPHA-EXT+ ...) ; processing (DEFCONSTANT +ONE-MINUS-CONSTANT-ALPHA-EXT+ ...) ; processing (DEFCONSTANT +BLEND-COLOR-EXT+ ...) ; processing (DEFCONSTANT +EXT-POLYGON-OFFSET+ ...) ; processing (DEFCONSTANT +POLYGON-OFFSET-EXT+ ...) ; processing (DEFCONSTANT +POLYGON-OFFSET-FACTOR-EXT+ ...) ; processing (DEFCONSTANT +POLYGON-OFFSET-BIAS-EXT+ ...) ; processing (DEFCONSTANT +EXT-TEXTURE3D+ ...) ; processing (DEFCONSTANT +PACK-SKIP-IMAGES-EXT+ ...) ; processing (DEFCONSTANT +PACK-IMAGE-HEIGHT-EXT+ ...) ; processing (DEFCONSTANT +UNPACK-SKIP-IMAGES-EXT+ ...) ; processing (DEFCONSTANT +UNPACK-IMAGE-HEIGHT-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-3D-EXT+ ...) ; processing (DEFCONSTANT +PROXY-TEXTURE-3D-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-DEPTH-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-WRAP-R-EXT+ ...) ; processing (DEFCONSTANT +MAX-3D-TEXTURE-SIZE-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-3D-BINDING-EXT+ ...) ; processing (DEFCONSTANT +EXT-TEXTURE-OBJECT+ ...) ; processing (DEFCONSTANT +TEXTURE-PRIORITY-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-RESIDENT-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-1D-BINDING-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-2D-BINDING-EXT+ ...) ; processing (DEFCONSTANT +EXT-RESCALE-NORMAL+ ...) ; processing (DEFCONSTANT +RESCALE-NORMAL-EXT+ ...) ; processing (DEFCONSTANT +EXT-VERTEX-ARRAY+ ...) ; processing (DEFCONSTANT +VERTEX-ARRAY-EXT+ ...) ; processing (DEFCONSTANT +NORMAL-ARRAY-EXT+ ...) ; processing (DEFCONSTANT +COLOR-ARRAY-EXT+ ...) ; processing (DEFCONSTANT +INDEX-ARRAY-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-COORD-ARRAY-EXT+ ...) ; processing (DEFCONSTANT +EDGE-FLAG-ARRAY-EXT+ ...) ; processing (DEFCONSTANT +VERTEX-ARRAY-SIZE-EXT+ ...) ; processing (DEFCONSTANT +VERTEX-ARRAY-TYPE-EXT+ ...) ; processing (DEFCONSTANT +VERTEX-ARRAY-STRIDE-EXT+ ...) ; processing (DEFCONSTANT +VERTEX-ARRAY-COUNT-EXT+ ...) ; processing (DEFCONSTANT +NORMAL-ARRAY-TYPE-EXT+ ...) ; processing (DEFCONSTANT +NORMAL-ARRAY-STRIDE-EXT+ ...) ; processing (DEFCONSTANT +NORMAL-ARRAY-COUNT-EXT+ ...) ; processing (DEFCONSTANT +COLOR-ARRAY-SIZE-EXT+ ...) ; processing (DEFCONSTANT +COLOR-ARRAY-TYPE-EXT+ ...) ; processing (DEFCONSTANT +COLOR-ARRAY-STRIDE-EXT+ ...) ; processing (DEFCONSTANT +COLOR-ARRAY-COUNT-EXT+ ...) ; processing (DEFCONSTANT +INDEX-ARRAY-TYPE-EXT+ ...) ; processing (DEFCONSTANT +INDEX-ARRAY-STRIDE-EXT+ ...) ; processing (DEFCONSTANT +INDEX-ARRAY-COUNT-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-COORD-ARRAY-SIZE-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-COORD-ARRAY-TYPE-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-COORD-ARRAY-STRIDE-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-COORD-ARRAY-COUNT-EXT+ ...) ; processing (DEFCONSTANT +EDGE-FLAG-ARRAY-STRIDE-EXT+ ...) ; processing (DEFCONSTANT +EDGE-FLAG-ARRAY-COUNT-EXT+ ...) ; processing (DEFCONSTANT +VERTEX-ARRAY-POINTER-EXT+ ...) ; processing (DEFCONSTANT +NORMAL-ARRAY-POINTER-EXT+ ...) ; processing (DEFCONSTANT +COLOR-ARRAY-POINTER-EXT+ ...) ; processing (DEFCONSTANT +INDEX-ARRAY-POINTER-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-COORD-ARRAY-POINTER-EXT+ ...) ; processing (DEFCONSTANT +EDGE-FLAG-ARRAY-POINTER-EXT+ ...) ; processing (DEFCONSTANT +SGIS-TEXTURE-EDGE-CLAMP+ ...) ; processing (DEFCONSTANT +CLAMP-TO-EDGE-SGIS+ ...) ; processing (DEFCONSTANT +EXT-BLEND-MINMAX+ ...) ; processing (DEFCONSTANT +FUNC-ADD-EXT+ ...) ; processing (DEFCONSTANT +MIN-EXT+ ...) ; processing (DEFCONSTANT +MAX-EXT+ ...) ; processing (DEFCONSTANT +BLEND-EQUATION-EXT+ ...) ; processing (DEFCONSTANT +EXT-BLEND-SUBTRACT+ ...) ; processing (DEFCONSTANT +FUNC-SUBTRACT-EXT+ ...) ; processing (DEFCONSTANT +FUNC-REVERSE-SUBTRACT-EXT+ ...) ; processing (DEFCONSTANT +EXT-BLEND-LOGIC-OP+ ...) ; processing (DEFCONSTANT +EXT-POINT-PARAMETERS+ ...) ; processing (DEFCONSTANT +POINT-SIZE-MIN-EXT+ ...) ; processing (DEFCONSTANT +POINT-SIZE-MAX-EXT+ ...) ; processing (DEFCONSTANT +POINT-FADE-THRESHOLD-SIZE-EXT+ ...) ; processing (DEFCONSTANT +DISTANCE-ATTENUATION-EXT+ ...) ; processing (DEFCONSTANT +EXT-PALETTED-TEXTURE+ ...) ; processing (DEFCONSTANT +TABLE-TOO-LARGE-EXT+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-FORMAT-EXT+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-WIDTH-EXT+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-RED-SIZE-EXT+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-GREEN-SIZE-EXT+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-BLUE-SIZE-EXT+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-ALPHA-SIZE-EXT+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-LUMINANCE-SIZE-EXT+ ...) ; processing (DEFCONSTANT +COLOR-TABLE-INTENSITY-SIZE-EXT+ ...) ; processing (DEFCONSTANT +TEXTURE-INDEX-SIZE-EXT+ ...) ; processing (DEFCONSTANT +COLOR-INDEX1-EXT+ ...) ; processing (DEFCONSTANT +COLOR-INDEX2-EXT+ ...) ; processing (DEFCONSTANT +COLOR-INDEX4-EXT+ ...) ; processing (DEFCONSTANT +COLOR-INDEX8-EXT+ ...) ; processing (DEFCONSTANT +COLOR-INDEX12-EXT+ ...) ; processing (DEFCONSTANT +COLOR-INDEX16-EXT+ ...) ; processing (DEFCONSTANT +EXT-CLIP-VOLUME-HINT+ ...) ; processing (DEFCONSTANT +CLIP-VOLUME-CLIPPING-HINT-EXT+ ...) ; processing (DEFCONSTANT +EXT-COMPILED-VERTEX-ARRAY+ ...) ; processing (DEFCONSTANT +ARRAY-ELEMENT-LOCK-FIRST-EXT+ ...) ; processing (DEFCONSTANT +ARRAY-ELEMENT-LOCK-COUNT-EXT+ ...) ; processing (DEFCONSTANT +HP-OCCLUSION-TEST+ ...) ; processing (DEFCONSTANT +OCCLUSION-TEST-HP+ ...) ; processing (DEFCONSTANT +OCCLUSION-TEST-RESULT-HP+ ...) ; processing (DEFCONSTANT +EXT-SHARED-TEXTURE-PALETTE+ ...) ; processing (DEFCONSTANT +SHARED-TEXTURE-PALETTE-EXT+ ...) ; processing (DEFCONSTANT +EXT-STENCIL-WRAP+ ...) ; processing (DEFCONSTANT +INCR-WRAP-EXT+ ...) ; processing (DEFCONSTANT +DECR-WRAP-EXT+ ...) ; processing (DEFCONSTANT +NV-TEXGEN-REFLECTION+ ...) ; processing (DEFCONSTANT +NORMAL-MAP-NV+ ...) ; processing (DEFCONSTANT +REFLECTION-MAP-NV+ ...) ; processing (DEFCONSTANT +EXT-TEXTURE-ENV-ADD+ ...) ; processing (DEFCONSTANT +MESA-WINDOW-POS+ ...) ; processing (DEFCONSTANT +MESA-RESIZE-BUFFERS+ ...) ; processing (DEFTYPE BOOL ...) ; processing (DEFTYPE FLOAT32 ...) ; processing (DEFTYPE FLOAT64 ...) ; processing (DECLAIM (INLINE ASET-FLOAT32 ...)) ; processing (DEFUN ASET-FLOAT32 ...) ; processing (DEFUN ASET-FLOAT64 ...) ; processing (DEFUN BYTE-WIDTH ...) ; processing (DEFUN SETTER ...) ; processing (DEFUN SEQUENCE-SETTER ...) ; processing (DEFMACRO DEFINE-SEQUENCE-SETTER ...) ; processing (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 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 VECTOR. ; processing (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 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 VECTOR. ; processing (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 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 VECTOR. ; processing (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 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 VECTOR. ; processing (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 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 VECTOR. ; processing (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 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 VECTOR. ; processing (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 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 VECTOR. ; processing (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 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 VECTOR. ; processing (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 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 VECTOR. ; processing (DEFUN MAKE-ARGSPECS ...) ; processing (DEFUN BYTE-WIDTH-CALCULATION ...) ; processing (DEFUN COMPOSITE-ARGS ...) ; processing (DEFUN MAKE-SETTER-FORMS ...) ; processing (DEFMACRO DEFINE-RENDERING-COMMAND ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-RENDERING-COMMAND ACCUM ...) ; processing (DEFINE-RENDERING-COMMAND ACTIVE-TEXTURE-ARB ...) ; processing (DEFINE-RENDERING-COMMAND ALPHA-FUNC ...) ; processing (DEFINE-RENDERING-COMMAND BEGIN ...) ; processing (DEFINE-RENDERING-COMMAND BIND-TEXTURE ...) ; processing (DEFINE-RENDERING-COMMAND BLEND-COLOR ...) ; processing (DEFINE-RENDERING-COMMAND BLEND-EQUOTION ...) ; processing (DEFINE-RENDERING-COMMAND BLEND-FUNC ...) ; processing (DEFINE-RENDERING-COMMAND CALL-LIST ...) ; processing (DEFINE-RENDERING-COMMAND CLEAR ...) ; processing (DEFINE-RENDERING-COMMAND CLEAR-ACCUM ...) ; processing (DEFINE-RENDERING-COMMAND CLEAR-COLOR ...) ; processing (DEFINE-RENDERING-COMMAND CLEAR-DEPTH ...) ; processing (DEFINE-RENDERING-COMMAND CLEAR-INDEX ...) ; processing (DEFINE-RENDERING-COMMAND CLEAR-STENCIL ...) ; processing (DEFINE-RENDERING-COMMAND CLIP-PLANE ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-3B ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-3D ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-3F ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-3I ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-3S ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-3UB ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-3UI ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-3US ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-4B ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-4D ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-4F ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-4I ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-4S ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-4UB ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-4UI ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-4US ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-MASK ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-MATERIAL ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-TABLE-PARAMETER-FV ...) ; processing (DEFINE-RENDERING-COMMAND COLOR-TABLE-PARAMETER-IV ...) ; processing (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-F ...) ; processing (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-FV ...) ; processing (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-I ...) ; processing (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-IV ...) ; processing (DEFINE-RENDERING-COMMAND COPY-COLOR-SUB-TABLE ...) ; processing (DEFINE-RENDERING-COMMAND COPY-COLOR-TABLE ...) ; processing (DEFINE-RENDERING-COMMAND COPY-CONVOLUTION-FILTER-ID ...) ; processing (DEFINE-RENDERING-COMMAND COPY-CONVOLUTION-FILTER-2D ...) ; processing (DEFINE-RENDERING-COMMAND COPY-PIXELS ...) ; processing (DEFINE-RENDERING-COMMAND COPY-TEX-IMAGE-1D ...) ; processing (DEFINE-RENDERING-COMMAND COPY-TEX-IMAGE-2D ...) ; processing (DEFINE-RENDERING-COMMAND COPY-TEX-SUB-IMAGE-1D ...) ; processing (DEFINE-RENDERING-COMMAND COPY-TEX-SUB-IMAGE-2D ...) ; processing (DEFINE-RENDERING-COMMAND COPY-TEX-SUB-IMAGE-3D ...) ; processing (DEFINE-RENDERING-COMMAND CULL-FACE ...) ; processing (DEFINE-RENDERING-COMMAND DEPTH-FUNC ...) ; processing (DEFINE-RENDERING-COMMAND DEPTH-MASK ...) ; processing (DEFINE-RENDERING-COMMAND DEPTH-RANGE ...) ; processing (DEFINE-RENDERING-COMMAND DRAW-BUFFER ...) ; processing (DEFINE-RENDERING-COMMAND EDGE-FLAG-V ...) ; processing (DEFINE-RENDERING-COMMAND END ...) ; processing (DEFINE-RENDERING-COMMAND EVAL-COORD-1D ...) ; processing (DEFINE-RENDERING-COMMAND EVAL-COORD-1F ...) ; processing (DEFINE-RENDERING-COMMAND EVAL-COORD-2D ...) ; processing (DEFINE-RENDERING-COMMAND EVAL-COORD-2F ...) ; processing (DEFINE-RENDERING-COMMAND EVAL-MESH-1 ...) ; processing (DEFINE-RENDERING-COMMAND EVAL-MESH-2 ...) ; processing (DEFINE-RENDERING-COMMAND EVAL-POINT-1 ...) ; processing (DEFINE-RENDERING-COMMAND EVAL-POINT-2 ...) ; processing (DEFINE-RENDERING-COMMAND FOG-F ...) ; processing (DEFINE-RENDERING-COMMAND FOG-FV ...) ; processing (DEFINE-RENDERING-COMMAND FOG-I ...) ; processing (DEFINE-RENDERING-COMMAND FOG-IV ...) ; processing (DEFINE-RENDERING-COMMAND FRONT-FACE ...) ; processing (DEFINE-RENDERING-COMMAND FRUSTUM ...) ; processing (DEFINE-RENDERING-COMMAND HINT ...) ; processing (DEFINE-RENDERING-COMMAND HISTOGRAM ...) ; processing (DEFINE-RENDERING-COMMAND INDEX-MASK ...) ; processing (DEFINE-RENDERING-COMMAND INDEX-D ...) ; processing (DEFINE-RENDERING-COMMAND INDEX-F ...) ; processing (DEFINE-RENDERING-COMMAND INDEX-I ...) ; processing (DEFINE-RENDERING-COMMAND INDEX-S ...) ; processing (DEFINE-RENDERING-COMMAND INDEX-UB ...) ; processing (DEFINE-RENDERING-COMMAND INIT-NAMES ...) ; processing (DEFINE-RENDERING-COMMAND LIGHT-MODEL-F ...) ; processing (DEFINE-RENDERING-COMMAND LIGHT-MODEL-FV ...) ; processing (DEFINE-RENDERING-COMMAND LIGHT-MODEL-I ...) ; processing (DEFINE-RENDERING-COMMAND LIGHT-MODEL-IV ...) ; processing (DEFINE-RENDERING-COMMAND LIGHT-F ...) ; processing (DEFINE-RENDERING-COMMAND LIGHT-FV ...) ; processing (DEFINE-RENDERING-COMMAND LIGHT-I ...) ; processing (DEFINE-RENDERING-COMMAND LIGHT-IV ...) ; processing (DEFINE-RENDERING-COMMAND LINE-STIPPLE ...) ; processing (DEFINE-RENDERING-COMMAND LINE-WIDTH ...) ; processing (DEFINE-RENDERING-COMMAND LIST-BASE ...) ; processing (DEFINE-RENDERING-COMMAND LOAD-IDENTITY ...) ; processing (DEFINE-RENDERING-COMMAND LOAD-MATRIX-D ...) ; processing (DEFINE-RENDERING-COMMAND LOAD-MATRIX-F ...) ; processing (DEFINE-RENDERING-COMMAND LOAD-NAME ...) ; processing (DEFINE-RENDERING-COMMAND LOGIC-OP ...) ; processing (DEFINE-RENDERING-COMMAND MAP-GRID-1D ...) ; processing (DEFINE-RENDERING-COMMAND MAP-GRID-1F ...) ; processing (DEFINE-RENDERING-COMMAND MAP-GRID-2D ...) ; processing (DEFINE-RENDERING-COMMAND MAP-GRID-2F ...) ; processing (DEFINE-RENDERING-COMMAND MATERIAL-F ...) ; processing (DEFINE-RENDERING-COMMAND MATERIAL-FV ...) ; processing (DEFINE-RENDERING-COMMAND MATERIAL-I ...) ; processing (DEFINE-RENDERING-COMMAND MATERIAL-IV ...) ; processing (DEFINE-RENDERING-COMMAND MATRIX-MODE ...) ; processing (DEFINE-RENDERING-COMMAND MINMAX ...) ; processing (DEFINE-RENDERING-COMMAND MULT-MATRIX-D ...) ; processing (DEFINE-RENDERING-COMMAND MULT-MATRIX-F ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1D-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1F-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1I-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1S-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2D-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2F-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2I-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2S-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3D-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3F-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3I-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3S-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4D-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4F-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4I-ARB ...) ; processing (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4S-ARB ...) ; processing (DEFINE-RENDERING-COMMAND NORMAL-3B ...) ; processing (DEFINE-RENDERING-COMMAND NORMAL-3D ...) ; processing (DEFINE-RENDERING-COMMAND NORMAL-3F ...) ; processing (DEFINE-RENDERING-COMMAND NORMAL-3I ...) ; processing (DEFINE-RENDERING-COMMAND NORMAL-3S ...) ; processing (DEFINE-RENDERING-COMMAND ORTHO ...) ; processing (DEFINE-RENDERING-COMMAND PASS-THROUGH ...) ; processing (DEFINE-RENDERING-COMMAND PIXEL-TRANSFER-F ...) ; processing (DEFINE-RENDERING-COMMAND PIXEL-TRANSFER-I ...) ; processing (DEFINE-RENDERING-COMMAND PIXEL-ZOOM ...) ; processing (DEFINE-RENDERING-COMMAND POINT-SIZE ...) ; processing (DEFINE-RENDERING-COMMAND POLYGON-MODE ...) ; processing (DEFINE-RENDERING-COMMAND POLYGON-OFFSET ...) ; processing (DEFINE-RENDERING-COMMAND POP-ATTRIB ...) ; processing (DEFINE-RENDERING-COMMAND POP-MATRIX ...) ; processing (DEFINE-RENDERING-COMMAND POP-NAME ...) ; processing (DEFINE-RENDERING-COMMAND PRIORITIZE-TEXTURES ...) ; processing (DEFINE-RENDERING-COMMAND PUSH-ATTRIB ...) ; processing (DEFINE-RENDERING-COMMAND PUSH-MATRIX ...) ; processing (DEFINE-RENDERING-COMMAND PUSH-NAME ...) ; processing (DEFINE-RENDERING-COMMAND RASTER-POS-2D ...) ; processing (DEFINE-RENDERING-COMMAND RASTER-POS-2F ...) ; processing (DEFINE-RENDERING-COMMAND RASTER-POS-2I ...) ; processing (DEFINE-RENDERING-COMMAND RASTER-POS-2S ...) ; processing (DEFINE-RENDERING-COMMAND RASTER-POS-3D ...) ; processing (DEFINE-RENDERING-COMMAND RASTER-POS-3F ...) ; processing (DEFINE-RENDERING-COMMAND RASTER-POS-3I ...) ; processing (DEFINE-RENDERING-COMMAND RASTER-POS-3S ...) ; processing (DEFINE-RENDERING-COMMAND RASTER-POS-4D ...) ; processing (DEFINE-RENDERING-COMMAND RASTER-POS-4F ...) ; processing (DEFINE-RENDERING-COMMAND RASTER-POS-4I ...) ; processing (DEFINE-RENDERING-COMMAND RASTER-POS-4S ...) ; processing (DEFINE-RENDERING-COMMAND READ-BUFFER ...) ; processing (DEFINE-RENDERING-COMMAND RECT-D ...) ; processing (DEFINE-RENDERING-COMMAND RECT-F ...) ; processing (DEFINE-RENDERING-COMMAND RECT-I ...) ; processing (DEFINE-RENDERING-COMMAND RECT-S ...) ; processing (DEFINE-RENDERING-COMMAND RESET-HISTOGRAM ...) ; processing (DEFINE-RENDERING-COMMAND RESET-MINMAX ...) ; processing (DEFINE-RENDERING-COMMAND ROTATE-D ...) ; processing (DEFINE-RENDERING-COMMAND ROTATE-F ...) ; processing (DEFINE-RENDERING-COMMAND SCALE-D ...) ; processing (DEFINE-RENDERING-COMMAND SCALE-F ...) ; processing (DEFINE-RENDERING-COMMAND SCISSOR ...) ; processing (DEFINE-RENDERING-COMMAND SHADE-MODEL ...) ; processing (DEFINE-RENDERING-COMMAND STENCIL-FUNC ...) ; processing (DEFINE-RENDERING-COMMAND STENCIL-MASK ...) ; processing (DEFINE-RENDERING-COMMAND STENCIL-OP ...) ; processing (DEFINE-RENDERING-COMMAND TEX-ENV-F ...) ; processing (DEFINE-RENDERING-COMMAND TEX-ENV-FV ...) ; processing (DEFINE-RENDERING-COMMAND TEX-ENV-I ...) ; processing (DEFINE-RENDERING-COMMAND TEX-ENV-IV ...) ; processing (DEFINE-RENDERING-COMMAND TEX-GEN-D ...) ; processing (DEFINE-RENDERING-COMMAND TEX-GEN-DV ...) ; processing (DEFINE-RENDERING-COMMAND TEX-GEN-F ...) ; processing (DEFINE-RENDERING-COMMAND TEX-GEN-FV ...) ; processing (DEFINE-RENDERING-COMMAND TEX-GEN-I ...) ; processing (DEFINE-RENDERING-COMMAND TEX-GEN-IV ...) ; processing (DEFINE-RENDERING-COMMAND TEX-PARAMETER-F ...) ; processing (DEFINE-RENDERING-COMMAND TEX-PARAMETER-FV ...) ; processing (DEFINE-RENDERING-COMMAND TEX-PARAMETER-I ...) ; processing (DEFINE-RENDERING-COMMAND TEX-PARAMETER-IV ...) ; processing (DEFINE-RENDERING-COMMAND TRANSLATE-D ...) ; processing (DEFINE-RENDERING-COMMAND TRANSLATE-F ...) ; processing (DEFINE-RENDERING-COMMAND VERTEX-2D ...) ; processing (DEFINE-RENDERING-COMMAND VERTEX-2F ...) ; processing (DEFINE-RENDERING-COMMAND VERTEX-2I ...) ; processing (DEFINE-RENDERING-COMMAND VERTEX-2S ...) ; processing (DEFINE-RENDERING-COMMAND VERTEX-3D ...) ; processing (DEFINE-RENDERING-COMMAND VERTEX-3F ...) ; processing (DEFINE-RENDERING-COMMAND VERTEX-3I ...) ; processing (DEFINE-RENDERING-COMMAND VERTEX-3S ...) ; processing (DEFINE-RENDERING-COMMAND VERTEX-4D ...) ; processing (DEFINE-RENDERING-COMMAND VERTEX-4F ...) ; processing (DEFINE-RENDERING-COMMAND VERTEX-4I ...) ; processing (DEFINE-RENDERING-COMMAND VERTEX-4S ...) ; processing (DEFINE-RENDERING-COMMAND VIEWPORT ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/gl-tmpBO0TUGLK.fasl ; compilation finished in 0:00:04.504 ; compiling file "/usr/share/common-lisp/source/clx/dpms.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (DEFPACKAGE :DPMS ...) ; processing (IN-PACKAGE :DPMS) ; processing (DEFINE-EXTENSION "DPMS") ; processing (DEFMACRO DPMS-OPCODE ...) ; processing (DEFCONSTANT +GET-VERSION+ ...) ; processing (DEFCONSTANT +CAPABLE+ ...) ; processing (DEFCONSTANT +GET-TIMEOUTS+ ...) ; processing (DEFCONSTANT +SET-TIMEOUTS+ ...) ; processing (DEFCONSTANT +ENABLE+ ...) ; processing (DEFCONSTANT +DISABLE+ ...) ; processing (DEFCONSTANT +FORCE-LEVEL+ ...) ; processing (DEFCONSTANT +INFO+ ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/dpms-tmpIIXPIQNW.fasl ; compilation finished in 0:00:00.396 ; compiling file "/usr/share/common-lisp/source/clx/xtest.lisp" (written 14 MAY 2016 06:13:15 AM): ; processing (DEFPACKAGE :XTEST ...) ; processing (IN-PACKAGE :XTEST) ; processing (DEFINE-EXTENSION "XTEST") ; processing (DEFMACRO OPCODE ...) ; processing (DEFCONSTANT +MAJOR-VERSION+ ...) ; processing (DEFCONSTANT +MINOR-VERSION+ ...) ; processing (DEFCONSTANT +NONE+ ...) ; processing (DEFCONSTANT +CURRENT-CURSOR+ ...) ; processing (DEFCONSTANT +GET-VERSION+ ...) ; processing (DEFCONSTANT +COMPARE-CURSOR+ ...) ; processing (DEFCONSTANT +FAKE-INPUT+ ...) ; processing (DEFCONSTANT +GRAB-CONTROL+ ...) ; processing (DEFCONSTANT +FAKE-KEY-PRESS+ ...) ; processing (DEFCONSTANT +FAKE-KEY-RELEASE+ ...) ; processing (DEFCONSTANT +FAKE-BUTTON-PRESS+ ...) ; processing (DEFCONSTANT +FAKE-BUTTON-RELEASE+ ...) ; processing (DEFCONSTANT +FAKE-MOTION-NOTIFY+ ...) ; processing (DEFUN SET-GC-CONTEXT-OF-GC ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/xtest-tmpOHM494YR.fasl ; compilation finished in 0:00:00.324 ; compiling file "/usr/share/common-lisp/source/clx/screensaver.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (EXPORT (QUOTE #) ...) ; processing (DEFINE-EXTENSION "MIT-SCREEN-SAVER") ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFUN SCREEN-SAVER-GET-IDLE ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/screensaver-tmpOVFB07XF.fasl ; compilation finished in 0:00:00.104 ; compiling file "/usr/share/common-lisp/source/clx/xinerama.lisp" (written 14 MAY 2016 06:13:15 AM): ; processing (DEFPACKAGE "XLIB.XINERAMA" ...) ; processing (IN-PACKAGE "XINERAMA") ; processing (DEFINE-EXTENSION "XINERAMA") ; processing (DEFUN XINERAMA-OPCODE ...) ; processing (DEFCONSTANT +MAJOR-VERSION+ ...) ; processing (DEFCONSTANT +MINOR-VERSION+ ...) ; processing (DEFCONSTANT +GET-VERSION+ ...) ; processing (DEFCONSTANT +GET-STATE+ ...) ; processing (DEFCONSTANT +GET-SCREEN-COUNT+ ...) ; processing (DEFCONSTANT +GET-SCREEN-SIZE+ ...) ; processing (DEFCONSTANT +IS-ACTIVE+ ...) ; processing (DEFCONSTANT +QUERY-SCREENS+ ...) ; processing (DEFSTRUCT SCREEN-INFO ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (INCF XLIB.XINERAMA::INDEX 8) ; ; note: doing signed word to integer coercion (cost 20) to INDEX ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/xinerama-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.236 ; compiling file "/usr/share/common-lisp/source/clx/demo/bezier.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (EXPORT (QUOTE DRAW-CURVES)) ; processing (DEFINE-EXTENSION "bezier") ; processing (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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/demo/bezier-tmp4QIPRMOF.fasl ; compilation finished in 0:00:00.056 ; compiling file "/usr/share/common-lisp/source/clx/demo/beziertest.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFUN BEZIER-TEST ...) ; file: /usr/share/common-lisp/source/clx/demo/beziertest.lisp ; in: DEFUN BEZIER-TEST ; (ZEROP COUNT) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/demo/beziertest-tmpGW0QV22K.fasl ; compilation finished in 0:00:00.096 ; compiling file "/usr/share/common-lisp/source/clx/demo/clclock.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (DEFPACKAGE "XCLCLOCK" ...) ; processing (IN-PACKAGE "XCLCLOCK") ; processing (DEFVAR *DISPLAY* ...) ; processing (DEFVAR *SCREEN* ...) ; processing (DEFVAR *COLORMAP* ...) ; processing (DEFVAR *FONT* ...) ; processing (DEFVAR *WIN*) ; processing (MULTIPLE-VALUE-BIND (WIDTH ASCENT) ...) ; processing (DEFVAR *GCONTEXT* ...) ; processing (DEFVAR *BACKGROUND* ...) ; processing (DEFVAR *PALETTE* ...) ; processing (DEFVAR *BLACK* ...) ; processing (DEFUN ROMANIZE ...) ; processing (DEFUN CLOCK-STRING ...) ; processing (DEFUN UPDATE-CLOCKFACE ...) ; processing (DEFUN CLOCK ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/demo/clclock-tmp2K9J0HSR.fasl ; compilation finished in 0:00:00.036 ; compiling file "/usr/share/common-lisp/source/clx/demo/clipboard.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (DEFPACKAGE "CLIPBOARD" ...) ; processing (IN-PACKAGE "CLIPBOARD") ; processing (DEFVAR *WINDOW*) ; processing (DEFVAR *TIME*) ; processing (DEFVAR *DISPLAY*) ; processing (DEFUN OWNSELECT ...) ; processing (DEFUN DESELECT ...) ; processing (DEFUN ASK-PASTE ...) ; processing (DEFUN RECV-PASTE ...) ; processing (DEFUN SEND-COPY ...) ; processing (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) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> XLIB:EVENT-COND LET XLIB::EVENT-LOOP LET XLIB:WITH-EVENT-QUEUE MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK 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) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> XLIB:EVENT-COND LET XLIB::EVENT-LOOP LET XLIB:WITH-EVENT-QUEUE MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK 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) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ==> ; (ZEROP #:G0) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/demo/clipboard-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.260 ; compiling file "/usr/share/common-lisp/source/clx/demo/clx-demos.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (DEFPACKAGE :DEMOS ...) ; processing (IN-PACKAGE :DEMOS) ; processing (DEFPARAMETER *DEMOS* ...) ; processing (DEFVAR *DISPLAY* ...) ; processing (DEFVAR *SCREEN* ...) ; processing (DEFVAR *ROOT* ...) ; processing (DEFVAR *BLACK-PIXEL* ...) ; processing (DEFVAR *WHITE-PIXEL* ...) ; processing (DEFVAR *WINDOW* ...) ; processing (DEFMACRO DEFDEMO ...) ; processing (DEFUN DO-ALL-DEMOS ...) ; processing (DEFVAR *NAME-TO-FUNCTION* ...) ; processing (DEFVAR *KEYWORD-PACKAGE* ...) ; processing (DEFUN DEMO ...) ; processing (DEFUN FULL-WINDOW-STATE ...) ; processing (DEFUN GREYNETIC ...) ; processing (DEFVAR *GREYNETIC-PIXMAP-ARRAY* ...) ; processing (DEFUN GREYNETIC-PIXMAPPER ...) ; processing (DEFSTRUCT QIX ...) ; processing (DEFUN CONSTRUCT-QIX ...) ; processing (DEFUN MAKE-CIRCULAR-LIST ...) ; processing (DEFUN QIX ...) ; processing (DEFDEMO QIX-DEMO ...) ; processing (DEFCONSTANT D360 ...) ; processing (DEFCONSTANT D270 ...) ; processing (DEFCONSTANT D180 ...) ; processing (DEFCONSTANT D90 ...) ; processing (DEFCONSTANT VECMAX ...) ; processing (DEFPARAMETER SIN-ARRAY ...) ; processing (DEFMACRO PSIN ...) ; processing (DEFMACRO PCOS ...) ; processing (DEFMACRO HIGH-16BITS-* ...) ; processing (DEFUN COMPLETE ...) ; processing (DEFPARAMETER CONTINUOUS ...) ; processing (DEFPARAMETER STYINC ...) ; processing (DEFPARAMETER PETINC ...) ; processing (DEFPARAMETER SCALFAC-FAC ...) ; processing (DEFUN PETAL ...) ; processing (DEFDEMO PETAL-DEMO ...) ; processing (DEFPARAMETER DISK-THICKNESS ...) ; processing (DEFPARAMETER DISK-SPACING ...) ; processing (DEFVAR *HORIZONTAL-VELOCITY* ...) ; processing (DEFVAR *VERTICAL-VELOCITY* ...) ; processing (DEFVAR *HANOI-WINDOW* ...) ; processing (DEFVAR *HANOI-WINDOW-HEIGHT* ...) ; processing (DEFVAR *TRANSFER-HEIGHT* ...) ; processing (DEFVAR *HANOI-GCONTEXT* ...) ; processing (DEFSTRUCT DISK ...) ; processing (DEFSTRUCT NEEDLE ...) ; processing (DEFUN NEEDLE-TOP-HEIGHT ...) ; processing (DEFVAR AVAILABLE-DISKS ...) ; processing (DEFVAR NEEDLE-1 ...) ; processing (DEFVAR NEEDLE-2 ...) ; processing (DEFVAR NEEDLE-3 ...) ; processing (DEFMACRO INVERT-RECTANGLE ...) ; processing (DEFMACRO UPDATE-SCREEN ...) ; processing (DEFUN SLIDE-UP ...) ; processing (DEFUN SLIDE-DOWN ...) ; processing (DEFUN LIFT-DISK ...) ; processing (DEFUN DROP-DISK ...) ; processing (DEFUN DROP-INITIAL-DISK ...) ; processing (DEFUN SLIDE-RIGHT ...) ; processing (DEFUN SLIDE-LEFT ...) ; processing (DEFUN TRANSFER-DISK ...) ; processing (DEFUN MOVE-ONE-DISK ...) ; processing (DEFUN MOVE-N-DISKS ...) ; processing (DEFUN HANOI ...) ; processing (DEFDEMO SLOW-HANOI-DEMO ...) ; processing (DEFDEMO FAST-HANOI-DEMO ...) ; processing (DEFUN BOUNCE-WINDOW ...) ; processing (DEFDEMO SHOVE-BOUNCE-DEMO ...) ; processing (DEFDEMO BOUNCE-DEMO ...) ; processing (DEFUN RECURRENCE ...) ; processing (DEFUN DRAW-PPICT ...) ; processing (DEFDEMO RECURRENCE-DEMO ...) ; processing (DEFMACRO RECT-X ...) ; processing (DEFMACRO RECT-Y ...) ; processing (DEFMACRO RECT-WIDTH ...) ; processing (DEFMACRO RECT-HEIGHT ...) ; processing (DEFUN PLAID ...) ; processing (DEFDEMO PLAID-DEMO ...) ; processing (DEFVAR *BALL-SIZE-X* ...) ; processing (DEFVAR *BALL-SIZE-Y* ...) ; processing (DEFMACRO XOR-BALL ...) ; processing (DEFCONSTANT BBALL-GRAVITY ...) ; processing (DEFCONSTANT MAXIMUM-X-DRIFT ...) ; processing (DEFVAR *MAX-BBALL-X*) ; processing (DEFVAR *MAX-BBALL-Y*) ; processing (DEFSTRUCT BALL ...) ; processing (DEFUN GET-BOUNCE-IMAGE ...) ; processing (DEFUN BOUNCE-1-BALL ...) ; processing (DEFUN BOUNCE-BALLS ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/demo/clx-demos-tmp63LQ7EX6.fasl ; compilation finished in 0:00:01.152 ; compiling file "/usr/share/common-lisp/source/clx/demo/gl-test.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (DEFPACKAGE :GL-TEST ...) ; processing (IN-PACKAGE :GL-TEST) ; processing (DEFUN TEST ...) ; processing (DEFUN NO-FLOATS ...) ; processing (DEFUN ANIM ...) ; processing (DEFUN ANIM/LIST ...) ; processing (DEFCONSTANT +PI+ ...) ; processing (DECLAIM (TYPE SINGLE-FLOAT ...)) ; processing (DEFUN GEAR ...) ; processing (DEFUN DRAW ...) ; processing (DEFUN RESHAPE ...) ; processing (DEFUN INIT ...) ; processing (DEFUN GEARS* ...) ; processing (DEFUN GEARS ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/demo/gl-test-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.552 ; compiling file "/usr/share/common-lisp/source/clx/demo/mandel.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (DEFPACKAGE "XMANDEL" ...) ; processing (IN-PACKAGE "XMANDEL") ; processing (DEFVAR *DISPLAY* ...) ; processing (DEFVAR *SCREEN* ...) ; processing (DEFVAR *BACKING-STORE* ...) ; processing (DEFVAR *COLMAP* ...) ; processing (DEFVAR *HELPWIN* ...) ; processing (DEFVAR *ZOOM-TABLE* ...) ; processing (DEFVAR *ZOOMCOLMAP* ...) ; processing (DEFVAR *WHITE* ...) ; processing (DEFVAR *WINMAP* ...) ; processing (DEFVAR *TEXTMAP* ...) ; processing (DEFVAR *MODSTATE* ...) ; processing (DECLAIM (LIST *MODSTATE*)) ; processing (DEFUN MAKE-SHIFT-FOO ...) ; processing (DEFSTRUCT (MANDEL-SQUARE #) ...) ; processing (DEFUN MAKE-QUEUE ...) ; processing (DEFCLASS QUEUE ...) ; processing (DEFCLASS OUT-QUEUE ...) ; processing (DEFVAR *SYSQUEUE* ...) ; processing (DEFGENERIC EMPTY-P ...) ; processing (DEFGENERIC EMPTY ...) ; processing (DEFGENERIC EMPTY-WIN ...) ; processing (DEFGENERIC ENQUEUE ...) ; processing (DEFGENERIC QUEUE-PUSH ...) ; processing (DEFGENERIC DEQUEUE ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD EMPTY-P ...) ; processing (DEFMETHOD EMPTY ...) ; processing (DEFMETHOD EMPTY ...) ; processing (DEFMETHOD EMPTY ...) ; processing (DEFMETHOD EMPTY-WIN ...) ; processing (DEFMETHOD ENQUEUE ...) ; processing (DEFMETHOD ENQUEUE ...) ; processing (DEFMETHOD QUEUE-PUSH ...) ; processing (DEFMETHOD QUEUE-PUSH ...) ; processing (DEFMETHOD DEQUEUE ...) ; processing (DEFMETHOD DEQUEUE ...) ; processing (DEFUN ITER ...) ; processing (DEFCLASS ZOOMER ...) ; processing (DEFUN INIT-COLOURS ...) ; processing (DEFMACRO MODCOL ...) ; processing (DEFUN PLOT ...) ; processing (DEFUN DISPLAY-HELP ...) ; file: /usr/share/common-lisp/source/clx/demo/mandel.lisp ; in: DEFUN DISPLAY-HELP ; (LET ((XMANDEL::FIXED (XLIB:LIST-FONTS XMANDEL::*DISPLAY* "fixed")) ; XMANDEL::FONT) ; (IF XMANDEL::FIXED ; (SETF XMANDEL::FONT (XLIB:OPEN-FONT XMANDEL::*DISPLAY* "fixed")) ; (ERROR "Could not open suitable font")) ; (SETF (XLIB:GCONTEXT-FONT XMANDEL::*TEXTMAP*) ; (IF (CONSP XMANDEL::FIXED) ; (CAR XMANDEL::FIXED) ; XMANDEL::FIXED))) ; ; caught STYLE-WARNING: ; The variable FONT is assigned but never read. ; processing (DEFUN REPAINT-WINDOW ...) ; processing (DEFUN FILL-SQUARE ...) ; processing (DEFUN MAKE-SQUARE ...) ; processing (DEFUN MANDEL-WIN ...) ; processing (DEFUN NEW-WINDOW ...) ; processing (DEFUN FILL-SQUARE-P ...) ; processing (DEFMACRO Z ...) ; processing (DEFUN DRAW-SQUARE ...) ; processing (DEFUN CREATE-ZOOM ...) ; processing (DEFUN UPDATE-ZOOM ...) ; processing (DEFUN FINISH-ZOOM ...) ; processing (DEFUN DO-ZOOM ...) ; processing (DEFUN QUIT-WINDOW ...) ; processing (DEFUN EVENT-LOOP ...) ; file: /usr/share/common-lisp/source/clx/demo/mandel.lisp ; in: DEFUN EVENT-LOOP ; (1- (+ XMANDEL::X XMANDEL::WIDTH)) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER -9223372036854775809 9223372036854775805) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (1- (+ XMANDEL::Y XMANDEL::HEIGHT)) ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER -9223372036854775809 9223372036854775805) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; etc. ; (1- (+ XMANDEL::X XMANDEL::WIDTH)) ; ; note: doing signed word to integer coercion (cost 20) ; (1- (+ XMANDEL::Y XMANDEL::HEIGHT)) ; ; note: doing signed word to integer coercion (cost 20) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/demo/mandel-tmpH7D4HL98.fasl ; compilation finished in 0:00:00.836 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/demo/menu.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFSTRUCT (MENU) ...) ; processing (DEFUN CREATE-MENU ...) ; processing (DEFUN MENU-SET-ITEM-LIST ...) ; processing (DEFPARAMETER *MENU-ITEM-MARGIN* ...) ; processing (DEFUN MENU-RECOMPUTE-GEOMETRY ...) ; processing (DEFUN MENU-REFRESH ...) ; processing (DEFUN MENU-CHOOSE ...) ; file: /usr/share/common-lisp/source/clx/demo/menu.lisp ; in: DEFUN MENU-CHOOSE ; (ZEROP COUNT) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (ASSOC XLIB::EVENT-WINDOW XLIB::ITEMS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not 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). ; (EQL XLIB::MW XLIB:WINDOW) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; (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). ; (EQL XLIB::MW XLIB:WINDOW) ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; etc. ; processing (DEFUN MENU-HIGHLIGHT-ITEM ...) ; processing (DEFUN MENU-UNHIGHLIGHT-ITEM ...) ; processing (DEFUN MENU-PRESENT ...) ; processing (DEFUN JUST-SAY-LISP ...) ; processing (DEFUN POP-UP ...) ; file: /usr/share/common-lisp/source/clx/demo/menu.lisp ; in: DEFUN POP-UP ; (ZEROP COUNT) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/demo/menu-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.392 ; compiling file "/usr/share/common-lisp/source/clx/demo/zoid.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (EXPORT (QUOTE #)) ; processing (DEFINE-EXTENSION "ZoidExtension") ; processing (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 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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; processing (DEFINE-GCONTEXT-ACCESSOR TRAPEZOID-ALIGNMENT ...) ; processing (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 (BYTE 16 0) (1+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER))) ; ; note: unable to ; open-code float conversion of second argument in mixed FLOAT-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code float conversion of second argument in mixed (COMPLEX FLOAT)-RATIONAL numeric operation ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do full call ; 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). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/demo/zoid-tmpLM57P5P.fasl ; compilation finished in 0:00:00.128 ; compiling file "/usr/share/common-lisp/source/clx/test/image.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *IMAGE-TEST-HOST* ...) ; processing (DEFVAR *IMAGE-TEST-NIMAGES* ...) ; processing (DEFVAR *IMAGE-TEST-COPY* ...) ; processing (DEFVAR *IMAGE-TEST-COPY-RANDOM-SUBIMAGE* ...) ; processing (DEFVAR *IMAGE-TEST-PUT-RANDOM-SUBIMAGE* ...) ; processing (DEFVAR *IMAGE-TEST-GET-IMAGE-RESULT-TYPE-CHOICES* ...) ; processing (DEFVAR *IMAGE-TEST-GET-IMAGE-IMAGE-X-FORMAT-CHOICES* ...) ; processing (DEFUN IMAGE-TEST ...) ; processing (DEFUN IMAGE-TEST-CHOOSE ...) ; processing (DEFUN IMAGE-TEST-GET-IMAGE ...) ; processing (DEFUN IMAGE-TEST-SUBIMAGE-PARAMETERS ...) ; processing (DEFUN IMAGE-TEST-COPY-IMAGE ...) ; processing (DEFUN IMAGE-TEST-PUT-IMAGE ...) ; processing (DEFUN IMAGE-INFO ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/test/image-tmpZE69DN33.fasl ; compilation finished in 0:00:00.144 ; compiling file "/usr/share/common-lisp/source/clx/test/trapezoid.lisp" (written 14 MAY 2016 06:13:14 AM): ; processing (IN-PACKAGE :XLIB) ; processing (DEFUN ZOID-TEST ...) ; file: /usr/share/common-lisp/source/clx/test/trapezoid.lisp ; in: DEFUN ZOID-TEST ; (ZEROP COUNT) ; ; 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 ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/usr/share/common-lisp/source/clx/test/trapezoid-tmpG8099TO3.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/stumpwm-1.0.0/package.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (DEFPACKAGE :STUMPWM ...) ; processing (DEFPACKAGE :STUMPWM-USER ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/package-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/stumpwm-1.0.0/primitives.lisp" (written 13 JUL 2021 11:43:28 PM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (PUSHNEW :CALL-IN-MAIN-THREAD ...) ; processing (DEFVAR *SUPPRESS-ABORT-MESSAGES* ...) ; processing (DEFVAR *TIMEOUT-WAIT* ...) ; processing (DEFVAR *TIMEOUT-FRAME-INDICATOR-WAIT* ...) ; processing (DEFVAR *FRAME-INDICATOR-TIMER* ...) ; processing (DEFVAR *FRAME-INDICATOR-TEXT* ...) ; processing (DEFVAR *SUPPRESS-FRAME-INDICATOR* ...) ; processing (DEFVAR *SUPPRESS-WINDOW-PLACEMENT-INDICATOR* ...) ; processing (DEFVAR *MESSAGE-WINDOW-TIMER* ...) ; processing (DEFVAR *GRAB-POINTER-COUNT* ...) ; processing (DEFVAR *GRAB-POINTER-FONT* ...) ; processing (DEFVAR *GRAB-POINTER-CHARACTER* ...) ; processing (DEFVAR *GRAB-POINTER-CHARACTER-MASK* ...) ; processing (DEFVAR *GRAB-POINTER-FOREGROUND* ...) ; processing (DEFVAR *GRAB-POINTER-BACKGROUND* ...) ; processing (DEFVAR *COMMAND-MODE-START-HOOK* ...) ; processing (DEFVAR *COMMAND-MODE-END-HOOK* ...) ; processing (DEFVAR *URGENT-WINDOW-HOOK* ...) ; processing (DEFVAR *MAP-WINDOW-HOOK* ...) ; processing (DEFVAR *UNMAP-WINDOW-HOOK* ...) ; processing (DEFVAR *NEW-WINDOW-HOOK* ...) ; processing (DEFVAR *DESTROY-WINDOW-HOOK* ...) ; processing (DEFVAR *FOCUS-WINDOW-HOOK* ...) ; processing (DEFVAR *PLACE-WINDOW-HOOK* ...) ; processing (DEFVAR *START-HOOK* ...) ; processing (DEFVAR *QUIT-HOOK* ...) ; processing (DEFVAR *RESTART-HOOK* ...) ; processing (DEFVAR *INTERNAL-LOOP-HOOK* ...) ; processing (DEFVAR *EVENT-PROCESSING-HOOK* ...) ; processing (DEFVAR *FOCUS-FRAME-HOOK* ...) ; processing (DEFVAR *NEW-FRAME-HOOK* ...) ; processing (DEFVAR *SPLIT-FRAME-HOOK* ...) ; processing (DEFVAR *MESSAGE-HOOK* ...) ; processing (DEFVAR *TOP-LEVEL-ERROR-HOOK* ...) ; processing (DEFVAR *FOCUS-GROUP-HOOK* ...) ; processing (DEFVAR *KEY-PRESS-HOOK* ...) ; processing (DEFVAR *ROOT-CLICK-HOOK* ...) ; processing (DEFVAR *NEW-MODE-LINE-HOOK* ...) ; processing (DEFVAR *DESTROY-MODE-LINE-HOOK* ...) ; processing (DEFVAR *MODE-LINE-CLICK-HOOK* ...) ; processing (DEFVAR *PRE-COMMAND-HOOK* ...) ; processing (DEFVAR *POST-COMMAND-HOOK* ...) ; processing (DEFVAR *DISPLAY* ...) ; processing (DEFVAR *SHELL-PROGRAM* ...) ; processing (DEFVAR *MAXSIZE-BORDER-WIDTH* ...) ; processing (DEFVAR *TRANSIENT-BORDER-WIDTH* ...) ; processing (DEFVAR *NORMAL-BORDER-WIDTH* ...) ; processing (DEFVAR *TEXT-COLOR* ...) ; processing (DEFVAR *MENU-MAXIMUM-HEIGHT* ...) ; processing (DEFVAR *MENU-SCROLLING-STEP* ...) ; processing (DEFPARAMETER +NETWM-SUPPORTED+ ...) ; processing (DEFPARAMETER +NETWM-ALLOWED-ACTIONS+ ...) ; processing (DEFPARAMETER +NETWM-WINDOW-TYPES+ ...) ; processing (DEFCONSTANT +WITHDRAWN-STATE+ ...) ; processing (DEFCONSTANT +NORMAL-STATE+ ...) ; processing (DEFCONSTANT +ICONIC-STATE+ ...) ; processing (DEFVAR *WINDOW-EVENTS* ...) ; processing (DEFVAR *WINDOW-PARENT-EVENTS* ...) ; processing (DEFVAR *MESSAGE-WINDOW-PADDING* ...) ; processing (DEFVAR *MESSAGE-WINDOW-GRAVITY* ...) ; processing (DEFVAR *EDITOR-BINDINGS* ...) ; processing (DEFVAR *INPUT-WINDOW-GRAVITY* ...) ; processing (DEFPARAMETER +DEFAULT-FOREGROUND-COLOR+ ...) ; processing (DEFPARAMETER +DEFAULT-BACKGROUND-COLOR+ ...) ; processing (DEFPARAMETER +DEFAULT-WINDOW-BACKGROUND-COLOR+ ...) ; processing (DEFPARAMETER +DEFAULT-BORDER-COLOR+ ...) ; processing (DEFPARAMETER +DEFAULT-FONT-NAME+ ...) ; processing (DEFPARAMETER +DEFAULT-FOCUS-COLOR+ ...) ; processing (DEFPARAMETER +DEFAULT-UNFOCUS-COLOR+ ...) ; processing (DEFPARAMETER +DEFAULT-FLOAT-FOCUS-COLOR+ ...) ; processing (DEFPARAMETER +DEFAULT-FLOAT-UNFOCUS-COLOR+ ...) ; processing (DEFPARAMETER +DEFAULT-FRAME-OUTLINE-WIDTH+ ...) ; processing (DEFVAR *NORMAL-GRAVITY* ...) ; processing (DEFVAR *MAXSIZE-GRAVITY* ...) ; processing (DEFVAR *TRANSIENT-GRAVITY* ...) ; processing (DEFVAR *TOP-LEVEL-ERROR-ACTION* ...) ; processing (DEFVAR *WINDOW-NAME-SOURCE* ...) ; processing (DEFSTRUCT FRAME ...) ; processing (DEFSTRUCT (HEAD #)) ; processing (DEFCLASS SCREEN ...) ; processing (DEFSTRUCT CCONTEXT ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFVAR *WINDOW-NUMBER-MAP* ...) ; processing (DEFVAR *GROUP-NUMBER-MAP* ...) ; processing (DEFVAR *FRAME-NUMBER-MAP* ...) ; processing (DEFUN GET-FRAME-NUMBER-TRANSLATION ...) ; processing (DEFSTRUCT MODIFIERS ...) ; processing (DEFVAR *ALL-MODIFIERS* ...) ; processing (DEFVAR *MODIFIERS* ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFVAR *SCREEN-LIST* ...) ; processing (DEFVAR *INITIALIZING* ...) ; processing (DEFVAR *PROCESSING-EXISTING-WINDOWS* ...) ; processing (DEFVAR *EXECUTING-STUMPWM-COMMAND* ...) ; processing (DEFVAR *INTERACTIVEP* ...) ; processing (DEFMACRO WITH-RESTARTS-MENU ...) ; processing (DEFUN RUN-HOOK-WITH-ARGS ...) ; processing (DEFUN RUN-HOOK ...) ; processing (DEFMACRO ADD-HOOK ...) ; processing (DEFMACRO REMOVE-HOOK ...) ; processing (DEFMACRO REMOVE-ALL-HOOKS ...) ; processing (DEFUN SORT1 ...) ; processing (DEFUN FIND-FREE-NUMBER ...) ; processing (DEFUN SPLIT-SEQ ...) ; processing (DEFUN SPLIT-STRING ...) ; processing (DEFUN MATCH-ALL-REGEXPS ...) ; processing (DEFUN INSERT-BEFORE ...) ; processing (DEFVAR *DEBUG-LEVEL* ...) ; processing (DEFVAR *DEBUG-EXPOSE-EVENTS* ...) ; processing (DEFVAR *DEBUG-STREAM* ...) ; processing (DEFUN DFORMAT ...) ; processing (DEFVAR *REDIRECT-STREAM* ...) ; processing (DEFUN REDIRECT-ALL-OUTPUT ...) ; processing (DEFUN FORMAT-EXPAND ...) ; processing (DEFVAR *WINDOW-FORMATTERS* ...) ; processing (DEFVAR *WINDOW-FORMAT* ...) ; processing (DEFVAR *WINDOW-INFO-FORMAT* ...) ; processing (DEFPARAMETER *WINDOW-FORMAT-BY-CLASS* ...) ; processing (DEFVAR *GROUP-FORMATTERS* ...) ; processing (DEFVAR *GROUP-FORMAT* ...) ; processing (DEFVAR *LIST-HIDDEN-GROUPS* ...) ; processing (DEFVAR *X-SELECTION* ...) ; processing (DEFVAR *LAST-COMMAND* ...) ; processing (DEFVAR *MAX-LAST-MESSAGE-SIZE* ...) ; processing (DEFVAR *RECORD-LAST-MSG-OVERRIDE* ...) ; processing (DEFVAR *SUPPRESS-ECHO-TIMEOUT* ...) ; processing (DEFVAR *IGNORE-ECHO-TIMEOUT* ...) ; processing (DEFVAR *RUN-OR-RAISE-ALL-GROUPS* ...) ; processing (DEFVAR *RUN-OR-RAISE-ALL-SCREENS* ...) ; processing (DEFVAR *DENY-MAP-REQUEST* ...) ; processing (DEFVAR *DENY-RAISE-REQUEST* ...) ; processing (DEFVAR *SUPPRESS-DENY-MESSAGES* ...) ; processing (DEFVAR *HONOR-WINDOW-MOVES* ...) ; processing (DEFVAR *RESIZE-HIDES-WINDOWS* ...) ; processing (DEFUN DENY-REQUEST-P ...) ; processing (DEFUN FLATTEN ...) ; processing (DEFUN LIST-SPLICE-REPLACE ...) ; processing (DEFVAR *MIN-FRAME-WIDTH* ...) ; processing (DEFVAR *MIN-FRAME-HEIGHT* ...) ; processing (DEFVAR *NEW-FRAME-ACTION* ...) ; processing (DEFVAR *NEW-WINDOW-PREFERRED-FRAME* ...) ; processing (DEFUN BACKTRACE-STRING ...) ; processing (DEFVAR *STARTUP-MESSAGE* ...) ; processing (DEFVAR *DEFAULT-PACKAGE* ...) ; processing (DEFUN CONCAT ...) ; processing (DEFVAR *WINDOW-PLACEMENT-RULES* ...) ; processing (DEFMACRO DEFINE-FRAME-PREFERENCE ...) ; processing (DEFUN CLEAR-WINDOW-PLACEMENT-RULES ...) ; processing (DEFVAR *MOUSE-FOCUS-POLICY* ...) ; processing (DEFVAR *ROOT-CLICK-FOCUSES-FRAME* ...) ; processing (DEFVAR *BANISH-POINTER-TO* ...) ; processing (DEFVAR *XWIN-TO-WINDOW* ...) ; processing (DEFVAR *RESIZE-MAP* ...) ; processing (DEFVAR *DEFAULT-GROUP-NAME* ...) ; processing (DEFMACRO WITH-FOCUS ...) ; processing (DEFVAR *LAST-UNHANDLED-ERROR* ...) ; processing (DEFVAR *SHOW-COMMAND-BACKTRACE* ...) ; processing (DEFVAR *WINDOW-BORDER-STYLE* ...) ; processing (DEFVAR *DATA-DIR* ...) ; processing (DEFUN DATA-DIR-FILE ...) ; processing (DEFMACRO WITH-DATA-FILE ...) ; processing (DEFMACRO MOVE-TO-HEAD ...) ; processing (DEFINE-CONDITION STUMPWM-CONDITION ...) ; processing (DEFINE-CONDITION STUMPWM-ERROR ...) ; processing (DEFINE-CONDITION STUMPWM-WARNING ...) ; processing (DEFUN INTERN1 ...) ; processing (DEFUN COMMAND-MODE-START-MESSAGE ...) ; processing (DEFUN COMMAND-MODE-END-MESSAGE ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/primitives-tmp35U57IV6.fasl ; compilation finished in 0:00:00.768 ; compiling file "/build/stumpwm-1.0.0/workarounds.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :XLIB) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/workarounds-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/stumpwm-1.0.0/wrappers.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFINE-CONDITION NOT-IMPLEMENTED ...) ; processing (DEFUN SCREEN-DISPLAY-STRING ...) ; processing (DEFUN RUN-PROG ...) ; processing (DEFUN RUN-PROG-COLLECT-OUTPUT ...) ; processing (DEFUN GETENV ...) ; processing (DEFUN (SETF GETENV) ...) ; processing (DEFUN PATHNAME-IS-EXECUTABLE-P ...) ; processing (DEFUN PROBE-PATH ...) ; processing (DEFUN PORTABLE-FILE-WRITE-DATE ...) ; processing (DEFUN PRINT-BACKTRACE ...) ; processing (DEFUN BYTES-TO-STRING ...) ; processing (DEFUN STRING-TO-BYTES ...) ; processing (DEFUN UTF8-TO-STRING ...) ; processing (DEFUN STRING-TO-UTF8 ...) ; processing (DEFUN MAKE-XLIB-WINDOW ...) ; processing (DEFUN DIRECTORY-NO-DEREF ...) ; processing (EXPORT (QUOTE #)) ; processing (DEFUN READ-LINE-FROM-SYSFS ...) ; processing (DEFUN ARGV ...) ; processing (DEFUN EXECV ...) ; processing (DEFUN OPEN-PIPE ...) ; processing (DEFUN MAKE-LOCK ...) ; processing (DEFMACRO WITH-LOCK-HELD ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/wrappers-tmpWN0UKDSV.fasl ; compilation finished in 0:00:00.276 ; compiling file "/build/stumpwm-1.0.0/pathnames.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFUN COMPONENT-PRESENT-P ...) ; processing (DEFUN DIRECTORY-PATHNAME-P ...) ; processing (DEFUN PATHNAME-AS-DIRECTORY ...) ; processing (DEFUN DIRECTORY-WILDCARD ...) ; processing (DEFUN LIST-DIRECTORY ...) ; processing (DEFUN LIST-DIRECTORY-RECURSIVE ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/pathnames-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:00.052 ; compiling file "/build/stumpwm-1.0.0/font-rendering.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (DEFGENERIC FONT-EXISTS-P ...) ; processing (DEFGENERIC OPEN-FONT ...) ; processing (DEFGENERIC CLOSE-FONT ...) ; processing (DEFGENERIC FONT-ASCENT ...) ; processing (DEFGENERIC FONT-DESCENT ...) ; processing (DEFGENERIC FONT-HEIGHT ...) ; processing (DEFGENERIC TEXT-LINES-HEIGHT ...) ; processing (DEFGENERIC TEXT-LINE-WIDTH ...) ; processing (DEFGENERIC DRAW-IMAGE-GLYPHS ...) ; processing (DEFMETHOD FONT-EXISTS-P ...) ; processing (DEFMETHOD OPEN-FONT ...) ; processing (DEFMETHOD CLOSE-FONT ...) ; processing (DEFMETHOD FONT-ASCENT ...) ; processing (DEFMETHOD FONT-DESCENT ...) ; processing (DEFMETHOD FONT-HEIGHT ...) ; processing (DEFMETHOD TEXT-LINE-WIDTH ...) ; processing (DEFMETHOD DRAW-IMAGE-GLYPHS ...) ; processing (DEFMETHOD FONT-HEIGHT ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/font-rendering-tmpGYUNPZCY.fasl ; compilation finished in 0:00:00.100 ; compiling file "/build/stumpwm-1.0.0/keysyms.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (DEFVAR *KEYSYM-NAME-TRANSLATIONS* ...) ; processing (DEFVAR *NAME-KEYSYM-TRANSLATIONS* ...) ; processing (DEFUN DEFINE-KEYSYM ...) ; processing (DEFUN KEYSYM-NAME->KEYSYM ...) ; processing (DEFUN KEYSYM->KEYSYM-NAME ...) ; processing (DEFINE-KEYSYM 16777215 ...) ; processing (DEFINE-KEYSYM 65288 ...) ; processing (DEFINE-KEYSYM 65289 ...) ; processing (DEFINE-KEYSYM 65290 ...) ; processing (DEFINE-KEYSYM 65291 ...) ; processing (DEFINE-KEYSYM 65293 ...) ; processing (DEFINE-KEYSYM 65299 ...) ; processing (DEFINE-KEYSYM 65300 ...) ; processing (DEFINE-KEYSYM 65301 ...) ; processing (DEFINE-KEYSYM 65307 ...) ; processing (DEFINE-KEYSYM 65535 ...) ; processing (DEFINE-KEYSYM 65312 ...) ; processing (DEFINE-KEYSYM 65335 ...) ; processing (DEFINE-KEYSYM 65340 ...) ; processing (DEFINE-KEYSYM 65341 ...) ; processing (DEFINE-KEYSYM 65342 ...) ; processing (DEFINE-KEYSYM 65313 ...) ; processing (DEFINE-KEYSYM 65314 ...) ; processing (DEFINE-KEYSYM 65315 ...) ; processing (DEFINE-KEYSYM 65315 ...) ; processing (DEFINE-KEYSYM 65316 ...) ; processing (DEFINE-KEYSYM 65317 ...) ; processing (DEFINE-KEYSYM 65318 ...) ; processing (DEFINE-KEYSYM 65319 ...) ; processing (DEFINE-KEYSYM 65320 ...) ; processing (DEFINE-KEYSYM 65321 ...) ; processing (DEFINE-KEYSYM 65322 ...) ; processing (DEFINE-KEYSYM 65323 ...) ; processing (DEFINE-KEYSYM 65324 ...) ; processing (DEFINE-KEYSYM 65325 ...) ; processing (DEFINE-KEYSYM 65326 ...) ; processing (DEFINE-KEYSYM 65327 ...) ; processing (DEFINE-KEYSYM 65328 ...) ; processing (DEFINE-KEYSYM 65335 ...) ; processing (DEFINE-KEYSYM 65341 ...) ; processing (DEFINE-KEYSYM 65342 ...) ; processing (DEFINE-KEYSYM 65360 ...) ; processing (DEFINE-KEYSYM 65361 ...) ; processing (DEFINE-KEYSYM 65362 ...) ; processing (DEFINE-KEYSYM 65363 ...) ; processing (DEFINE-KEYSYM 65364 ...) ; processing (DEFINE-KEYSYM 65365 ...) ; processing (DEFINE-KEYSYM 65365 ...) ; processing (DEFINE-KEYSYM 65366 ...) ; processing (DEFINE-KEYSYM 65366 ...) ; processing (DEFINE-KEYSYM 65367 ...) ; processing (DEFINE-KEYSYM 65368 ...) ; processing (DEFINE-KEYSYM 65376 ...) ; processing (DEFINE-KEYSYM 65377 ...) ; processing (DEFINE-KEYSYM 65378 ...) ; processing (DEFINE-KEYSYM 65379 ...) ; processing (DEFINE-KEYSYM 65381 ...) ; processing (DEFINE-KEYSYM 65382 ...) ; processing (DEFINE-KEYSYM 65383 ...) ; processing (DEFINE-KEYSYM 65384 ...) ; processing (DEFINE-KEYSYM 65385 ...) ; processing (DEFINE-KEYSYM 65386 ...) ; processing (DEFINE-KEYSYM 65387 ...) ; processing (DEFINE-KEYSYM 65406 ...) ; processing (DEFINE-KEYSYM 65406 ...) ; processing (DEFINE-KEYSYM 65407 ...) ; processing (DEFINE-KEYSYM 65408 ...) ; processing (DEFINE-KEYSYM 65417 ...) ; processing (DEFINE-KEYSYM 65421 ...) ; processing (DEFINE-KEYSYM 65425 ...) ; processing (DEFINE-KEYSYM 65426 ...) ; processing (DEFINE-KEYSYM 65427 ...) ; processing (DEFINE-KEYSYM 65428 ...) ; processing (DEFINE-KEYSYM 65429 ...) ; processing (DEFINE-KEYSYM 65430 ...) ; processing (DEFINE-KEYSYM 65431 ...) ; processing (DEFINE-KEYSYM 65432 ...) ; processing (DEFINE-KEYSYM 65433 ...) ; processing (DEFINE-KEYSYM 65434 ...) ; processing (DEFINE-KEYSYM 65434 ...) ; processing (DEFINE-KEYSYM 65435 ...) ; processing (DEFINE-KEYSYM 65435 ...) ; processing (DEFINE-KEYSYM 65436 ...) ; processing (DEFINE-KEYSYM 65437 ...) ; processing (DEFINE-KEYSYM 65438 ...) ; processing (DEFINE-KEYSYM 65439 ...) ; processing (DEFINE-KEYSYM 65469 ...) ; processing (DEFINE-KEYSYM 65450 ...) ; processing (DEFINE-KEYSYM 65451 ...) ; processing (DEFINE-KEYSYM 65452 ...) ; processing (DEFINE-KEYSYM 65453 ...) ; processing (DEFINE-KEYSYM 65454 ...) ; processing (DEFINE-KEYSYM 65455 ...) ; processing (DEFINE-KEYSYM 65456 ...) ; processing (DEFINE-KEYSYM 65457 ...) ; processing (DEFINE-KEYSYM 65458 ...) ; processing (DEFINE-KEYSYM 65459 ...) ; processing (DEFINE-KEYSYM 65460 ...) ; processing (DEFINE-KEYSYM 65461 ...) ; processing (DEFINE-KEYSYM 65462 ...) ; processing (DEFINE-KEYSYM 65463 ...) ; processing (DEFINE-KEYSYM 65464 ...) ; processing (DEFINE-KEYSYM 65465 ...) ; processing (DEFINE-KEYSYM 65470 ...) ; processing (DEFINE-KEYSYM 65471 ...) ; processing (DEFINE-KEYSYM 65472 ...) ; processing (DEFINE-KEYSYM 65473 ...) ; processing (DEFINE-KEYSYM 65474 ...) ; processing (DEFINE-KEYSYM 65475 ...) ; processing (DEFINE-KEYSYM 65476 ...) ; processing (DEFINE-KEYSYM 65477 ...) ; processing (DEFINE-KEYSYM 65478 ...) ; processing (DEFINE-KEYSYM 65479 ...) ; processing (DEFINE-KEYSYM 65480 ...) ; processing (DEFINE-KEYSYM 65481 ...) ; processing (DEFINE-KEYSYM 65482 ...) ; processing (DEFINE-KEYSYM 65483 ...) ; processing (DEFINE-KEYSYM 65484 ...) ; processing (DEFINE-KEYSYM 65485 ...) ; processing (DEFINE-KEYSYM 65486 ...) ; processing (DEFINE-KEYSYM 65487 ...) ; processing (DEFINE-KEYSYM 65488 ...) ; processing (DEFINE-KEYSYM 65489 ...) ; processing (DEFINE-KEYSYM 65490 ...) ; processing (DEFINE-KEYSYM 65491 ...) ; processing (DEFINE-KEYSYM 65492 ...) ; processing (DEFINE-KEYSYM 65493 ...) ; processing (DEFINE-KEYSYM 65494 ...) ; processing (DEFINE-KEYSYM 65495 ...) ; processing (DEFINE-KEYSYM 65496 ...) ; processing (DEFINE-KEYSYM 65497 ...) ; processing (DEFINE-KEYSYM 65498 ...) ; processing (DEFINE-KEYSYM 65499 ...) ; processing (DEFINE-KEYSYM 65500 ...) ; processing (DEFINE-KEYSYM 65501 ...) ; processing (DEFINE-KEYSYM 65502 ...) ; processing (DEFINE-KEYSYM 65503 ...) ; processing (DEFINE-KEYSYM 65504 ...) ; processing (DEFINE-KEYSYM 65505 ...) ; processing (DEFINE-KEYSYM 65506 ...) ; processing (DEFINE-KEYSYM 65507 ...) ; processing (DEFINE-KEYSYM 65508 ...) ; processing (DEFINE-KEYSYM 65509 ...) ; processing (DEFINE-KEYSYM 65510 ...) ; processing (DEFINE-KEYSYM 65511 ...) ; processing (DEFINE-KEYSYM 65512 ...) ; processing (DEFINE-KEYSYM 65513 ...) ; processing (DEFINE-KEYSYM 65514 ...) ; processing (DEFINE-KEYSYM 65515 ...) ; processing (DEFINE-KEYSYM 65516 ...) ; processing (DEFINE-KEYSYM 65517 ...) ; processing (DEFINE-KEYSYM 65518 ...) ; processing (DEFINE-KEYSYM 65025 ...) ; processing (DEFINE-KEYSYM 65026 ...) ; processing (DEFINE-KEYSYM 65027 ...) ; processing (DEFINE-KEYSYM 65028 ...) ; processing (DEFINE-KEYSYM 65029 ...) ; processing (DEFINE-KEYSYM 65406 ...) ; processing (DEFINE-KEYSYM 65030 ...) ; processing (DEFINE-KEYSYM 65031 ...) ; processing (DEFINE-KEYSYM 65032 ...) ; processing (DEFINE-KEYSYM 65033 ...) ; processing (DEFINE-KEYSYM 65034 ...) ; processing (DEFINE-KEYSYM 65035 ...) ; processing (DEFINE-KEYSYM 65036 ...) ; processing (DEFINE-KEYSYM 65037 ...) ; processing (DEFINE-KEYSYM 65038 ...) ; processing (DEFINE-KEYSYM 65039 ...) ; processing (DEFINE-KEYSYM 65056 ...) ; processing (DEFINE-KEYSYM 65057 ...) ; processing (DEFINE-KEYSYM 65058 ...) ; processing (DEFINE-KEYSYM 65059 ...) ; processing (DEFINE-KEYSYM 65060 ...) ; processing (DEFINE-KEYSYM 65061 ...) ; processing (DEFINE-KEYSYM 65062 ...) ; processing (DEFINE-KEYSYM 65063 ...) ; processing (DEFINE-KEYSYM 65064 ...) ; processing (DEFINE-KEYSYM 65065 ...) ; processing (DEFINE-KEYSYM 65066 ...) ; processing (DEFINE-KEYSYM 65067 ...) ; processing (DEFINE-KEYSYM 65068 ...) ; processing (DEFINE-KEYSYM 65069 ...) ; processing (DEFINE-KEYSYM 65070 ...) ; processing (DEFINE-KEYSYM 65071 ...) ; processing (DEFINE-KEYSYM 65072 ...) ; processing (DEFINE-KEYSYM 65073 ...) ; processing (DEFINE-KEYSYM 65074 ...) ; processing (DEFINE-KEYSYM 65075 ...) ; processing (DEFINE-KEYSYM 65076 ...) ; processing (DEFINE-KEYSYM 65104 ...) ; processing (DEFINE-KEYSYM 65105 ...) ; processing (DEFINE-KEYSYM 65106 ...) ; processing (DEFINE-KEYSYM 65107 ...) ; processing (DEFINE-KEYSYM 65108 ...) ; processing (DEFINE-KEYSYM 65109 ...) ; processing (DEFINE-KEYSYM 65110 ...) ; processing (DEFINE-KEYSYM 65111 ...) ; processing (DEFINE-KEYSYM 65112 ...) ; processing (DEFINE-KEYSYM 65113 ...) ; processing (DEFINE-KEYSYM 65114 ...) ; processing (DEFINE-KEYSYM 65115 ...) ; processing (DEFINE-KEYSYM 65116 ...) ; processing (DEFINE-KEYSYM 65117 ...) ; processing (DEFINE-KEYSYM 65118 ...) ; processing (DEFINE-KEYSYM 65119 ...) ; processing (DEFINE-KEYSYM 65120 ...) ; processing (DEFINE-KEYSYM 65121 ...) ; processing (DEFINE-KEYSYM 65122 ...) ; processing (DEFINE-KEYSYM 65232 ...) ; processing (DEFINE-KEYSYM 65233 ...) ; processing (DEFINE-KEYSYM 65234 ...) ; processing (DEFINE-KEYSYM 65236 ...) ; processing (DEFINE-KEYSYM 65237 ...) ; processing (DEFINE-KEYSYM 65136 ...) ; processing (DEFINE-KEYSYM 65137 ...) ; processing (DEFINE-KEYSYM 65138 ...) ; processing (DEFINE-KEYSYM 65139 ...) ; processing (DEFINE-KEYSYM 65140 ...) ; processing (DEFINE-KEYSYM 65141 ...) ; processing (DEFINE-KEYSYM 65142 ...) ; processing (DEFINE-KEYSYM 65143 ...) ; processing (DEFINE-KEYSYM 65144 ...) ; processing (DEFINE-KEYSYM 65145 ...) ; processing (DEFINE-KEYSYM 65146 ...) ; processing (DEFINE-KEYSYM 65248 ...) ; processing (DEFINE-KEYSYM 65249 ...) ; processing (DEFINE-KEYSYM 65250 ...) ; processing (DEFINE-KEYSYM 65251 ...) ; processing (DEFINE-KEYSYM 65252 ...) ; processing (DEFINE-KEYSYM 65253 ...) ; processing (DEFINE-KEYSYM 65254 ...) ; processing (DEFINE-KEYSYM 65255 ...) ; processing (DEFINE-KEYSYM 65256 ...) ; processing (DEFINE-KEYSYM 65257 ...) ; processing (DEFINE-KEYSYM 65258 ...) ; processing (DEFINE-KEYSYM 65259 ...) ; processing (DEFINE-KEYSYM 65260 ...) ; processing (DEFINE-KEYSYM 65261 ...) ; processing (DEFINE-KEYSYM 65262 ...) ; processing (DEFINE-KEYSYM 65263 ...) ; processing (DEFINE-KEYSYM 65264 ...) ; processing (DEFINE-KEYSYM 65265 ...) ; processing (DEFINE-KEYSYM 65266 ...) ; processing (DEFINE-KEYSYM 65267 ...) ; processing (DEFINE-KEYSYM 65268 ...) ; processing (DEFINE-KEYSYM 65269 ...) ; processing (DEFINE-KEYSYM 65270 ...) ; processing (DEFINE-KEYSYM 65271 ...) ; processing (DEFINE-KEYSYM 65272 ...) ; processing (DEFINE-KEYSYM 65277 ...) ; processing (DEFINE-KEYSYM 65273 ...) ; processing (DEFINE-KEYSYM 65274 ...) ; processing (DEFINE-KEYSYM 65275 ...) ; processing (DEFINE-KEYSYM 65276 ...) ; processing (DEFINE-KEYSYM 64769 ...) ; processing (DEFINE-KEYSYM 64770 ...) ; processing (DEFINE-KEYSYM 64771 ...) ; processing (DEFINE-KEYSYM 64772 ...) ; processing (DEFINE-KEYSYM 64773 ...) ; processing (DEFINE-KEYSYM 64774 ...) ; processing (DEFINE-KEYSYM 64775 ...) ; processing (DEFINE-KEYSYM 64776 ...) ; processing (DEFINE-KEYSYM 64777 ...) ; processing (DEFINE-KEYSYM 64778 ...) ; processing (DEFINE-KEYSYM 64779 ...) ; processing (DEFINE-KEYSYM 64780 ...) ; processing (DEFINE-KEYSYM 64781 ...) ; processing (DEFINE-KEYSYM 64782 ...) ; processing (DEFINE-KEYSYM 64783 ...) ; processing (DEFINE-KEYSYM 64784 ...) ; processing (DEFINE-KEYSYM 64785 ...) ; processing (DEFINE-KEYSYM 64786 ...) ; processing (DEFINE-KEYSYM 64787 ...) ; processing (DEFINE-KEYSYM 64788 ...) ; processing (DEFINE-KEYSYM 64789 ...) ; processing (DEFINE-KEYSYM 64790 ...) ; processing (DEFINE-KEYSYM 64791 ...) ; processing (DEFINE-KEYSYM 64792 ...) ; processing (DEFINE-KEYSYM 64793 ...) ; processing (DEFINE-KEYSYM 64794 ...) ; processing (DEFINE-KEYSYM 64795 ...) ; processing (DEFINE-KEYSYM 64796 ...) ; processing (DEFINE-KEYSYM 64797 ...) ; processing (DEFINE-KEYSYM 64798 ...) ; processing (DEFINE-KEYSYM 32 ...) ; processing (DEFINE-KEYSYM 33 ...) ; processing (DEFINE-KEYSYM 34 ...) ; processing (DEFINE-KEYSYM 35 ...) ; processing (DEFINE-KEYSYM 36 ...) ; processing (DEFINE-KEYSYM 37 ...) ; processing (DEFINE-KEYSYM 38 ...) ; processing (DEFINE-KEYSYM 39 ...) ; processing (DEFINE-KEYSYM 39 ...) ; processing (DEFINE-KEYSYM 40 ...) ; processing (DEFINE-KEYSYM 41 ...) ; processing (DEFINE-KEYSYM 42 ...) ; processing (DEFINE-KEYSYM 43 ...) ; processing (DEFINE-KEYSYM 44 ...) ; processing (DEFINE-KEYSYM 45 ...) ; processing (DEFINE-KEYSYM 46 ...) ; processing (DEFINE-KEYSYM 47 ...) ; processing (DEFINE-KEYSYM 48 ...) ; processing (DEFINE-KEYSYM 49 ...) ; processing (DEFINE-KEYSYM 50 ...) ; processing (DEFINE-KEYSYM 51 ...) ; processing (DEFINE-KEYSYM 52 ...) ; processing (DEFINE-KEYSYM 53 ...) ; processing (DEFINE-KEYSYM 54 ...) ; processing (DEFINE-KEYSYM 55 ...) ; processing (DEFINE-KEYSYM 56 ...) ; processing (DEFINE-KEYSYM 57 ...) ; processing (DEFINE-KEYSYM 58 ...) ; processing (DEFINE-KEYSYM 59 ...) ; processing (DEFINE-KEYSYM 60 ...) ; processing (DEFINE-KEYSYM 61 ...) ; processing (DEFINE-KEYSYM 62 ...) ; processing (DEFINE-KEYSYM 63 ...) ; processing (DEFINE-KEYSYM 64 ...) ; processing (DEFINE-KEYSYM 65 ...) ; processing (DEFINE-KEYSYM 66 ...) ; processing (DEFINE-KEYSYM 67 ...) ; processing (DEFINE-KEYSYM 68 ...) ; processing (DEFINE-KEYSYM 69 ...) ; processing (DEFINE-KEYSYM 70 ...) ; processing (DEFINE-KEYSYM 71 ...) ; processing (DEFINE-KEYSYM 72 ...) ; processing (DEFINE-KEYSYM 73 ...) ; processing (DEFINE-KEYSYM 74 ...) ; processing (DEFINE-KEYSYM 75 ...) ; processing (DEFINE-KEYSYM 76 ...) ; processing (DEFINE-KEYSYM 77 ...) ; processing (DEFINE-KEYSYM 78 ...) ; processing (DEFINE-KEYSYM 79 ...) ; processing (DEFINE-KEYSYM 80 ...) ; processing (DEFINE-KEYSYM 81 ...) ; processing (DEFINE-KEYSYM 82 ...) ; processing (DEFINE-KEYSYM 83 ...) ; processing (DEFINE-KEYSYM 84 ...) ; processing (DEFINE-KEYSYM 85 ...) ; processing (DEFINE-KEYSYM 86 ...) ; processing (DEFINE-KEYSYM 87 ...) ; processing (DEFINE-KEYSYM 88 ...) ; processing (DEFINE-KEYSYM 89 ...) ; processing (DEFINE-KEYSYM 90 ...) ; processing (DEFINE-KEYSYM 91 ...) ; processing (DEFINE-KEYSYM 92 ...) ; processing (DEFINE-KEYSYM 93 ...) ; processing (DEFINE-KEYSYM 94 ...) ; processing (DEFINE-KEYSYM 95 ...) ; processing (DEFINE-KEYSYM 96 ...) ; processing (DEFINE-KEYSYM 96 ...) ; processing (DEFINE-KEYSYM 97 ...) ; processing (DEFINE-KEYSYM 98 ...) ; processing (DEFINE-KEYSYM 99 ...) ; processing (DEFINE-KEYSYM 100 ...) ; processing (DEFINE-KEYSYM 101 ...) ; processing (DEFINE-KEYSYM 102 ...) ; processing (DEFINE-KEYSYM 103 ...) ; processing (DEFINE-KEYSYM 104 ...) ; processing (DEFINE-KEYSYM 105 ...) ; processing (DEFINE-KEYSYM 106 ...) ; processing (DEFINE-KEYSYM 107 ...) ; processing (DEFINE-KEYSYM 108 ...) ; processing (DEFINE-KEYSYM 109 ...) ; processing (DEFINE-KEYSYM 110 ...) ; processing (DEFINE-KEYSYM 111 ...) ; processing (DEFINE-KEYSYM 112 ...) ; processing (DEFINE-KEYSYM 113 ...) ; processing (DEFINE-KEYSYM 114 ...) ; processing (DEFINE-KEYSYM 115 ...) ; processing (DEFINE-KEYSYM 116 ...) ; processing (DEFINE-KEYSYM 117 ...) ; processing (DEFINE-KEYSYM 118 ...) ; processing (DEFINE-KEYSYM 119 ...) ; processing (DEFINE-KEYSYM 120 ...) ; processing (DEFINE-KEYSYM 121 ...) ; processing (DEFINE-KEYSYM 122 ...) ; processing (DEFINE-KEYSYM 123 ...) ; processing (DEFINE-KEYSYM 124 ...) ; processing (DEFINE-KEYSYM 125 ...) ; processing (DEFINE-KEYSYM 126 ...) ; processing (DEFINE-KEYSYM 160 ...) ; processing (DEFINE-KEYSYM 161 ...) ; processing (DEFINE-KEYSYM 162 ...) ; processing (DEFINE-KEYSYM 163 ...) ; processing (DEFINE-KEYSYM 164 ...) ; processing (DEFINE-KEYSYM 165 ...) ; processing (DEFINE-KEYSYM 166 ...) ; processing (DEFINE-KEYSYM 167 ...) ; processing (DEFINE-KEYSYM 168 ...) ; processing (DEFINE-KEYSYM 169 ...) ; processing (DEFINE-KEYSYM 170 ...) ; processing (DEFINE-KEYSYM 171 ...) ; processing (DEFINE-KEYSYM 172 ...) ; processing (DEFINE-KEYSYM 173 ...) ; processing (DEFINE-KEYSYM 174 ...) ; processing (DEFINE-KEYSYM 175 ...) ; processing (DEFINE-KEYSYM 176 ...) ; processing (DEFINE-KEYSYM 177 ...) ; processing (DEFINE-KEYSYM 178 ...) ; processing (DEFINE-KEYSYM 179 ...) ; processing (DEFINE-KEYSYM 180 ...) ; processing (DEFINE-KEYSYM 181 ...) ; processing (DEFINE-KEYSYM 182 ...) ; processing (DEFINE-KEYSYM 183 ...) ; processing (DEFINE-KEYSYM 184 ...) ; processing (DEFINE-KEYSYM 185 ...) ; processing (DEFINE-KEYSYM 186 ...) ; processing (DEFINE-KEYSYM 187 ...) ; processing (DEFINE-KEYSYM 188 ...) ; processing (DEFINE-KEYSYM 189 ...) ; processing (DEFINE-KEYSYM 190 ...) ; processing (DEFINE-KEYSYM 191 ...) ; processing (DEFINE-KEYSYM 192 ...) ; processing (DEFINE-KEYSYM 193 ...) ; processing (DEFINE-KEYSYM 194 ...) ; processing (DEFINE-KEYSYM 195 ...) ; processing (DEFINE-KEYSYM 196 ...) ; processing (DEFINE-KEYSYM 197 ...) ; processing (DEFINE-KEYSYM 198 ...) ; processing (DEFINE-KEYSYM 199 ...) ; processing (DEFINE-KEYSYM 200 ...) ; processing (DEFINE-KEYSYM 201 ...) ; processing (DEFINE-KEYSYM 202 ...) ; processing (DEFINE-KEYSYM 203 ...) ; processing (DEFINE-KEYSYM 204 ...) ; processing (DEFINE-KEYSYM 205 ...) ; processing (DEFINE-KEYSYM 206 ...) ; processing (DEFINE-KEYSYM 207 ...) ; processing (DEFINE-KEYSYM 208 ...) ; processing (DEFINE-KEYSYM 208 ...) ; processing (DEFINE-KEYSYM 209 ...) ; processing (DEFINE-KEYSYM 210 ...) ; processing (DEFINE-KEYSYM 211 ...) ; processing (DEFINE-KEYSYM 212 ...) ; processing (DEFINE-KEYSYM 213 ...) ; processing (DEFINE-KEYSYM 214 ...) ; processing (DEFINE-KEYSYM 215 ...) ; processing (DEFINE-KEYSYM 216 ...) ; processing (DEFINE-KEYSYM 216 ...) ; processing (DEFINE-KEYSYM 217 ...) ; processing (DEFINE-KEYSYM 218 ...) ; processing (DEFINE-KEYSYM 219 ...) ; processing (DEFINE-KEYSYM 220 ...) ; processing (DEFINE-KEYSYM 221 ...) ; processing (DEFINE-KEYSYM 222 ...) ; processing (DEFINE-KEYSYM 222 ...) ; processing (DEFINE-KEYSYM 223 ...) ; processing (DEFINE-KEYSYM 224 ...) ; processing (DEFINE-KEYSYM 225 ...) ; processing (DEFINE-KEYSYM 226 ...) ; processing (DEFINE-KEYSYM 227 ...) ; processing (DEFINE-KEYSYM 228 ...) ; processing (DEFINE-KEYSYM 229 ...) ; processing (DEFINE-KEYSYM 230 ...) ; processing (DEFINE-KEYSYM 231 ...) ; processing (DEFINE-KEYSYM 232 ...) ; processing (DEFINE-KEYSYM 233 ...) ; processing (DEFINE-KEYSYM 234 ...) ; processing (DEFINE-KEYSYM 235 ...) ; processing (DEFINE-KEYSYM 236 ...) ; processing (DEFINE-KEYSYM 237 ...) ; processing (DEFINE-KEYSYM 238 ...) ; processing (DEFINE-KEYSYM 239 ...) ; processing (DEFINE-KEYSYM 240 ...) ; processing (DEFINE-KEYSYM 241 ...) ; processing (DEFINE-KEYSYM 242 ...) ; processing (DEFINE-KEYSYM 243 ...) ; processing (DEFINE-KEYSYM 244 ...) ; processing (DEFINE-KEYSYM 245 ...) ; processing (DEFINE-KEYSYM 246 ...) ; processing (DEFINE-KEYSYM 247 ...) ; processing (DEFINE-KEYSYM 248 ...) ; processing (DEFINE-KEYSYM 248 ...) ; processing (DEFINE-KEYSYM 249 ...) ; processing (DEFINE-KEYSYM 250 ...) ; processing (DEFINE-KEYSYM 251 ...) ; processing (DEFINE-KEYSYM 252 ...) ; processing (DEFINE-KEYSYM 253 ...) ; processing (DEFINE-KEYSYM 254 ...) ; processing (DEFINE-KEYSYM 255 ...) ; processing (DEFINE-KEYSYM 417 ...) ; processing (DEFINE-KEYSYM 418 ...) ; processing (DEFINE-KEYSYM 419 ...) ; processing (DEFINE-KEYSYM 421 ...) ; processing (DEFINE-KEYSYM 422 ...) ; processing (DEFINE-KEYSYM 425 ...) ; processing (DEFINE-KEYSYM 426 ...) ; processing (DEFINE-KEYSYM 427 ...) ; processing (DEFINE-KEYSYM 428 ...) ; processing (DEFINE-KEYSYM 430 ...) ; processing (DEFINE-KEYSYM 431 ...) ; processing (DEFINE-KEYSYM 433 ...) ; processing (DEFINE-KEYSYM 434 ...) ; processing (DEFINE-KEYSYM 435 ...) ; processing (DEFINE-KEYSYM 437 ...) ; processing (DEFINE-KEYSYM 438 ...) ; processing (DEFINE-KEYSYM 439 ...) ; processing (DEFINE-KEYSYM 441 ...) ; processing (DEFINE-KEYSYM 442 ...) ; processing (DEFINE-KEYSYM 443 ...) ; processing (DEFINE-KEYSYM 444 ...) ; processing (DEFINE-KEYSYM 445 ...) ; processing (DEFINE-KEYSYM 446 ...) ; processing (DEFINE-KEYSYM 447 ...) ; processing (DEFINE-KEYSYM 448 ...) ; processing (DEFINE-KEYSYM 451 ...) ; processing (DEFINE-KEYSYM 453 ...) ; processing (DEFINE-KEYSYM 454 ...) ; processing (DEFINE-KEYSYM 456 ...) ; processing (DEFINE-KEYSYM 458 ...) ; processing (DEFINE-KEYSYM 460 ...) ; processing (DEFINE-KEYSYM 463 ...) ; processing (DEFINE-KEYSYM 464 ...) ; processing (DEFINE-KEYSYM 465 ...) ; processing (DEFINE-KEYSYM 466 ...) ; processing (DEFINE-KEYSYM 469 ...) ; processing (DEFINE-KEYSYM 472 ...) ; processing (DEFINE-KEYSYM 473 ...) ; processing (DEFINE-KEYSYM 475 ...) ; processing (DEFINE-KEYSYM 478 ...) ; processing (DEFINE-KEYSYM 480 ...) ; processing (DEFINE-KEYSYM 483 ...) ; processing (DEFINE-KEYSYM 485 ...) ; processing (DEFINE-KEYSYM 486 ...) ; processing (DEFINE-KEYSYM 488 ...) ; processing (DEFINE-KEYSYM 490 ...) ; processing (DEFINE-KEYSYM 492 ...) ; processing (DEFINE-KEYSYM 495 ...) ; processing (DEFINE-KEYSYM 496 ...) ; processing (DEFINE-KEYSYM 497 ...) ; processing (DEFINE-KEYSYM 498 ...) ; processing (DEFINE-KEYSYM 501 ...) ; processing (DEFINE-KEYSYM 507 ...) ; processing (DEFINE-KEYSYM 504 ...) ; processing (DEFINE-KEYSYM 505 ...) ; processing (DEFINE-KEYSYM 510 ...) ; processing (DEFINE-KEYSYM 511 ...) ; processing (DEFINE-KEYSYM 673 ...) ; processing (DEFINE-KEYSYM 678 ...) ; processing (DEFINE-KEYSYM 681 ...) ; processing (DEFINE-KEYSYM 683 ...) ; processing (DEFINE-KEYSYM 684 ...) ; processing (DEFINE-KEYSYM 689 ...) ; processing (DEFINE-KEYSYM 694 ...) ; processing (DEFINE-KEYSYM 697 ...) ; processing (DEFINE-KEYSYM 699 ...) ; processing (DEFINE-KEYSYM 700 ...) ; processing (DEFINE-KEYSYM 709 ...) ; processing (DEFINE-KEYSYM 710 ...) ; processing (DEFINE-KEYSYM 725 ...) ; processing (DEFINE-KEYSYM 728 ...) ; processing (DEFINE-KEYSYM 733 ...) ; processing (DEFINE-KEYSYM 734 ...) ; processing (DEFINE-KEYSYM 741 ...) ; processing (DEFINE-KEYSYM 742 ...) ; processing (DEFINE-KEYSYM 757 ...) ; processing (DEFINE-KEYSYM 760 ...) ; processing (DEFINE-KEYSYM 765 ...) ; processing (DEFINE-KEYSYM 766 ...) ; processing (DEFINE-KEYSYM 930 ...) ; processing (DEFINE-KEYSYM 930 ...) ; processing (DEFINE-KEYSYM 931 ...) ; processing (DEFINE-KEYSYM 933 ...) ; processing (DEFINE-KEYSYM 934 ...) ; processing (DEFINE-KEYSYM 938 ...) ; processing (DEFINE-KEYSYM 939 ...) ; processing (DEFINE-KEYSYM 940 ...) ; processing (DEFINE-KEYSYM 947 ...) ; processing (DEFINE-KEYSYM 949 ...) ; processing (DEFINE-KEYSYM 950 ...) ; processing (DEFINE-KEYSYM 954 ...) ; processing (DEFINE-KEYSYM 955 ...) ; processing (DEFINE-KEYSYM 956 ...) ; processing (DEFINE-KEYSYM 957 ...) ; processing (DEFINE-KEYSYM 959 ...) ; processing (DEFINE-KEYSYM 960 ...) ; processing (DEFINE-KEYSYM 967 ...) ; processing (DEFINE-KEYSYM 972 ...) ; processing (DEFINE-KEYSYM 975 ...) ; processing (DEFINE-KEYSYM 977 ...) ; processing (DEFINE-KEYSYM 978 ...) ; processing (DEFINE-KEYSYM 979 ...) ; processing (DEFINE-KEYSYM 985 ...) ; processing (DEFINE-KEYSYM 989 ...) ; processing (DEFINE-KEYSYM 990 ...) ; processing (DEFINE-KEYSYM 992 ...) ; processing (DEFINE-KEYSYM 999 ...) ; processing (DEFINE-KEYSYM 1004 ...) ; processing (DEFINE-KEYSYM 1007 ...) ; processing (DEFINE-KEYSYM 1009 ...) ; processing (DEFINE-KEYSYM 1010 ...) ; processing (DEFINE-KEYSYM 1011 ...) ; processing (DEFINE-KEYSYM 1017 ...) ; processing (DEFINE-KEYSYM 1021 ...) ; processing (DEFINE-KEYSYM 1022 ...) ; processing (DEFINE-KEYSYM 16784898 ...) ; processing (DEFINE-KEYSYM 16784899 ...) ; processing (DEFINE-KEYSYM 16784906 ...) ; processing (DEFINE-KEYSYM 16785024 ...) ; processing (DEFINE-KEYSYM 16785026 ...) ; processing (DEFINE-KEYSYM 16784907 ...) ; processing (DEFINE-KEYSYM 16785138 ...) ; processing (DEFINE-KEYSYM 16784926 ...) ; processing (DEFINE-KEYSYM 16784927 ...) ; processing (DEFINE-KEYSYM 16784960 ...) ; processing (DEFINE-KEYSYM 16784961 ...) ; processing (DEFINE-KEYSYM 16784982 ...) ; processing (DEFINE-KEYSYM 16785025 ...) ; processing (DEFINE-KEYSYM 16784983 ...) ; processing (DEFINE-KEYSYM 16785027 ...) ; processing (DEFINE-KEYSYM 16784992 ...) ; processing (DEFINE-KEYSYM 16785139 ...) ; processing (DEFINE-KEYSYM 16785028 ...) ; processing (DEFINE-KEYSYM 16785029 ...) ; processing (DEFINE-KEYSYM 16784993 ...) ; processing (DEFINE-KEYSYM 16777588 ...) ; processing (DEFINE-KEYSYM 16785002 ...) ; processing (DEFINE-KEYSYM 16777590 ...) ; processing (DEFINE-KEYSYM 16777589 ...) ; processing (DEFINE-KEYSYM 16785003 ...) ; processing (DEFINE-KEYSYM 16777591 ...) ; processing (DEFINE-KEYSYM 5052 ...) ; processing (DEFINE-KEYSYM 5053 ...) ; processing (DEFINE-KEYSYM 5054 ...) ; processing (DEFINE-KEYSYM 1150 ...) ; processing (DEFINE-KEYSYM 1185 ...) ; processing (DEFINE-KEYSYM 1186 ...) ; processing (DEFINE-KEYSYM 1187 ...) ; processing (DEFINE-KEYSYM 1188 ...) ; processing (DEFINE-KEYSYM 1189 ...) ; processing (DEFINE-KEYSYM 1189 ...) ; processing (DEFINE-KEYSYM 1190 ...) ; processing (DEFINE-KEYSYM 1191 ...) ; processing (DEFINE-KEYSYM 1192 ...) ; processing (DEFINE-KEYSYM 1193 ...) ; processing (DEFINE-KEYSYM 1194 ...) ; processing (DEFINE-KEYSYM 1195 ...) ; processing (DEFINE-KEYSYM 1196 ...) ; processing (DEFINE-KEYSYM 1197 ...) ; processing (DEFINE-KEYSYM 1198 ...) ; processing (DEFINE-KEYSYM 1199 ...) ; processing (DEFINE-KEYSYM 1199 ...) ; processing (DEFINE-KEYSYM 1200 ...) ; processing (DEFINE-KEYSYM 1201 ...) ; processing (DEFINE-KEYSYM 1202 ...) ; processing (DEFINE-KEYSYM 1203 ...) ; processing (DEFINE-KEYSYM 1204 ...) ; processing (DEFINE-KEYSYM 1205 ...) ; processing (DEFINE-KEYSYM 1206 ...) ; processing (DEFINE-KEYSYM 1207 ...) ; processing (DEFINE-KEYSYM 1208 ...) ; processing (DEFINE-KEYSYM 1209 ...) ; processing (DEFINE-KEYSYM 1210 ...) ; processing (DEFINE-KEYSYM 1211 ...) ; processing (DEFINE-KEYSYM 1212 ...) ; processing (DEFINE-KEYSYM 1213 ...) ; processing (DEFINE-KEYSYM 1214 ...) ; processing (DEFINE-KEYSYM 1215 ...) ; processing (DEFINE-KEYSYM 1216 ...) ; processing (DEFINE-KEYSYM 1217 ...) ; processing (DEFINE-KEYSYM 1217 ...) ; processing (DEFINE-KEYSYM 1218 ...) ; processing (DEFINE-KEYSYM 1218 ...) ; processing (DEFINE-KEYSYM 1219 ...) ; processing (DEFINE-KEYSYM 1220 ...) ; processing (DEFINE-KEYSYM 1221 ...) ; processing (DEFINE-KEYSYM 1222 ...) ; processing (DEFINE-KEYSYM 1223 ...) ; processing (DEFINE-KEYSYM 1224 ...) ; processing (DEFINE-KEYSYM 1225 ...) ; processing (DEFINE-KEYSYM 1226 ...) ; processing (DEFINE-KEYSYM 1227 ...) ; processing (DEFINE-KEYSYM 1228 ...) ; processing (DEFINE-KEYSYM 1228 ...) ; processing (DEFINE-KEYSYM 1229 ...) ; processing (DEFINE-KEYSYM 1230 ...) ; processing (DEFINE-KEYSYM 1231 ...) ; processing (DEFINE-KEYSYM 1232 ...) ; processing (DEFINE-KEYSYM 1233 ...) ; processing (DEFINE-KEYSYM 1234 ...) ; processing (DEFINE-KEYSYM 1235 ...) ; processing (DEFINE-KEYSYM 1236 ...) ; processing (DEFINE-KEYSYM 1237 ...) ; processing (DEFINE-KEYSYM 1238 ...) ; processing (DEFINE-KEYSYM 1239 ...) ; processing (DEFINE-KEYSYM 1240 ...) ; processing (DEFINE-KEYSYM 1241 ...) ; processing (DEFINE-KEYSYM 1242 ...) ; processing (DEFINE-KEYSYM 1243 ...) ; processing (DEFINE-KEYSYM 1244 ...) ; processing (DEFINE-KEYSYM 1245 ...) ; processing (DEFINE-KEYSYM 1246 ...) ; processing (DEFINE-KEYSYM 1247 ...) ; processing (DEFINE-KEYSYM 65406 ...) ; processing (DEFINE-KEYSYM 16778992 ...) ; processing (DEFINE-KEYSYM 16778993 ...) ; processing (DEFINE-KEYSYM 16778994 ...) ; processing (DEFINE-KEYSYM 16778995 ...) ; processing (DEFINE-KEYSYM 16778996 ...) ; processing (DEFINE-KEYSYM 16778997 ...) ; processing (DEFINE-KEYSYM 16778998 ...) ; processing (DEFINE-KEYSYM 16778999 ...) ; processing (DEFINE-KEYSYM 16779000 ...) ; processing (DEFINE-KEYSYM 16779001 ...) ; processing (DEFINE-KEYSYM 16778858 ...) ; processing (DEFINE-KEYSYM 16778864 ...) ; processing (DEFINE-KEYSYM 16778873 ...) ; processing (DEFINE-KEYSYM 16778878 ...) ; processing (DEFINE-KEYSYM 16778886 ...) ; processing (DEFINE-KEYSYM 16778888 ...) ; processing (DEFINE-KEYSYM 16778897 ...) ; processing (DEFINE-KEYSYM 1452 ...) ; processing (DEFINE-KEYSYM 16778964 ...) ; processing (DEFINE-KEYSYM 16778848 ...) ; processing (DEFINE-KEYSYM 16778849 ...) ; processing (DEFINE-KEYSYM 16778850 ...) ; processing (DEFINE-KEYSYM 16778851 ...) ; processing (DEFINE-KEYSYM 16778852 ...) ; processing (DEFINE-KEYSYM 16778853 ...) ; processing (DEFINE-KEYSYM 16778854 ...) ; processing (DEFINE-KEYSYM 16778855 ...) ; processing (DEFINE-KEYSYM 16778856 ...) ; processing (DEFINE-KEYSYM 16778857 ...) ; processing (DEFINE-KEYSYM 1467 ...) ; processing (DEFINE-KEYSYM 1471 ...) ; processing (DEFINE-KEYSYM 1473 ...) ; processing (DEFINE-KEYSYM 1474 ...) ; processing (DEFINE-KEYSYM 1475 ...) ; processing (DEFINE-KEYSYM 1476 ...) ; processing (DEFINE-KEYSYM 1477 ...) ; processing (DEFINE-KEYSYM 1478 ...) ; processing (DEFINE-KEYSYM 1479 ...) ; processing (DEFINE-KEYSYM 1480 ...) ; processing (DEFINE-KEYSYM 1481 ...) ; processing (DEFINE-KEYSYM 1482 ...) ; processing (DEFINE-KEYSYM 1483 ...) ; processing (DEFINE-KEYSYM 1484 ...) ; processing (DEFINE-KEYSYM 1485 ...) ; processing (DEFINE-KEYSYM 1486 ...) ; processing (DEFINE-KEYSYM 1487 ...) ; processing (DEFINE-KEYSYM 1488 ...) ; processing (DEFINE-KEYSYM 1489 ...) ; processing (DEFINE-KEYSYM 1490 ...) ; processing (DEFINE-KEYSYM 1491 ...) ; processing (DEFINE-KEYSYM 1492 ...) ; processing (DEFINE-KEYSYM 1493 ...) ; processing (DEFINE-KEYSYM 1494 ...) ; processing (DEFINE-KEYSYM 1495 ...) ; processing (DEFINE-KEYSYM 1496 ...) ; processing (DEFINE-KEYSYM 1497 ...) ; processing (DEFINE-KEYSYM 1498 ...) ; processing (DEFINE-KEYSYM 1504 ...) ; processing (DEFINE-KEYSYM 1505 ...) ; processing (DEFINE-KEYSYM 1506 ...) ; processing (DEFINE-KEYSYM 1507 ...) ; processing (DEFINE-KEYSYM 1508 ...) ; processing (DEFINE-KEYSYM 1509 ...) ; processing (DEFINE-KEYSYM 1510 ...) ; processing (DEFINE-KEYSYM 1511 ...) ; processing (DEFINE-KEYSYM 1511 ...) ; processing (DEFINE-KEYSYM 1512 ...) ; processing (DEFINE-KEYSYM 1513 ...) ; processing (DEFINE-KEYSYM 1514 ...) ; processing (DEFINE-KEYSYM 1515 ...) ; processing (DEFINE-KEYSYM 1516 ...) ; processing (DEFINE-KEYSYM 1517 ...) ; processing (DEFINE-KEYSYM 1518 ...) ; processing (DEFINE-KEYSYM 1519 ...) ; processing (DEFINE-KEYSYM 1520 ...) ; processing (DEFINE-KEYSYM 1521 ...) ; processing (DEFINE-KEYSYM 1522 ...) ; processing (DEFINE-KEYSYM 16778835 ...) ; processing (DEFINE-KEYSYM 16778836 ...) ; processing (DEFINE-KEYSYM 16778837 ...) ; processing (DEFINE-KEYSYM 16778904 ...) ; processing (DEFINE-KEYSYM 16778916 ...) ; processing (DEFINE-KEYSYM 16778921 ...) ; processing (DEFINE-KEYSYM 16778927 ...) ; processing (DEFINE-KEYSYM 16778938 ...) ; processing (DEFINE-KEYSYM 16778942 ...) ; processing (DEFINE-KEYSYM 16778956 ...) ; processing (DEFINE-KEYSYM 16778956 ...) ; processing (DEFINE-KEYSYM 16778962 ...) ; processing (DEFINE-KEYSYM 16778945 ...) ; processing (DEFINE-KEYSYM 65406 ...) ; processing (DEFINE-KEYSYM 16778386 ...) ; processing (DEFINE-KEYSYM 16778387 ...) ; processing (DEFINE-KEYSYM 16778390 ...) ; processing (DEFINE-KEYSYM 16778391 ...) ; processing (DEFINE-KEYSYM 16778394 ...) ; processing (DEFINE-KEYSYM 16778395 ...) ; processing (DEFINE-KEYSYM 16778396 ...) ; processing (DEFINE-KEYSYM 16778397 ...) ; processing (DEFINE-KEYSYM 16778402 ...) ; processing (DEFINE-KEYSYM 16778403 ...) ; processing (DEFINE-KEYSYM 16778414 ...) ; processing (DEFINE-KEYSYM 16778415 ...) ; processing (DEFINE-KEYSYM 16778416 ...) ; processing (DEFINE-KEYSYM 16778417 ...) ; processing (DEFINE-KEYSYM 16778418 ...) ; processing (DEFINE-KEYSYM 16778419 ...) ; processing (DEFINE-KEYSYM 16778422 ...) ; processing (DEFINE-KEYSYM 16778423 ...) ; processing (DEFINE-KEYSYM 16778424 ...) ; processing (DEFINE-KEYSYM 16778425 ...) ; processing (DEFINE-KEYSYM 16778426 ...) ; processing (DEFINE-KEYSYM 16778427 ...) ; processing (DEFINE-KEYSYM 16778456 ...) ; processing (DEFINE-KEYSYM 16778457 ...) ; processing (DEFINE-KEYSYM 16778466 ...) ; processing (DEFINE-KEYSYM 16778467 ...) ; processing (DEFINE-KEYSYM 16778472 ...) ; processing (DEFINE-KEYSYM 16778473 ...) ; processing (DEFINE-KEYSYM 16778478 ...) ; processing (DEFINE-KEYSYM 16778479 ...) ; processing (DEFINE-KEYSYM 1697 ...) ; processing (DEFINE-KEYSYM 1698 ...) ; processing (DEFINE-KEYSYM 1699 ...) ; processing (DEFINE-KEYSYM 1700 ...) ; processing (DEFINE-KEYSYM 1700 ...) ; processing (DEFINE-KEYSYM 1701 ...) ; processing (DEFINE-KEYSYM 1702 ...) ; processing (DEFINE-KEYSYM 1702 ...) ; processing (DEFINE-KEYSYM 1703 ...) ; processing (DEFINE-KEYSYM 1703 ...) ; processing (DEFINE-KEYSYM 1704 ...) ; processing (DEFINE-KEYSYM 1704 ...) ; processing (DEFINE-KEYSYM 1705 ...) ; processing (DEFINE-KEYSYM 1705 ...) ; processing (DEFINE-KEYSYM 1706 ...) ; processing (DEFINE-KEYSYM 1706 ...) ; processing (DEFINE-KEYSYM 1707 ...) ; processing (DEFINE-KEYSYM 1708 ...) ; processing (DEFINE-KEYSYM 1709 ...) ; processing (DEFINE-KEYSYM 1710 ...) ; processing (DEFINE-KEYSYM 1711 ...) ; processing (DEFINE-KEYSYM 1711 ...) ; processing (DEFINE-KEYSYM 1712 ...) ; processing (DEFINE-KEYSYM 1713 ...) ; processing (DEFINE-KEYSYM 1714 ...) ; processing (DEFINE-KEYSYM 1715 ...) ; processing (DEFINE-KEYSYM 1716 ...) ; processing (DEFINE-KEYSYM 1716 ...) ; processing (DEFINE-KEYSYM 1717 ...) ; processing (DEFINE-KEYSYM 1718 ...) ; processing (DEFINE-KEYSYM 1718 ...) ; processing (DEFINE-KEYSYM 1719 ...) ; processing (DEFINE-KEYSYM 1719 ...) ; processing (DEFINE-KEYSYM 1720 ...) ; processing (DEFINE-KEYSYM 1720 ...) ; processing (DEFINE-KEYSYM 1721 ...) ; processing (DEFINE-KEYSYM 1721 ...) ; processing (DEFINE-KEYSYM 1722 ...) ; processing (DEFINE-KEYSYM 1722 ...) ; processing (DEFINE-KEYSYM 1723 ...) ; processing (DEFINE-KEYSYM 1724 ...) ; processing (DEFINE-KEYSYM 1725 ...) ; processing (DEFINE-KEYSYM 1726 ...) ; processing (DEFINE-KEYSYM 1727 ...) ; processing (DEFINE-KEYSYM 1727 ...) ; processing (DEFINE-KEYSYM 1728 ...) ; processing (DEFINE-KEYSYM 1729 ...) ; processing (DEFINE-KEYSYM 1730 ...) ; processing (DEFINE-KEYSYM 1731 ...) ; processing (DEFINE-KEYSYM 1732 ...) ; processing (DEFINE-KEYSYM 1733 ...) ; processing (DEFINE-KEYSYM 1734 ...) ; processing (DEFINE-KEYSYM 1735 ...) ; processing (DEFINE-KEYSYM 1736 ...) ; processing (DEFINE-KEYSYM 1737 ...) ; processing (DEFINE-KEYSYM 1738 ...) ; processing (DEFINE-KEYSYM 1739 ...) ; processing (DEFINE-KEYSYM 1740 ...) ; processing (DEFINE-KEYSYM 1741 ...) ; processing (DEFINE-KEYSYM 1742 ...) ; processing (DEFINE-KEYSYM 1743 ...) ; processing (DEFINE-KEYSYM 1744 ...) ; processing (DEFINE-KEYSYM 1745 ...) ; processing (DEFINE-KEYSYM 1746 ...) ; processing (DEFINE-KEYSYM 1747 ...) ; processing (DEFINE-KEYSYM 1748 ...) ; processing (DEFINE-KEYSYM 1749 ...) ; processing (DEFINE-KEYSYM 1750 ...) ; processing (DEFINE-KEYSYM 1751 ...) ; processing (DEFINE-KEYSYM 1752 ...) ; processing (DEFINE-KEYSYM 1753 ...) ; processing (DEFINE-KEYSYM 1754 ...) ; processing (DEFINE-KEYSYM 1755 ...) ; processing (DEFINE-KEYSYM 1756 ...) ; processing (DEFINE-KEYSYM 1757 ...) ; processing (DEFINE-KEYSYM 1758 ...) ; processing (DEFINE-KEYSYM 1759 ...) ; processing (DEFINE-KEYSYM 1760 ...) ; processing (DEFINE-KEYSYM 1761 ...) ; processing (DEFINE-KEYSYM 1762 ...) ; processing (DEFINE-KEYSYM 1763 ...) ; processing (DEFINE-KEYSYM 1764 ...) ; processing (DEFINE-KEYSYM 1765 ...) ; processing (DEFINE-KEYSYM 1766 ...) ; processing (DEFINE-KEYSYM 1767 ...) ; processing (DEFINE-KEYSYM 1768 ...) ; processing (DEFINE-KEYSYM 1769 ...) ; processing (DEFINE-KEYSYM 1770 ...) ; processing (DEFINE-KEYSYM 1771 ...) ; processing (DEFINE-KEYSYM 1772 ...) ; processing (DEFINE-KEYSYM 1773 ...) ; processing (DEFINE-KEYSYM 1774 ...) ; processing (DEFINE-KEYSYM 1775 ...) ; processing (DEFINE-KEYSYM 1776 ...) ; processing (DEFINE-KEYSYM 1777 ...) ; processing (DEFINE-KEYSYM 1778 ...) ; processing (DEFINE-KEYSYM 1779 ...) ; processing (DEFINE-KEYSYM 1780 ...) ; processing (DEFINE-KEYSYM 1781 ...) ; processing (DEFINE-KEYSYM 1782 ...) ; processing (DEFINE-KEYSYM 1783 ...) ; processing (DEFINE-KEYSYM 1784 ...) ; processing (DEFINE-KEYSYM 1785 ...) ; processing (DEFINE-KEYSYM 1786 ...) ; processing (DEFINE-KEYSYM 1787 ...) ; processing (DEFINE-KEYSYM 1788 ...) ; processing (DEFINE-KEYSYM 1789 ...) ; processing (DEFINE-KEYSYM 1790 ...) ; processing (DEFINE-KEYSYM 1791 ...) ; processing (DEFINE-KEYSYM 1953 ...) ; processing (DEFINE-KEYSYM 1954 ...) ; processing (DEFINE-KEYSYM 1955 ...) ; processing (DEFINE-KEYSYM 1956 ...) ; processing (DEFINE-KEYSYM 1957 ...) ; processing (DEFINE-KEYSYM 1957 ...) ; processing (DEFINE-KEYSYM 1959 ...) ; processing (DEFINE-KEYSYM 1960 ...) ; processing (DEFINE-KEYSYM 1961 ...) ; processing (DEFINE-KEYSYM 1963 ...) ; processing (DEFINE-KEYSYM 1966 ...) ; processing (DEFINE-KEYSYM 1967 ...) ; processing (DEFINE-KEYSYM 1969 ...) ; processing (DEFINE-KEYSYM 1970 ...) ; processing (DEFINE-KEYSYM 1971 ...) ; processing (DEFINE-KEYSYM 1972 ...) ; processing (DEFINE-KEYSYM 1973 ...) ; processing (DEFINE-KEYSYM 1974 ...) ; processing (DEFINE-KEYSYM 1975 ...) ; processing (DEFINE-KEYSYM 1976 ...) ; processing (DEFINE-KEYSYM 1977 ...) ; processing (DEFINE-KEYSYM 1978 ...) ; processing (DEFINE-KEYSYM 1979 ...) ; processing (DEFINE-KEYSYM 1985 ...) ; processing (DEFINE-KEYSYM 1986 ...) ; processing (DEFINE-KEYSYM 1987 ...) ; processing (DEFINE-KEYSYM 1988 ...) ; processing (DEFINE-KEYSYM 1989 ...) ; processing (DEFINE-KEYSYM 1990 ...) ; processing (DEFINE-KEYSYM 1991 ...) ; processing (DEFINE-KEYSYM 1992 ...) ; processing (DEFINE-KEYSYM 1993 ...) ; processing (DEFINE-KEYSYM 1994 ...) ; processing (DEFINE-KEYSYM 1995 ...) ; processing (DEFINE-KEYSYM 1995 ...) ; processing (DEFINE-KEYSYM 1996 ...) ; processing (DEFINE-KEYSYM 1997 ...) ; processing (DEFINE-KEYSYM 1998 ...) ; processing (DEFINE-KEYSYM 1999 ...) ; processing (DEFINE-KEYSYM 2000 ...) ; processing (DEFINE-KEYSYM 2001 ...) ; processing (DEFINE-KEYSYM 2002 ...) ; processing (DEFINE-KEYSYM 2004 ...) ; processing (DEFINE-KEYSYM 2005 ...) ; processing (DEFINE-KEYSYM 2006 ...) ; processing (DEFINE-KEYSYM 2007 ...) ; processing (DEFINE-KEYSYM 2008 ...) ; processing (DEFINE-KEYSYM 2009 ...) ; processing (DEFINE-KEYSYM 2017 ...) ; processing (DEFINE-KEYSYM 2018 ...) ; processing (DEFINE-KEYSYM 2019 ...) ; processing (DEFINE-KEYSYM 2020 ...) ; processing (DEFINE-KEYSYM 2021 ...) ; processing (DEFINE-KEYSYM 2022 ...) ; processing (DEFINE-KEYSYM 2023 ...) ; processing (DEFINE-KEYSYM 2024 ...) ; processing (DEFINE-KEYSYM 2025 ...) ; processing (DEFINE-KEYSYM 2026 ...) ; processing (DEFINE-KEYSYM 2027 ...) ; processing (DEFINE-KEYSYM 2027 ...) ; processing (DEFINE-KEYSYM 2028 ...) ; processing (DEFINE-KEYSYM 2029 ...) ; processing (DEFINE-KEYSYM 2030 ...) ; processing (DEFINE-KEYSYM 2031 ...) ; processing (DEFINE-KEYSYM 2032 ...) ; processing (DEFINE-KEYSYM 2033 ...) ; processing (DEFINE-KEYSYM 2034 ...) ; processing (DEFINE-KEYSYM 2035 ...) ; processing (DEFINE-KEYSYM 2036 ...) ; processing (DEFINE-KEYSYM 2037 ...) ; processing (DEFINE-KEYSYM 2038 ...) ; processing (DEFINE-KEYSYM 2039 ...) ; processing (DEFINE-KEYSYM 2040 ...) ; processing (DEFINE-KEYSYM 2041 ...) ; processing (DEFINE-KEYSYM 65406 ...) ; processing (DEFINE-KEYSYM 2209 ...) ; processing (DEFINE-KEYSYM 2210 ...) ; processing (DEFINE-KEYSYM 2211 ...) ; processing (DEFINE-KEYSYM 2212 ...) ; processing (DEFINE-KEYSYM 2213 ...) ; processing (DEFINE-KEYSYM 2214 ...) ; processing (DEFINE-KEYSYM 2215 ...) ; processing (DEFINE-KEYSYM 2216 ...) ; processing (DEFINE-KEYSYM 2217 ...) ; processing (DEFINE-KEYSYM 2218 ...) ; processing (DEFINE-KEYSYM 2219 ...) ; processing (DEFINE-KEYSYM 2220 ...) ; processing (DEFINE-KEYSYM 2221 ...) ; processing (DEFINE-KEYSYM 2222 ...) ; processing (DEFINE-KEYSYM 2223 ...) ; processing (DEFINE-KEYSYM 2224 ...) ; processing (DEFINE-KEYSYM 2225 ...) ; processing (DEFINE-KEYSYM 2226 ...) ; processing (DEFINE-KEYSYM 2227 ...) ; processing (DEFINE-KEYSYM 2228 ...) ; processing (DEFINE-KEYSYM 2229 ...) ; processing (DEFINE-KEYSYM 2230 ...) ; processing (DEFINE-KEYSYM 2231 ...) ; processing (DEFINE-KEYSYM 2236 ...) ; processing (DEFINE-KEYSYM 2237 ...) ; processing (DEFINE-KEYSYM 2238 ...) ; processing (DEFINE-KEYSYM 2239 ...) ; processing (DEFINE-KEYSYM 2240 ...) ; processing (DEFINE-KEYSYM 2241 ...) ; processing (DEFINE-KEYSYM 2242 ...) ; processing (DEFINE-KEYSYM 2245 ...) ; processing (DEFINE-KEYSYM 2248 ...) ; processing (DEFINE-KEYSYM 2249 ...) ; processing (DEFINE-KEYSYM 2253 ...) ; processing (DEFINE-KEYSYM 2254 ...) ; processing (DEFINE-KEYSYM 2255 ...) ; processing (DEFINE-KEYSYM 2262 ...) ; processing (DEFINE-KEYSYM 2266 ...) ; processing (DEFINE-KEYSYM 2267 ...) ; processing (DEFINE-KEYSYM 2268 ...) ; processing (DEFINE-KEYSYM 2269 ...) ; processing (DEFINE-KEYSYM 2270 ...) ; processing (DEFINE-KEYSYM 2271 ...) ; processing (DEFINE-KEYSYM 2287 ...) ; processing (DEFINE-KEYSYM 2294 ...) ; processing (DEFINE-KEYSYM 2299 ...) ; processing (DEFINE-KEYSYM 2300 ...) ; processing (DEFINE-KEYSYM 2301 ...) ; processing (DEFINE-KEYSYM 2302 ...) ; processing (DEFINE-KEYSYM 2527 ...) ; processing (DEFINE-KEYSYM 2528 ...) ; processing (DEFINE-KEYSYM 2529 ...) ; processing (DEFINE-KEYSYM 2530 ...) ; processing (DEFINE-KEYSYM 2531 ...) ; processing (DEFINE-KEYSYM 2532 ...) ; processing (DEFINE-KEYSYM 2533 ...) ; processing (DEFINE-KEYSYM 2536 ...) ; processing (DEFINE-KEYSYM 2537 ...) ; processing (DEFINE-KEYSYM 2538 ...) ; processing (DEFINE-KEYSYM 2539 ...) ; processing (DEFINE-KEYSYM 2540 ...) ; processing (DEFINE-KEYSYM 2541 ...) ; processing (DEFINE-KEYSYM 2542 ...) ; processing (DEFINE-KEYSYM 2543 ...) ; processing (DEFINE-KEYSYM 2544 ...) ; processing (DEFINE-KEYSYM 2545 ...) ; processing (DEFINE-KEYSYM 2546 ...) ; processing (DEFINE-KEYSYM 2547 ...) ; processing (DEFINE-KEYSYM 2548 ...) ; processing (DEFINE-KEYSYM 2549 ...) ; processing (DEFINE-KEYSYM 2550 ...) ; processing (DEFINE-KEYSYM 2551 ...) ; processing (DEFINE-KEYSYM 2552 ...) ; processing (DEFINE-KEYSYM 2721 ...) ; processing (DEFINE-KEYSYM 2722 ...) ; processing (DEFINE-KEYSYM 2723 ...) ; processing (DEFINE-KEYSYM 2724 ...) ; processing (DEFINE-KEYSYM 2725 ...) ; processing (DEFINE-KEYSYM 2726 ...) ; processing (DEFINE-KEYSYM 2727 ...) ; processing (DEFINE-KEYSYM 2728 ...) ; processing (DEFINE-KEYSYM 2729 ...) ; processing (DEFINE-KEYSYM 2730 ...) ; processing (DEFINE-KEYSYM 2732 ...) ; processing (DEFINE-KEYSYM 2734 ...) ; processing (DEFINE-KEYSYM 2735 ...) ; processing (DEFINE-KEYSYM 2736 ...) ; processing (DEFINE-KEYSYM 2737 ...) ; processing (DEFINE-KEYSYM 2738 ...) ; processing (DEFINE-KEYSYM 2739 ...) ; processing (DEFINE-KEYSYM 2740 ...) ; processing (DEFINE-KEYSYM 2741 ...) ; processing (DEFINE-KEYSYM 2742 ...) ; processing (DEFINE-KEYSYM 2743 ...) ; processing (DEFINE-KEYSYM 2744 ...) ; processing (DEFINE-KEYSYM 2747 ...) ; processing (DEFINE-KEYSYM 2748 ...) ; processing (DEFINE-KEYSYM 2749 ...) ; processing (DEFINE-KEYSYM 2750 ...) ; processing (DEFINE-KEYSYM 2751 ...) ; processing (DEFINE-KEYSYM 2755 ...) ; processing (DEFINE-KEYSYM 2756 ...) ; processing (DEFINE-KEYSYM 2757 ...) ; processing (DEFINE-KEYSYM 2758 ...) ; processing (DEFINE-KEYSYM 2761 ...) ; processing (DEFINE-KEYSYM 2762 ...) ; processing (DEFINE-KEYSYM 2763 ...) ; processing (DEFINE-KEYSYM 2764 ...) ; processing (DEFINE-KEYSYM 2765 ...) ; processing (DEFINE-KEYSYM 2766 ...) ; processing (DEFINE-KEYSYM 2767 ...) ; processing (DEFINE-KEYSYM 2768 ...) ; processing (DEFINE-KEYSYM 2769 ...) ; processing (DEFINE-KEYSYM 2770 ...) ; processing (DEFINE-KEYSYM 2771 ...) ; processing (DEFINE-KEYSYM 2772 ...) ; processing (DEFINE-KEYSYM 2774 ...) ; processing (DEFINE-KEYSYM 2775 ...) ; processing (DEFINE-KEYSYM 2777 ...) ; processing (DEFINE-KEYSYM 2778 ...) ; processing (DEFINE-KEYSYM 2779 ...) ; processing (DEFINE-KEYSYM 2780 ...) ; processing (DEFINE-KEYSYM 2781 ...) ; processing (DEFINE-KEYSYM 2782 ...) ; processing (DEFINE-KEYSYM 2783 ...) ; processing (DEFINE-KEYSYM 2784 ...) ; processing (DEFINE-KEYSYM 2785 ...) ; processing (DEFINE-KEYSYM 2786 ...) ; processing (DEFINE-KEYSYM 2787 ...) ; processing (DEFINE-KEYSYM 2788 ...) ; processing (DEFINE-KEYSYM 2789 ...) ; processing (DEFINE-KEYSYM 2790 ...) ; processing (DEFINE-KEYSYM 2791 ...) ; processing (DEFINE-KEYSYM 2792 ...) ; processing (DEFINE-KEYSYM 2793 ...) ; processing (DEFINE-KEYSYM 2794 ...) ; processing (DEFINE-KEYSYM 2795 ...) ; processing (DEFINE-KEYSYM 2796 ...) ; processing (DEFINE-KEYSYM 2797 ...) ; processing (DEFINE-KEYSYM 2798 ...) ; processing (DEFINE-KEYSYM 2800 ...) ; processing (DEFINE-KEYSYM 2801 ...) ; processing (DEFINE-KEYSYM 2802 ...) ; processing (DEFINE-KEYSYM 2803 ...) ; processing (DEFINE-KEYSYM 2804 ...) ; processing (DEFINE-KEYSYM 2805 ...) ; processing (DEFINE-KEYSYM 2806 ...) ; processing (DEFINE-KEYSYM 2807 ...) ; processing (DEFINE-KEYSYM 2808 ...) ; processing (DEFINE-KEYSYM 2809 ...) ; processing (DEFINE-KEYSYM 2810 ...) ; processing (DEFINE-KEYSYM 2811 ...) ; processing (DEFINE-KEYSYM 2812 ...) ; processing (DEFINE-KEYSYM 2813 ...) ; processing (DEFINE-KEYSYM 2814 ...) ; processing (DEFINE-KEYSYM 2815 ...) ; processing (DEFINE-KEYSYM 2979 ...) ; processing (DEFINE-KEYSYM 2982 ...) ; processing (DEFINE-KEYSYM 2984 ...) ; processing (DEFINE-KEYSYM 2985 ...) ; processing (DEFINE-KEYSYM 3008 ...) ; processing (DEFINE-KEYSYM 3010 ...) ; processing (DEFINE-KEYSYM 3011 ...) ; processing (DEFINE-KEYSYM 3012 ...) ; processing (DEFINE-KEYSYM 3014 ...) ; processing (DEFINE-KEYSYM 3018 ...) ; processing (DEFINE-KEYSYM 3020 ...) ; processing (DEFINE-KEYSYM 3022 ...) ; processing (DEFINE-KEYSYM 3023 ...) ; processing (DEFINE-KEYSYM 3027 ...) ; processing (DEFINE-KEYSYM 3030 ...) ; processing (DEFINE-KEYSYM 3032 ...) ; processing (DEFINE-KEYSYM 3034 ...) ; processing (DEFINE-KEYSYM 3036 ...) ; processing (DEFINE-KEYSYM 3068 ...) ; processing (DEFINE-KEYSYM 3295 ...) ; processing (DEFINE-KEYSYM 3296 ...) ; processing (DEFINE-KEYSYM 3297 ...) ; processing (DEFINE-KEYSYM 3297 ...) ; processing (DEFINE-KEYSYM 3298 ...) ; processing (DEFINE-KEYSYM 3298 ...) ; processing (DEFINE-KEYSYM 3299 ...) ; processing (DEFINE-KEYSYM 3299 ...) ; processing (DEFINE-KEYSYM 3300 ...) ; processing (DEFINE-KEYSYM 3301 ...) ; processing (DEFINE-KEYSYM 3302 ...) ; processing (DEFINE-KEYSYM 3302 ...) ; processing (DEFINE-KEYSYM 3303 ...) ; processing (DEFINE-KEYSYM 3303 ...) ; processing (DEFINE-KEYSYM 3304 ...) ; processing (DEFINE-KEYSYM 3304 ...) ; processing (DEFINE-KEYSYM 3305 ...) ; processing (DEFINE-KEYSYM 3306 ...) ; processing (DEFINE-KEYSYM 3307 ...) ; processing (DEFINE-KEYSYM 3308 ...) ; processing (DEFINE-KEYSYM 3309 ...) ; processing (DEFINE-KEYSYM 3310 ...) ; processing (DEFINE-KEYSYM 3311 ...) ; processing (DEFINE-KEYSYM 3312 ...) ; processing (DEFINE-KEYSYM 3313 ...) ; processing (DEFINE-KEYSYM 3313 ...) ; processing (DEFINE-KEYSYM 3314 ...) ; processing (DEFINE-KEYSYM 3315 ...) ; processing (DEFINE-KEYSYM 3316 ...) ; processing (DEFINE-KEYSYM 3317 ...) ; processing (DEFINE-KEYSYM 3317 ...) ; processing (DEFINE-KEYSYM 3318 ...) ; processing (DEFINE-KEYSYM 3318 ...) ; processing (DEFINE-KEYSYM 3319 ...) ; processing (DEFINE-KEYSYM 3319 ...) ; processing (DEFINE-KEYSYM 3320 ...) ; processing (DEFINE-KEYSYM 3321 ...) ; processing (DEFINE-KEYSYM 3322 ...) ; processing (DEFINE-KEYSYM 3322 ...) ; processing (DEFINE-KEYSYM 65406 ...) ; processing (DEFINE-KEYSYM 3489 ...) ; processing (DEFINE-KEYSYM 3490 ...) ; processing (DEFINE-KEYSYM 3491 ...) ; processing (DEFINE-KEYSYM 3492 ...) ; processing (DEFINE-KEYSYM 3493 ...) ; processing (DEFINE-KEYSYM 3494 ...) ; processing (DEFINE-KEYSYM 3495 ...) ; processing (DEFINE-KEYSYM 3496 ...) ; processing (DEFINE-KEYSYM 3497 ...) ; processing (DEFINE-KEYSYM 3498 ...) ; processing (DEFINE-KEYSYM 3499 ...) ; processing (DEFINE-KEYSYM 3500 ...) ; processing (DEFINE-KEYSYM 3501 ...) ; processing (DEFINE-KEYSYM 3502 ...) ; processing (DEFINE-KEYSYM 3503 ...) ; processing (DEFINE-KEYSYM 3504 ...) ; processing (DEFINE-KEYSYM 3505 ...) ; processing (DEFINE-KEYSYM 3506 ...) ; processing (DEFINE-KEYSYM 3507 ...) ; processing (DEFINE-KEYSYM 3508 ...) ; processing (DEFINE-KEYSYM 3509 ...) ; processing (DEFINE-KEYSYM 3510 ...) ; processing (DEFINE-KEYSYM 3511 ...) ; processing (DEFINE-KEYSYM 3512 ...) ; processing (DEFINE-KEYSYM 3513 ...) ; processing (DEFINE-KEYSYM 3514 ...) ; processing (DEFINE-KEYSYM 3515 ...) ; processing (DEFINE-KEYSYM 3516 ...) ; processing (DEFINE-KEYSYM 3517 ...) ; processing (DEFINE-KEYSYM 3518 ...) ; processing (DEFINE-KEYSYM 3519 ...) ; processing (DEFINE-KEYSYM 3520 ...) ; processing (DEFINE-KEYSYM 3521 ...) ; processing (DEFINE-KEYSYM 3522 ...) ; processing (DEFINE-KEYSYM 3523 ...) ; processing (DEFINE-KEYSYM 3524 ...) ; processing (DEFINE-KEYSYM 3525 ...) ; processing (DEFINE-KEYSYM 3526 ...) ; processing (DEFINE-KEYSYM 3527 ...) ; processing (DEFINE-KEYSYM 3528 ...) ; processing (DEFINE-KEYSYM 3529 ...) ; processing (DEFINE-KEYSYM 3530 ...) ; processing (DEFINE-KEYSYM 3531 ...) ; processing (DEFINE-KEYSYM 3532 ...) ; processing (DEFINE-KEYSYM 3533 ...) ; processing (DEFINE-KEYSYM 3534 ...) ; processing (DEFINE-KEYSYM 3535 ...) ; processing (DEFINE-KEYSYM 3536 ...) ; processing (DEFINE-KEYSYM 3537 ...) ; processing (DEFINE-KEYSYM 3538 ...) ; processing (DEFINE-KEYSYM 3539 ...) ; processing (DEFINE-KEYSYM 3540 ...) ; processing (DEFINE-KEYSYM 3541 ...) ; processing (DEFINE-KEYSYM 3542 ...) ; processing (DEFINE-KEYSYM 3543 ...) ; processing (DEFINE-KEYSYM 3544 ...) ; processing (DEFINE-KEYSYM 3545 ...) ; processing (DEFINE-KEYSYM 3546 ...) ; processing (DEFINE-KEYSYM 3550 ...) ; processing (DEFINE-KEYSYM 3551 ...) ; processing (DEFINE-KEYSYM 3552 ...) ; processing (DEFINE-KEYSYM 3553 ...) ; processing (DEFINE-KEYSYM 3554 ...) ; processing (DEFINE-KEYSYM 3555 ...) ; processing (DEFINE-KEYSYM 3556 ...) ; processing (DEFINE-KEYSYM 3557 ...) ; processing (DEFINE-KEYSYM 3558 ...) ; processing (DEFINE-KEYSYM 3559 ...) ; processing (DEFINE-KEYSYM 3560 ...) ; processing (DEFINE-KEYSYM 3561 ...) ; processing (DEFINE-KEYSYM 3562 ...) ; processing (DEFINE-KEYSYM 3563 ...) ; processing (DEFINE-KEYSYM 3564 ...) ; processing (DEFINE-KEYSYM 3565 ...) ; processing (DEFINE-KEYSYM 3568 ...) ; processing (DEFINE-KEYSYM 3569 ...) ; processing (DEFINE-KEYSYM 3570 ...) ; processing (DEFINE-KEYSYM 3571 ...) ; processing (DEFINE-KEYSYM 3572 ...) ; processing (DEFINE-KEYSYM 3573 ...) ; processing (DEFINE-KEYSYM 3574 ...) ; processing (DEFINE-KEYSYM 3575 ...) ; processing (DEFINE-KEYSYM 3576 ...) ; processing (DEFINE-KEYSYM 3577 ...) ; processing (DEFINE-KEYSYM 65329 ...) ; processing (DEFINE-KEYSYM 65330 ...) ; processing (DEFINE-KEYSYM 65331 ...) ; processing (DEFINE-KEYSYM 65332 ...) ; processing (DEFINE-KEYSYM 65333 ...) ; processing (DEFINE-KEYSYM 65334 ...) ; processing (DEFINE-KEYSYM 65335 ...) ; processing (DEFINE-KEYSYM 65336 ...) ; processing (DEFINE-KEYSYM 65337 ...) ; processing (DEFINE-KEYSYM 65338 ...) ; processing (DEFINE-KEYSYM 65339 ...) ; processing (DEFINE-KEYSYM 65340 ...) ; processing (DEFINE-KEYSYM 65341 ...) ; processing (DEFINE-KEYSYM 65342 ...) ; processing (DEFINE-KEYSYM 65343 ...) ; processing (DEFINE-KEYSYM 65406 ...) ; processing (DEFINE-KEYSYM 3745 ...) ; processing (DEFINE-KEYSYM 3746 ...) ; processing (DEFINE-KEYSYM 3747 ...) ; processing (DEFINE-KEYSYM 3748 ...) ; processing (DEFINE-KEYSYM 3749 ...) ; processing (DEFINE-KEYSYM 3750 ...) ; processing (DEFINE-KEYSYM 3751 ...) ; processing (DEFINE-KEYSYM 3752 ...) ; processing (DEFINE-KEYSYM 3753 ...) ; processing (DEFINE-KEYSYM 3754 ...) ; processing (DEFINE-KEYSYM 3755 ...) ; processing (DEFINE-KEYSYM 3756 ...) ; processing (DEFINE-KEYSYM 3757 ...) ; processing (DEFINE-KEYSYM 3758 ...) ; processing (DEFINE-KEYSYM 3759 ...) ; processing (DEFINE-KEYSYM 3760 ...) ; processing (DEFINE-KEYSYM 3761 ...) ; processing (DEFINE-KEYSYM 3762 ...) ; processing (DEFINE-KEYSYM 3763 ...) ; processing (DEFINE-KEYSYM 3764 ...) ; processing (DEFINE-KEYSYM 3765 ...) ; processing (DEFINE-KEYSYM 3766 ...) ; processing (DEFINE-KEYSYM 3767 ...) ; processing (DEFINE-KEYSYM 3768 ...) ; processing (DEFINE-KEYSYM 3769 ...) ; processing (DEFINE-KEYSYM 3770 ...) ; processing (DEFINE-KEYSYM 3771 ...) ; processing (DEFINE-KEYSYM 3772 ...) ; processing (DEFINE-KEYSYM 3773 ...) ; processing (DEFINE-KEYSYM 3774 ...) ; processing (DEFINE-KEYSYM 3775 ...) ; processing (DEFINE-KEYSYM 3776 ...) ; processing (DEFINE-KEYSYM 3777 ...) ; processing (DEFINE-KEYSYM 3778 ...) ; processing (DEFINE-KEYSYM 3779 ...) ; processing (DEFINE-KEYSYM 3780 ...) ; processing (DEFINE-KEYSYM 3781 ...) ; processing (DEFINE-KEYSYM 3782 ...) ; processing (DEFINE-KEYSYM 3783 ...) ; processing (DEFINE-KEYSYM 3784 ...) ; processing (DEFINE-KEYSYM 3785 ...) ; processing (DEFINE-KEYSYM 3786 ...) ; processing (DEFINE-KEYSYM 3787 ...) ; processing (DEFINE-KEYSYM 3788 ...) ; processing (DEFINE-KEYSYM 3789 ...) ; processing (DEFINE-KEYSYM 3790 ...) ; processing (DEFINE-KEYSYM 3791 ...) ; processing (DEFINE-KEYSYM 3792 ...) ; processing (DEFINE-KEYSYM 3793 ...) ; processing (DEFINE-KEYSYM 3794 ...) ; processing (DEFINE-KEYSYM 3795 ...) ; processing (DEFINE-KEYSYM 3796 ...) ; processing (DEFINE-KEYSYM 3797 ...) ; processing (DEFINE-KEYSYM 3798 ...) ; processing (DEFINE-KEYSYM 3799 ...) ; processing (DEFINE-KEYSYM 3800 ...) ; processing (DEFINE-KEYSYM 3801 ...) ; processing (DEFINE-KEYSYM 3802 ...) ; processing (DEFINE-KEYSYM 3803 ...) ; processing (DEFINE-KEYSYM 3804 ...) ; processing (DEFINE-KEYSYM 3805 ...) ; processing (DEFINE-KEYSYM 3806 ...) ; processing (DEFINE-KEYSYM 3807 ...) ; processing (DEFINE-KEYSYM 3808 ...) ; processing (DEFINE-KEYSYM 3809 ...) ; processing (DEFINE-KEYSYM 3810 ...) ; processing (DEFINE-KEYSYM 3811 ...) ; processing (DEFINE-KEYSYM 3812 ...) ; processing (DEFINE-KEYSYM 3813 ...) ; processing (DEFINE-KEYSYM 3814 ...) ; processing (DEFINE-KEYSYM 3815 ...) ; processing (DEFINE-KEYSYM 3816 ...) ; processing (DEFINE-KEYSYM 3817 ...) ; processing (DEFINE-KEYSYM 3818 ...) ; processing (DEFINE-KEYSYM 3819 ...) ; processing (DEFINE-KEYSYM 3820 ...) ; processing (DEFINE-KEYSYM 3821 ...) ; processing (DEFINE-KEYSYM 3822 ...) ; processing (DEFINE-KEYSYM 3823 ...) ; processing (DEFINE-KEYSYM 3824 ...) ; processing (DEFINE-KEYSYM 3825 ...) ; processing (DEFINE-KEYSYM 3826 ...) ; processing (DEFINE-KEYSYM 3827 ...) ; processing (DEFINE-KEYSYM 3828 ...) ; processing (DEFINE-KEYSYM 3829 ...) ; processing (DEFINE-KEYSYM 3830 ...) ; processing (DEFINE-KEYSYM 3831 ...) ; processing (DEFINE-KEYSYM 3832 ...) ; processing (DEFINE-KEYSYM 3833 ...) ; processing (DEFINE-KEYSYM 3834 ...) ; processing (DEFINE-KEYSYM 3839 ...) ; processing (DEFINE-KEYSYM 16778631 ...) ; processing (DEFINE-KEYSYM 16778633 ...) ; processing (DEFINE-KEYSYM 16778633 ...) ; processing (DEFINE-KEYSYM 16778589 ...) ; processing (DEFINE-KEYSYM 16778589 ...) ; processing (DEFINE-KEYSYM 16778634 ...) ; processing (DEFINE-KEYSYM 16778634 ...) ; processing (DEFINE-KEYSYM 16778588 ...) ; processing (DEFINE-KEYSYM 16778588 ...) ; processing (DEFINE-KEYSYM 16778587 ...) ; processing (DEFINE-KEYSYM 16778587 ...) ; processing (DEFINE-KEYSYM 16778590 ...) ; processing (DEFINE-KEYSYM 16778590 ...) ; processing (DEFINE-KEYSYM 16778545 ...) ; processing (DEFINE-KEYSYM 16778593 ...) ; processing (DEFINE-KEYSYM 16778546 ...) ; processing (DEFINE-KEYSYM 16778594 ...) ; processing (DEFINE-KEYSYM 16778547 ...) ; processing (DEFINE-KEYSYM 16778595 ...) ; processing (DEFINE-KEYSYM 16778548 ...) ; processing (DEFINE-KEYSYM 16778596 ...) ; processing (DEFINE-KEYSYM 16778549 ...) ; processing (DEFINE-KEYSYM 16778597 ...) ; processing (DEFINE-KEYSYM 16778550 ...) ; processing (DEFINE-KEYSYM 16778598 ...) ; processing (DEFINE-KEYSYM 16778551 ...) ; processing (DEFINE-KEYSYM 16778599 ...) ; processing (DEFINE-KEYSYM 16778552 ...) ; processing (DEFINE-KEYSYM 16778600 ...) ; processing (DEFINE-KEYSYM 16778553 ...) ; processing (DEFINE-KEYSYM 16778601 ...) ; processing (DEFINE-KEYSYM 16778554 ...) ; processing (DEFINE-KEYSYM 16778602 ...) ; processing (DEFINE-KEYSYM 16778555 ...) ; processing (DEFINE-KEYSYM 16778603 ...) ; processing (DEFINE-KEYSYM 16778556 ...) ; processing (DEFINE-KEYSYM 16778604 ...) ; processing (DEFINE-KEYSYM 16778557 ...) ; processing (DEFINE-KEYSYM 16778605 ...) ; processing (DEFINE-KEYSYM 16778558 ...) ; processing (DEFINE-KEYSYM 16778606 ...) ; processing (DEFINE-KEYSYM 16778559 ...) ; processing (DEFINE-KEYSYM 16778607 ...) ; processing (DEFINE-KEYSYM 16778560 ...) ; processing (DEFINE-KEYSYM 16778608 ...) ; processing (DEFINE-KEYSYM 16778561 ...) ; processing (DEFINE-KEYSYM 16778609 ...) ; processing (DEFINE-KEYSYM 16778562 ...) ; processing (DEFINE-KEYSYM 16778610 ...) ; processing (DEFINE-KEYSYM 16778563 ...) ; processing (DEFINE-KEYSYM 16778611 ...) ; processing (DEFINE-KEYSYM 16778564 ...) ; processing (DEFINE-KEYSYM 16778612 ...) ; processing (DEFINE-KEYSYM 16778565 ...) ; processing (DEFINE-KEYSYM 16778613 ...) ; processing (DEFINE-KEYSYM 16778566 ...) ; processing (DEFINE-KEYSYM 16778614 ...) ; processing (DEFINE-KEYSYM 16778567 ...) ; processing (DEFINE-KEYSYM 16778615 ...) ; processing (DEFINE-KEYSYM 16778568 ...) ; processing (DEFINE-KEYSYM 16778616 ...) ; processing (DEFINE-KEYSYM 16778569 ...) ; processing (DEFINE-KEYSYM 16778617 ...) ; processing (DEFINE-KEYSYM 16778570 ...) ; processing (DEFINE-KEYSYM 16778618 ...) ; processing (DEFINE-KEYSYM 16778571 ...) ; processing (DEFINE-KEYSYM 16778619 ...) ; processing (DEFINE-KEYSYM 16778572 ...) ; processing (DEFINE-KEYSYM 16778620 ...) ; processing (DEFINE-KEYSYM 16778573 ...) ; processing (DEFINE-KEYSYM 16778621 ...) ; processing (DEFINE-KEYSYM 16778574 ...) ; processing (DEFINE-KEYSYM 16778622 ...) ; processing (DEFINE-KEYSYM 16778575 ...) ; processing (DEFINE-KEYSYM 16778623 ...) ; processing (DEFINE-KEYSYM 16778576 ...) ; processing (DEFINE-KEYSYM 16778624 ...) ; processing (DEFINE-KEYSYM 16778577 ...) ; processing (DEFINE-KEYSYM 16778625 ...) ; processing (DEFINE-KEYSYM 16778578 ...) ; processing (DEFINE-KEYSYM 16778626 ...) ; processing (DEFINE-KEYSYM 16778579 ...) ; processing (DEFINE-KEYSYM 16778627 ...) ; processing (DEFINE-KEYSYM 16778580 ...) ; processing (DEFINE-KEYSYM 16778628 ...) ; processing (DEFINE-KEYSYM 16778581 ...) ; processing (DEFINE-KEYSYM 16778629 ...) ; processing (DEFINE-KEYSYM 16778582 ...) ; processing (DEFINE-KEYSYM 16778630 ...) ; processing (DEFINE-KEYSYM 16778586 ...) ; processing (DEFINE-KEYSYM 16781520 ...) ; processing (DEFINE-KEYSYM 16781521 ...) ; processing (DEFINE-KEYSYM 16781522 ...) ; processing (DEFINE-KEYSYM 16781523 ...) ; processing (DEFINE-KEYSYM 16781524 ...) ; processing (DEFINE-KEYSYM 16781525 ...) ; processing (DEFINE-KEYSYM 16781526 ...) ; processing (DEFINE-KEYSYM 16781527 ...) ; processing (DEFINE-KEYSYM 16781528 ...) ; processing (DEFINE-KEYSYM 16781529 ...) ; processing (DEFINE-KEYSYM 16781530 ...) ; processing (DEFINE-KEYSYM 16781531 ...) ; processing (DEFINE-KEYSYM 16781532 ...) ; processing (DEFINE-KEYSYM 16781533 ...) ; processing (DEFINE-KEYSYM 16781534 ...) ; processing (DEFINE-KEYSYM 16781535 ...) ; processing (DEFINE-KEYSYM 16781536 ...) ; processing (DEFINE-KEYSYM 16781537 ...) ; processing (DEFINE-KEYSYM 16781538 ...) ; processing (DEFINE-KEYSYM 16781539 ...) ; processing (DEFINE-KEYSYM 16781540 ...) ; processing (DEFINE-KEYSYM 16781541 ...) ; processing (DEFINE-KEYSYM 16781542 ...) ; processing (DEFINE-KEYSYM 16781543 ...) ; processing (DEFINE-KEYSYM 16781544 ...) ; processing (DEFINE-KEYSYM 16781545 ...) ; processing (DEFINE-KEYSYM 16781546 ...) ; processing (DEFINE-KEYSYM 16781547 ...) ; processing (DEFINE-KEYSYM 16781548 ...) ; processing (DEFINE-KEYSYM 16781549 ...) ; processing (DEFINE-KEYSYM 16781550 ...) ; processing (DEFINE-KEYSYM 16781551 ...) ; processing (DEFINE-KEYSYM 16781552 ...) ; processing (DEFINE-KEYSYM 16781553 ...) ; processing (DEFINE-KEYSYM 16781554 ...) ; processing (DEFINE-KEYSYM 16781555 ...) ; processing (DEFINE-KEYSYM 16781556 ...) ; processing (DEFINE-KEYSYM 16781557 ...) ; processing (DEFINE-KEYSYM 16781558 ...) ; processing (DEFINE-KEYSYM 16785034 ...) ; processing (DEFINE-KEYSYM 16777516 ...) ; processing (DEFINE-KEYSYM 16777653 ...) ; processing (DEFINE-KEYSYM 16777702 ...) ; processing (DEFINE-KEYSYM 16777681 ...) ; processing (DEFINE-KEYSYM 16777631 ...) ; processing (DEFINE-KEYSYM 16785035 ...) ; processing (DEFINE-KEYSYM 16777517 ...) ; processing (DEFINE-KEYSYM 16777654 ...) ; processing (DEFINE-KEYSYM 16777703 ...) ; processing (DEFINE-KEYSYM 16777682 ...) ; processing (DEFINE-KEYSYM 16777845 ...) ; processing (DEFINE-KEYSYM 16777615 ...) ; processing (DEFINE-KEYSYM 16777817 ...) ; processing (DEFINE-KEYSYM 16784950 ...) ; processing (DEFINE-KEYSYM 16784951 ...) ; processing (DEFINE-KEYSYM 16785056 ...) ; processing (DEFINE-KEYSYM 16785057 ...) ; processing (DEFINE-KEYSYM 16785058 ...) ; processing (DEFINE-KEYSYM 16785059 ...) ; processing (DEFINE-KEYSYM 16785060 ...) ; processing (DEFINE-KEYSYM 16785061 ...) ; processing (DEFINE-KEYSYM 16785062 ...) ; processing (DEFINE-KEYSYM 16785063 ...) ; processing (DEFINE-KEYSYM 16785064 ...) ; processing (DEFINE-KEYSYM 16785065 ...) ; processing (DEFINE-KEYSYM 16785066 ...) ; processing (DEFINE-KEYSYM 16785067 ...) ; processing (DEFINE-KEYSYM 16785068 ...) ; processing (DEFINE-KEYSYM 16785069 ...) ; processing (DEFINE-KEYSYM 16785070 ...) ; processing (DEFINE-KEYSYM 16785071 ...) ; processing (DEFINE-KEYSYM 16785072 ...) ; processing (DEFINE-KEYSYM 16785073 ...) ; processing (DEFINE-KEYSYM 16785074 ...) ; processing (DEFINE-KEYSYM 16785075 ...) ; processing (DEFINE-KEYSYM 16785076 ...) ; processing (DEFINE-KEYSYM 16785077 ...) ; processing (DEFINE-KEYSYM 16785078 ...) ; processing (DEFINE-KEYSYM 16785079 ...) ; processing (DEFINE-KEYSYM 16785080 ...) ; processing (DEFINE-KEYSYM 16785081 ...) ; processing (DEFINE-KEYSYM 16785082 ...) ; processing (DEFINE-KEYSYM 16785083 ...) ; processing (DEFINE-KEYSYM 16785084 ...) ; processing (DEFINE-KEYSYM 16785085 ...) ; processing (DEFINE-KEYSYM 16785086 ...) ; processing (DEFINE-KEYSYM 16785087 ...) ; processing (DEFINE-KEYSYM 16785088 ...) ; processing (DEFINE-KEYSYM 16785089 ...) ; processing (DEFINE-KEYSYM 16785090 ...) ; processing (DEFINE-KEYSYM 16785091 ...) ; processing (DEFINE-KEYSYM 16785092 ...) ; processing (DEFINE-KEYSYM 16785093 ...) ; processing (DEFINE-KEYSYM 16785094 ...) ; processing (DEFINE-KEYSYM 16785095 ...) ; processing (DEFINE-KEYSYM 16785096 ...) ; processing (DEFINE-KEYSYM 16785097 ...) ; processing (DEFINE-KEYSYM 16785098 ...) ; processing (DEFINE-KEYSYM 16785099 ...) ; processing (DEFINE-KEYSYM 16785100 ...) ; processing (DEFINE-KEYSYM 16785101 ...) ; processing (DEFINE-KEYSYM 16785102 ...) ; processing (DEFINE-KEYSYM 16785103 ...) ; processing (DEFINE-KEYSYM 16785104 ...) ; processing (DEFINE-KEYSYM 16785105 ...) ; processing (DEFINE-KEYSYM 16785106 ...) ; processing (DEFINE-KEYSYM 16785107 ...) ; processing (DEFINE-KEYSYM 16785108 ...) ; processing (DEFINE-KEYSYM 16785109 ...) ; processing (DEFINE-KEYSYM 16785110 ...) ; processing (DEFINE-KEYSYM 16785111 ...) ; processing (DEFINE-KEYSYM 16785112 ...) ; processing (DEFINE-KEYSYM 16785113 ...) ; processing (DEFINE-KEYSYM 16785114 ...) ; processing (DEFINE-KEYSYM 16785115 ...) ; processing (DEFINE-KEYSYM 16785116 ...) ; processing (DEFINE-KEYSYM 16785117 ...) ; processing (DEFINE-KEYSYM 16785118 ...) ; processing (DEFINE-KEYSYM 16785119 ...) ; processing (DEFINE-KEYSYM 16785120 ...) ; processing (DEFINE-KEYSYM 16785121 ...) ; processing (DEFINE-KEYSYM 16785122 ...) ; processing (DEFINE-KEYSYM 16785123 ...) ; processing (DEFINE-KEYSYM 16785124 ...) ; processing (DEFINE-KEYSYM 16785125 ...) ; processing (DEFINE-KEYSYM 16785126 ...) ; processing (DEFINE-KEYSYM 16785127 ...) ; processing (DEFINE-KEYSYM 16785128 ...) ; processing (DEFINE-KEYSYM 16785129 ...) ; processing (DEFINE-KEYSYM 16785130 ...) ; processing (DEFINE-KEYSYM 16785131 ...) ; processing (DEFINE-KEYSYM 16785132 ...) ; processing (DEFINE-KEYSYM 16785133 ...) ; processing (DEFINE-KEYSYM 16785134 ...) ; processing (DEFINE-KEYSYM 16785135 ...) ; processing (DEFINE-KEYSYM 16785136 ...) ; processing (DEFINE-KEYSYM 16785137 ...) ; processing (DEFINE-KEYSYM 16785140 ...) ; processing (DEFINE-KEYSYM 16785141 ...) ; processing (DEFINE-KEYSYM 16785142 ...) ; processing (DEFINE-KEYSYM 16785143 ...) ; processing (DEFINE-KEYSYM 16785144 ...) ; processing (DEFINE-KEYSYM 16785145 ...) ; processing (DEFINE-KEYSYM 16777632 ...) ; processing (DEFINE-KEYSYM 16777633 ...) ; processing (DEFINE-KEYSYM 16777647 ...) ; processing (DEFINE-KEYSYM 16777648 ...) ; processing (DEFINE-KEYSYM 16785568 ...) ; processing (DEFINE-KEYSYM 16785569 ...) ; processing (DEFINE-KEYSYM 16785570 ...) ; processing (DEFINE-KEYSYM 16785571 ...) ; processing (DEFINE-KEYSYM 16785572 ...) ; processing (DEFINE-KEYSYM 16785573 ...) ; processing (DEFINE-KEYSYM 16785574 ...) ; processing (DEFINE-KEYSYM 16785575 ...) ; processing (DEFINE-KEYSYM 16785576 ...) ; processing (DEFINE-KEYSYM 16785577 ...) ; processing (DEFINE-KEYSYM 16785578 ...) ; processing (DEFINE-KEYSYM 16785579 ...) ; processing (DEFINE-KEYSYM 8364 ...) ; processing (DEFINE-KEYSYM 16785520 ...) ; processing (DEFINE-KEYSYM 16785524 ...) ; processing (DEFINE-KEYSYM 16785525 ...) ; processing (DEFINE-KEYSYM 16785526 ...) ; processing (DEFINE-KEYSYM 16785527 ...) ; processing (DEFINE-KEYSYM 16785528 ...) ; processing (DEFINE-KEYSYM 16785529 ...) ; processing (DEFINE-KEYSYM 16785536 ...) ; processing (DEFINE-KEYSYM 16785537 ...) ; processing (DEFINE-KEYSYM 16785538 ...) ; processing (DEFINE-KEYSYM 16785539 ...) ; processing (DEFINE-KEYSYM 16785540 ...) ; processing (DEFINE-KEYSYM 16785541 ...) ; processing (DEFINE-KEYSYM 16785542 ...) ; processing (DEFINE-KEYSYM 16785543 ...) ; processing (DEFINE-KEYSYM 16785544 ...) ; processing (DEFINE-KEYSYM 16785545 ...) ; processing (DEFINE-KEYSYM 16785922 ...) ; processing (DEFINE-KEYSYM 16785925 ...) ; processing (DEFINE-KEYSYM 16785928 ...) ; processing (DEFINE-KEYSYM 16785929 ...) ; processing (DEFINE-KEYSYM 16785931 ...) ; processing (DEFINE-KEYSYM 16785946 ...) ; processing (DEFINE-KEYSYM 16785947 ...) ; processing (DEFINE-KEYSYM 16785948 ...) ; processing (DEFINE-KEYSYM 16785964 ...) ; processing (DEFINE-KEYSYM 16785965 ...) ; processing (DEFINE-KEYSYM 16785973 ...) ; processing (DEFINE-KEYSYM 16785992 ...) ; processing (DEFINE-KEYSYM 16785991 ...) ; processing (DEFINE-KEYSYM 16786018 ...) ; processing (DEFINE-KEYSYM 16786019 ...) ; processing (DEFINE-KEYSYM 268435624 ...) ; processing (DEFINE-KEYSYM 268435625 ...) ; processing (DEFINE-KEYSYM 268435626 ...) ; processing (DEFINE-KEYSYM 268435627 ...) ; processing (DEFINE-KEYSYM 268435628 ...) ; processing (DEFINE-KEYSYM 268435631 ...) ; processing (DEFINE-KEYSYM 268435646 ...) ; processing (DEFINE-KEYSYM 268435694 ...) ; processing (DEFINE-KEYSYM 268435694 ...) ; processing (DEFINE-KEYSYM 268435702 ...) ; processing (DEFINE-KEYSYM 268435708 ...) ; processing (DEFINE-KEYSYM 268500736 ...) ; processing (DEFINE-KEYSYM 268500737 ...) ; processing (DEFINE-KEYSYM 268500738 ...) ; processing (DEFINE-KEYSYM 268500739 ...) ; processing (DEFINE-KEYSYM 268500740 ...) ; processing (DEFINE-KEYSYM 268500741 ...) ; processing (DEFINE-KEYSYM 268500742 ...) ; processing (DEFINE-KEYSYM 268500743 ...) ; processing (DEFINE-KEYSYM 268500744 ...) ; processing (DEFINE-KEYSYM 268500745 ...) ; processing (DEFINE-KEYSYM 268500746 ...) ; processing (DEFINE-KEYSYM 268500747 ...) ; processing (DEFINE-KEYSYM 268500748 ...) ; processing (DEFINE-KEYSYM 268500749 ...) ; processing (DEFINE-KEYSYM 268500750 ...) ; processing (DEFINE-KEYSYM 268500751 ...) ; processing (DEFINE-KEYSYM 268500752 ...) ; processing (DEFINE-KEYSYM 268500753 ...) ; processing (DEFINE-KEYSYM 268500754 ...) ; processing (DEFINE-KEYSYM 268500755 ...) ; processing (DEFINE-KEYSYM 268500756 ...) ; processing (DEFINE-KEYSYM 268500808 ...) ; processing (DEFINE-KEYSYM 268500809 ...) ; processing (DEFINE-KEYSYM 268500844 ...) ; processing (DEFINE-KEYSYM 268500845 ...) ; processing (DEFINE-KEYSYM 268500846 ...) ; processing (DEFINE-KEYSYM 268500847 ...) ; processing (DEFINE-KEYSYM 268500848 ...) ; processing (DEFINE-KEYSYM 268500849 ...) ; processing (DEFINE-KEYSYM 268500850 ...) ; processing (DEFINE-KEYSYM 268500851 ...) ; processing (DEFINE-KEYSYM 268500852 ...) ; processing (DEFINE-KEYSYM 268500853 ...) ; processing (DEFINE-KEYSYM 268500904 ...) ; processing (DEFINE-KEYSYM 268500905 ...) ; processing (DEFINE-KEYSYM 268451841 ...) ; processing (DEFINE-KEYSYM 268451842 ...) ; processing (DEFINE-KEYSYM 268451843 ...) ; processing (DEFINE-KEYSYM 268451844 ...) ; processing (DEFINE-KEYSYM 268452097 ...) ; processing (DEFINE-KEYSYM 268452098 ...) ; processing (DEFINE-KEYSYM 268452099 ...) ; processing (DEFINE-KEYSYM 268452100 ...) ; processing (DEFINE-KEYSYM 268452101 ...) ; processing (DEFINE-KEYSYM 268452102 ...) ; processing (DEFINE-KEYSYM 268452103 ...) ; processing (DEFINE-KEYSYM 268452104 ...) ; processing (DEFINE-KEYSYM 268452105 ...) ; processing (DEFINE-KEYSYM 268452106 ...) ; processing (DEFINE-KEYSYM 268452107 ...) ; processing (DEFINE-KEYSYM 268452108 ...) ; processing (DEFINE-KEYSYM 268452109 ...) ; processing (DEFINE-KEYSYM 268452110 ...) ; processing (DEFINE-KEYSYM 268452111 ...) ; processing (DEFINE-KEYSYM 268452353 ...) ; processing (DEFINE-KEYSYM 268452354 ...) ; processing (DEFINE-KEYSYM 268452355 ...) ; processing (DEFINE-KEYSYM 268452356 ...) ; processing (DEFINE-KEYSYM 268452357 ...) ; processing (DEFINE-KEYSYM 268452358 ...) ; processing (DEFINE-KEYSYM 268452359 ...) ; processing (DEFINE-KEYSYM 268452360 ...) ; processing (DEFINE-KEYSYM 268452361 ...) ; processing (DEFINE-KEYSYM 268452362 ...) ; processing (DEFINE-KEYSYM 268452363 ...) ; processing (DEFINE-KEYSYM 268452364 ...) ; processing (DEFINE-KEYSYM 268452365 ...) ; processing (DEFINE-KEYSYM 268452366 ...) ; processing (DEFINE-KEYSYM 268452367 ...) ; processing (DEFINE-KEYSYM 268452368 ...) ; processing (DEFINE-KEYSYM 268500736 ...) ; processing (DEFINE-KEYSYM 268500656 ...) ; processing (DEFINE-KEYSYM 268500574 ...) ; processing (DEFINE-KEYSYM 268500524 ...) ; processing (DEFINE-KEYSYM 268500519 ...) ; processing (DEFINE-KEYSYM 268500576 ...) ; processing (DEFINE-KEYSYM 268500606 ...) ; processing (DEFINE-KEYSYM 268500514 ...) ; processing (DEFINE-KEYSYM 268762882 ...) ; processing (DEFINE-KEYSYM 268762883 ...) ; processing (DEFINE-KEYSYM 268762884 ...) ; processing (DEFINE-KEYSYM 268762887 ...) ; processing (DEFINE-KEYSYM 268762888 ...) ; processing (DEFINE-KEYSYM 268762891 ...) ; processing (DEFINE-KEYSYM 268762907 ...) ; processing (DEFINE-KEYSYM 268762929 ...) ; processing (DEFINE-KEYSYM 268762930 ...) ; processing (DEFINE-KEYSYM 268762931 ...) ; processing (DEFINE-KEYSYM 268762944 ...) ; processing (DEFINE-KEYSYM 268762945 ...) ; processing (DEFINE-KEYSYM 268762946 ...) ; processing (DEFINE-KEYSYM 268762947 ...) ; processing (DEFINE-KEYSYM 268762948 ...) ; processing (DEFINE-KEYSYM 268762949 ...) ; processing (DEFINE-KEYSYM 268762961 ...) ; processing (DEFINE-KEYSYM 268762962 ...) ; processing (DEFINE-KEYSYM 268762963 ...) ; processing (DEFINE-KEYSYM 268762964 ...) ; processing (DEFINE-KEYSYM 268762965 ...) ; processing (DEFINE-KEYSYM 268762966 ...) ; processing (DEFINE-KEYSYM 268762967 ...) ; processing (DEFINE-KEYSYM 268762968 ...) ; processing (DEFINE-KEYSYM 268762969 ...) ; processing (DEFINE-KEYSYM 268762970 ...) ; processing (DEFINE-KEYSYM 268762971 ...) ; processing (DEFINE-KEYSYM 268762972 ...) ; processing (DEFINE-KEYSYM 268762973 ...) ; processing (DEFINE-KEYSYM 268762974 ...) ; processing (DEFINE-KEYSYM 268762976 ...) ; processing (DEFINE-KEYSYM 268762979 ...) ; processing (DEFINE-KEYSYM 268762981 ...) ; processing (DEFINE-KEYSYM 268762983 ...) ; processing (DEFINE-KEYSYM 268762985 ...) ; processing (DEFINE-KEYSYM 268762986 ...) ; processing (DEFINE-KEYSYM 268762993 ...) ; processing (DEFINE-KEYSYM 268762994 ...) ; processing (DEFINE-KEYSYM 268762995 ...) ; processing (DEFINE-KEYSYM 268762996 ...) ; processing (DEFINE-KEYSYM 268763000 ...) ; processing (DEFINE-KEYSYM 268763006 ...) ; processing (DEFINE-KEYSYM 268763125 ...) ; processing (DEFINE-KEYSYM 268763126 ...) ; processing (DEFINE-KEYSYM 268763127 ...) ; processing (DEFINE-KEYSYM 268763128 ...) ; processing (DEFINE-KEYSYM 268763135 ...) ; processing (DEFINE-KEYSYM 268828416 ...) ; processing (DEFINE-KEYSYM 268828417 ...) ; processing (DEFINE-KEYSYM 268828418 ...) ; processing (DEFINE-KEYSYM 268828419 ...) ; processing (DEFINE-KEYSYM 268828420 ...) ; processing (DEFINE-KEYSYM 268828421 ...) ; processing (DEFINE-KEYSYM 268828432 ...) ; processing (DEFINE-KEYSYM 268828433 ...) ; processing (DEFINE-KEYSYM 268828512 ...) ; processing (DEFINE-KEYSYM 268828528 ...) ; processing (DEFINE-KEYSYM 268828529 ...) ; processing (DEFINE-KEYSYM 268828530 ...) ; processing (DEFINE-KEYSYM 268828531 ...) ; processing (DEFINE-KEYSYM 268828532 ...) ; processing (DEFINE-KEYSYM 268828533 ...) ; processing (DEFINE-KEYSYM 268828534 ...) ; processing (DEFINE-KEYSYM 268828535 ...) ; processing (DEFINE-KEYSYM 268828536 ...) ; processing (DEFINE-KEYSYM 268828537 ...) ; processing (DEFINE-KEYSYM 268828538 ...) ; processing (DEFINE-KEYSYM 268828539 ...) ; processing (DEFINE-KEYSYM 268828540 ...) ; processing (DEFINE-KEYSYM 268828541 ...) ; processing (DEFINE-KEYSYM 65312 ...) ; processing (DEFINE-KEYSYM 65365 ...) ; processing (DEFINE-KEYSYM 65366 ...) ; processing (DEFINE-KEYSYM 65377 ...) ; processing (DEFINE-KEYSYM 65381 ...) ; processing (DEFINE-KEYSYM 65382 ...) ; processing (DEFINE-KEYSYM 65384 ...) ; processing (DEFINE-KEYSYM 65385 ...) ; processing (DEFINE-KEYSYM 65406 ...) ; processing (DEFINE-KEYSYM 268893952 ...) ; processing (DEFINE-KEYSYM 268893952 ...) ; processing (DEFINE-KEYSYM 268894209 ...) ; processing (DEFINE-KEYSYM 268894210 ...) ; processing (DEFINE-KEYSYM 268894211 ...) ; processing (DEFINE-KEYSYM 268894212 ...) ; processing (DEFINE-KEYSYM 268894213 ...) ; processing (DEFINE-KEYSYM 269025025 ...) ; processing (DEFINE-KEYSYM 269025026 ...) ; processing (DEFINE-KEYSYM 269025027 ...) ; processing (DEFINE-KEYSYM 269025028 ...) ; processing (DEFINE-KEYSYM 269025029 ...) ; processing (DEFINE-KEYSYM 269025030 ...) ; processing (DEFINE-KEYSYM 269025040 ...) ; processing (DEFINE-KEYSYM 269025041 ...) ; processing (DEFINE-KEYSYM 269025042 ...) ; processing (DEFINE-KEYSYM 269025043 ...) ; processing (DEFINE-KEYSYM 269025044 ...) ; processing (DEFINE-KEYSYM 269025045 ...) ; processing (DEFINE-KEYSYM 269025046 ...) ; processing (DEFINE-KEYSYM 269025047 ...) ; processing (DEFINE-KEYSYM 269025048 ...) ; processing (DEFINE-KEYSYM 269025049 ...) ; processing (DEFINE-KEYSYM 269025050 ...) ; processing (DEFINE-KEYSYM 269025051 ...) ; processing (DEFINE-KEYSYM 269025052 ...) ; processing (DEFINE-KEYSYM 269025053 ...) ; processing (DEFINE-KEYSYM 269025054 ...) ; processing (DEFINE-KEYSYM 269025055 ...) ; processing (DEFINE-KEYSYM 269025056 ...) ; processing (DEFINE-KEYSYM 269025057 ...) ; processing (DEFINE-KEYSYM 269025058 ...) ; processing (DEFINE-KEYSYM 269025059 ...) ; processing (DEFINE-KEYSYM 269025060 ...) ; processing (DEFINE-KEYSYM 269025061 ...) ; processing (DEFINE-KEYSYM 269025062 ...) ; processing (DEFINE-KEYSYM 269025063 ...) ; processing (DEFINE-KEYSYM 269025064 ...) ; processing (DEFINE-KEYSYM 269025065 ...) ; processing (DEFINE-KEYSYM 269025066 ...) ; processing (DEFINE-KEYSYM 269025067 ...) ; processing (DEFINE-KEYSYM 269025068 ...) ; processing (DEFINE-KEYSYM 269025069 ...) ; processing (DEFINE-KEYSYM 269025070 ...) ; processing (DEFINE-KEYSYM 269025071 ...) ; processing (DEFINE-KEYSYM 269025072 ...) ; processing (DEFINE-KEYSYM 269025073 ...) ; processing (DEFINE-KEYSYM 269025074 ...) ; processing (DEFINE-KEYSYM 269025075 ...) ; processing (DEFINE-KEYSYM 269025076 ...) ; processing (DEFINE-KEYSYM 269025077 ...) ; processing (DEFINE-KEYSYM 269025078 ...) ; processing (DEFINE-KEYSYM 269025079 ...) ; processing (DEFINE-KEYSYM 269025080 ...) ; processing (DEFINE-KEYSYM 269025081 ...) ; processing (DEFINE-KEYSYM 269025082 ...) ; processing (DEFINE-KEYSYM 269025083 ...) ; processing (DEFINE-KEYSYM 269025084 ...) ; processing (DEFINE-KEYSYM 269025085 ...) ; processing (DEFINE-KEYSYM 269025086 ...) ; processing (DEFINE-KEYSYM 269025087 ...) ; processing (DEFINE-KEYSYM 269025088 ...) ; processing (DEFINE-KEYSYM 269025089 ...) ; processing (DEFINE-KEYSYM 269025090 ...) ; processing (DEFINE-KEYSYM 269025091 ...) ; processing (DEFINE-KEYSYM 269025092 ...) ; processing (DEFINE-KEYSYM 269025093 ...) ; processing (DEFINE-KEYSYM 269025094 ...) ; processing (DEFINE-KEYSYM 269025095 ...) ; processing (DEFINE-KEYSYM 269025096 ...) ; processing (DEFINE-KEYSYM 269025097 ...) ; processing (DEFINE-KEYSYM 269025098 ...) ; processing (DEFINE-KEYSYM 269025099 ...) ; processing (DEFINE-KEYSYM 269025100 ...) ; processing (DEFINE-KEYSYM 269025101 ...) ; processing (DEFINE-KEYSYM 269025102 ...) ; processing (DEFINE-KEYSYM 269025103 ...) ; processing (DEFINE-KEYSYM 269025104 ...) ; processing (DEFINE-KEYSYM 269025105 ...) ; processing (DEFINE-KEYSYM 269025106 ...) ; processing (DEFINE-KEYSYM 269025107 ...) ; processing (DEFINE-KEYSYM 269025108 ...) ; processing (DEFINE-KEYSYM 269025109 ...) ; processing (DEFINE-KEYSYM 269025110 ...) ; processing (DEFINE-KEYSYM 269025111 ...) ; processing (DEFINE-KEYSYM 269025112 ...) ; processing (DEFINE-KEYSYM 269025113 ...) ; processing (DEFINE-KEYSYM 269025114 ...) ; processing (DEFINE-KEYSYM 269025115 ...) ; processing (DEFINE-KEYSYM 269025116 ...) ; processing (DEFINE-KEYSYM 269025117 ...) ; processing (DEFINE-KEYSYM 269025118 ...) ; processing (DEFINE-KEYSYM 269025119 ...) ; processing (DEFINE-KEYSYM 269025120 ...) ; processing (DEFINE-KEYSYM 269025121 ...) ; processing (DEFINE-KEYSYM 269025122 ...) ; processing (DEFINE-KEYSYM 269025123 ...) ; processing (DEFINE-KEYSYM 269025125 ...) ; processing (DEFINE-KEYSYM 269025126 ...) ; processing (DEFINE-KEYSYM 269025127 ...) ; processing (DEFINE-KEYSYM 269025128 ...) ; processing (DEFINE-KEYSYM 269025129 ...) ; processing (DEFINE-KEYSYM 269025130 ...) ; processing (DEFINE-KEYSYM 269025131 ...) ; processing (DEFINE-KEYSYM 269025132 ...) ; processing (DEFINE-KEYSYM 269025133 ...) ; processing (DEFINE-KEYSYM 269025134 ...) ; processing (DEFINE-KEYSYM 269025136 ...) ; processing (DEFINE-KEYSYM 269025138 ...) ; processing (DEFINE-KEYSYM 269025139 ...) ; processing (DEFINE-KEYSYM 269025140 ...) ; processing (DEFINE-KEYSYM 269025141 ...) ; processing (DEFINE-KEYSYM 269025142 ...) ; processing (DEFINE-KEYSYM 269025143 ...) ; processing (DEFINE-KEYSYM 269025144 ...) ; processing (DEFINE-KEYSYM 269025145 ...) ; processing (DEFINE-KEYSYM 269025146 ...) ; processing (DEFINE-KEYSYM 269025147 ...) ; processing (DEFINE-KEYSYM 269025148 ...) ; processing (DEFINE-KEYSYM 269025149 ...) ; processing (DEFINE-KEYSYM 269025150 ...) ; processing (DEFINE-KEYSYM 269025151 ...) ; processing (DEFINE-KEYSYM 269025152 ...) ; processing (DEFINE-KEYSYM 269025153 ...) ; processing (DEFINE-KEYSYM 269025154 ...) ; processing (DEFINE-KEYSYM 269025156 ...) ; processing (DEFINE-KEYSYM 269025157 ...) ; processing (DEFINE-KEYSYM 269025158 ...) ; processing (DEFINE-KEYSYM 269025159 ...) ; processing (DEFINE-KEYSYM 269025160 ...) ; processing (DEFINE-KEYSYM 269025161 ...) ; processing (DEFINE-KEYSYM 269025162 ...) ; processing (DEFINE-KEYSYM 269025163 ...) ; processing (DEFINE-KEYSYM 269025164 ...) ; processing (DEFINE-KEYSYM 269025165 ...) ; processing (DEFINE-KEYSYM 269025166 ...) ; processing (DEFINE-KEYSYM 269025167 ...) ; processing (DEFINE-KEYSYM 269025168 ...) ; processing (DEFINE-KEYSYM 269025169 ...) ; processing (DEFINE-KEYSYM 269025170 ...) ; processing (DEFINE-KEYSYM 269025171 ...) ; processing (DEFINE-KEYSYM 269025172 ...) ; processing (DEFINE-KEYSYM 269025173 ...) ; processing (DEFINE-KEYSYM 269025174 ...) ; processing (DEFINE-KEYSYM 269025175 ...) ; processing (DEFINE-KEYSYM 269025176 ...) ; processing (DEFINE-KEYSYM 269025177 ...) ; processing (DEFINE-KEYSYM 269025178 ...) ; processing (DEFINE-KEYSYM 269025179 ...) ; processing (DEFINE-KEYSYM 269025180 ...) ; processing (DEFINE-KEYSYM 269025181 ...) ; processing (DEFINE-KEYSYM 269025182 ...) ; processing (DEFINE-KEYSYM 269025183 ...) ; processing (DEFINE-KEYSYM 269025184 ...) ; processing (DEFINE-KEYSYM 269025185 ...) ; processing (DEFINE-KEYSYM 269025186 ...) ; processing (DEFINE-KEYSYM 269025187 ...) ; processing (DEFINE-KEYSYM 269025188 ...) ; processing (DEFINE-KEYSYM 269025189 ...) ; processing (DEFINE-KEYSYM 269025190 ...) ; processing (DEFINE-KEYSYM 269025191 ...) ; processing (DEFINE-KEYSYM 269025192 ...) ; processing (DEFINE-KEYSYM 269025193 ...) ; processing (DEFINE-KEYSYM 269025200 ...) ; processing (DEFINE-KEYSYM 269025201 ...) ; processing (DEFINE-KEYSYM 269025202 ...) ; processing (DEFINE-KEYSYM 269024769 ...) ; processing (DEFINE-KEYSYM 269024770 ...) ; processing (DEFINE-KEYSYM 269024771 ...) ; processing (DEFINE-KEYSYM 269024772 ...) ; processing (DEFINE-KEYSYM 269024773 ...) ; processing (DEFINE-KEYSYM 269024774 ...) ; processing (DEFINE-KEYSYM 269024775 ...) ; processing (DEFINE-KEYSYM 269024776 ...) ; processing (DEFINE-KEYSYM 269024777 ...) ; processing (DEFINE-KEYSYM 269024778 ...) ; processing (DEFINE-KEYSYM 269024779 ...) ; processing (DEFINE-KEYSYM 269024780 ...) ; processing (DEFINE-KEYSYM 269024800 ...) ; processing (DEFINE-KEYSYM 269024801 ...) ; processing (DEFINE-KEYSYM 269024802 ...) ; processing (DEFINE-KEYSYM 269024803 ...) ; processing (DEFINE-KEYSYM 268435624 ...) ; processing (DEFINE-KEYSYM 268435625 ...) ; processing (DEFINE-KEYSYM 268435627 ...) ; processing (DEFINE-KEYSYM 268435626 ...) ; processing (DEFINE-KEYSYM 268435628 ...) ; processing (DEFINE-KEYSYM 268500524 ...) ; processing (DEFINE-KEYSYM 268500656 ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/keysyms-tmpD68Q8WCA.fasl ; compilation finished in 0:00:00.284 ; compiling file "/build/stumpwm-1.0.0/keytrans.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (DEFVAR *STUMPWM-NAME->KEYSYM-NAME-TRANSLATIONS* ...) ; processing (DEFUN DEFINE-KEYSYM-NAME ...) ; processing (DEFUN STUMPWM-NAME->KEYSYM-NAME ...) ; processing (DEFUN KEYSYM-NAME->STUMPWM-NAME ...) ; processing (DEFUN STUMPWM-NAME->KEYSYM ...) ; processing (DEFUN KEYSYM->STUMPWM-NAME ...) ; processing (DEFINE-KEYSYM-NAME "RET" ...) ; processing (DEFINE-KEYSYM-NAME "ESC" ...) ; processing (DEFINE-KEYSYM-NAME "TAB" ...) ; processing (DEFINE-KEYSYM-NAME "DEL" ...) ; processing (DEFINE-KEYSYM-NAME "SPC" ...) ; processing (DEFINE-KEYSYM-NAME "!" ...) ; processing (DEFINE-KEYSYM-NAME "\"" ...) ; processing (DEFINE-KEYSYM-NAME "$" ...) ; processing (DEFINE-KEYSYM-NAME "%" ...) ; processing (DEFINE-KEYSYM-NAME "&" ...) ; processing (DEFINE-KEYSYM-NAME "'" ...) ; processing (DEFINE-KEYSYM-NAME "'" ...) ; processing (DEFINE-KEYSYM-NAME "`" ...) ; processing (DEFINE-KEYSYM-NAME "`" ...) ; processing (DEFINE-KEYSYM-NAME "&" ...) ; processing (DEFINE-KEYSYM-NAME "(" ...) ; processing (DEFINE-KEYSYM-NAME ")" ...) ; processing (DEFINE-KEYSYM-NAME "*" ...) ; processing (DEFINE-KEYSYM-NAME "+" ...) ; processing (DEFINE-KEYSYM-NAME "," ...) ; processing (DEFINE-KEYSYM-NAME "-" ...) ; processing (DEFINE-KEYSYM-NAME "." ...) ; processing (DEFINE-KEYSYM-NAME "/" ...) ; processing (DEFINE-KEYSYM-NAME ":" ...) ; processing (DEFINE-KEYSYM-NAME ";" ...) ; processing (DEFINE-KEYSYM-NAME "<" ...) ; processing (DEFINE-KEYSYM-NAME "=" ...) ; processing (DEFINE-KEYSYM-NAME ">" ...) ; processing (DEFINE-KEYSYM-NAME "?" ...) ; processing (DEFINE-KEYSYM-NAME "@" ...) ; processing (DEFINE-KEYSYM-NAME "[" ...) ; processing (DEFINE-KEYSYM-NAME "\\" ...) ; processing (DEFINE-KEYSYM-NAME "]" ...) ; processing (DEFINE-KEYSYM-NAME "^" ...) ; processing (DEFINE-KEYSYM-NAME "_" ...) ; processing (DEFINE-KEYSYM-NAME "#" ...) ; processing (DEFINE-KEYSYM-NAME "{" ...) ; processing (DEFINE-KEYSYM-NAME "|" ...) ; processing (DEFINE-KEYSYM-NAME "}" ...) ; processing (DEFINE-KEYSYM-NAME "~" ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/keytrans-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.032 ; compiling file "/build/stumpwm-1.0.0/kmap.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *TOP-MAP* ...) ; processing (DEFVAR *ROOT-MAP* ...) ; processing (DEFSTRUCT KEY ...) ; processing (DEFSTRUCT KMAP ...) ; processing (DEFSTRUCT BINDING ...) ; processing (DEFUN MAKE-SPARSE-KEYMAP ...) ; processing (DEFUN LOOKUP-COMMAND ...) ; processing (DEFUN LOOKUP-KEY ...) ; processing (DEFUN KEY-MODS-P ...) ; processing (DEFUN X11-MODS ...) ; processing (DEFUN REPORT-KBD-PARSE-ERROR ...) ; processing (DEFINE-CONDITION KBD-PARSE-ERROR ...) ; processing (DEFUN PARSE-MODS ...) ; processing (DEFUN PARSE-KEY ...) ; processing (DEFUN PARSE-KEY-SEQ ...) ; processing (DEFUN KBD ...) ; processing (DEFUN COPY-KEY-INTO ...) ; processing (DEFUN PRINT-MODS ...) ; processing (DEFUN PRINT-KEY ...) ; processing (DEFUN PRINT-KEY-SEQ ...) ; processing (DEFUN DEFINE-KEY ...) ; processing (DEFUN UNDEFINE-KEY ...) ; processing (DEFUN LOOKUP-KEY-SEQUENCE ...) ; processing (DEFUN KMAP-SYMBOL-P ...) ; processing (DEFUN KMAP-OR-KMAP-SYMBOL-P ...) ; processing (DEFUN DEREFERENCE-KMAPS ...) ; processing (DEFUN SEARCH-KMAP ...) ; processing (DEFVAR *TOP-MAP-LIST* ...) ; processing (DEFUN PUSH-TOP-MAP ...) ; processing (DEFUN POP-TOP-MAP ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/kmap-tmpJJ71X849.fasl ; compilation finished in 0:00:00.384 ; compiling file "/build/stumpwm-1.0.0/input.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFSTRUCT INPUT-LINE ...) ; processing (DEFVAR *INPUT-MAP* ...) ; processing (WHEN (NULL *INPUT-MAP*) ...) ; processing (DEFVAR *INPUT-HISTORY* ...) ; processing (DEFVAR *INPUT-LAST-COMMAND* ...) ; processing (DEFVAR *INPUT-COMPLETIONS* ...) ; processing (DEFVAR *INPUT-CURRENT-COMPLETIONS* ...) ; processing (DEFVAR *INPUT-CURRENT-COMPLETIONS-IDX* ...) ; processing (DEFVAR *INPUT-HISTORY-IGNORE-DUPLICATES* ...) ; processing (DEFVAR *NUMPAD-MAP* ...) ; processing (DEFUN IS-MODIFIER ...) ; processing (DEFUN KEYCODE->CHARACTER ...) ; processing (DEFUN SETUP-INPUT-WINDOW ...) ; processing (DEFUN SHUTDOWN-INPUT-WINDOW ...) ; processing (DEFUN INPUT-HANDLE-KEY-PRESS-EVENT ...) ; processing (DEFUN INPUT-HANDLE-SELECTION-EVENT ...) ; processing (DEFUN READ-KEY-HANDLE-EVENT ...) ; processing (DEFUN READ-KEY-OR-SELECTION-HANDLE-EVENT ...) ; processing (DEFUN READ-KEY ...) ; processing (DEFUN READ-KEY-NO-MODIFIERS ...) ; processing (DEFUN READ-KEY-OR-SELECTION ...) ; processing (DEFUN MAKE-INPUT-STRING ...) ; processing (DEFUN COMPLETING-READ ...) ; processing (DEFUN READ-ONE-LINE ...) ; processing (DEFUN READ-ONE-CHAR ...) ; processing (DEFUN DRAW-INPUT-BUCKET ...) ; processing (DEFUN CODE-STATE->KEY ...) ; processing (DEFUN INPUT-SUBMIT ...) ; processing (DEFUN INPUT-ABORT ...) ; processing (DEFUN INPUT-GOTO-CHAR ...) ; processing (DEFUN INPUT-INSERT-STRING ...) ; processing (DEFUN INPUT-POINT ...) ; processing (DEFUN INPUT-VALIDATE-REGION ...) ; processing (DEFUN INPUT-DELETE-REGION ...) ; processing (DEFUN INPUT-INSERT-CHAR ...) ; processing (DEFUN INPUT-SUBSTRING ...) ; processing (DEFUN INPUT-FIND-COMPLETIONS ...) ; processing (DEFUN INPUT-COMPLETE ...) ; processing (DEFUN INPUT-COMPLETE-FORWARD ...) ; processing (DEFUN INPUT-COMPLETE-BACKWARD ...) ; processing (DEFUN INPUT-DELETE-BACKWARD-CHAR ...) ; processing (DEFUN INPUT-DELETE-FORWARD-CHAR ...) ; processing (DEFUN INPUT-FORWARD-KILL-WORD ...) ; processing (DEFUN INPUT-BACKWARD-KILL-WORD ...) ; processing (DEFUN INPUT-FORWARD-WORD ...) ; processing (DEFUN INPUT-BACKWARD-WORD ...) ; processing (DEFUN INPUT-FORWARD-CHAR ...) ; processing (DEFUN INPUT-BACKWARD-CHAR ...) ; processing (DEFUN INPUT-MOVE-BEGINNING-OF-LINE ...) ; processing (DEFUN INPUT-MOVE-END-OF-LINE ...) ; processing (DEFUN INPUT-KILL-LINE ...) ; processing (DEFUN INPUT-KILL-TO-BEGINNING ...) ; processing (DEFUN INPUT-HISTORY-BACK ...) ; processing (DEFUN INPUT-HISTORY-FORWARD ...) ; processing (DEFUN INPUT-SELF-INSERT ...) ; processing (DEFUN INPUT-YANK-SELECTION ...) ; processing (DEFUN INPUT-YANK-CLIPBOARD ...) ; processing (DEFUN PROCESS-INPUT ...) ; processing (DEFUN ALL-MODIFIER-CODES ...) ; processing (DEFUN GET-MODIFIER-MAP ...) ; processing (DEFUN UPDATE-MODIFIER-MAP ...) ; processing (DEFUN MOD->STRING ...) ; processing (DEFUN Y-OR-N-P ...) ; processing (DEFUN YES-OR-NO-P ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/input-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.680 ; compiling file "/build/stumpwm-1.0.0/core.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFUN KEY-TO-KEYCODE+STATE ...) ; processing (DEFUN SEND-FAKE-KEY ...) ; processing (DEFUN SEND-FAKE-CLICK ...) ; processing (DEFUN GRAB-POINTER ...) ; processing (DEFUN UNGRAB-POINTER ...) ; processing (DEFUN GRAB-KEYBOARD ...) ; processing (DEFUN UNGRAB-KEYBOARD ...) ; processing (DEFUN WARP-POINTER ...) ; processing (DEFUN WARP-POINTER-RELATIVE ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/core-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.068 ; compiling file "/build/stumpwm-1.0.0/command.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFSTRUCT COMMAND-ALIAS ...) ; processing (DEFSTRUCT COMMAND ...) ; processing (DEFVAR *COMMAND-HASH* ...) ; processing (DEFVAR *MAX-COMMAND-ALIAS-DEPTH* ...) ; processing (DEFINE-CONDITION COMMAND-DOCSTRING-WARNING ...) ; processing (DEFMACRO DEFCOMMAND ...) ; processing (DEFMACRO DEFINE-STUMPWM-COMMAND ...) ; processing (DEFMACRO DEFCOMMAND-ALIAS ...) ; processing (DEFUN DEREFERENCE-COMMAND-SYMBOL ...) ; processing (DEFUN COMMAND-ACTIVE-P ...) ; processing (DEFUN GET-COMMAND-STRUCTURE ...) ; processing (DEFUN ALL-COMMANDS ...) ; processing (DEFSTRUCT ARGUMENT-LINE ...) ; processing (DEFVAR *COMMAND-TYPE-HASH* ...) ; processing (DEFUN ARGUMENT-LINE-END-P ...) ; processing (DEFUN ARGUMENT-POP ...) ; processing (DEFUN ARGUMENT-POP-OR-READ ...) ; processing (DEFUN ARGUMENT-POP-REST ...) ; processing (DEFUN ARGUMENT-POP-REST-OR-READ ...) ; processing (DEFMACRO DEFINE-STUMPWM-TYPE ...) ; processing (DEFINE-STUMPWM-TYPE :Y-OR-N ...) ; processing (DEFUN LOOKUP-SYMBOL ...) ; processing (DEFINE-STUMPWM-TYPE :VARIABLE ...) ; processing (DEFINE-STUMPWM-TYPE :FUNCTION ...) ; file: /build/stumpwm-1.0.0/command.lisp ; in: DEFINE-STUMPWM-TYPE :FUNCTION ; 'ERROR ; ; note: deleting unreachable code ; processing (DEFINE-STUMPWM-TYPE :COMMAND ...) ; processing (DEFINE-STUMPWM-TYPE :KEY-SEQ ...) ; processing (DEFINE-STUMPWM-TYPE :WINDOW-NUMBER ...) ; processing (DEFINE-STUMPWM-TYPE :NUMBER ...) ; processing (DEFINE-STUMPWM-TYPE :STRING ...) ; processing (DEFINE-STUMPWM-TYPE :PASSWORD ...) ; processing (DEFINE-STUMPWM-TYPE :KEY ...) ; processing (DEFINE-STUMPWM-TYPE :WINDOW-NAME ...) ; processing (DEFINE-STUMPWM-TYPE :DIRECTION ...) ; processing (DEFINE-STUMPWM-TYPE :GRAVITY ...) ; processing (DEFUN SELECT-GROUP ...) ; processing (DEFINE-STUMPWM-TYPE :GROUP ...) ; processing (DEFINE-STUMPWM-TYPE :FRAME ...) ; processing (DEFINE-STUMPWM-TYPE :SHELL ...) ; processing (DEFINE-STUMPWM-TYPE :REST ...) ; processing (DEFUN CALL-INTERACTIVELY ...) ; processing (DEFUN EVAL-COMMAND ...) ; processing (DEFUN RUN-COMMANDS ...) ; processing (DEFCOMMAND COLON ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/command-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.544 ; compiling file "/build/stumpwm-1.0.0/menu.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *MENU-MAP* ...) ; processing (WHEN (NULL *MENU-MAP*) ...) ; processing (DEFSTRUCT MENU-STATE ...) ; processing (DEFUN MENU-SCROLLING-REQUIRED ...) ; processing (DEFUN MENU-HEIGHT ...) ; processing (DEFUN MENU-PROMPT-VISIBLE ...) ; processing (DEFUN BOUND-CHECK-MENU ...) ; processing (DEFUN MENU-UP ...) ; processing (DEFUN MENU-DOWN ...) ; processing (DEFUN MENU-SCROLL-UP ...) ; processing (DEFUN MENU-SCROLL-DOWN ...) ; processing (DEFUN MENU-PAGE-UP ...) ; processing (DEFUN MENU-PAGE-DOWN ...) ; processing (DEFUN MENU-FINISH ...) ; processing (DEFUN MENU-ABORT ...) ; processing (DEFUN GET-INPUT-CHAR ...) ; processing (DEFUN MENU-ELEMENT-NAME ...) ; processing (DEFUN MENU-BACKSPACE ...) ; processing (DEFUN CHECK-MENU-COMPLETE ...) ; processing (DEFUN MENU-ITEM-MATCHES-REGEXP ...) ; file: /build/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 ; ... {100770C50F}> ; (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) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(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 ; ... {100770C50F}> ; (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. ; processing (DEFUN SELECT-FROM-MENU ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/menu-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.232 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/stumpwm-1.0.0/screen.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFUN TRANSLATE-ID ...) ; processing (DEFUN SCREEN-X ...) ; processing (DEFUN SCREEN-Y ...) ; processing (DEFUN SCREEN-HEIGHT ...) ; processing (DEFUN SCREEN-WIDTH ...) ; processing (DEFUN FIND-SCREEN ...) ; processing (DEFUN SCREEN-WINDOWS ...) ; processing (DEFUN SCREEN-MESSAGE-WINDOW ...) ; processing (DEFUN SCREEN-MESSAGE-PIXMAP ...) ; processing (DEFUN SCREEN-MESSAGE-GC ...) ; processing (DEFUN SCREEN-FONT ...) ; processing (DEFUN NETWM-UPDATE-CLIENT-LIST-STACKING ...) ; processing (DEFUN NETWM-UPDATE-CLIENT-LIST ...) ; processing (DEFUN SCREEN-ADD-MAPPED-WINDOW ...) ; processing (DEFUN SCREEN-REMOVE-MAPPED-WINDOW ...) ; processing (DEFUN SORT-SCREENS ...) ; processing (DEFUN NEXT-SCREEN ...) ; processing (DEFUN MOVE-SCREEN-TO-HEAD ...) ; processing (DEFUN SWITCH-TO-SCREEN ...) ; processing (DEFUN SCREEN-SET-FOCUS ...) ; processing (DEFUN SCREEN-CURRENT-WINDOW ...) ; processing (DEFUN CURRENT-WINDOW ...) ; processing (DEFUN REGISTER-WINDOW ...) ; processing (DEFUN UNREGISTER-WINDOW ...) ; processing (DEFUN WINDOW-BY-ID ...) ; processing (DEFUN FIND-WINDOW ...) ; processing (DEFUN FIND-WINDOW-BY-PARENT ...) ; processing (DEFUN SCREEN-ROOT ...) ; processing (DEFUN UPDATE-COLORS-FOR-SCREEN ...) ; processing (DEFUN UPDATE-COLORS-ALL-SCREENS ...) ; processing (DEFUN UPDATE-BORDER-FOR-SCREEN ...) ; processing (DEFUN UPDATE-BORDER-ALL-SCREENS ...) ; processing (DEFUN INTERNAL-WINDOW-P ...) ; processing (DEFMACRO SET-ANY-COLOR ...) ; processing (DEFUN SET-FG-COLOR ...) ; processing (DEFUN SET-BG-COLOR ...) ; processing (DEFUN SET-BORDER-COLOR ...) ; processing (DEFUN SET-WIN-BG-COLOR ...) ; processing (DEFUN SET-FOCUS-COLOR ...) ; processing (DEFUN SET-UNFOCUS-COLOR ...) ; processing (DEFUN SET-FLOAT-FOCUS-COLOR ...) ; processing (DEFUN SET-FLOAT-UNFOCUS-COLOR ...) ; processing (DEFUN SET-MSG-BORDER-WIDTH ...) ; processing (DEFUN SET-FRAME-OUTLINE-WIDTH ...) ; processing (DEFUN SET-FONT ...) ; processing (DEFMACRO WITH-CURRENT-SCREEN ...) ; processing (DEFUN CURRENT-SCREEN ...) ; processing (DEFUN NETWM-SET-PROPERTIES ...) ; processing (DEFUN INIT-SCREEN ...) ; processing (DEFCOMMAND SNEXT ...) ; processing (DEFCOMMAND SPREV ...) ; processing (DEFCOMMAND SOTHER ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/screen-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.296 ; compiling file "/build/stumpwm-1.0.0/head.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFUN HEAD-BY-NUMBER ...) ; processing (DEFUN PARSE-XINERAMA-HEAD ...) ; processing (DEFUN MAKE-SCREEN-HEADS ...) ; processing (DEFUN COPY-HEADS ...) ; processing (DEFUN FRAME-HEAD ...) ; processing (DEFUN GROUP-HEADS ...) ; processing (DEFUN RESIZE-HEAD ...) ; processing (DEFUN CURRENT-HEAD ...) ; processing (DEFUN HEAD-WINDOWS ...) ; processing (DEFUN FRAME-IS-HEAD ...) ; processing (DEFUN ADD-HEAD ...) ; processing (DEFUN REMOVE-HEAD ...) ; processing (DEFUN SCALE-HEAD ...) ; processing (DEFUN SCALE-SCREEN ...) ; processing (DEFUN HEAD-FORCE-REFRESH ...) ; processing (DEFCOMMAND REFRESH-HEADS ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/head-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.152 ; compiling file "/build/stumpwm-1.0.0/group.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *DEFAULT-GROUP-TYPE* ...) ; processing (DEFCLASS GROUP ...) ; processing (DEFGENERIC GROUP-STARTUP ...) ; processing (DEFGENERIC GROUP-ADD-WINDOW ...) ; processing (DEFGENERIC GROUP-DELETE-WINDOW ...) ; processing (DEFGENERIC GROUP-WAKE-UP ...) ; processing (DEFGENERIC GROUP-SUSPEND ...) ; processing (DEFGENERIC GROUP-CURRENT-WINDOW ...) ; processing (DEFGENERIC GROUP-CURRENT-HEAD ...) ; processing (DEFGENERIC GROUP-RESIZE-REQUEST ...) ; processing (DEFGENERIC GROUP-MOVE-REQUEST ...) ; processing (DEFGENERIC GROUP-RAISE-REQUEST ...) ; processing (DEFGENERIC GROUP-LOST-FOCUS ...) ; processing (DEFGENERIC GROUP-INDICATE-FOCUS ...) ; processing (DEFGENERIC GROUP-FOCUS-WINDOW ...) ; processing (DEFGENERIC GROUP-BUTTON-PRESS ...) ; processing (DEFGENERIC GROUP-ROOT-EXPOSURE ...) ; processing (DEFGENERIC GROUP-ADD-HEAD ...) ; processing (DEFGENERIC GROUP-REMOVE-HEAD ...) ; processing (DEFGENERIC GROUP-RESIZE-HEAD ...) ; processing (DEFGENERIC GROUP-SYNC-ALL-HEADS ...) ; processing (DEFGENERIC GROUP-SYNC-HEAD ...) ; processing (DEFUN CURRENT-GROUP ...) ; processing (DEFUN MOVE-GROUP-TO-HEAD ...) ; processing (DEFUN SORT-GROUPS ...) ; processing (DEFUN GROUP-MAP-NUMBER ...) ; processing (DEFUN FMT-GROUP-STATUS ...) ; processing (DEFUN FIND-FREE-GROUP-NUMBER ...) ; processing (DEFUN FIND-FREE-HIDDEN-GROUP-NUMBER ...) ; processing (DEFUN NON-HIDDEN-GROUPS ...) ; processing (DEFUN NETWM-GROUP-ID ...) ; processing (DEFUN SWITCH-TO-GROUP ...) ; processing (DEFUN MOVE-WINDOW-TO-GROUP ...) ; processing (DEFUN NEXT-GROUP ...) ; processing (DEFUN MERGE-GROUPS ...) ; processing (DEFUN NETWM-GROUP ...) ; processing (DEFUN NETWM-SET-GROUP ...) ; processing (DEFUN NETWM-SET-ALLOWED-ACTIONS ...) ; processing (DEFUN NETWM-UPDATE-GROUPS ...) ; processing (DEFUN NETWM-SET-GROUP-PROPERTIES ...) ; processing (DEFUN KILL-GROUP ...) ; processing (DEFUN ADD-GROUP ...) ; processing (DEFUN FIND-GROUP ...) ; processing (DEFUN GROUP-FORWARD ...) ; processing (DEFUN GROUP-FORWARD-WITH-WINDOW ...) ; processing (DEFCOMMAND GNEW ...) ; processing (DEFCOMMAND GNEWBG ...) ; processing (DEFCOMMAND GNEXT ...) ; processing (DEFCOMMAND GPREV ...) ; processing (DEFCOMMAND GNEXT-WITH-WINDOW ...) ; processing (DEFCOMMAND GPREV-WITH-WINDOW ...) ; processing (DEFCOMMAND GOTHER ...) ; processing (DEFCOMMAND GRENAME ...) ; processing (DEFUN ECHO-GROUPS ...) ; processing (DEFCOMMAND GROUPS ...) ; processing (DEFCOMMAND VGROUPS ...) ; processing (DEFCOMMAND GSELECT ...) ; processing (DEFCOMMAND GROUPLIST ...) ; processing (DEFCOMMAND GMOVE ...) ; processing (DEFCOMMAND GMOVE-AND-FOLLOW ...) ; processing (DEFCOMMAND GMOVE-MARKED ...) ; processing (DEFCOMMAND GKILL ...) ; processing (DEFCOMMAND GMERGE ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/group-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.312 ; compiling file "/build/stumpwm-1.0.0/bindings.lisp" (written 13 JUL 2021 11:43:28 PM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *ESCAPE-KEY* ...) ; processing (DEFVAR *ESCAPE-FAKE-KEY* ...) ; processing (DEFVAR *GROUPS-MAP* ...) ; processing (DEFVAR *EXCHANGE-WINDOW-MAP* ...) ; processing (DEFVAR *HELP-MAP* ...) ; processing (DEFVAR *GROUP-TOP-MAPS* ...) ; processing (DEFVAR *GROUP-TOP-MAP* ...) ; processing (DEFVAR *GROUP-ROOT-MAP* ...) ; processing (DEFVAR *TILE-GROUP-TOP-MAP* ...) ; processing (DEFVAR *TILE-GROUP-ROOT-MAP* ...) ; processing (DEFMACRO FILL-KEYMAP ...) ; processing (FILL-KEYMAP *TOP-MAP* ...) ; processing (FILL-KEYMAP *ROOT-MAP* ...) ; processing (FILL-KEYMAP *GROUP-TOP-MAP* ...) ; processing (FILL-KEYMAP *GROUP-ROOT-MAP* ...) ; processing (FILL-KEYMAP *TILE-GROUP-TOP-MAP* ...) ; processing (FILL-KEYMAP *TILE-GROUP-ROOT-MAP* ...) ; processing (FILL-KEYMAP *GROUPS-MAP* ...) ; processing (FILL-KEYMAP *EXCHANGE-WINDOW-MAP* ...) ; processing (FILL-KEYMAP *HELP-MAP* ...) ; processing (DEFCOMMAND COMMAND-MODE ...) ; processing (DEFCOMMAND SET-PREFIX-KEY ...) ; processing (DEFCOMMAND-ALIAS ESCAPE ...) ; processing (DEFCOMMAND BIND ...) ; processing (DEFCOMMAND SEND-ESCAPE ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/bindings-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.052 ; compiling file "/build/stumpwm-1.0.0/events.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (DEFPARAMETER *EVENT-FN-TABLE* ...) ; processing (DEFVAR *CURRENT-EVENT-TIME* ...) ; processing (DEFMACRO DEFINE-STUMP-EVENT-HANDLER ...) ; processing (FLET (# # ...) ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :CONFIGURE-REQUEST ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :CONFIGURE-NOTIFY ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :MAP-REQUEST ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :UNMAP-NOTIFY ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :DESTROY-NOTIFY ...) ; processing (DEFUN READ-FROM-KEYMAP ...) ; processing (DEFUN HANDLE-KEYMAP ...) ; processing (DEFUN TOP-MAPS ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :KEY-PRESS ...) ; processing (DEFUN BYTES-TO-WINDOW ...) ; processing (DEFUN HANDLE-RP-COMMANDS ...) ; processing (DEFUN HANDLE-STUMPWM-COMMANDS ...) ; processing (DEFUN MAYBE-SET-URGENCY ...) ; processing (DEFUN SAFE-ATOM-NAME ...) ; processing (DEFUN SAFE-BYTES-TO-ATOMS ...) ; processing (DEFUN UPDATE-WINDOW-PROPERTIES ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :PROPERTY-NOTIFY ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :MAPPING-NOTIFY ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :SELECTION-REQUEST ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :SELECTION-CLEAR ...) ; processing (DEFUN FIND-MESSAGE-WINDOW-SCREEN ...) ; processing (DEFUN DRAW-CROSS ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :EXPOSURE ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :REPARENT-NOTIFY ...) ; processing (DEFUN ACTIVATE-FULLSCREEN ...) ; processing (DEFUN DEACTIVATE-FULLSCREEN ...) ; processing (DEFUN UPDATE-FULLSCREEN ...) ; processing (DEFUN MAYBE-MAP-WINDOW ...) ; processing (DEFUN MAYBE-RAISE-WINDOW ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :CLIENT-MESSAGE ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :FOCUS-OUT ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :FOCUS-IN ...) ; processing (DEFUN FOCUS-ALL ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :ENTER-NOTIFY ...) ; processing (DEFINE-STUMP-EVENT-HANDLER :BUTTON-PRESS ...) ; processing (DEFUN HANDLE-EVENT ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/events-tmpOBHVA3CD.fasl ; compilation finished in 0:00:00.604 ; compiling file "/build/stumpwm-1.0.0/window.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *DEFAULT-WINDOW-NAME* ...) ; processing (DEFCLASS WINDOW ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFGENERIC UPDATE-DECORATION ...) ; processing (DEFGENERIC FOCUS-WINDOW ...) ; processing (DEFGENERIC RAISE-WINDOW ...) ; processing (DEFGENERIC WINDOW-VISIBLE-P ...) ; processing (DEFGENERIC WINDOW-SYNC ...) ; processing (DEFGENERIC WINDOW-HEAD ...) ; processing (DEFGENERIC REALLY-RAISE-WINDOW ...) ; processing (DEFUN REGISTER-URGENT-WINDOW ...) ; processing (DEFUN UNREGISTER-URGENT-WINDOW ...) ; processing (DEFUN WINDOW-CLEAR-URGENCY ...) ; processing (DEFUN WINDOW-URGENT-P ...) ; processing (DEFCOMMAND NEXT-URGENT ...) ; processing (DEFUN WINDOW-LEADER ...) ; processing (DEFUN WINDOW-TRANSIENT-FOR ...) ; processing (DEFUN WINDOW-MODAL-P ...) ; processing (DEFUN WINDOW-TRANSIENT-P ...) ; processing (DEFUN WINDOW-GANG ...) ; processing (DEFUN ONLY-MODALS ...) ; processing (DEFUN X-OF ...) ; processing (DEFUN MODALS-OF ...) ; processing (DEFUN TRANSIENTS-OF ...) ; processing (DEFUN SHADOWS-OF ...) ; processing (DEFUN ONLY-TRANSIENTS ...) ; processing (DEFUN ALL-WINDOWS ...) ; processing (DEFUN VISIBLE-WINDOWS ...) ; processing (DEFUN TOP-WINDOWS ...) ; processing (DEFUN WINDOW-NAME ...) ; processing (DEFUN WINDOW-ID ...) ; processing (DEFUN WINDOW-IN-CURRENT-GROUP-P ...) ; processing (DEFUN WINDOW-SCREEN ...) ; processing (DEFUN SEND-CLIENT-MESSAGE ...) ; processing (DEFUN WINDOW-MAP-NUMBER ...) ; processing (DEFUN FMT-WINDOW-STATUS ...) ; processing (DEFUN FMT-WINDOW-MARKED ...) ; processing (DEFUN ESCAPE-CARET ...) ; processing (DEFUN GET-NORMALIZED-NORMAL-HINTS ...) ; processing (DEFUN XWIN-NET-WM-NAME ...) ; processing (DEFUN XWIN-NAME ...) ; processing (DEFUN UPDATE-CONFIGURATION ...) ; processing (DEFMETHOD RAISE-WINDOW ...) ; processing (DEFUN XWIN-BORDER-WIDTH ...) ; processing (DEFUN (SETF XWIN-BORDER-WIDTH) ...) ; processing (DEFUN DEFAULT-BORDER-WIDTH-FOR-TYPE ...) ; processing (DEFUN XWIN-CLASS ...) ; processing (DEFUN XWIN-RES-NAME ...) ; processing (DEFUN XWIN-ROLE ...) ; processing (DEFMACRO DEFINE-WINDOW-SLOT ...) ; processing (DEFGENERIC SORT-WINDOWS-BY-NUMBER ...) ; processing (DEFMETHOD SORT-WINDOWS-BY-NUMBER ...) ; processing (DEFMETHOD SORT-WINDOWS-BY-NUMBER ...) ; processing (DEFGENERIC SORT-WINDOWS-BY-CLASS ...) ; processing (DEFMETHOD SORT-WINDOWS-BY-CLASS ...) ; processing (DEFMETHOD SORT-WINDOWS-BY-CLASS ...) ; processing (DEFUN SORT-WINDOWS ...) ; processing (DEFUN MARKED-WINDOWS ...) ; processing (DEFUN (SETF XWIN-STATE) ...) ; processing (DEFUN XWIN-STATE ...) ; processing (DEFUN WINDOW-HIDDEN-P ...) ; processing (DEFUN ADD-WM-STATE ...) ; processing (DEFUN REMOVE-WM-STATE ...) ; processing (DEFUN WINDOW-PROPERTY ...) ; processing (DEFUN FIND-WM-STATE ...) ; processing (DEFUN XWIN-UNHIDE ...) ; processing (DEFUN UNHIDE-WINDOW ...) ; processing (DEFUN XWIN-HIDE ...) ; processing (DEFUN HIDE-WINDOW ...) ; processing (DEFUN WINDOW-MAXSIZE-P ...) ; processing (DEFUN XWIN-TYPE ...) ; processing (DEFUN XWIN-STRUT ...) ; processing (DEFUN XWIN-SEND-CONFIGURATION-NOTIFY ...) ; processing (DEFUN UPDATE-WINDOW-GRAVITY ...) ; processing (DEFUN SET-NORMAL-GRAVITY ...) ; processing (DEFUN SET-MAXSIZE-GRAVITY ...) ; processing (DEFUN SET-TRANSIENT-GRAVITY ...) ; processing (DEFUN GRAVITY-FOR-WINDOW ...) ; processing (DEFUN WINDOW-WIDTH-INC ...) ; processing (DEFUN WINDOW-HEIGHT-INC ...) ; processing (DEFUN SET-WINDOW-GEOMETRY ...) ; processing (DEFUN FIND-FREE-WINDOW-NUMBER ...) ; processing (DEFUN REPARENT-WINDOW ...) ; processing (DEFUN PROCESS-EXISTING-WINDOWS ...) ; processing (DEFUN XWIN-GRAB-KEYS ...) ; processing (DEFUN GRAB-KEYS-ON-WINDOW ...) ; processing (DEFUN XWIN-UNGRAB-KEYS ...) ; processing (DEFUN UNGRAB-KEYS-ON-WINDOW ...) ; processing (DEFUN XWIN-GRAB-BUTTONS ...) ; processing (DEFUN XWIN-UNGRAB-BUTTONS ...) ; processing (DEFUN SYNC-KEYS ...) ; processing (DEFUN NETWM-REMOVE-WINDOW ...) ; processing (DEFUN PROCESS-MAPPED-WINDOW ...) ; processing (DEFUN FIND-WITHDRAWN-WINDOW ...) ; processing (DEFUN RESTORE-WINDOW ...) ; processing (DEFUN WITHDRAW-WINDOW ...) ; processing (DEFUN DESTROY-WINDOW ...) ; processing (DEFUN MOVE-WINDOW-TO-HEAD ...) ; processing (DEFUN NO-FOCUS ...) ; processing (DEFMETHOD FOCUS-WINDOW ...) ; processing (DEFUN XWIN-KILL ...) ; processing (DEFUN DEFAULT-WINDOW-MENU-FILTER ...) ; processing (DEFVAR *WINDOW-MENU-FILTER* ...) ; processing (DEFUN SELECT-WINDOW-FROM-MENU ...) ; processing (DEFCOMMAND DELETE-WINDOW ...) ; processing (DEFCOMMAND-ALIAS DELETE ...) ; processing (DEFCOMMAND KILL-WINDOW ...) ; processing (DEFCOMMAND-ALIAS KILL ...) ; processing (DEFCOMMAND TITLE ...) ; processing (DEFCOMMAND SELECT-WINDOW ...) ; processing (DEFCOMMAND-ALIAS SELECT ...) ; processing (DEFCOMMAND SELECT-WINDOW-BY-NAME ...) ; processing (DEFCOMMAND SELECT-WINDOW-BY-NUMBER ...) ; processing (DEFCOMMAND OTHER-WINDOW ...) ; processing (DEFCOMMAND-ALIAS OTHER ...) ; processing (DEFCOMMAND RENUMBER ...) ; processing (DEFCOMMAND-ALIAS NUMBER ...) ; processing (DEFCOMMAND REPACK-WINDOW-NUMBERS ...) ; processing (DEFCOMMAND WINDOWLIST ...) ; processing (DEFCOMMAND WINDOWLIST-BY-CLASS ...) ; processing (DEFCOMMAND WINDOW-SEND-STRING ...) ; processing (DEFCOMMAND-ALIAS INSERT ...) ; processing (DEFCOMMAND MARK ...) ; processing (DEFCOMMAND CLEAR-WINDOW-MARKS ...) ; processing (DEFCOMMAND-ALIAS CLEAR-MARKS ...) ; processing (DEFCOMMAND ECHO-WINDOWS ...) ; processing (DEFCOMMAND-ALIAS WINDOWS ...) ; processing (DEFCOMMAND INFO ...) ; processing (DEFCOMMAND REFRESH ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/window-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.840 ; compiling file "/build/stumpwm-1.0.0/floating-group.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (DEFPACKAGE #:STUMPWM.FLOATING-GROUP ...) ; processing (IN-PACKAGE :STUMPWM.FLOATING-GROUP) ; processing (DEFCLASS FLOAT-WINDOW ...) ; processing (DEFVAR *FLOAT-WINDOW-BORDER* ...) ; processing (DEFVAR *FLOAT-WINDOW-TITLE-HEIGHT* ...) ; processing (DEFMETHOD (SETF WINDOW-X) ...) ; processing (DEFMETHOD (SETF WINDOW-Y) ...) ; processing (DEFMETHOD (SETF WINDOW-WIDTH) ...) ; processing (DEFMETHOD (SETF WINDOW-HEIGHT) ...) ; processing (DEFUN FLOAT-WINDOW-MOVE-RESIZE ...) ; processing (DEFMETHOD UPDATE-DECORATION ...) ; processing (DEFMETHOD WINDOW-SYNC ...) ; processing (DEFMETHOD WINDOW-HEAD ...) ; processing (DEFMETHOD WINDOW-VISIBLE-P ...) ; processing (DEFMETHOD (SETF WINDOW-FULLSCREEN) ...) ; processing (DEFMETHOD REALLY-RAISE-WINDOW ...) ; processing (DEFCLASS FLOAT-GROUP ...) ; processing (DEFMETHOD GROUP-STARTUP ...) ; processing (DEFMETHOD GROUP-ADD-WINDOW ...) ; processing (DEFUN &FLOAT-FOCUS-NEXT ...) ; processing (DEFMETHOD GROUP-DELETE-WINDOW ...) ; processing (DEFMETHOD GROUP-WAKE-UP ...) ; processing (DEFMETHOD GROUP-SUSPEND ...) ; processing (DEFMETHOD GROUP-CURRENT-WINDOW ...) ; processing (DEFMETHOD GROUP-CURRENT-HEAD ...) ; processing (DEFUN FLOAT-WINDOW-ALIGN ...) ; processing (DEFMETHOD GROUP-RESIZE-REQUEST ...) ; processing (DEFMETHOD GROUP-MOVE-REQUEST ...) ; processing (DEFMETHOD GROUP-RAISE-REQUEST ...) ; processing (DEFMETHOD GROUP-LOST-FOCUS ...) ; processing (DEFMETHOD GROUP-INDICATE-FOCUS ...) ; processing (DEFMETHOD GROUP-FOCUS-WINDOW ...) ; processing (DEFMETHOD GROUP-ROOT-EXPOSURE ...) ; processing (DEFMETHOD GROUP-ADD-HEAD ...) ; processing (DEFMETHOD GROUP-REMOVE-HEAD ...) ; processing (DEFMETHOD GROUP-RESIZE-HEAD ...) ; processing (DEFMETHOD GROUP-SYNC-ALL-HEADS ...) ; processing (DEFMETHOD GROUP-SYNC-HEAD ...) ; processing (DEFMETHOD GROUP-BUTTON-PRESS ...) ; processing (DEFMETHOD GROUP-BUTTON-PRESS ...) ; processing (PUSHNEW (QUOTE #) ...) ; processing (DEFVAR *FLOAT-GROUP-TOP-MAP* ...) ; processing (DEFVAR *FLOAT-GROUP-ROOT-MAP* ...) ; processing (IN-PACKAGE :STUMPWM) ; processing (DEFCOMMAND GNEW-FLOAT ...) ; processing (DEFCOMMAND GNEWBG-FLOAT ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/floating-group-tmpULDB0RG.fasl ; compilation finished in 0:00:00.384 ; compiling file "/build/stumpwm-1.0.0/tile-group.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFCLASS TILE-GROUP ...) ; processing (DEFMETHOD INITIALIZE-INSTANCE ...) ; processing (DEFMETHOD GROUP-STARTUP ...) ; processing (DEFMETHOD GROUP-WAKE-UP ...) ; processing (DEFMETHOD GROUP-DELETE-WINDOW ...) ; processing (DEFMETHOD GROUP-ADD-WINDOW ...) ; processing (DEFMETHOD GROUP-CURRENT-WINDOW ...) ; processing (DEFMETHOD GROUP-CURRENT-HEAD ...) ; processing (DEFMETHOD GROUP-MOVE-REQUEST ...) ; processing (DEFMETHOD GROUP-RESIZE-REQUEST ...) ; processing (DEFMETHOD GROUP-RAISE-REQUEST ...) ; processing (DEFMETHOD GROUP-LOST-FOCUS ...) ; processing (DEFMETHOD GROUP-INDICATE-FOCUS ...) ; processing (DEFMETHOD GROUP-FOCUS-WINDOW ...) ; processing (DEFMETHOD GROUP-BUTTON-PRESS ...) ; processing (DEFMETHOD GROUP-BUTTON-PRESS ...) ; processing (DEFMETHOD GROUP-ROOT-EXPOSURE ...) ; processing (DEFMETHOD GROUP-ADD-HEAD ...) ; processing (DEFMETHOD GROUP-REMOVE-HEAD ...) ; processing (DEFMETHOD GROUP-RESIZE-HEAD ...) ; processing (DEFMETHOD GROUP-SYNC-ALL-HEADS ...) ; processing (DEFMETHOD GROUP-SYNC-HEAD ...) ; processing (DEFUN TILE-GROUP-FRAME-HEAD ...) ; processing (DEFUN (SETF TILE-GROUP-FRAME-HEAD) ...) ; processing (DEFUN POPULATE-FRAMES ...) ; processing (DEFUN FRAME-BY-NUMBER ...) ; processing (DEFUN FIND-FRAME ...) ; processing (DEFUN FRAME-SET-X ...) ; processing (DEFUN FRAME-SET-Y ...) ; processing (DEFUN FRAME-SET-R ...) ; processing (DEFUN FRAME-SET-B ...) ; processing (DEFUN FRAME-R ...) ; processing (DEFUN FRAME-B ...) ; processing (DEFUN FRAME-DISPLAY-Y ...) ; processing (DEFUN FRAME-DISPLAY-HEIGHT ...) ; processing (DEFUN FRAME-INTERSECT ...) ; processing (DEFUN FRAMES-OVERLAP-P ...) ; processing (DEFUN FRAME-RAISE-WINDOW ...) ; processing (DEFUN FOCUS-FRAME ...) ; processing (DEFUN FRAME-WINDOWS ...) ; processing (DEFUN FRAME-SORT-WINDOWS ...) ; processing (DEFUN COPY-FRAME-TREE ...) ; processing (DEFUN GROUP-FRAMES ...) ; processing (DEFUN HEAD-FRAMES ...) ; processing (DEFUN FIND-FREE-FRAME-NUMBER ...) ; processing (DEFUN CHOOSE-NEW-FRAME-WINDOW ...) ; processing (DEFUN SPLIT-FRAME-H ...) ; processing (DEFUN SPLIT-FRAME-V ...) ; processing (DEFUN RATIO-OR-PIXEL ...) ; processing (DEFUN FUNCALL-ON-LEAF ...) ; processing (DEFUN FUNCALL-ON-NODE ...) ; processing (DEFUN REPLACE-FRAME-IN-TREE ...) ; processing (DEFUN SIBLING-INTERNAL ...) ; processing (DEFUN NEXT-SIBLING ...) ; processing (DEFUN PREV-SIBLING ...) ; processing (DEFUN CLOSEST-SIBLING ...) ; processing (DEFUN MIGRATE-FRAME-WINDOWS ...) ; processing (DEFUN TREE-ACCUM-FN ...) ; processing (DEFUN TREE-ITERATE ...) ; processing (DEFUN TREE-X ...) ; processing (DEFUN TREE-Y ...) ; processing (DEFUN TREE-WIDTH ...) ; processing (DEFUN TREE-HEIGHT ...) ; processing (DEFUN TREE-PARENT ...) ; processing (DEFUN TREE-LEAF ...) ; processing (DEFUN TREE-ROW-SPLIT ...) ; processing (DEFUN TREE-COLUMN-SPLIT ...) ; processing (DEFUN TREE-SPLIT-TYPE ...) ; processing (DEFUN OFFSET-TREE ...) ; processing (DEFUN OFFSET-TREE-DIR ...) ; processing (DEFUN EXPAND-TREE ...) ; processing (DEFUN JOIN-SUBTREES ...) ; processing (DEFUN RESIZE-TREE ...) ; processing (DEFUN REMOVE-FRAME ...) ; processing (DEFUN SYNC-FRAME-WINDOWS ...) ; processing (DEFUN SYNC-ALL-FRAME-WINDOWS ...) ; processing (DEFUN SYNC-HEAD-FRAME-WINDOWS ...) ; processing (DEFUN OFFSET-FRAMES ...) ; processing (DEFUN RESIZE-FRAME ...) ; processing (DEFUN BALANCE-FRAMES-INTERNAL ...) ; processing (DEFUN SPLIT-FRAME ...) ; processing (DEFUN DRAW-FRAME-OUTLINE ...) ; processing (DEFUN DRAW-FRAME-OUTLINES ...) ; processing (DEFUN CLEAR-FRAME-OUTLINES ...) ; processing (DEFUN DRAW-FRAME-NUMBERS ...) ; processing (DEFMACRO SAVE-FRAME-EXCURSION ...) ; processing (DEFUN SPLIT-FRAME-IN-DIR ...) ; processing (DEFCOMMAND (HSPLIT TILE-GROUP) ...) ; processing (DEFCOMMAND (VSPLIT TILE-GROUP) ...) ; processing (DEFCOMMAND (REMOVE-SPLIT TILE-GROUP) ...) ; processing (DEFCOMMAND-ALIAS REMOVE ...) ; processing (DEFCOMMAND (ONLY TILE-GROUP) ...) ; processing (DEFCOMMAND (CURFRAME TILE-GROUP) ...) ; processing (DEFUN FOCUS-FRAME-NEXT-SIBLING ...) ; processing (DEFUN FOCUS-LAST-FRAME ...) ; processing (DEFUN FOCUS-FRAME-AFTER ...) ; processing (DEFUN FOCUS-NEXT-FRAME ...) ; processing (DEFUN FOCUS-PREV-FRAME ...) ; processing (DEFCOMMAND (FNEXT TILE-GROUP) ...) ; processing (DEFCOMMAND (SIBLING TILE-GROUP) ...) ; processing (DEFCOMMAND (FOTHER TILE-GROUP) ...) ; processing (DEFUN CHOOSE-FRAME-BY-NUMBER ...) ; processing (DEFCOMMAND (FSELECT TILE-GROUP) ...) ; processing (DEFCOMMAND (RESIZE TILE-GROUP) ...) ; processing (DEFUN CLEAR-FRAME ...) ; processing (DEFCOMMAND (FCLEAR TILE-GROUP) ...) ; processing (DEFUN GET-EDGE ...) ; processing (DEFUN NEIGHBOUR ...) ; processing (DEFUN MOVE-FOCUS-AND-OR-WINDOW ...) ; processing (DEFCOMMAND (MOVE-FOCUS TILE-GROUP) ...) ; processing (DEFCOMMAND (MOVE-WINDOW TILE-GROUP) ...) ; processing (DEFCOMMAND (NEXT-IN-FRAME TILE-GROUP) ...) ; processing (DEFCOMMAND (PREV-IN-FRAME TILE-GROUP) ...) ; processing (DEFCOMMAND (OTHER-IN-FRAME TILE-GROUP) ...) ; processing (DEFCOMMAND (BALANCE-FRAMES TILE-GROUP) ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/tile-group-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.996 ; compiling file "/build/stumpwm-1.0.0/tile-window.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *IGNORE-WM-INC-HINTS* ...) ; processing (DEFCLASS TILE-WINDOW ...) ; processing (DEFMETHOD UPDATE-DECORATION ...) ; processing (DEFMETHOD WINDOW-SYNC ...) ; processing (DEFMETHOD WINDOW-VISIBLE-P ...) ; processing (DEFMETHOD WINDOW-HEAD ...) ; processing (DEFMETHOD (SETF WINDOW-FULLSCREEN) ...) ; processing (DEFMETHOD REALLY-RAISE-WINDOW ...) ; processing (DEFUN RAISE-MODALS-OF ...) ; processing (DEFUN RAISE-MODALS-OF-GANG ...) ; processing (DEFUN RAISE-TRANSIENTS-OF-GANG ...) ; processing (DEFUN GEOMETRY-HINTS ...) ; processing (DEFUN MAXIMIZE-WINDOW ...) ; processing (DEFUN FOCUS-NEXT-WINDOW ...) ; processing (DEFUN FOCUS-PREV-WINDOW ...) ; processing (DEFCOMMAND (NEXT TILE-GROUP) ...) ; processing (DEFCOMMAND (PREV TILE-GROUP) ...) ; processing (DEFUN PULL-WINDOW ...) ; processing (DEFUN FOCUS-FORWARD ...) ; processing (DEFCOMMAND (PULL-WINDOW-BY-NUMBER TILE-GROUP) ...) ; processing (DEFCOMMAND-ALIAS PULL ...) ; processing (DEFUN OTHER-HIDDEN-WINDOW ...) ; processing (DEFUN PULL-OTHER-HIDDEN-WINDOW ...) ; processing (DEFUN OTHER-WINDOW-IN-FRAME ...) ; processing (DEFCOMMAND (PULL-HIDDEN-NEXT TILE-GROUP) ...) ; processing (DEFCOMMAND (PULL-HIDDEN-PREVIOUS TILE-GROUP) ...) ; processing (DEFCOMMAND (PULL-HIDDEN-OTHER TILE-GROUP) ...) ; processing (DEFCOMMAND (PULL-FROM-WINDOWLIST TILE-GROUP) ...) ; processing (DEFUN EXCHANGE-WINDOWS ...) ; processing (DEFCOMMAND (EXCHANGE-DIRECTION TILE-GROUP) ...) ; processing (DEFCOMMAND (ECHO-FRAME-WINDOWS TILE-GROUP) ...) ; processing (DEFCOMMAND-ALIAS FRAME-WINDOWS ...) ; processing (DEFCOMMAND (FULLSCREEN TILE-GROUP) ...) ; processing (DEFCOMMAND (GRAVITY TILE-GROUP) ...) ; processing (DEFCOMMAND (PULL-MARKED TILE-GROUP) ...) ; processing (DEFUN MAKE-RULE-FOR-WINDOW ...) ; processing (DEFCOMMAND (REMEMBER TILE-GROUP) ...) ; processing (DEFCOMMAND (FORGET TILE-GROUP) ...) ; processing (DEFCOMMAND (DUMP-WINDOW-PLACEMENT-RULES TILE-GROUP) ...) ; processing (DEFCOMMAND-ALIAS DUMP-RULES ...) ; processing (DEFCOMMAND (RESTORE-WINDOW-PLACEMENT-RULES TILE-GROUP) ...) ; processing (DEFCOMMAND-ALIAS RESTORE-RULES ...) ; processing (DEFCOMMAND (REDISPLAY TILE-GROUP) ...) ; processing (DEFCOMMAND (UNMAXIMIZE TILE-GROUP) ...) ; processing (DEFCOMMAND FRAME-WINDOWLIST ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/tile-window-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.380 ; compiling file "/build/stumpwm-1.0.0/window-placement.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (DEFUN XWIN-TO-WINDOW ...) ; processing (DEFVAR *RULE-SCANNERS-CACHE* ...) ; processing (DEFUN GET-OR-CREATE-RULE-SCANNER ...) ; processing (DEFUN STRING-MATCH ...) ; processing (DEFUN WINDOW-MATCHES-PROPERTIES-P ...) ; processing (DEFUN WINDOW-MATCHES-RULE-P ...) ; processing (DEFUN RULE-MATCHING-WINDOW ...) ; processing (DEFUN GET-WINDOW-PLACEMENT ...) ; processing (DEFUN SYNC-WINDOW-PLACEMENT ...) ; processing (DEFUN ASSIGN-WINDOW ...) ; processing (DEFUN PLACE-WINDOW ...) ; processing (DEFUN PICK-PREFERRED-FRAME ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/window-placement-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.116 ; compiling file "/build/stumpwm-1.0.0/message-window.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFUN MAX-WIDTH ...) ; processing (DEFGENERIC GRAVITY-COORDS ...) ; processing (DEFMACRO DEFINE-SIMPLE-GRAVITY ...) ; processing (DEFINE-SIMPLE-GRAVITY :TOP-RIGHT ...) ; processing (DEFINE-SIMPLE-GRAVITY :TOP-LEFT ...) ; processing (DEFINE-SIMPLE-GRAVITY :BOTTOM-RIGHT ...) ; processing (DEFINE-SIMPLE-GRAVITY :BOTTOM-LEFT ...) ; processing (DEFINE-SIMPLE-GRAVITY :RIGHT ...) ; processing (DEFINE-SIMPLE-GRAVITY :LEFT ...) ; processing (DEFINE-SIMPLE-GRAVITY :TOP ...) ; processing (DEFINE-SIMPLE-GRAVITY :BOTTOM ...) ; processing (DEFINE-SIMPLE-GRAVITY :CENTER ...) ; processing (DEFUN SETUP-WIN-GRAVITY ...) ; processing (DEFUN SETUP-MESSAGE-WINDOW ...) ; processing (DEFUN UNMAP-MESSAGE-WINDOW ...) ; processing (DEFUN UNMAP-ALL-MESSAGE-WINDOWS ...) ; processing (DEFUN UNMAP-FRAME-INDICATOR-WINDOW ...) ; processing (DEFUN UNMAP-ALL-FRAME-INDICATOR-WINDOWS ...) ; processing (DEFUN RESET-MESSAGE-WINDOW-TIMER ...) ; processing (DEFUN RESET-FRAME-INDICATOR-TIMER ...) ; processing (DEFUN SHOW-FRAME-OUTLINE ...) ; processing (DEFUN SHOW-FRAME-INDICATOR ...) ; processing (DEFUN ECHO-IN-WINDOW ...) ; processing (DEFUN PUSH-LAST-MESSAGE ...) ; processing (DEFUN REDRAW-CURRENT-MESSAGE ...) ; processing (DEFUN ECHO-NTH-LAST-MESSAGE ...) ; processing (DEFUN ECHO-STRING-LIST ...) ; processing (DEFUN ECHO-STRING ...) ; processing (DEFUN MESSAGE ...) ; processing (DEFUN ERR ...) ; processing (DEFUN MESSAGE-NO-TIMEOUT ...) ; processing (DEFVAR *LASTMSG-NTH* ...) ; processing (DEFCOMMAND LASTMSG ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/message-window-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.296 ; compiling file "/build/stumpwm-1.0.0/selection.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFUN EXPORT-SELECTION ...) ; processing (DEFUN SET-X-SELECTION ...) ; processing (DEFUN SEND-SELECTION ...) ; processing (DEFUN GET-X-SELECTION ...) ; processing (DEFCOMMAND PUTSEL ...) ; processing (DEFCOMMAND GETSEL ...) ; processing (DEFCOMMAND COPY-LAST-MESSAGE ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/selection-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.060 ; compiling file "/build/stumpwm-1.0.0/module.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *MODULE-DIR* ...) ; processing (DEFUN BUILD-LOAD-PATH ...) ; processing (DEFVAR *LOAD-PATH* ...) ; processing (DEFUN SYNC-ASDF-CENTRAL-REGISTRY ...) ; processing (DEFUN INIT-LOAD-PATH ...) ; processing (DEFUN SET-MODULE-DIR ...) ; processing (DEFINE-STUMPWM-TYPE :MODULE ...) ; processing (DEFUN FIND-ASD-FILE ...) ; processing (DEFUN LIST-MODULES ...) ; processing (DEFUN FIND-MODULE ...) ; processing (DEFUN ENSURE-PATHNAME ...) ; processing (DEFCOMMAND SET-CONTRIB-DIR ...) ; processing (DEFCOMMAND ADD-TO-LOAD-PATH ...) ; processing (DEFCOMMAND LOAD-MODULE ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/module-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.056 ; compiling file "/build/stumpwm-1.0.0/ioloop.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFGENERIC IO-CHANNEL-IOPORT ...) ; processing (DEFGENERIC IO-CHANNEL-EVENTS ...) ; processing (DEFGENERIC IO-CHANNEL-HANDLE ...) ; processing (DEFGENERIC IO-LOOP-ADD ...) ; processing (DEFGENERIC IO-LOOP-REMOVE ...) ; processing (DEFGENERIC IO-LOOP-UPDATE ...) ; processing (DEFGENERIC IO-LOOP ...) ; processing (DEFVAR *DEFAULT-IO-LOOP* ...) ; processing (DEFVAR *CURRENT-IO-LOOP* ...) ; processing (DEFVAR *CURRENT-IO-CHANNEL* ...) ; processing (DEFMETHOD IO-CHANNEL-HANDLE ...) ; processing (DEFCLASS SBCL-IO-LOOP ...) ; processing (DEFMETHOD IO-LOOP-ADD ...) ; processing (DEFMETHOD IO-LOOP-REMOVE ...) ; processing (DEFMETHOD IO-LOOP-UPDATE ...) ; processing (DEFMETHOD IO-LOOP ...) ; processing (DEFMETHOD IO-CHANNEL-IOPORT ...) ; processing (DEFMETHOD IO-CHANNEL-IOPORT ...) ; processing (DEFCLASS XLIB-IO-LOOP ...) ; processing (DEFMETHOD IO-LOOP-ADD ...) ; processing (DEFMETHOD IO-LOOP-REMOVE ...) ; processing (DEFMETHOD IO-LOOP-UPDATE ...) ; processing (DEFMETHOD IO-LOOP ...) ; processing (DEFMETHOD IO-CHANNEL-IOPORT ...) ; processing (SETF *DEFAULT-IO-LOOP* ...) ; processing (DEFMETHOD IO-CHANNEL-IOPORT ...) ; processing (DEFCLASS CALLBACK-CHANNEL ...) ; processing (DEFMETHOD IO-LOOP-ADD ...) ; processing (DEFMETHOD IO-LOOP-ADD ...) ; processing (DEFMETHOD IO-LOOP-REMOVE ...) ; processing (DEFMETHOD IO-CHANNEL-IOPORT ...) ; processing (DEFMETHOD IO-CHANNEL-EVENTS ...) ; processing (DEFMETHOD IO-CHANNEL-HANDLE ...) ; processing (DEFMETHOD (SETF CALLBACK-CHANNEL-EVENTS) ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/ioloop-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.520 ; compiling file "/build/stumpwm-1.0.0/stumpwm.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFUN LOAD-RC-FILE ...) ; processing (DEFUN ERROR-HANDLER ...) ; processing (DEFVAR *TOPLEVEL-IO* ...) ; processing (DEFVAR *TIMER-LIST* ...) ; processing (DEFVAR *TIMER-LIST-LOCK* ...) ; processing (DEFVAR *IN-MAIN-THREAD* ...) ; processing (DEFSTRUCT TIMER ...) ; file: /build/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. ; processing (DEFUN RUN-WITH-TIMER ...) ; processing (DEFUN CANCEL-TIMER ...) ; processing (DEFUN SCHEDULE-TIMER ...) ; processing (DEFUN SORT-TIMERS ...) ; processing (DEFUN UPDATE-TIMER-LIST ...) ; processing (DEFUN EXECUTE-TIMERS ...) ; processing (DEFUN EXECUTE-TIMER ...) ; processing (DEFUN RUN-EXPIRED-TIMERS ...) ; processing (DEFUN GET-NEXT-TIMEOUT ...) ; processing (DEFGENERIC HANDLE-TOP-LEVEL-CONDITION ...) ; processing (DEFMETHOD HANDLE-TOP-LEVEL-CONDITION ...) ; processing (DEFMETHOD HANDLE-TOP-LEVEL-CONDITION ...) ; processing (DEFMETHOD HANDLE-TOP-LEVEL-CONDITION ...) ; processing (DEFCLASS STUMPWM-TIMER-CHANNEL ...) ; processing (DEFMETHOD IO-CHANNEL-IOPORT ...) ; processing (DEFMETHOD IO-CHANNEL-EVENTS ...) ; processing (DEFMETHOD IO-CHANNEL-HANDLE ...) ; processing (DEFMETHOD IO-CHANNEL-HANDLE ...) ; processing (DEFCLASS REQUEST-CHANNEL ...) ; processing (DEFVAR *REQUEST-CHANNEL* ...) ; processing (DEFMETHOD IO-CHANNEL-IOPORT ...) ; processing (DEFMETHOD IO-CHANNEL-EVENTS ...) ; processing (DEFMETHOD IO-CHANNEL-HANDLE ...) ; processing (DEFUN CALL-IN-MAIN-THREAD ...) ; processing (DEFCLASS DISPLAY-CHANNEL ...) ; processing (DEFMETHOD IO-CHANNEL-IOPORT ...) ; processing (DEFMETHOD IO-CHANNEL-EVENTS ...) ; processing (FLET (#) ...) ; processing (DEFUN STUMPWM-INTERNAL-LOOP ...) ; processing (DEFUN PARSE-DISPLAY-STRING ...) ; processing (DEFUN STUMPWM-INTERNAL ...) ; processing (DEFUN STUMPWM ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/stumpwm-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.532 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/stumpwm-1.0.0/user.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFUN RESTARTS-MENU ...) ; processing (DEFUN BANISH-POINTER ...) ; processing (DEFCOMMAND BANISH ...) ; processing (DEFCOMMAND RATWARP ...) ; processing (DEFCOMMAND RATRELWARP ...) ; processing (DEFCOMMAND RATCLICK ...) ; processing (DEFUN PROGRAMS-IN-PATH ...) ; processing (DEFSTRUCT PATH-CACHE ...) ; processing (DEFVAR *PATH-CACHE* ...) ; processing (DEFUN REHASH ...) ; processing (DEFUN COMPLETE-PROGRAM ...) ; processing (DEFCOMMAND RUN-SHELL-COMMAND ...) ; processing (DEFCOMMAND-ALIAS EXEC ...) ; processing (DEFCOMMAND EVAL-LINE ...) ; processing (DEFCOMMAND-ALIAS EVAL ...) ; processing (DEFCOMMAND ECHO ...) ; processing (DEFUN SEND-META-KEY ...) ; processing (DEFCOMMAND META ...) ; processing (DEFCOMMAND LOADRC ...) ; processing (DEFCOMMAND KEYBOARD-QUIT ...) ; processing (DEFCOMMAND-ALIAS ABORT ...) ; processing (DEFCOMMAND QUIT ...) ; processing (DEFCOMMAND RESTART-SOFT ...) ; processing (DEFCOMMAND RESTART-HARD ...) ; processing (DEFUN FIND-MATCHING-WINDOWS ...) ; processing (DEFUN RUN-OR-RAISE ...) ; processing (DEFUN RUN-OR-PULL ...) ; processing (DEFCOMMAND RELOAD ...) ; processing (DEFCOMMAND EMACS ...) ; processing (DEFCOMMAND COPY-UNHANDLED-ERROR ...) ; processing (DEFMACRO DEFPROGRAM-SHORTCUT ...) ; processing (DEFCOMMAND SHOW-WINDOW-PROPERTIES ...) ; processing (DEFCOMMAND LIST-WINDOW-PROPERTIES ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/user-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.392 ; compiling file "/build/stumpwm-1.0.0/iresize.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *RESIZE-INCREMENT* ...) ; processing (DEFUN SET-RESIZE-INCREMENT ...) ; processing (DEFUN UPDATE-RESIZE-MAP ...) ; processing (UPDATE-RESIZE-MAP) ; processing (DEFCOMMAND (IRESIZE TILE-GROUP) ...) ; processing (DEFUN RESIZE-UNHIDE ...) ; processing (DEFCOMMAND (ABORT-IRESIZE TILE-GROUP) ...) ; processing (DEFCOMMAND (EXIT-IRESIZE TILE-GROUP) ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/iresize-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.040 ; compiling file "/build/stumpwm-1.0.0/help.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE NIL)) ; processing (DEFUN COLUMNIZE ...) ; processing (DEFUN DISPLAY-BINDINGS-FOR-KEYMAPS ...) ; processing (DEFCOMMAND COMMANDS ...) ; processing (DEFCOMMAND DESCRIBE-KEY ...) ; processing (DEFCOMMAND DESCRIBE-VARIABLE ...) ; processing (DEFCOMMAND DESCRIBE-FUNCTION ...) ; processing (DEFCOMMAND DESCRIBE-COMMAND ...) ; processing (DEFCOMMAND WHERE-IS ...) ; processing (DEFUN GET-KMAPS-AT-KEY ...) ; processing (DEFUN GET-KMAPS-AT-KEY-SEQ ...) ; processing (DEFUN WHICH-KEY-MODE-KEY-PRESS-HOOK ...) ; file: /build/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) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "*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. ; processing (DEFCOMMAND WHICH-KEY-MODE ...) ; processing (DEFCOMMAND MODIFIERS ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/help-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.212 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/stumpwm-1.0.0/fdump.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE #:STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFSTRUCT FDUMP ...) ; processing (DEFSTRUCT GDUMP ...) ; processing (DEFSTRUCT SDUMP ...) ; processing (DEFSTRUCT DDUMP ...) ; processing (DEFUN DUMP-GROUP ...) ; processing (DEFUN DUMP-SCREEN ...) ; processing (DEFUN DUMP-DESKTOP ...) ; processing (DEFUN DUMP-TO-FILE ...) ; processing (DEFCOMMAND DUMP-GROUP-TO-FILE ...) ; processing (DEFCOMMAND-ALIAS DUMP-GROUP ...) ; processing (DEFCOMMAND DUMP-SCREEN-TO-FILE ...) ; processing (DEFCOMMAND-ALIAS DUMP-SCREEN ...) ; processing (DEFCOMMAND DUMP-DESKTOP-TO-FILE ...) ; processing (DEFCOMMAND-ALIAS DUMP-DESKTOP ...) ; processing (DEFUN READ-DUMP-FROM-FILE ...) ; processing (DEFUN RESTORE-GROUP ...) ; processing (DEFUN RESTORE-SCREEN ...) ; processing (DEFUN RESTORE-DESKTOP ...) ; processing (DEFCOMMAND RESTORE-FROM-FILE ...) ; processing (DEFCOMMAND-ALIAS RESTORE ...) ; processing (DEFCOMMAND PLACE-EXISTING-WINDOWS ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/fdump-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.356 ; compiling file "/build/stumpwm-1.0.0/time.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *TIME-FORMAT-STRING-DEFAULT* ...) ; processing (DEFVAR *TIME-MODELINE-STRING* ...) ; processing (DEFVAR *TIME-MONTH-NAMES* ...) ; processing (DEFVAR *TIME-DAY-NAMES* ...) ; processing (DEFVAR *TIME-FORMAT-STRING-ALIST* ...) ; processing (DEFCOMMAND ECHO-DATE ...) ; processing (DEFCOMMAND-ALIAS TIME ...) ; processing (DEFUN TIME-PLIST ...) ; processing (DEFUN TIME-SECOND ...) ; processing (DEFUN TIME-MINUTE ...) ; processing (DEFUN TIME-HOUR ...) ; processing (DEFUN TIME-HOUR-ZERO ...) ; processing (DEFUN TIME-HOUR-12HR ...) ; processing (DEFUN TIME-HOUR-12HR-ZERO ...) ; processing (DEFUN TIME-DAY-OF-MONTH-ZERO ...) ; processing (DEFUN TIME-DAY-OF-MONTH ...) ; processing (DEFUN TIME-MONTH ...) ; processing (DEFUN TIME-MONTH-NAME ...) ; processing (DEFUN TIME-MONTH-SHORTNAME ...) ; processing (DEFUN TIME-YEAR ...) ; processing (DEFUN TIME-CENTURY ...) ; processing (DEFUN TIME-YEAR-SHORT ...) ; processing (DEFUN TIME-DAY-OF-WEEK ...) ; processing (DEFUN TIME-DAY-OF-WEEK-SUN-START ...) ; processing (DEFUN TIME-DOW-NAME ...) ; processing (DEFUN TIME-DOW-SHORTNAME ...) ; processing (DEFUN TIME-NEWLINE ...) ; processing (DEFUN TIME-TAB ...) ; processing (DEFUN TIME-AM-PM ...) ; processing (DEFUN TIME-AM-PM-CAPS ...) ; processing (DEFUN TIME-TZ ...) ; processing (DEFUN TIME-UNIX-ERA ...) ; processing (DEFUN TIME-DATE-AND-TIME ...) ; processing (DEFUN TIME-DATE ...) ; processing (DEFUN TIME-DATE-FULL ...) ; processing (DEFUN TIME-12HR-TIME ...) ; processing (DEFUN TIME-24HR-AND-MINUTE ...) ; processing (DEFUN TIME-24HR-TIME ...) ; processing (DEFUN TIME-FORMAT ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/time-tmpRJTU435C.fasl ; compilation finished in 0:00:00.164 ; compiling file "/build/stumpwm-1.0.0/mode-line.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *MODE-LINE-POSITION* ...) ; processing (DEFVAR *MODE-LINE-BORDER-WIDTH* ...) ; processing (DEFVAR *MODE-LINE-PAD-X* ...) ; processing (DEFVAR *MODE-LINE-PAD-Y* ...) ; processing (DEFVAR *MODE-LINE-BACKGROUND-COLOR* ...) ; processing (DEFVAR *MODE-LINE-FOREGROUND-COLOR* ...) ; processing (DEFVAR *MODE-LINE-BORDER-COLOR* ...) ; processing (DEFVAR *SCREEN-MODE-LINE-FORMAT* ...) ; processing (DEFVAR *SCREEN-MODE-LINE-FORMATTERS* ...) ; processing (DEFVAR *MODE-LINE-TIMEOUT* ...) ; processing (DEFVAR *MODE-LINE-TIMER* ...) ; processing (DEFUN ADD-SCREEN-MODE-LINE-FORMATTER ...) ; processing (DEFVAR *MODE-LINES* ...) ; processing (DEFSTRUCT (MODE-LINE #) ...) ; file: /build/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. ; processing (DEFUN SCREEN-MODE-LINES ...) ; processing (DEFUN HEAD-MODE-LINE ...) ; processing (DEFUN FIND-MODE-LINE-BY-WINDOW ...) ; processing (DEFUN MODE-LINE-GC ...) ; processing (DEFUN TURN-ON-MODE-LINE-TIMER ...) ; processing (DEFUN MAYBE-CANCEL-MODE-LINE-TIMER ...) ; processing (DEFUN RESIZE-MODE-LINE ...) ; processing (DEFUN UPDATE-MODE-LINE-COLOR-CONTEXT ...) ; processing (DEFUN MAKE-MODE-LINE-WINDOW ...) ; processing (DEFUN MAKE-MODE-LINE-GC ...) ; processing (DEFUN MAKE-MODE-LINE-CC ...) ; processing (DEFUN MAKE-MODE-LINE ...) ; processing (DEFUN SYNC-MODE-LINE ...) ; processing (DEFUN DESTROY-MODE-LINE ...) ; processing (DEFVAR *CURRENT-MODE-LINE-FORMATTERS* ...) ; processing (DEFVAR *CURRENT-MODE-LINE-FORMATTER-ARGS* ...) ; processing (DEFGENERIC MODE-LINE-FORMAT-ELT ...) ; processing (DEFMETHOD MODE-LINE-FORMAT-ELT ...) ; processing (DEFMETHOD MODE-LINE-FORMAT-ELT ...) ; processing (DEFMETHOD MODE-LINE-FORMAT-ELT ...) ; processing (DEFMETHOD MODE-LINE-FORMAT-ELT ...) ; processing (DEFUN MODE-LINE-FORMAT-STRING ...) ; processing (DEFUN REDRAW-MODE-LINE ...) ; processing (DEFUN UPDATE-MODE-LINES ...) ; processing (DEFUN UPDATE-ALL-MODE-LINES ...) ; processing (DEFUN MOVE-MODE-LINE-TO-HEAD ...) ; processing (DEFUN UPDATE-MODE-LINE-POSITION ...) ; processing (DEFUN PLACE-MODE-LINE-WINDOW ...) ; processing (DEFUN TOGGLE-MODE-LINE ...) ; processing (DEFUN ENABLE-MODE-LINE ...) ; processing (DEFCOMMAND MODE-LINE ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/mode-line-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.344 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/stumpwm-1.0.0/mode-line-formatters.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *HIDDEN-WINDOW-COLOR* ...) ; processing (DEFVAR *MODE-LINE-HIGHLIGHT-TEMPLATE* ...) ; processing (DEFUN MODE-LINE-CURRENT-GROUP ...) ; processing (ADD-SCREEN-MODE-LINE-FORMATTER #\u ...) ; processing (DEFUN FMT-URGENT-WINDOW-LIST ...) ; processing (ADD-SCREEN-MODE-LINE-FORMATTER #\w ...) ; processing (DEFUN FMT-WINDOW-LIST ...) ; processing (ADD-SCREEN-MODE-LINE-FORMATTER #\g ...) ; processing (DEFUN FMT-GROUP-LIST ...) ; processing (ADD-SCREEN-MODE-LINE-FORMATTER #\h ...) ; processing (DEFUN FMT-HEAD ...) ; processing (ADD-SCREEN-MODE-LINE-FORMATTER #\n ...) ; processing (DEFUN FMT-GROUP ...) ; processing (DEFUN FMT-HIGHLIGHT ...) ; processing (ADD-SCREEN-MODE-LINE-FORMATTER #\W ...) ; processing (DEFUN FMT-HEAD-WINDOW-LIST ...) ; processing (DEFUN FMT-HIDDEN ...) ; processing (ADD-SCREEN-MODE-LINE-FORMATTER #\v ...) ; processing (DEFUN FMT-HEAD-WINDOW-LIST-HIDDEN-WINDOWS ...) ; processing (ADD-SCREEN-MODE-LINE-FORMATTER #\d ...) ; processing (DEFUN FMT-MODELINE-TIME ...) ; processing (DEFVAR *BAR-MED-COLOR* ...) ; processing (DEFVAR *BAR-HI-COLOR* ...) ; processing (DEFVAR *BAR-CRIT-COLOR* ...) ; processing (DEFUN BAR-ZONE-COLOR ...) ; processing (DEFUN REPEAT ...) ; processing (DEFUN BAR ...) ; processing (DEFVAR *ALT-PREV-INDEX* ...) ; processing (DEFVAR *ALT-PREV-TIME* ...) ; processing (DEFUN ALTERNATE ...) ; processing (DEFVAR *SCROLL-PREV-INDEX* ...) ; processing (DEFVAR *SCROLL-PREV-TIME* ...) ; processing (DEFVAR *SCROLL-PREV-DIR* ...) ; processing (DEFUN SCROLL ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/mode-line-formatters-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.164 ; compiling file "/build/stumpwm-1.0.0/color.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFVAR *COLORS* ...) ; processing (DEFUN ADJUST-COLOR ...) ; processing (DEFUN HEX-TO-XLIB-COLOR ...) ; processing (DEFUN LOOKUP-COLOR ...) ; processing (DEFUN ALLOC-COLOR ...) ; processing (DEFUN UPDATE-COLOR-MAP ...) ; processing (DEFUN UPDATE-SCREEN-COLOR-CONTEXT ...) ; processing (DEFUN PARSE-COLOR ...) ; processing (DEFUN PARSE-COLOR-STRING ...) ; processing (DEFUN UNCOLORIFY ...) ; processing (DEFUN FIND-COLOR ...) ; processing (DEFUN FIND-FONT ...) ; processing (DEFGENERIC APPLY-COLOR ...) ; processing (DEFMETHOD APPLY-COLOR ...) ; processing (DEFMETHOD APPLY-COLOR ...) ; processing (DEFMETHOD APPLY-COLOR ...) ; processing (DEFMETHOD APPLY-COLOR ...) ; processing (DEFMETHOD APPLY-COLOR ...) ; processing (DEFMETHOD APPLY-COLOR ...) ; processing (DEFMETHOD APPLY-COLOR ...) ; processing (DEFMETHOD APPLY-COLOR ...) ; processing (DEFUN MAX-FONT-HEIGHT ...) ; processing (DEFUN RESET-COLOR-CONTEXT ...) ; processing (DEFUN RENDERED-STRING-SIZE ...) ; processing (DEFUN RENDERED-SIZE ...) ; processing (DEFUN RENDER-STRING ...) ; processing (DEFUN RENDER-STRINGS ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/color-tmp319UV2V8.fasl ; compilation finished in 0:00:00.420 ; compiling file "/build/stumpwm-1.0.0/wse.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFUN MOVE-WINDOWS-TO-GROUP ...) ; processing (DEFGENERIC LIST-WINDOWS ...) ; processing (DEFMETHOD LIST-WINDOWS ...) ; processing (DEFMETHOD LIST-WINDOWS ...) ; processing (DEFMETHOD LIST-WINDOWS ...) ; processing (DEFMETHOD LIST-WINDOWS ...) ; processing (DEFMETHOD LIST-WINDOWS ...) ; processing (DEFMETHOD LIST-WINDOWS ...) ; processing (DEFMETHOD LIST-WINDOWS ...) ; processing (DEFMETHOD LIST-WINDOWS ...) ; processing (DEFMACRO ACT-ON-MATCHING-WINDOWS ...) ; processing (DEFUN PULL-W ...) ; processing (DEFUN TITLED-P ...) ; processing (DEFUN TITLE-RE-P ...) ; processing (DEFUN CLASSED-P ...) ; processing (DEFUN CLASS-RE-P ...) ; processing (DEFUN TYPED-P ...) ; processing (DEFUN TYPE-RE-P ...) ; processing (DEFUN ROLED-P ...) ; processing (DEFUN ROLE-RE-P ...) ; processing (DEFUN RESED-P ...) ; processing (DEFUN RES-RE-P ...) ; processing (DEFUN GROUPED-P ...) ; processing (DEFUN IN-FRAME-P ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/wse-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/stumpwm-1.0.0/version.lisp" (written 12 JAN 2017 11:58:23 AM): ; processing (IN-PACKAGE :STUMPWM) ; processing (EXPORT (QUOTE #)) ; processing (DEFPARAMETER *VERSION* ...) ; processing (DEFCOMMAND VERSION ...) ; wrote /build/stumpwm-1.0.0/.cache/common-lisp/sbcl-2.1.1.debian-linux-arm64/build/stumpwm-1.0.0/version-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.016 ; ; compilation unit finished ; caught 62 STYLE-WARNING conditions ; printed 3090 notes makeinfo stumpwm.texi make[2]: Leaving directory '/build/stumpwm-1.0.0' make[1]: Leaving directory '/build/stumpwm-1.0.0' dh_auto_test create-stamp debian/debhelper-build-stamp fakeroot debian/rules binary dh binary dh_testroot dh_prep debian/rules override_dh_install make[1]: Entering directory '/build/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-1.0.0' dh_installdocs dh_installchangelogs dh_installexamples dh_installman dh_installinfo dh_installmenu dh_perl dh_link dh_installwm dh_strip_nondeterminism dh_compress dh_fixperms dh_missing dh_installdeb dh_gencontrol dh_md5sums dh_builddeb dpkg-deb: building package 'stumpwm' in '../stumpwm_1.0.0-1_all.deb'. dpkg-genbuildinfo --build=binary dpkg-genchanges --build=binary >../stumpwm_1.0.0-1_arm64.changes dpkg-genchanges: info: binary-only upload (no source code included) dpkg-source --after-build . dpkg-buildpackage: info: binary-only upload (no source included) dpkg-genchanges: info: including full source code in upload I: copying local configuration I: unmounting dev/ptmx filesystem I: unmounting dev/pts filesystem I: unmounting dev/shm filesystem I: unmounting proc filesystem I: unmounting sys filesystem I: cleaning the build env I: removing directory /srv/workspace/pbuilder/8464 and its subdirectories I: Current time: Tue Jul 13 23:45:54 -12 2021 I: pbuilder-time-stamp: 1626263154 Wed Jul 14 11:45:56 UTC 2021 I: 1st build successful. Starting 2nd build on remote node codethink11-arm64.debian.net. Wed Jul 14 11:45:56 UTC 2021 I: Preparing to do remote build '2' on codethink11-arm64.debian.net. Wed Jul 14 11:48:16 UTC 2021 I: Deleting $TMPDIR on codethink11-arm64.debian.net. Wed Jul 14 11:48:17 UTC 2021 I: stumpwm_1.0.0-1_arm64.changes: Format: 1.8 Date: Sat, 14 Apr 2018 17:55:59 +0900 Source: stumpwm Binary: stumpwm Architecture: all Version: 2:1.0.0-1 Distribution: unstable Urgency: medium Maintainer: Debian Common Lisp Team Changed-By: Benda Xu Description: stumpwm - tiling, keyboard driven Common Lisp window manager Closes: 886911 Changes: stumpwm (2:1.0.0-1) unstable; urgency=medium . * New upstream release (Closes: #886911). * Bump to Debian standard 4.1.4. * Run wrap-and-sort and add myself as uploader. * Update debian/copyright with the help of cme/licensecheck. * Convert debian/rules to use debhelper 11. Checksums-Sha1: 5dee6e680128b89ef5a1ff079d0c57399db46642 185540 stumpwm_1.0.0-1_all.deb 91f8b470df33fdffce3e867112658bcefcde6e71 4920 stumpwm_1.0.0-1_arm64.buildinfo Checksums-Sha256: 9fd6e04cb3cf9928ee0eb16f61d32f79f5b6f4ed0312e8394675569b4b29c94f 185540 stumpwm_1.0.0-1_all.deb c5b65ea44aa9f4da62eded856090b8d4753e61e5230fdd90f6ea6381ed0ef219 4920 stumpwm_1.0.0-1_arm64.buildinfo Files: 9cbec466d48f8cea503907cd7d1b62a6 185540 x11 optional stumpwm_1.0.0-1_all.deb b5ebb4a44e9171dd6e5d3ae0d072766b 4920 x11 optional stumpwm_1.0.0-1_arm64.buildinfo Wed Jul 14 11:48:18 UTC 2021 I: diffoscope 177 will be used to compare the two builds: # Profiling output for: /usr/bin/diffoscope --html /srv/reproducible-results/rbuild-debian/tmp.K3ytbyEG9b/stumpwm_1.0.0-1.diffoscope.html --text /srv/reproducible-results/rbuild-debian/tmp.K3ytbyEG9b/stumpwm_1.0.0-1.diffoscope.txt --json /srv/reproducible-results/rbuild-debian/tmp.K3ytbyEG9b/stumpwm_1.0.0-1.diffoscope.json --profile=- /srv/reproducible-results/rbuild-debian/tmp.K3ytbyEG9b/b1/stumpwm_1.0.0-1_arm64.changes /srv/reproducible-results/rbuild-debian/tmp.K3ytbyEG9b/b2/stumpwm_1.0.0-1_arm64.changes ## command (total time: 0.000s) 0.000s 1 call cmp (internal) ## has_same_content_as (total time: 0.000s) 0.000s 1 call abc.DotChangesFile ## main (total time: 0.306s) 0.306s 2 calls outputs 0.000s 1 call cleanup ## recognizes (total time: 0.022s) 0.022s 10 calls diffoscope.comparators.binary.FilesystemFile 0.000s 8 calls abc.DotChangesFile Wed Jul 14 11:48:20 UTC 2021 I: diffoscope 177 found no differences in the changes files, and a .buildinfo file also exists. Wed Jul 14 11:48:20 UTC 2021 I: stumpwm from bullseye built successfully and reproducibly on arm64. Wed Jul 14 11:48:21 UTC 2021 I: Submitting .buildinfo files to external archives: Wed Jul 14 11:48:21 UTC 2021 I: Submitting 8.0K b1/stumpwm_1.0.0-1_arm64.buildinfo.asc Wed Jul 14 11:48:22 UTC 2021 I: Submitting 8.0K b2/stumpwm_1.0.0-1_arm64.buildinfo.asc Wed Jul 14 11:48:24 UTC 2021 I: Done submitting .buildinfo files to http://buildinfo.debian.net/api/submit. Wed Jul 14 11:48:24 UTC 2021 I: Done submitting .buildinfo files. Wed Jul 14 11:48:24 UTC 2021 I: Removing signed stumpwm_1.0.0-1_arm64.buildinfo.asc files: removed './b1/stumpwm_1.0.0-1_arm64.buildinfo.asc' removed './b2/stumpwm_1.0.0-1_arm64.buildinfo.asc'